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







Zitieren

Lesezeichen