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

投稿プログラム : アナログ時計

パンくずリスト

2012年3月28日投稿 2012年3月31日更新 / 投稿者 : BASIC-Ishida / タグ : 投稿プログラム 実用ツール QRコード mkII専用

前書き

はじめまして、「BASIC-Ishida」です。
まだ、初心者ですが今後も宜しくお願いします。

概要

適当に作ったものですので、あまり役に立たないかもしれません。
上画面にアナログ時計、下画面に文字で表示しています。

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

QR_TIME10.png

プログラムリスト

  1. ’−−− トケイ −−−
  2. ’−−−ショキカ
  3. ACLS
  4. CLEAR
  5. VISIBLE 1,0,0,0,0,1
  6. PNLTYPE ”OFF”
  7. ’−−−トケイ ワク
  8. GCIRCLE 255/2,191/2,60,15
  9. ’−−−シ゛シン ノ メモリ
  10. FOR I=1 TO 12
  11.  FOR A=45 TO 50
  12.   GCIRCLE 255/2,191/2,A,15,30*I,30*I
  13.  NEXT
  14. NEXT
  15. ’−−−フンシン ノ メモリ
  16. FOR I=1 TO 60
  17.  FOR A=55 TO 60
  18.   GCIRCLE 255/2,191/2,A,15,6*I,6*I
  19.  NEXT
  20. NEXT
  21. ’−−−モシ゛ハ゛ン
  22. COLOR 0
  23. LOCATE 31/2,5:?”12”
  24. LOCATE 22,23/2:?”3”
  25. LOCATE 31/2,18:?”6”
  26. LOCATE 9,23/2:?”9”
  27. @LOOP
  28. ’−−−シタカ゛メン ニ モシ゛ ヲ ニュウリョク
  29. PNLSTR (31−LEN(TIME$+DATE$))/2,23/2,TIME$+” ”+DATE$,0
  30. ’FOR I=0 TO LEN(TIME$)−1
  31. ’GPAGE 1
  32. ’GPUTCHR I*4*8,64,”BGF0”,ASC(MID$(TIME$,I,1)),0,4
  33. ’NEXT
  34. ’−−−セッテイ
  35. ’GPAGE 0
  36. TMREAD(TIME$),H,M,S
  37. IF H>12 THEN H=H−12
  38. HH=(360+90)−H*30
  39. MM=(360+90)−M*6
  40. SS=(360+90)−S*6
  41. ’−−−シン
  42. FOR I=0 TO 2
  43.  GCIRCLE 255/2,191/2,I,15
  44. NEXT
  45. FOR MY=0 TO 40
  46.  GCIRCLE 255/2,191/2,MY,15,MM−S/20,M−S/20
  47. NEXT
  48. FOR SY=0 TO 30
  49.  GCIRCLE 255/2,191/2,SY,15,SS,SS
  50. NEXT
  51. FOR HY=0 TO 20
  52.  GCIRCLE 255/2,191/2,HY,15,HH−M/2,HH−M/2
  53. NEXT
  54. ’−−−マツ
  55. WAIT 60
  56. ’−−−シン ヲ ケス
  57. FOR I=0 TO 2
  58.  GCIRCLE 255/2,191/2,I,0
  59. NEXT
  60. FOR MY=0 TO 40
  61.  GCIRCLE 255/2,191/2,MY,0,MM−S/20,MM−S/20
  62. NEXT
  63. FOR SY=0 TO 30
  64.  GCIRCLE 255/2,191/2,SY,0,SS,SS
  65. NEXT
  66. FOR HY=0 TO 20
  67.  GCIRCLE 255/2,191/2,HY,0,HH−M/2,HH−M/2
  68. NEXT
  69. ’GPAGE 1
  70. ’GFILL 0,0,255,191,0
  71. ’GPAGE 0
  72. GOTO @LOOP

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

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

  • hatena : 下画面はグラフィックで出力した方が拡大出来て良いんじゃない? (2012/03/29 (木) 15:38:44)
  • 初心者 : 上のアナログ時計、1秒ズレてるよ☆ (2012/03/29 (木) 16:46:49)
  • ジオライド : 分針と秒針は逆にしたほうがいいかも。 (2012/03/29 (木) 17:34:51)
  • 投稿者 : アナログ時計が1秒ズレている件を修正しました。[37行目 (S-1)→S ] (2012/03/31 (土) 09:16:43)
  • 投稿者 : 下画面にTIME$を拡大する部分をコメントアウトで入れときました。(32〜36,71〜73) 変更点を改善したプログラムのQRコードも後に載せます。 (2012/03/31 (土) 09:57:55)
  • 投稿者 : 拡大する部分には、文字拡大+時計を参考にさせて頂きました。(2012/03/31 (土) 10:06:23)
  • 投稿者 : 新しくQRコードを替えました。 (2012/03/31 (土) 10:24:39)
  • キービィ : Syntax error(34.ASC)って出ました… (2012/05/09 (水) 16:16:29)
  • キービィ : '←最初にこれが抜けてました。失礼しました。 (2012/05/09 (水) 16:19:44)
  • ああか : 長いなー (2012/05/11 (金) 20:46:39)
  • 名無しさん : ↑え? (2012/05/11 (金) 22:01:49)
  • ああか : 文章?が (2012/05/12 (土) 12:28:01)
  • バイカウントメルビル : ↑・・・? (2012/06/02 (土) 18:03:37)
  • 名無しさん : 文章長くないじゃん。
  • ド素人 : Syntax error(57)と出ます・・・ (2012/08/14 (火) 10:32:24)
  • 名無しさん : ↑ (2012/08/14 (火) 11:06:23)
  • ↑×2へ : 君のうち間違いだよ (2012/08/14 (火) 13:02:36)
  • 名無しさん : QAIT 60とかになってるんじゃ (2012/08/14 (火) 13:35:16)
  • tokei : よく分からない (2012/08/26 (日) 17:24:08)
  • tokei : 上、投稿ミス。時計の針が、おかしなことになっている。 (2012/08/26 (日) 17:28:33)
  • 11さいくん : ぬ* (2013/03/25 (月) 11:07:30)
  • 名無しさん : アナログ時計が変な形。てか、針はどこ!! (2013/09/22 (日) 17:50:17)
  • : おちゃちゃ (2022/02/22 (火) 18:13:32)

表示モード : [ スマホ・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