Code:
'*******************************************************************************
'* demo für 7 segment platine mit CD4094"
'* anschluss des steckers: 1=plus ,2=minus ,3=output enable=plus
'* 4=stobe ,5=clock ,6=date´n
'* 4 und 5 können auf einen pin gelegt werden
'* steckeranschluss 1 ist unten ,neben dem kondensator
'*******************************************************************************
$regfile = "attiny2313.dat"
$crystal = 4000000
Config Portb = Output
Clock Alias Portb.1 ' anschluss 4 und 5
Outpin Alias Portb.0 ' anschluss 6
'**** variablen für die Zahle 1-9 und den punkt sowie alles aus ***
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim G As Byte
Dim H As Byte
Dim I As Byte
Dim J As Byte
Dim K As Byte
Dim L As Byte
Dim M As Byte
A = &B00111111 '1
B = &B10101000 '2
C = &B00111000 '3
D = &B00011101 '4
E = &B01011000 '5
F = &B01001000 '6
G = &B00111110 '7
H = &B00001000 '8
I = &B00011000 '9
J = &B00001010 '0
K = &B11110111 'punkt
L = &B11111111 'alles aus
'**** start der anzeige mit nullen ****
For M = 1 To 4
Shiftout Outpin , Clock , J , 0 , 8 , 100
Next
Wait 1
'**** jetzt die zahlen und den punkt sowie alles aus
'**** nacheinander darstellen
Main1:
Shiftout Outpin , Clock , A , 1 , 8 , 100
Shiftout Outpin , Clock , B , 1 , 8 , 100
Shiftout Outpin , Clock , C , 1 , 8 , 100
Shiftout Outpin , Clock , D , 1 , 8 , 100
Wait 2
Shiftout Outpin , Clock , E , 1 , 8 , 100
Shiftout Outpin , Clock , F , 1 , 8 , 100
Shiftout Outpin , Clock , G , 1 , 8 , 100
Shiftout Outpin , Clock , H , 1 , 8 , 100
Wait 2
Shiftout Outpin , Clock , I , 1 , 8 , 100
Shiftout Outpin , Clock , J , 1 , 8 , 100
Shiftout Outpin , Clock , K , 1 , 8 , 100
Shiftout Outpin , Clock , L , 1 , 8 , 100
Wait 2
Goto Main1 ' zurück an den start
End
Lesezeichen