Forum: Mikrocontroller und Digitale Elektronik Ports Schalten in bascom wenn zeichen von HT kommt


von Thomas S. (Firma: RF-I) (rasieel)


Lesenswert?

Hallo,

ich will das wenn ich in bascom ein Zeichen Sende z.B. "E"
dann soll der conroller den portb.1 auf high schalten


Ich hab mal gewust wies geht leider hab ich keinen plan mehr

von Rolf I. (for_ro)


Lesenswert?

Wie willst du das zeichen denn "senden"?

von Thomas S. (Firma: RF-I) (rasieel)


Lesenswert?

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

von Rolf I. (for_ro)


Lesenswert?

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.

von Thomas S. (Firma: RF-I) (rasieel)


Lesenswert?

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

von Thomas S. (Firma: RF-I) (rasieel)


Lesenswert?

$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

von Thomas S. (Firma: RF-I) (rasieel)


Lesenswert?

so solls aussehn nach meinen wünschen

von Thomas S. (Firma: RF-I) (rasieel)


Lesenswert?

pusch

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.