Program post site for everyone
一文字7セグメントの時間表示
時間と分のみ
11時と11分がわかりずらい。今のところ対策なし。
DS1307には、きっかり5V入れないと誤作動する。
3分タイマーから始まった一連の工作は、時計をもって完成
一番時間が掛ったのは、STM32L010F4P6の発売から書き込み成功まで
約1カ月を思考錯誤にかかった。
徹夜までして頑張ったのは、スロット用の4ビット低速シリアル通信で
エンドの辺りがうまくいかず何度もやり直した。
あとは、20分から30分程度完成させた。
USARTシリアル書き込みが出来ず約1か月ろすった
「プログラムを見る」でユーチューブのUSART書き込みに飛びます。
!!2020/10/24
!!stm32l010f4p6は、USARTシリアル書き込み出来ました。
!!(st-link nBOOT0を立ててください。)古いねた
!!ユーチューブ キーワード STM32L010F4P6
!!新品 USART書き込み成功
!!書き込み回路の画像を追加しました
10 GOTO 100:'DS1307 L010 7SEG
20 H=0:M=0
30 INPUT "H 0-23>",H
40 INPUT "M 0-59>",M
50 A=(M/10)*16+(M%10)
60 B=(H/10)*16+(H%10)
70 POKE #700,0,0,A,B,3,1,1,#20
80 R=I2CW(#68,#700,1,#701,7)
90 'READ
100 POKE #700,0
110 R=I2CR(#68,#700,1,#701,7)
120 FOR I=3 TO 1 STEP -1
130 ?HEX$(PEEK(#700+I));
140 IF I<>1 THEN ?":";
150 NEXT
160 WAIT 60:GOSUB 200:?
170 GOTO 100
200 LET Y,"OIZ[\SB]^Q"
210 W=ASC("H"):GOSUB 300:WAIT9
220 W=ASC(Y+PEEK(#703)/16):GOSUB 300:WAIT20
230 W=ASC(Y+PEEK(#703)%16):GOSUB 300:WAIT20
235 W=ASC("_"):GOSUB 300
240 W=ASC(Y+PEEK(#702)/16):GOSUB 300:WAIT20
250 W=ASC(Y+PEEK(#702)%16):GOSUB 300:WAIT20
260 W=ASC("H"):GOSUB 300:WAIT20
270 '
280 '
290 RETURN
300 '
310 W=W-64:OUT 7,0:WAIT 1
320 FOR S=0 TO 3+1
330 OUT 7,!( (W>>S)&1 )
340 WAIT 2
350 NEXT:WAIT 2:'6BIT
360 OUT 7,1
370 WAIT 2
380 RETURN
たくさんの作品、ありがとうございます！ セグメントを色々に使っているのが楽しそうです。特にじゃんけん表示器のアイデアは面白そうでした。ハードウェアが私の手元にないのが残念……。
