Hallo,
ich habe hier eine LED angeschlossen, kann sie auf 1 setzen aber dann nicht mehr auf 0.
An dieser Stelle Interfaceactivated = 1 leuchtet die LED auf
und an dieser Stelle Interfaceactivated = 0 bleibt sie weiterhin an.
Warum?
PS: alles andere funktioniert einwandfrei.
hier der folgende code:
Alles anzeigen
Es geht nur um die LED unter Interfaceactivated
ich habe hier eine LED angeschlossen, kann sie auf 1 setzen aber dann nicht mehr auf 0.
An dieser Stelle Interfaceactivated = 1 leuchtet die LED auf
und an dieser Stelle Interfaceactivated = 0 bleibt sie weiterhin an.
Warum?
PS: alles andere funktioniert einwandfrei.
hier der folgende code:
BASCOM-Quellcode
- $regfile = "usb162.dat"
- $crystal = 8000000
- '$baud = 19200
- $hwstack = 64
- $swstack = 86
- $framesize = 86
- Config Portd.3 = Output
- Interfaceactivated Alias Portd.3
- If Wert1 = Deviceadresse Then 'Wenn die gesendete DeviceAdresse von der PC Software übereinstimmt
- Interfaceactivated = 1
- If Wert2 = 1 Then 'werden die ersten 32 Ausgänge angesprochen
- Ausgang1 = Wert3 'werden auch die Werte aus den Temp. Variable in die Ausgangsvariablen geschrieben.
- Ausgang2 = Wert4
- Ausgang3 = Wert5
- Ausgang4 = Wert6
- Shiftout Dout1 , Sck1 , Ausgang1 , 0 ' Daten werden an die jeweilige 74HC595 übergeben
- Shiftout Dout1 , Sck1 , Ausgang2 , 2 '"
- Shiftout Dout1 , Sck1 , Ausgang3 , 0 '"
- Shiftout Dout1 , Sck1 , Ausgang4 , 2 '"
- Rck1 = 1 'PIN 12 bei 74HC595 wird kurz auf high und dann wieder auf low gesetzt, damit die Daten zum Ausgangsregister rutschen
- Rck1 = 0 '"
- Elseif Wert2 = 2 Then 'werden die nächsten 32 Ausgänge angesprochen
- Ausgang5 = Wert3 'werden auch die Werte aus den Temp. Variable in die Ausgangsvariablen geschrieben.
- Ausgang6 = Wert4
- Ausgang7 = Wert5
- Ausgang8 = Wert6
- Shiftout Dout2 , Sck2 , Ausgang8 , 2 ' Daten werden an die jeweilige 74HC595 übergeben
- Shiftout Dout2 , Sck2 , Ausgang7 , 0 '"
- Shiftout Dout2 , Sck2 , Ausgang6 , 2 '"
- Shiftout Dout2 , Sck2 , Ausgang5 , 0 '"
- Rck2 = 1 'PIN 12 bei 74HC595 wird kurz auf high und dann wieder auf low gesetzt, damit die Daten zum Ausgangsregister rutschen
- Rck2 = 0
- End If
- Config Portb.7 = Output 'Hier wird der PIN 13 von 74HC595 für immer auf low gesetzt,
- G Alias Portb.7
- G = 0
- Interfaceactivated = 0
- End If