７セグメントＬＥＤを２個をダイナミック点灯する。
前回までで、回路は決まったので、７セグメントＬＥＤを２個をダイナミック点灯するプログラムを組みます。
下のプログラムが組んだプログラムです。
まず、プログラムの各行の説明。
プログラムの３１行までは、初期設定です。
３１行のｄａｔａ配列の初期値は、０から表示するように、０のデータを最初に移動しています。
３３行のｗｈｉｌｅ文で、｛｝内を永久に繰り返しています。
３５行は、４１行のｃｏｕｎｔ１を０から始めて９まで増やします。
３７行は、４４行のｃｏｕｎｔ２を０から始めて９まで増やします。
３９行は、４１行から４６行までを５０回繰り返します。
４１行は、配列のｃｏｕｎｔ１番目のｄａｔａの内容をＰＯＲＴＢに出力し、７セグメント表示器の点灯させるセグメントに５ｖを加えます。
４２行は、ＰＯＲＴＡのＲＡ０にＨをＲＡ１にＬを出力し、左側の７セグメント表示器用のトランジスタのみＯＮさせ、左側の７セグメント表示器のカソード側をアースに落とします。
ここで、左側の７セグメント表示器に配列のｃｏｕｎｔ１番目のｄａｔａの内容の数字が点灯します。
４３行は５ｍＳ待ちます（左側の７セグメント表示器を点灯させる時間）。
４４行は、配列のｃｏｕｎｔ２番目のｄａｔａの内容をＰＯＲＴＢに出力し、７セグメント表示器の点灯させるセグメントに５ｖを加えます。
４５行は、ＰＯＲＴＡのＲＡ０にＬをＲＡ１にＨを出力し、右側の７セグメント表示器用のトランジスタのみＯＮさせ、右側の７セグメント表示器のカソード側をアースに落とします。
ここで、左側のセグメント表示器が消灯し、右側の７セグメント表示器に配列のｃｏｕｎｔ２番目のｄａｔａの内容の数字が点灯します。
４６行は５ｍＳ待ちます（右側の７セグメント表示器を点灯させる時間）。
７セグメント表示器が１０と点灯するまでの解説。
初期設定が終わって、３５行に来ると、ｆｏｒ文が実行され、ｃｏｕｎｔ１に０が入り、ｃｏｕｎｔ１＜１０が判定され、成立する（ｃｏｕｎｔ１は０）ので｛｝内に行きます。
｛｝内のｆｏｒ文が実行され、ｃｏｕｎｔ２に０が入り、ｃｏｕｎｔ２＜１０が判定され、成立する（ｃｏｕｎｔ２は０）ので｛｝内に行きます。
｛｝内のｆｏｒ文が実行され、ｋａｕｎｔｏに０が入り、ｋａｕｎｔｏ＜５０が判定され、成立する（ｋａｕｎｔｏは０）ので｛｝内に行きます。
ＰＯＲＴＢ＝ｄａｔａ〔ｃｏｕｎｔ１］；文の実行は、ｃｏｕｎｔ１は０なので、ｄａｔａ〔０］は、０ｘＥＥですから、ＰＯＲＴＢに０ｘＥＥが出力されます。
すると、0ｘＥＥは、２進数で１１１０１１１０ですから、ＲＢ１～ＲＢ３とＲＢ５～ＲＢ７がＨ，ＲＢ０とＲＢ４がＬとなります、したがって、各ピンにつながっているＡＢＣＤＥＦのセグメントに５ｖが加わります。
ＰＯＲＴＡ＝０ｘ０１が実行されると、0ｘ０１は、２進数で０００００００１ですから、ＲＡ０がＨ、その他はＬがＰＯＲＴＡに出力され、ＰＡ０に５ｖが加わり、ＰＡ０につながっているトランジスタのベースに電流がながれ、トランジスタはＯＮになって、左側の７セグメント表示器のカソード側をグランドに落としますから、ＰＯＲＴＢから５ｖのかかっているセグメントに電流がながれ、０が点灯します。
ディレイ文で、５ｍＳ待ちます。
次に、ＰＯＲＴＢ＝ｄａｔａ〔ｃｏｕｎｔ２］；文の実行は、ｃｏｕｎｔ２は０なので、ｄａｔａ〔０］は、０ｘＥＥですから、ＰＯＲＴＢに０ｘＥＥが出力されます。
すると、上と同じ動作で０が点灯します。
ディレイ文で、５ｍＳ待ちます。
ｆｏｒ文の最後まで来ましたから、ｆｏｒ文に戻りますが、その時、ｋａｕｎｔｏ++が実行され、ｋａｕｎｔｏの内容は＋１され、１になります。
ｆｏｒ文が実行され、ｋａｕｎｔｏ＜５０が判定され、成立する（ｋａｕｎｔｏは１）ので｛｝内に行きます（ｆｏｒ文のｋａｕｎｔｏ＝０は最初の１回だけ実行される）。
４１行～４６行が実行されます。
ｆｏｒ文の最後まで来ましたから、ｆｏｒ文に戻りますが、その時、ｋａｕｎｔｏ++が実行され、ｋａｕｎｔｏの内容は＋１され、２になります。
これが、繰り返され、ｆｏｒ文の最後まで来た時、ｋａｕｎｔｏ++が実行され、ｋａｕｎｔｏの内容は＋１され、５０になってもどると、ｆｏｒ文が実行され、ｋａｕｎｔｏ＜５０が判定され、成立しない（ｋａｕｎｔｏは５０）ので、このｆｏｒ文を抜けて、３７行のｆｏｒ文の最後まで来ましたから、ｆｏｒ文に戻りますが、その時、ｃｏｕｎｔ２++が実行され、ｃｏｕｎｔ２の内容は＋１され、１になります。。
ｆｏｒ文が実行され、ｃｏｕｎｔ２＜１０が判定され、成立する（ｃｏｕｎｔ２は１）ので｛｝内に行きます。
３９行のｆｏｒ文の実行で、0１が点灯します。
これが、繰り返され、ｆｏｒ文の最後まで来た時、ｃｏｕｎｔ２++が実行され、ｃｏｕｎｔ２の内容は＋１され、１０になってもどると、ｆｏｒ文が実行され、ｃｏｕｎｔ２＜１０が判定され、成立しない（ｃｏｕｎｔ２は１０）ので、このｆｏｒ文を抜けて、３５行のｆｏｒ文の最後まで来ましたから、ｆｏｒ文に戻りますが、その時、ｃｏｕｎｔ１++が実行され、ｃｏｕｎｔ１の内容は＋１され、１になります。
３５行のｆｏｒ文が実行され、ｃｏｕｎｔ１＜１０が判定され、成立する（ｃｏｕｎｔ１は1）ので｛｝内に行きます。
そして、３９行のｆｏｒ文の実行で、１０が点灯します。
これが、繰り返され、ｆｏｒ文の最後まで来た時、ｃｏｕｎｔ１++が実行され、ｃｏｕｎｔ１の内容は＋１され、１０になってもどると、ｆｏｒ文が実行され、ｃｏｕｎｔ１＜１０が判定され、成立しない（ｃｏｕｎｔ１は１０）ので、このｆｏｒ文を抜けて、３３行のｗｈｉｌｅ文の最後まで来ました、このｗｈｉｌｅ文は永久に成立しますから、｛｝内を永久に繰り返し、００～０１～・・・・～９８～９９と点灯し、００に戻って、００～０１～・・・・と永久に点灯し続けます。
このプログラムをＰＩＣに焼いて、動作を確認したのが下の動画です。
