ランダム画面 2

ランダム画面 が 2 になりました。

何が 2 なのか? というと、縦横がそれぞれ 2 倍です。

仕組みはキャラクター番号 CHR$(#80)~CHR$(#8F) の

仮想グラフィックを用いて表示させています。

 

……とだけ書いていると簡単に実現できそうなのですが、

変化は 1 文字ではなく、1 文字を縦横 4 分割した上の

1 ヶ所を変化させる必要があります。

そこで、場所を決めたら、その場所の値を得て、

#80~#8F の下 1 桁 #0~#F(0~15)にします。

1<<0~3(=1・2・4・8)で変化する場所を定めて

^(XOR・排他的論理和)で反転し、
#80 を加えて POKE する、という面倒な作業をしています。

1.3b09 で追加された DRAW で削除が可能になれば
楽に実現できるのですが……

でもこれで対応バージョンが 1.0.0 以降対応と
幅広くなっています。

 

10 'Random Screen 2
20 CLS
30 A=#900+RND(768)
40 P=PEEK(A)%16
50 POKE A,#80+P^(1<<RND(4))
60 GOTO 30

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/841

MicJack ダウンロード ?"MJ GKP 841



BASIC 1.3.2b19~ (1.4.0~) 用

1.3b09(1.3.1 より後のベータ版)で仮想グラフィックを用いた点・線を描く DRAW コマンドが追加されていますが、

1.3.2b19 では更に反転(XOR)が加わっています。これにより短いプログラムで動作できるようになりました。

実行画面は同じです。

 

10 'Random Screen 2
20 CLS
30 DRAW RND(64),RND(48),2
40 GOTO 30

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/863

MicJack ダウンロード ?"MJ GKP 863


他のプログラム