Das Programm verwendet eine automatische Umschaltung auf
COM1, falls COM2 nicht frei ist. Alle Ausgaben mit SENDBYTE erfolgen mit 1200
Baud. 3 Programmierung der seriellen Schnittstelle. Sub CommandSendByte_Click()
D =
Val()
If D < 0 Then D = 0
If D > 255 Then D = 255
SENDBYTE D
i
= OPENCOM("COM2:1200, N, 8, 1")
If
i = 0 Then
i = OPENCOM("COM1:1200, N, 8, 1")
= True
i = 0 Then MsgBox ("COM Interface Error")
BUFFERSIZE
1
Sub Option1_Click()
= OPENCOM("COM1:1200, N, 8, 1")
i = 0 Then MsgBox ("COM1 not available")
Sub Option2_Click()
i = 0 Then MsgBox ("COM2 not available")
= CTS()
= DSR()
= DCD()
= RI()
If Then TXD 1 Else TXD 0
If Then DTR 1 Else DTR 0
If Then RTS 1 Else RTS 0
If INBUFFER > 0 Then
D = READBYTE
= Str$(D)
End If
Listing 3. 14 Allgemeine Zugriffe
auf die RS232 (())
Abb. 7 Zugriff auf alle
Leitungen der RS232-Schnittstelle (())
Download: VB-Beispiele
Windows 7, 64 Bit: Ein Rckmeldung von Bernd Glaser Gestern haben wir noch kurz die DLL in einer Applikation testen knnen -
bislang mit Erfolg. Das installierte Betriebssystem ist Win 7 64bit Pro.
- Vb serielle schnittstelle ansprechen duden
Vb Serielle Schnittstelle Ansprechen Duden
Das Bios von dem Gerät kann Strings verstehen und intepretieren. Serielle Übertragung geht auch... In der Anleitung zum Gerät steht nä es Zeichenkette als Antwort zurückgibt
Jetzt will ich die Daten von dem Gerät bekommen und die dann im Excel Tabellenblatt speichern. Mein Code dazu:
Dim S As String
Sub Test()
OPENCOM ("COM1:9600, N, 8, 1")
SENDSTRING "CLL, G" + Chr$(13) ' Daten anfordern
S=SPACE$(32) '32 Leerzeichen (VBA)
READSTRING S 'Auf 32 Zeichen warten
("Tabelle1")("A1") = S ' in die Tabelle
schreiben
Erwarte als Antwort vom Gerät ein Zeichen "02"
Das sollte laut Hilfe zur Zitat: ------------------ Empfangen einer Zeichenkette. Die Länge der übergebenen Zeichenkette legt fest, auf wie viele Zeichen eingelesen werden sollen. Serielle Schnittstelle - Delegate? - Archiv - VB.NET-Forum - ActiveVB. Bei einem TimeOut bricht der Empfang ab. Rückgabe: Zahl der empfangenen Zeichen. --------------
Wer weiß worum funzt das liegt mein Fehler?? Betrifft: AW: Serielle Schnittschtelle mit VBA ansprechen! von: Karl-Otto Reimann
Geschrieben am: 10. 2005 11:43:25
Hallo Serge Guckst Du hier: oder hier: Grüße KO
Geschrieben am: 10.
Hallo MOF-Community! Heute habe ich mal ein etwas schwereres Anliegen... Erstmal ein Beschreibung der Situation:
Ich habe 4 MDE-Geräte mit denen Stromzähler abgelesen werden. Dazu wird ein Barcode (der sich auf jedem Zähler befindet) eingelesen und dann aus einer Datei die Zählerdaten abgefragt (alter Zählerstand usw. ). Dann wird der neue Zählerstand eingegeben und das Ganze wieder in der Datei gespeichert. Wenn man mit allen Zählern fertig ist, werden die Geräte in eine Übertragungsstation gesteckt und die Daten an den PC übertragen. Auf den MDE-Geräten (anno 1992) läuft als Betriebssystem CP/M. Das Programm zum Eingeben der Daten ist in TurboPascal geschrieben und liegt auch als Quellcode vor. Dazu gibt es noch eine Inc in der auch die serielle Schnittstelle konfiguriert wird (alles im Anhang). Vb serielle schnittstelle ansprechen duden. Um diese ganzen Daten auszuwerten läuft auf einem PC auch wieder ein Turbo-Pascal-Programm, das die Datei von den Geräten einliest und in einer Datenbank verwaltet. Wenn die neuen Zählerstände eingelesen wurden, müssen die Daten-Dateien auf den Geräten neu geschrieben werden.