Microsoft Excel

Herbers Excel/VBA-Archiv

COM Port öffnen

Betrifft: COM Port öffnen von: JöDi
Geschrieben am: 18.11.2014 21:14:06

Hallo VBA-Profis

Um auf einem Servo-Controller Parameter zu ändern habe ich in Excel-VBA ein kleines Programm geschrieben. Das Programm funktioniert soweit einwandfrei. Das Problem liegt nur darin, dass wenn ich das Kabel an den Lap-Top anschliesse und Daten senden oder empfangen möchte, hängt sich Excel-VBA immer beim Input auf. Wenn ich aber nach dem Anschliessen des Kabels zuerst im Hyper-Terminal den COM-Port öffne und wieder schliesse, läuft danach das Excel-File tadellos.
Weiss jemand woran das liegen könnte?
Besten Dank im Voraus für jede Hilfe!

Private Sub Empfangen() 'Empfangen
    Call Variablen
    Open Cells(4, 2) + ":115200,N,8,1" For Binary Access Read Write As #1 'Open the com port
    For i = 7 To 13
        Select Case i
            Case 7
                sendVar$ = TDrehzahl + Chr(13)
            Case 8
                sendVar$ = Stromgrenze + Chr(13)
            Case 9
                sendVar$ = Beschleunigung + Chr(13)
            Case 10
                sendVar$ = MDrehzahl + Chr(13)
            Case 11
                sendVar$ = Betriebszustand + Chr(13)
            Case 12
                sendVar$ = Zustandsmeldung + Chr(13)
            Case 13
                sendVar$ = Fehlermeldung + Chr(13)
        End Select
        'Cells(i, 6) = sendVar$
        Put #1, , sendVar$ 'write string to interface
        '--------------------------------------------------------
        answer = "" 'clear response string
        char = "" 'clear character string
        While (char <> Chr(13))      'loop until [CR]
            char = Input(1, #1)             'get character
            If (char > Chr(31)) Then
                answer = answer + char   'add, if printable char
            End If
        Wend
        Cells(i, 4) = answer 'put response in cell
    Next
    Close #1
    '--------------------------------------------------------
End Sub

  

Betrifft: AW: COM Port öffnen von: JöDi
Geschrieben am: 19.11.2014 13:50:32

Hallo

Hat jemand eine Idee wo der Fehler zu suchen ist? Ich konnte noch keine Lösung finden...

Gruss
Jörg


  

Betrifft: AW: COM Port öffnen von: JöDi
Geschrieben am: 19.11.2014 13:55:54

Ich bin um jede Hilfe dankbar!


  

Betrifft: AW: COM Port öffnen von: UweD
Geschrieben am: 19.11.2014 15:21:09

Hallo

setze mal ein close #1 vor das open


LG UweD


  

Betrifft: AW: COM Port öffnen von: JöDi
Geschrieben am: 19.11.2014 17:43:20

Hallo Uwe

Danke für deine Antwort, ich habe es versucht, allerdings ohne Erfolg.
Immer wenn der Input ausgewertet wird hängt es sich auf. Wenn ich Input ins Überwachungsfenster nehme, hängt es sich bereits beim Open auf...
Es muss irgendwie mit dem Auswerten des Inputs zusammenhängen.

Fällt dir oder jemandem noch eine andere Lösung ein?

Gruss
Jörg


  

Betrifft: AW: COM Port öffnen von: Günter
Geschrieben am: 21.11.2014 10:01:57

Hallo,
Evtl. ist die Schnittstelle langsamer als 115200 ?
Gruss,
Günter


 

Beiträge aus den Excel-Beispielen zum Thema "COM Port öffnen"