Ports Schalten in bascom wenn zeichen von HT kommt

Wie willst du das zeichen denn "senden"?

Kann das so funktionieren wenn ich per Hyperterminal die buchstaben E 
und die zahl 3 an den Uc sende

Hab was altes wieder ausgegraben

$regfile = "m88def.dat"

$crystal = 8000000

$baud = 19200

config PortB.1 = output
config PortB.2 = output
config PortA.1 = output

Dim Akey As Byte  'Here we declare a byte variable

Do

Akey = Waitkey()

If Akey = 69 Then          ' E senden zum schalten
PortB.1 = 1
End if

If Akey = 51 Then          ' 3 Senden an uC um zu agieren
PortB.1 = 0
End if

Loop

End

Das wird schon funktionieren.
Allerdings wartet das Programm solange bei dem Waitkey(), bis ein 
Zeichen empfangen wurde. Wenn dein µC in der Zwischenzeit noch was 
anderes tun soll, dann nimm die Inkey() Funktion.

Entweder per Hyperterminal oder per Visual basic mit dem code


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button4.Click
        SerialPort1.Open()
        SerialPort1.Write("E")
        SerialPort1.Close()
    End Sub

$regfile = "m88def.dat"

$crystal = 8000000

$baud = 19200

config PortB.1 = output
config PortB.2 = output
config PortA.1 = Input

Dim Akey As Byte  'Here we declare a byte variable

Do

Akey = Inkey()

If Akey = 69 Then          ' E senden zum schalten
Toggle Portb.1
End if

If Porta.1 = 1 Then
Toggle PortB.1
End if

Loop

End

so solls aussehn nach meinen wünschen

pusch