• No registered tag exist.

100 VIDEO3
200 @LOOP
210 GOSUB@GETTIME:GOSUB@GETTEMP
220 CLS:LC0,2
230 ?"20";DEC$([0],2);"/";DEC$([1],2);"/";DEC$([2],2)
240 ?"  ";DEC$([4],2);":";DEC$([5],2);":";DEC$([6],2)
250 ?"TEMP:";T/10;".";T%10
260 WAIT 60:IF BTN() SWITCH
270 GOTO @LOOP
300 @GETTIME
310 POKE#700,0:IF I2CR(#68,#700,1,#701,7) ERR
320 FOR I=0 TO 6:[I]=PEEK(#707-I):[I]=[I]>>4*10+[I]&15:NEXT
330 RETURN
400 @GETTEMP
410 POKE#700,17:IF I2CR(#68,#700,1,#701,2) ERR
420 T=PEEK(#701)<<2|PEEK(#702)>>6:IF T&#200 T=T|#FC00
430 T=(T*25+5)/10:RETURN

Kidspod運営チーム2017/05/02 18:32:21

I2Cに何らかの周辺機器を接続して使うプログラムのようですね。どんなものを繋げばいいのかも説明文に書いていただけると嬉しいです！

Pagetop