www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik Kommunikation zwischen ATmega8 und Visual Basic


Autor: Mark Xxx (reineke1985)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
hallo,

ich bin jetzt seit heute morgen im web am rumstöbern um rauszubekommen, 
wie ich Daten über eine Serielle Schnittstelle mit Hilfe von VisualBasic 
sende und empfange.
Mein Ziel ist es eine Kommunikation zwischen ATmega8 und VisualBasic 
herzustellen.
Ic weis das es irgendwie über MScomm möglich ist. Nur mein Problem ist 
es dazu ein funktionierendes Programm dafür zu entwickeln!

Über Hilfe wäre ich sehr dankbar

LG

Autor: Michael G. (linuxgeek) Benutzerseite
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Dann viel Spass...

Autor: Stephan (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo,

welche Version von Visual Basic hast du ?

Stephan

Autor: Peter (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Ist doch ganz einfach, nur nicht zuweit suchen:

Öffne eine Datei mit dem Namen "COM1", COM2" oder auch "LPT1", und 
schreibe oder lese auf die Datei...

Ein kleines Beispiel:

'-------------------------------------------------------
Function GetResponseFor(Question$)
  Open "COM1" For Binary Access Read Write As #1
  Question$ = Question$ + Chr(13)    'append CR
  Put #1, , MyString$
  Response$ = ""
  Do
    Get #1, 1, char
    If (char > Chr(31)) Then
      Response$ = Response$ + char
    End If
  Loop Until char = Chr(13)          'Read until CR
  Close #1
  GetResponseFor = Response$
End Function
'-------------------------------------------------------

Autor: Peter (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Nochmals das Beispiel, mit einem Fehler weniger...

Function GetResponseFor(Question$)
  Open "COM1" For Binary Access Read Write As #1
  Question$ = Question$ + Chr(13)   'append CR
  Put #1, , Question$               'send string to COM1
  Response$ = ""                    'prepare resonse string
  Do
    Get #1, 1, char                 'get one character from COM1
    If (char > Chr(31)) Then        'if printable character
      Response$ = Response$ + char  'then add it to response string
    End If
  Loop Until char = Chr(13)         'Read until CR
  Close #1                          'never forget to close the "file"
  GetResponseFor = Response$        'return response string
End Function

Autor: Peter (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Und nochmals ne Korrektur: Nimm die Input-Funktion statt die 
Get-Funktion

'----------------------------------------------------------
Function GetResponseFor(Question$)
  Open "COM1" For Binary Access Read Write As #1
  Question$ = Question$ + Chr(13)   'append CR
  Put #1, , Question$               'send string to COM1
  Response$ = ""                    'prepare resonse string
  Do
    char = Input(1, #1)             'get one character from COM1
    If (char > Chr(31)) Then        'if printable character
      Response$ = Response$ + char  'then add it to response string
    End If
  Loop Until char = Chr(13)         'Read until CR
  Close #1                          'never forget to close the "file"
  GetResponseFor = Response$        'return response string
End Function
'----------------------------------------------------------

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.