Gast
#2212804
Hallo, Ich sitze hier in der Hitze und komme mit meinen Programm nicht weiter. Ich habe 2 Taster. Taster1 Und Taster2. Und 2 Ausgänge Led1 und Led2. Die funktion soll folgende sein: -Taste ich Taster 1 1x dann soll Led1 leuchten. -Taste ich Taster 1 noch einmal soll Led1 nicht mehr leuchten. Das gleiche für Taster2 und Led2 Soweit habe ich es auch am klappen. Aber jetzt kommt es: - Betätige ich Taster1, dann leuchtet Led 1. Betätiger ich dann Taster 2, dann soll Led1 aus gehen und Led2 soll leuchten. usw. Also Led2 und Led1 soll nicht gleichzeitig Leuchten. Das ist ja in der Art eine Verriegelung. Ich habe keine Idee mehr. Kann mir vielleicht jemand weiterhelfen? Ich brauche wahrscheinlich nur einen Denkanstoß. Ich habe zur Zeit einen Brett vor dem Kopf. $regfile = "m32def.dat" $crystal = 10000000 $baud = 9600 $hwstack = 32 $swstack = 10 $framesize = 24 Config Portb = Input Config Porta = Output Config Portc = Output Config Portd = Output Config Debounce = 8 Portb = &B11111111 'LED1 an PB1 Led1 Alias Porta.1 Config Led1 = Output 'LED2 an PB2 Led2 Alias Porta.2 Config Led2 = Output 'TASTER1 an PB2 Taster1 Alias Pinb.2 'Taster 2 an PB2 Taster2 Alias Pinb.3 Dim Tasterwert11 As Byte Dim Tasterwert22 As Byte Do Debounce Taster1 , 0 , Taster11 , Sub Debounce Taster2 , 0 , Taster22 , Sub Loop Taster11: If Taster1 = 0 Then Tasterwert11 = Tasterwert11 + 1 If Tasterwert11 = 1 Then Led1 = 1 Led2 = 0 Elseif Tasterwert11 = 2 Then Led1 = 0 Tasterwert11 = 0 End If Taster22: If Taster2 = 0 Then Tasterwert22 = Tasterwert22 + 1 If Tasterwert22 = 1 Then Led2 = 1 Led1 = 0 Elseif Tasterwert22 = 2 Then Led2 = 0 Tasterwert22 = 0 End If