aphex-world
10.01.2010, 11:30
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?
$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
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?
$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