hi leute,

ich habe eine 7 sekment anzeige (0-9 anzeige) an einen atmega8 angeschlossen. ich habe mir mit meinem anfängerwissen eine liste mit den befehlen für die darstellung der zahlen gemacht, allerdings ist die bestimmt ziemlich unkonventionell. bitte um hilfe^^


$regfile = "m8def.dat"
$framesize = 60
$swstack = 60
$hwstack = 60
$crystal = 8000000
$baud = 9600

Config Pind.7 = Input
Taster Alias Pind.7
Portd.7 = 1
Config Pind.6 = Input
Taster2 Alias Pind.6
Portd.6 = 1
Config Portc.5 = Output
Led1 Alias Portc.5
Config Portc.4 = Output
Led2 Alias Portc.4
Config Portc.3 = Output
Led7 Alias Portc.3
Config Portc.2 = Output
Led3 Alias Portc.2
Config Portc.1 = Output
Led4 Alias Portc.1
Config Portc.0 = Output
Led6 Alias Portc.0
Config Portb.1 = Output
Led5 Alias Portb.1


Dim Ziffer1 As Bit
Dim Ziffer2 As Bit
Dim Ziffer0 As Bit
Dim Angeschaltet As Bit
Dim Zaehler As Integer

Do

If Taster = 1 Then Angeschaltet = 1
If Taster = 0 And Angeschaltet = 1 Then
Angeschaltet = 0
Zaehler = Zaehler + 1
End If
Waitms 10

If Ziffer0 = 1 Then
Led1 = 1
Led2 = 1
Led3 = 1
Led4 = 1
Led5 = 1
Led6 = 1
Led7 = 0
Ziffer0 = 0
End If
If Ziffer1 = 1 Then
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 1
Led7 = 0
Ziffer1 = 0
End If
If Ziffer2 = 1 Then
Led1 = 1
Led2 = 0
Led3 = 1
Led4 = 1
Led5 = 0
Led6 = 1
Led7 = 1
Ziffer2 = 0
End If

If Zaehler = 0 Then
Ziffer0 = 1
Ledon = 0
End If
If Zaehler = 1 Then
Ziffer1 = 1
If Taster2 = 0 Then
Ziffer0 = 1
Ledon = 1
Waitms 125
Ziffer9 = 1
Waitms 125
Ziffer8 = 1
Waitms 125
Ziffer7 = 1
Waitms 125
Ziffer6 = 1
Waitms 125
Ziffer5 = 1
Waitms 125
Ziffer4 = 1
Waitms 125
Ziffer3 = 1
Waitms 125
Ziffer2 = 1
Waitms 125
Ziffer1 = 1
Waitms 125
Ziffer0 = 1
Waitms 750
Ledon = 0
End If
End If
If Zaehler = 2 Then Zaehler = 1
Loop