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

2020/10/19 00:00:39

MixJuice GET URL : kidspod.club/mj/1023

STTS751 STM32L010F4P6 7セグ1文字温度計

更新中

  • 1
  • 1

SOURCE CODE

10 OUT7,1:WAIT15:'ONDO
20 POKE #700,0
30 P=I2CR(#39,#700,1,#701,1)
40 A=PEEK(#701):?A
50 R=ASC("_"):GOSUB 200
60 LET H,"OIZ[\5B]^Q"
70 R=ASC(H+(A/10)):?CHR$(R)
80 GOSUB 200:WAIT 10
90 R=ASC("@"):GOSUB 200
100 R=ASC(H+(A%10)):?CHR$(R)
110 GOSUB 200:WAIT 10
170 R=ASC("_"):GOSUB 200
180 WAIT 30
190 GOTO 20
200 '
210 R=R-64:OUT 7,0:WAIT 1
220 FOR S=0 TO 3+1
230 OUT 7,!( (R >> S)&1 )
240 WAIT 2
250 NEXT:WAIT 2:'6BIT
260 OUT 7,1
270 WAIT 2
280 RETURN

COMMENT