プチコンまとめWiki (初代/mkII)

投稿プログラム : Color Samples

パンくずリスト

2013年5月9日投稿 / 投稿者 : テトロ / タグ : 投稿プログラム ツール サンプル QRコード mkII専用

概要 

グラフィックの識別をしやすくしました

ちゃっかり更新www

QR コード

プチコンmkII 向けの QR コードです。

c2.png

プログラムリスト

  1. CLS:CLEAR:Y=1:GCLS
  2. LOCATE 0,0:?”┌───┬───┬───┬───┬───┬───┬───┐
  3. @1
  4. LOCATE 0,Y:?”│   │   │   │   │   │   │   │
  5. Y=Y+1
  6. IF Y==21 THEN GOTO @2
  7. LOCATE 0,Y:?”│   │   │   │   │   │   │   │
  8. Y=Y+1
  9. IF Y==21 THEN GOTO @2
  10. LOCATE 0,Y:?”├───┼───┼───┼───┼───┼───┼───┤
  11. WAIT 1
  12. Y=Y+1
  13. GOTO @1
  14. @2
  15. LOCATE 0,21:?”└───┴───┴───┴───┴───┴───┴───┘
  16. LOCATE 0,22:?”Color Samples  А:NEXT  Ф:EXIT”
  17. @3
  18. GCLS
  19. FOR Y=0 TO 6
  20. FOR X=0 TO 6
  21. LOCATE X*4+1,Y*3+1:?”   ”
  22. LOCATE X*4+1,Y*3+1:? N
  23. GFILL X*32+8,Y*24+16,X*32+32,Y*24+24,N
  24. N=N+1
  25. IF N==256 THEN CLEAR;GOTO @A
  26. WAIT 1
  27. NEXT X
  28. NEXT Y
  29. @A
  30. B=BUTTON(1)
  31. IF B==16 THEN @3
  32. IF B==64 THEN CLS:GCLS:END
  33. GOTO @A

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • テトロ : プログラムリストをのせてくれた方、ありがとうございます (2013/05/09 (木) 22:20:43)
  • キービィ : 常識だけどPRINTは?に短縮出来ます。 (2013/05/10 (金) 07:19:21)
  • 名無しさん : 常識とは違うんでない? (2013/05/10 (金) 14:59:55)
  • テトロ : (やばいすっかり忘れてたなんて言えない)www (2013/05/10 (金) 21:05:51)
  • 道産子 : ↑見えてますよw (2013/05/10 (金) 22:41:12)
  • 名無しさん : こいつ直接脳内に (2013/05/13 (月) 00:05:32)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.018 秒 | このページの最終更新 : 2016/01/22 (金) 00:53:53 (1275d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30