Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

COM Port öffnen

COM Port öffnen
18.11.2014 21:14:06
JöDi
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: COM Port öffnen
19.11.2014 13:50:32
JöDi
Hallo
Hat jemand eine Idee wo der Fehler zu suchen ist? Ich konnte noch keine Lösung finden...
Gruss
Jörg

AW: COM Port öffnen
19.11.2014 13:55:54
JöDi
Ich bin um jede Hilfe dankbar!

AW: COM Port öffnen
19.11.2014 15:21:09
UweD
Hallo
setze mal ein close #1 vor das open
LG UweD

AW: COM Port öffnen
19.11.2014 17:43:20
JöDi
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

Anzeige
AW: COM Port öffnen
21.11.2014 10:01:57
Günter
Hallo,
Evtl. ist die Schnittstelle langsamer als 115200 ?
Gruss,
Günter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige