Hallo,
Ich möchte wenn ich einen Taster an einem beliebigen eingang drücke Portb.0 togglen nebenbei soll das togglen über die serielle schnittstelle auch funktioniern...
Jemand eine idee?


Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Dim S As Byte

Config Porta.0 = Input
Porta.0 = 1
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output                                     'Ein Pin wird als Ausgang konfiguriert PC0 (also Pin0 von Port C)


Portb.0 = 1
Portb.1 = 1
Portb.2 = 1


Do
S = Inkey()
If S <> 0 Then
  Select Case S
        Case Asc( "1")
          Portb.0 = 0
          Print "Licht an"
        Case Asc( "2")
          Portb.0 = 1
          Print "Licht aus"

        Case Asc( "3")
          Portb.1 = 0
          Print "Rolladen auf"
        Case Asc( "4")
          Portb.2 = 0
          Print "Rolladen ab"
        Case Asc( "5")
          Portb.1 = 1
          Print "Rolladen stoppt"
        Case Asc( "6")
          Portb.2 = 1
        End Select
        End If

        Loop

End