2012年3月28日投稿 2012年3月31日更新 / 投稿者 : BASIC-Ishida / タグ : 投稿プログラム 実用ツール QRコード mkII専用
はじめまして、「BASIC-Ishida」です。
まだ、初心者ですが今後も宜しくお願いします。
適当に作ったものですので、あまり役に立たないかもしれません。
上画面にアナログ時計、下画面に文字で表示しています。
動作しているところを撮影した写真や動画があれば貼り付けてください。
- ’−−− トケイ −−−
- ’−−−ショキカ
- ACLS
- CLEAR
- VISIBLE 1,0,0,0,0,1
- PNLTYPE ”OFF”
- ’−−−トケイ ワク
- GCIRCLE 255/2,191/2,60,15
- ’−−−シ゛シン ノ メモリ
- FOR I=1 TO 12
- FOR A=45 TO 50
- GCIRCLE 255/2,191/2,A,15,30*I,30*I
- NEXT
- NEXT
- ’−−−フンシン ノ メモリ
- FOR I=1 TO 60
- FOR A=55 TO 60
- GCIRCLE 255/2,191/2,A,15,6*I,6*I
- NEXT
- NEXT
- ’−−−モシ゛ハ゛ン
- COLOR 0
- LOCATE 31/2,5:?”12”
- LOCATE 22,23/2:?”3”
- LOCATE 31/2,18:?”6”
- LOCATE 9,23/2:?”9”
- @LOOP
- ’−−−シタカ゛メン ニ モシ゛ ヲ ニュウリョク
- PNLSTR (31−LEN(TIME$+DATE$))/2,23/2,TIME$+” ”+DATE$,0
- ’FOR I=0 TO LEN(TIME$)−1
- ’GPAGE 1
- ’GPUTCHR I*4*8,64,”BGF0”,ASC(MID$(TIME$,I,1)),0,4
- ’NEXT
- ’−−−セッテイ
- ’GPAGE 0
- TMREAD(TIME$),H,M,S
- IF H>12 THEN H=H−12
- HH=(360+90)−H*30
- MM=(360+90)−M*6
- SS=(360+90)−S*6
- ’−−−シン
- FOR I=0 TO 2
- GCIRCLE 255/2,191/2,I,15
- NEXT
- FOR MY=0 TO 40
- GCIRCLE 255/2,191/2,MY,15,MM−S/20,M−S/20
- NEXT
- FOR SY=0 TO 30
- GCIRCLE 255/2,191/2,SY,15,SS,SS
- NEXT
- FOR HY=0 TO 20
- GCIRCLE 255/2,191/2,HY,15,HH−M/2,HH−M/2
- NEXT
- ’−−−マツ
- WAIT 60
- ’−−−シン ヲ ケス
- FOR I=0 TO 2
- GCIRCLE 255/2,191/2,I,0
- NEXT
- FOR MY=0 TO 40
- GCIRCLE 255/2,191/2,MY,0,MM−S/20,MM−S/20
- NEXT
- FOR SY=0 TO 30
- GCIRCLE 255/2,191/2,SY,0,SS,SS
- NEXT
- FOR HY=0 TO 20
- GCIRCLE 255/2,191/2,HY,0,HH−M/2,HH−M/2
- NEXT
- ’GPAGE 1
- ’GFILL 0,0,255,191,0
- ’GPAGE 0
- GOTO @LOOP
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.127 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:19 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30