下記のプログラムを直すには？ (ID:87615)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ねろ様いつもお世話になっています。 以前このオシロスコープのような描画でお世話になりました年寄りの 冷や水です。 ぷち様。 ねろ様の回答で解決でしょう。 ただ次のようにサンプルデータを変更した場合、やっぱり継ぎ目で波 形がおかしくなります。お試しください。 'Y = Int(Rnd * 2000) '--------------- SAMPLE DRAW DATA --------------- Static YYY As Integer ' DRAW DATA => Y 'サンプル波形 Y = 1000 * Sin(YYY * 3.14 / 180) + 1200 'サンプル波形の調整 YYY = YYY + 10 If YYY > 360 Then YYY = 0 '------------------------------------------------ これは、Picture1を切り替える際にTTTを無視して切り替えている ので書き残しがあるためです。 「'描画が端に来たらPictureを切り替える」の際、無条件に OLD_X = 0 としていることが問題では無いでしょうか。 っていうか、以前の私のサンプルコードのミスです。