ノリタケ伊勢株式会社

　まずは、スクロールから試してみましょう。 「macro操師」"ヘルプ"のScrollを参考にしてください。

プログラム8

Sub Start()
          Cursor 0 , 0
          Cls

          SetFont 16X32
          KanjiOn
          Print "アクション"
          Sleep 4000 / 14             '・・・①

          Cursor 256 , 0             '・・・②
          Print "スクロール"         '・・・③
          Scroll 8 , 256 , 1         '・・・④
          Sleep 2000 / 14
End Sub

　このプログラムを実行すると、"アクション"という文字が表示されて、"スクロール"という文字が右から流れてきて、左端で停止します。

　8-①(Sleep 4000 / 14)は、処理を一定時間止める命令です。 Sleep　1にすると約14msec処理が止まりますので、Sleep 4000 / 14にすると"アクション"という表示が約4sec止まります。

　8-②(Cursor 256 , 0)でカーソルを右に256dotずれた位置にあわせます。 256dotずれた位置だと、はみ出しているのではないかと思ってしまいそうですが、実は見えている画面の裏側に「非表示エリア」というのがあります。 そこに"スクロール"という文字をしまっておいて、画面を徐々に左側にシフトさせるのです。

　各表示モジュールの表示メモリは

です。

　8-④(Scroll 8 , 256 , 0)はスクロールさせる命令です。

Scroll shift , repetition , speed

です。

　shiftの部分で、1回でどれだけシフトさせるか定義します。

 

　シフトの方向は、上から下、右から左です。 また、表示メモリは、縦8dotずつでグループになっています。

　プログラム8は縦64dotを仮定していますので、(64 / 8 =) 8と定義すれば、1回のシフトでちょうど左に1dotずれることになります。 64とすると8dotずれます。 同様の考えで、縦16dotの場合は2、縦32dotの場合は4と定義すると、左に1dotシフトします。

　そしてrepetitionで何回シフトさせるかを定義します。 例えば、縦64dotでshiftが8の場合はrepetitionが256だと、左に256dot移動します。 そのため、8-②～④で"スクロール"という文字が、1画面分移動し、左端に停止するのです。

　ためしに8-④を

Scroll 8 , 768 , 1

としてみてください。 表示エリアが256dot、非表示エリアが256dot、表示エリア(2回目)が256dot、合計768dotですので、スクロールは、1回目でサイドアウトして、2回目で左端停止します。

また、

Scroll 64 , 32 , 1

とすると、とても早いスクロールになりました。 これは1回のシフトでたくさん移動するためです。 １回で8dot左にずれることになります。 そして、8dotのシフトが32回ですから、全部で8 X 32 = 256dotスクロールすることになります。

　speedの部分で、1回シフトする時間を定義します。 その時間は約speed×約14msecになります。 この部分は、省略可能です。省略すると1と同じ(約14msec)です。

※Sleep、Scrollで時間を定義する場合、256X16dot、256X64dot、512X32dotの表示モジュールは、1にすると約14msec止まります。 384X32dotの場合は約13msec、256X128dotの場合は約16msecです。）