Hi,
Code:
Config Pind.2 = Input 'Einzelne Pins werden mit "config pin"
Config Pind.3 = Input 'und nicht mit "config port" konfiguriert
Config Portb = Output
Set Pind.2 'Pullups einschalten
Set Pind.3
portd.2=1
portd.3=1
'Pins werden immer mit "PIN" und nicht mit "PORT" Gelesen.
'beim schreiben also immer "port", beim lesen "pin"
do
If Pind.2 = 0 Then
Portb.2 = 1 'Relais 1 aus
Portb.3 = 0 'Relais 2 ein
End If
If Pind.3 = 0 Then
Portb.2 = 0 'Relais 1 ein
Portb.3 = 1 'Relais 2 aus
End If
Loop
End
Noch was, der mittlere Pin des Schalters muß gegen Masse...
Gruß
Christopher
Lesezeichen