Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2020/03/15 14:41:58

MixJuice GET URL : kidspod.club/mj/950

カラースクリーンセーバー

「PanCake」で、出来ます。

  • No registered tag exist.
  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 ?”PC CLEAR 00”
20 X=RND(80):Y=RND(40):V=1:W=1
30 A=RND(40)+40:B=RND(20)+22:C=-1:D=-1
40 z=0
50 ?”PC LINE “;HEX$(X,2);” “;HEX$(Y,2);” “;HEX$(A,2);” “;HEX$(B,2);” “;HEX$(RND(15)+1,2)
60 Z=Z+1
100 ?”PC LINE “;HEX$(X,2);” “;HEX$(Y,2);” “;HEX$(A,2);” “;HEX$(B,2);” “;HEX$(RND(15)+1,2)
110 Z=Z+1
120 IF Z>400Z=0:RUN
130 X=X+V:Y=Y+W:A=A+C:B=B+D
140 IF X<10 OR X>78 V=-V
150 IF Y<10 OR Y>44 W=-W
160 IF A<10 OR A>78 C=-C
170 IF B<10 OR B>44 D=-D
180 GOTO 100

COMMENT

Kidspod運営チーム
Kidspod運営チーム2020/04/02 17:30:12

思ったよりも、ずっと滑らかに線が引かれていてびっくりしました。プログラムのコード内でRUNコマンドを使う工夫が面白いです!