mikrocontroller.net

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


Autor: Thomas St. (Firma: RF-I) (rasieel)
Datum:

Bewertung
0 lesenswert
nicht 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

Autor: Rolf Im forum (for_ro)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Wie willst du das zeichen denn "senden"?

Autor: Thomas St. (Firma: RF-I) (rasieel)
Datum:

Bewertung
0 lesenswert
nicht 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

Autor: Rolf Im forum (for_ro)
Datum:

Bewertung
0 lesenswert
nicht 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.

Autor: Thomas St. (Firma: RF-I) (rasieel)
Datum:

Bewertung
0 lesenswert
nicht 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

Autor: Thomas St. (Firma: RF-I) (rasieel)
Datum:

Bewertung
0 lesenswert
nicht 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

Autor: Thomas St. (Firma: RF-I) (rasieel)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
so solls aussehn nach meinen wünschen

Autor: Thomas St. (Firma: RF-I) (rasieel)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
pusch

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.