RalfP
16.12.2005, 10:19
Hallo.
Nachdem ich meine ersten Versuche mit dem ATmega8 einigermaßen erfolgreich abgeschlossen habe und z.B. auch das NOKIA LPH7779 angesteuert habe, möchte ich nun den 128er auf dem STK500/501 programmieren.
Bis jetzt wehrt sich dieser jedoch noch mit Händen und Füßen dagegen.
Ich hab´s zwar geschafft mit folgendem Programm eine LED auf Tastendruck zum Leuchten zu bekommen...
'-----------------------------------------
$regfile = "m128def.dat"
$crystal = 1000000
Config Portb = Output
Config Portd = Input
Do
If Pind.0 = 0 Then 'Wenn Taste an PortD.0 gedrückt ist...
Reset Portb.0 '...LED an PortB.0 einschalten
Else '...ansonsten
Set Portb.0 '...LED an PortB.0 ausschalten
End If
Loop
End
'-----------------------------------------
...aber folgendes Programm, mit dem ich eine LED einschalte, eine Sekunde warte und dann noch ´ne zweite LED einschalten will schaltet beide LEDs gleichzeitig ein. :-k
'-----------------------------------------
$regfile = "m128def.dat"
$crystal = 1000000
Config Portb = Output
Do
Reset Portb.0
Wait 1
Reset Portb.3
Loop
End
'-----------------------------------------
Woran kann das liegen daß der Wait-Befehl anscheinend übersprungen wird ???
Wenn ich z.B. eine LED einschalte kann ich sie mit einem nachfolgenden Set ... auch nicht mehr ausschalten.
Seltsam, seltsam... :-k
Ich hoffe, daß mir von Euch jemand helfen kann. Ich verzweifel sonst noch.
Danke schon mal.
Gruß Ralf
Nachdem ich meine ersten Versuche mit dem ATmega8 einigermaßen erfolgreich abgeschlossen habe und z.B. auch das NOKIA LPH7779 angesteuert habe, möchte ich nun den 128er auf dem STK500/501 programmieren.
Bis jetzt wehrt sich dieser jedoch noch mit Händen und Füßen dagegen.
Ich hab´s zwar geschafft mit folgendem Programm eine LED auf Tastendruck zum Leuchten zu bekommen...
'-----------------------------------------
$regfile = "m128def.dat"
$crystal = 1000000
Config Portb = Output
Config Portd = Input
Do
If Pind.0 = 0 Then 'Wenn Taste an PortD.0 gedrückt ist...
Reset Portb.0 '...LED an PortB.0 einschalten
Else '...ansonsten
Set Portb.0 '...LED an PortB.0 ausschalten
End If
Loop
End
'-----------------------------------------
...aber folgendes Programm, mit dem ich eine LED einschalte, eine Sekunde warte und dann noch ´ne zweite LED einschalten will schaltet beide LEDs gleichzeitig ein. :-k
'-----------------------------------------
$regfile = "m128def.dat"
$crystal = 1000000
Config Portb = Output
Do
Reset Portb.0
Wait 1
Reset Portb.3
Loop
End
'-----------------------------------------
Woran kann das liegen daß der Wait-Befehl anscheinend übersprungen wird ???
Wenn ich z.B. eine LED einschalte kann ich sie mit einem nachfolgenden Set ... auch nicht mehr ausschalten.
Seltsam, seltsam... :-k
Ich hoffe, daß mir von Euch jemand helfen kann. Ich verzweifel sonst noch.
Danke schon mal.
Gruß Ralf