PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Taster soll neben serieller schnittstelle Port togglen



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

Neutro
10.01.2010, 12:01
Hallo,

ich habe vor einigen Wochen das selbe Problem auch gehabt, hier die Lösung:
https://www.roboternetz.de/phpBB2/zeigebeitrag.php?t=50749&highlight=

MfG

Neutro