Kommunikation zwischen ATmega8 und Visual Basic

[Mark X. (reineke1985)]

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

[Michael G. (linuxgeek)]

Dann viel Spass...

[Stephan (Gast)]

Hallo,

welche Version von Visual Basic hast du ?

Stephan

[Peter (Gast)]

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
'-------------------------------------------------------

[Peter (Gast)]

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

[Peter (Gast)]

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
'----------------------------------------------------------