Witam:)
Napisałem programik w Bascom
Chyba dobrze ale mam największy problem z tym aby wyświetlało mi go na wyświetlaczu heh
Proszę o pomoc
Napisałem programik w Bascom
Chyba dobrze ale mam największy problem z tym aby wyświetlało mi go na wyświetlaczu heh
Cytat:$regfile = "attiny2313.dat"
$crystal = 1000000
Config Portb = Input 'port b jako wejścia
Portb = &B01111111 'wszędzie stan spoczynkowy-0
Config Portd = Output 'pprt d jako wyjścia
Portd = &B0000000
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
A = 0
B = 0
C = 0
D = 0
E = 0
F = 0
G = 0
Do
If Portb.0 = 1 And Portb.1 = 0 Then
Incr A
End If
If Portb.0 = 1 And Portb.2 = 0 Then
Decr A
End If
If Portb.0 = 1 And Portb.3 = 0 Then
Incr B
End If
If Portb.0 = 1 And Portb.4 = 0 Then
A = 0
B = 0
C = 0
D = 0
E = 0
F = 0
G = 0
End If
If Portb.0 = 1 And Portb.5 = 0 Then
Incr A
End If
If Portb.0 = 1 And Portb.6 = 0 Then
Incr B
End If
If Portb.0 = 1 And Portb.7 = 0 Then
Decr A
End If
If A = 9 Then
Incr B
A = 0
End If
If B = 9 Then
Incr C
B = 0
End If
If C = 9 Then
Incr D
C = 0
End If
If D = 9 Then
Incr E
D = 0
End If
If E = 9 Then
Incr F
E = 0
End If
If F = 9 Then
Incr G
F = 0
End If
If G = 9 Then
A = 0
B = 0
C = 0
D = 0
E = 0
F = 0
G = 0
End If
Loop
End
Proszę o pomoc