Bin vor paar tagen angefangen mich bissl in µC einzu arbeiten habe ne kleine anzeige mit einer 7 Segment programmiert der dauerhaft nacheinander ne zufällige Zahl anzeigt.
Mein Code ist aber ziemlich lang wollte mal fragen ob ihr tipps für mich habt den code bissl kleiner zu bekommen
Code:
$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Config Portc.5 = Output
Config Portc.4 = Output
Config Portc.3 = Output
Config Portc.2 = Output
Config Portc.1 = Output
Config Portc.0 = Output
Config Portb.5 = Output
Config Portb.4 = Output
1a Alias Portb.4
2a Alias Portb.5
4a Alias Portc.0
5a Alias Portc.1
6a Alias Portc.5
7a Alias Portc.4
9a Alias Portc.3
10a Alias Portc.2
Dim I As Word
Do
I = Rnd(10)
If I = 0 Then
1a = 0
2a = 1
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 1
Waitms 50
End If
If I = 1 Then
1a = 0
2a = 0
4a = 0
5a = 1
6a = 0
7a = 1
9a = 0
10a = 0
Waitms 50
End If
If I = 2 Then
1a = 1
2a = 0
4a = 1
5a = 1
6a = 0
7a = 0
9a = 1
10a = 1
Waitms 50
End If
If I = 3 Then
1a = 1
2a = 0
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 0
Waitms 50
End If
If I = 4 Then
1a = 1
2a = 1
4a = 0
5a = 1
6a = 0
7a = 1
9a = 0
10a = 0
Waitms 50
End If
If I = 5 Then
1a = 1
2a = 1
4a = 1
5a = 0
6a = 0
7a = 1
9a = 1
10a = 0
Waitms 50
End If
If I = 6 Then
1a = 1
2a = 1
4a = 1
5a = 0
6a = 0
7a = 1
9a = 1
10a = 1
Waitms 50
End If
If I = 7 Then
1a = 0
2a = 0
4a = 1
5a = 1
6a = 0
7a = 1
9a = 0
10a = 0
Waitms 50
End If
If I = 8 Then
1a = 1
2a = 1
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 1
Waitms 50
End If
If I = 9 Then
1a = 1
2a = 1
4a = 1
5a = 1
6a = 0
7a = 1
9a = 1
10a = 0
Waitms 50
End If
Loop
End
Lesezeichen