Hallo,
die HArdware mit dem Tip122 funktioniert (: Danke nochmals =D>
ich habe jetzt aber eine Frage zur Software. Ich habe das STK500
und habe ein Quellcode umgeschrieben...Wenn ich die Lampe über Taster1 und Taster2 dimmen will funktioniert es. (also heller und dunklerstellen)
Wenn ich jetzt über den Taster "Taster0" versuche anzusteuern, dann dimmt
die Lampe ohne, dass ich diesen Taster0 drücke.
Anmerkung:Mit Taster0 meine ich den 1.Taster am STK500
Hier ist der Code...vielleicht stimmt hier was nicht.Am Board scheint es nicht zu liegen, da wenn ich das Verbindungskabel zu den Tastern trenne , das hoch-und runter dimmen immer weitergeht...
Code:
$regfile = "2313def.dat"
$crystal = 4000000
Config Portb = Output
Config Portd = Input
Config Timer0 = Timer , Prescale = 1
On Ovf0 Tim0_isr
Enable Timer0
Enable Interrupts
Dim R As Byte
Dim P As Byte
Dim A As Byte
Dim Z As Byte
Dim Ri As Byte
R = 0
Z = 0
A = 1
P = 0
Schleife:
Do
Do
If Pind.0 = 0 Then R = R + 5
If Pind.2 = 0 Then R = R - 5
Waitms 5
Goto Schleife
Loop Until R = 255
Loop
Tim0_isr:
If Z = 0 Then
Ri = R
Z = 0
End If
Incr Z
If Ri > 0 Then
Portb.7 = 1
Else
Portb.7 = 0
End If
Ri = Ri - 1
If Ri = 255 Then Ri = 0
Return
Lesezeichen