Birabeach
Geocacher
Hallo
Ich habe ein kleines Problem. Ich will mit einem Atmega8 einen 16 Segmentanzeige ansteuern.
nur irgendwo ist Fehler drin und ich find ihn nicht. Meine Ports C liefern alle kein Ausgangssignal.
Durchgemessen hab ichs auf dem Steckboard und die Anzeige funktioniert auch, also daran liegts nicht
Habe bis jetzt nur Erfahrung mit dem tiny 13 und ein bischen mit dem tiny 24 muß man beim mega8 die ports anders definieren?
Vielleicht sieht jemand dem Anfängerfehler und kann mir helfen
Danke schonmal im Vorraus
Steffen
hier das Prog.
Es sollten alle Segmente leuchten, wenn ich die Taste drücke.
$hwstack = 20
$regfile = "m8def.DAT"
$crystal = 128000
Config Adc = Single , Prescaler = Auto
Config Portb = &B00001111
Config Portc = &B00011111
Config Portd = &B11111111
Portb = 0
Portc = 0
Portd = 0
Stop Ac
Wdtcr = &B11010011
Enable Interrupts
Dim A As Byte
Dim Z As Byte
Do
Taster1 Alias Pinb.6
Config Taster1 = Input
Portb.6 = 1
Debounce Taster1 , 0 , Morsen ,
Loop
Morsen:
For Z = 0 To 5
Portb = &B00000111
Portc = &B00011111
Portd = &B11111111
Waitms 6000
Portb = 0
Portc = 0
Portd = 0
Waitms 6000
Next Z
Return
Ich habe ein kleines Problem. Ich will mit einem Atmega8 einen 16 Segmentanzeige ansteuern.
nur irgendwo ist Fehler drin und ich find ihn nicht. Meine Ports C liefern alle kein Ausgangssignal.
Durchgemessen hab ichs auf dem Steckboard und die Anzeige funktioniert auch, also daran liegts nicht
Habe bis jetzt nur Erfahrung mit dem tiny 13 und ein bischen mit dem tiny 24 muß man beim mega8 die ports anders definieren?
Vielleicht sieht jemand dem Anfängerfehler und kann mir helfen
Danke schonmal im Vorraus
Steffen
hier das Prog.
Es sollten alle Segmente leuchten, wenn ich die Taste drücke.
$hwstack = 20
$regfile = "m8def.DAT"
$crystal = 128000
Config Adc = Single , Prescaler = Auto
Config Portb = &B00001111
Config Portc = &B00011111
Config Portd = &B11111111
Portb = 0
Portc = 0
Portd = 0
Stop Ac
Wdtcr = &B11010011
Enable Interrupts
Dim A As Byte
Dim Z As Byte
Do
Taster1 Alias Pinb.6
Config Taster1 = Input
Portb.6 = 1
Debounce Taster1 , 0 , Morsen ,
Loop
Morsen:
For Z = 0 To 5
Portb = &B00000111
Portc = &B00011111
Portd = &B11111111
Waitms 6000
Portb = 0
Portc = 0
Portd = 0
Waitms 6000
Next Z
Return