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
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
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
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.