1.0087と、上下は対称になるように設定しました。なっていないので、126対62になるように細かく設定することで、原点の回りに対称な円を描けました。X軸とY軸の縮尺が異なると、この円は真円にならず、楕円になります。ゴムの上に円を書き、ゴムを一方向に引っ張ると円が楕円になるのと同じです。座標の設定で上下と右端に少し余裕を持たせていることに、お気づきでしょう。余裕を持たせています。しても描画に変化がありません。コマンド使用)にしているので、影響が無いと思われます。Basicでは、グラフィックスを描画する前にグラフの描画範囲(座標)をうまく設定するのがコツのようです。その座標系で描画できます。座標設定が簡単にできるので、利便性が高いと思います。表示、ラベル表示は今回のプログラムでは不要です。幸いなことに、これらの表示をオフにするコマンドが準備されているので、それを使います。計算値を画面表示させます。コマンドを使うと、画面がちらつきます。(出力)命令などのテキスト表示の時にはグラフィックスが表示されず、グラフィックス表示の時にはテキストが表示されません。結果的にテキスト表示とグラフ表示が頻繁に切り替わるので、表示がちらつきます。テキスト表示とグラフィックス表示では異なるRAMを使っていると思われ、同時表示の方法がまだ見つかっていません(できないかも知れません)。[X座標],[Y座標],[表示内容]なので、座標指定のXとYが互いに逆になっています。ような見やすいフォントを使った表示ではなくて、液晶のドットを使った単純な文字表示です。1文字の表示で使う縦横のドット数が異なりますので、表示位置のY座標とX座標は文字に合わせて微調整しました。数字は、縦5ドット、横3ドットのようですが、小さな数字も使えるので、その場合は文字に合わせる必要があります。コマンドのように縦横の位置が決まっていないので、好きな位置に表示可能な利点もあります(面倒ですが...)。範囲の正の数としていました。正方形の範囲全体にランダムに点を打つようにしています。範囲の値にしたいわけです。算出するように変更しました。1つ増やす処理を行っています。1つ増やす処理にしています。広い範囲に設定しても問題がなく、見栄えが良くなるわけです。コマンドを使って、以下のようにグラフィックス画面に表示します。ループの中では、点1を1つ打つたびに、以下の表示を行います。キーで一旦停止を解除する部分、それに伴う表示の変更は、以下のようにしました。Getkey=41:Then[必要な処理]IfEndとしました。ループが回るたびに実行されるので、上記のようにできます。キー(キーコード31)が押されるまでループを回し続けてプログラムが先に進むのを防ぎ、これが押されたら次へ進む、と言うロジックにしています。表示の変更も織り込みました。(スペース2つ)IfEndスペースは、上書きして前の表示を違和感なく消すために使っています。修正]当初、[EXE]のトグル操作で一旦停止と解除を実装していて、そのために以下の赤文字の2行を入れていました。51,1,"EXE:Stop"IfEndその後、グラフィックス以外のコードを単純化するために今回の仕様に変更しましたが、その際不要なコード2行を削除し忘れていました。コマンドによる点や円の描画が楽にできるということです。コマンドよりも柔軟性が高いことも分かりました。コマンドの部分を、以下の2行に置き換えるだけで(他の部分の変更無しで)、ほぼ同じように正常動作します。10,10これについては、もう少し調べたいことがあるので、とりあえずメモ代わりにここに置かせてもらいます。プログラムを作ってくださいました(コメント欄参照)。そこで、画面描画もほぼ同じになるように改造させて頂きました。作成の練習を兼ねて改造させてもらいました。ビルド可能なソースファイルが含まれています。表示されています(画面の右下)。プログラムと異なります)。プログラムと、ほぼ同じ画面になっていることが分かります。実行時間が表示されています。どれぐらい速いか、見てみましょう。