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

Toukou/アナログ時計 の変更点

パンくずリスト


#title(投稿プログラム : アナログ時計)
#contents
/////////////////////////////////
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
// ・投稿年月日は今日の日付を入力してください。
//   この日付は、将来的に投稿プログラムを年月日順に整理する際に使用されます。
// ・また、適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。

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

/////////////////////////////////
// ここに概要とか書きます。** や *** で始まる行は子見出しとなります。
// [#英数字] はページ内リンクに使用されるアンカーですが、
// 書かなかったり、消したりしてもかまいません。
// ない場合、自動でランダムな文字列が再付与されます。

* 前書き [#r62d4430]
はじめまして、「BASIC-Ishida」です。~
まだ、初心者ですが今後も宜しくお願いします。~
* 概要 [#uc34010f]
適当に作ったものですので、あまり役に立たないかもしれません。~
上画面にアナログ時計、下画面に文字で表示しています。~

/////////////////////////////////

* スクリーンショット・動画 [#h775e428]
動作しているところを撮影した写真や動画があれば貼り付けてください。

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください

* QR コード [#QR]
//プチコンmkII 向けの QR コードです。
&ref(QR_TIME10.png);

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 画像を添付したら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////

* プログラムリスト [#e349f294]
#basic{{
'--- とけい ---

'---しょきか
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
}}

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#ye26a95b]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''hatena'' : 下画面はグラフィックで出力した方が拡大出来て良いんじゃない? (&new{2012/03/29 (木) 15:38:44};)
- ''初心者'' : 上のアナログ時計、1秒ズレてるよ☆ (&new{2012/03/29 (木) 16:46:49};)
- ''ジオライド'' : 分針と秒針は逆にしたほうがいいかも。 (&new{2012/03/29 (木) 17:34:51};)
- ''投稿者'' : アナログ時計が1秒ズレている件を修正しました。[37行目 (S-1)→S ] (&new{2012/03/31 (土) 09:16:43};)
- ''投稿者'' : 下画面に&basic{TIME$};を拡大する部分をコメントアウトで入れときました。(32〜36,71〜73) 変更点を改善したプログラムのQRコードも後に載せます。 (&new{2012/03/31 (土) 09:57:55};)
- ''投稿者'' : 拡大する部分には、[[文字拡大+時計:http://wiki.hosiken.jp/petc/?Toukou%2F%CA%B8%BB%FA%B3%C8%C2%E7%A1%DC%BB%FE%B7%D7]]を参考にさせて頂きました。(&new{2012/03/31 (土) 10:06:23};)
- ''投稿者'' : 新しくQRコードを替えました。 (&new{2012/03/31 (土) 10:24:39};)
- ''キービィ'' : Syntax error(34.ASC)って出ました… (&new{2012/05/09 (水) 16:16:29};)
- ''キービィ'' : '←最初にこれが抜けてました。失礼しました。 (&new{2012/05/09 (水) 16:19:44};)
- ''ああか'' : 長いなー (&new{2012/05/11 (金) 20:46:39};)
- ''名無しさん'' : ↑え? (&new{2012/05/11 (金) 22:01:49};)
- ''ああか'' : 文章?が (&new{2012/05/12 (土) 12:28:01};)
- ''バイカウントメルビル'' : ↑・・・? (&new{2012/06/02 (土) 18:03:37};)
- ''名無しさん'' : 文章長くないじゃん。
- ''ド素人'' : Syntax error(57)と出ます・・・ (&new{2012/08/14 (火) 10:32:24};)
- ''名無しさん'' : ↑ (&new{2012/08/14 (火) 11:06:23};)
- ''↑×2へ'' : 君のうち間違いだよ (&new{2012/08/14 (火) 13:02:36};)
- ''名無しさん'' : QAIT 60とかになってるんじゃ (&new{2012/08/14 (火) 13:35:16};)
- ''tokei'' : よく分からない (&new{2012/08/26 (日) 17:24:08};)
- ''tokei'' : 上、投稿ミス。時計の針が、おかしなことになっている。 (&new{2012/08/26 (日) 17:28:33};)
- ''11さいくん'' : ぬ* (&new{2013/03/25 (月) 11:07:30};)
- ''名無しさん'' : アナログ時計が変な形。てか、針はどこ!! (&new{2013/09/22 (日) 17:50:17};)

#comment

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