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

2021/10/17 17:42:36

MixJuice GET URL : kidspod.club/mj/2100

NETWORK CLOCK

アラーム付き時計の進化版です。MixJuiceを使うことにより、時刻のズレがなくなりました。

操作や音はアラーム付き時計と(時刻設定を除いて)同じです。
このプログラムでは、「IchigoJamを楽しもう」の「IchigoJam + MixJuice用 日付＆時間データ」を使用しています。

IchigoJam webでの動物コードは、
「ハクビシン」「イヌ」「ヤク」
です。IchigoJam webの象のマークから読み込んでください。

  • 1
  • 1

SOURCE CODE

10 'NETWORK CLOCK
20 CLS:CLV:CLT:WAIT180
30 IF !M&&TICK()>=180 CLS:?:?"MJ GET www.openspc2.org/data/date/time.txt"ELSEGOTO70
40 INPUTH
50 IF !(SCR(1,3)>=48&&SCR(1,3)<=57) CLT:GOTO30
60 INPUT[2]:M=1:CLT
70 IF M&&TICK()>=180 ?:?"MJ GET www.openspc2.org/data/date/week.txt"ELSEGOTO90
80 INPUT[3]:M=0:CLT
90 IF H>12 [0]=1:[1]=H-12 ELSE [0]=0:[1]=H
100 IF [3]>0&&[3]<6&&[1]=6&&[2]=25&&[0]=0&&A=0 GSB210
110 IF ([3]=0||[3]=6)&&[1]=7&&[2]=0&&A=0 GSB210
120 IF T!=[2] A=0
130 IF BTN() GSB150
140 GOTO30
150 IF [0]=0 PLAY"<<CDE":WAIT120 ELSE PLAY"<<EDC":WAIT120
160 X=[1]/5:IF X FOR I=1 TOX:BEEP10,30:WAIT36:NEXT
170 X=[1]%5:IF X WAIT24:FOR I=1 TOX:BEEP:WAIT6:NEXT
180 WAIT45
190 X=[2]/15:IF X FOR I=1 TOX:BEEP10,30:WAIT36:NEXT
200 RTN
210 B=TICK():FOR I=0 TO30
220 IF TICK()>=B+60 B=TICK():BEEP:WAIT7:BEEP:GOTO250
230 IF BTN() WAIT60:I=31:GOTO250
240 GOTO220
250 NEXT:A=1:T=[2]:RTN

COMMENT