Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
VBA odczyt wartości z portu COM (RS232)
199 views
Skip to first unread message
PB
Nov 29, 2012, 9:05:55 AM11/29/12
to
Witam,
W jaki sposób pobrać wartość z wagi (Metller Toledo) połączonej z PC
kablem COM-to-COM 9 pin RS232.
Otwieram port :
function pobierz_dane()
Dim MSComm1 As MSComm
Dim Cmnd As String
Dim InpVal As String
Set MSComm1 = New MSComm
With MSComm1
.CommPort = 4 '"COM1"
.InBufferSize = 1024
.Settings = "9600,n,8,1"
'.Settings = "9600,e,8,1"
.InputLen = 12
.PortOpen = True
'.InputMode = comInputModeText
' Cmnd = "11:0"
'.Output = Cmnd
End With
msgbox "Wynik z wagi ..."
end function
tylko co dalej. Jak pobrać wartość z wagi ?
P.B.
W jaki sposób pobrać wartość z wagi (Metller Toledo) połączonej z PC
kablem COM-to-COM 9 pin RS232.
Otwieram port :
function pobierz_dane()
Dim MSComm1 As MSComm
Dim Cmnd As String
Dim InpVal As String
Set MSComm1 = New MSComm
With MSComm1
.CommPort = 4 '"COM1"
.InBufferSize = 1024
.Settings = "9600,n,8,1"
'.Settings = "9600,e,8,1"
.InputLen = 12
.PortOpen = True
'.InputMode = comInputModeText
' Cmnd = "11:0"
'.Output = Cmnd
End With
msgbox "Wynik z wagi ..."
end function
tylko co dalej. Jak pobrać wartość z wagi ?
P.B.
Jacek
Nov 29, 2012, 9:48:38 AM11/29/12
to
Dnia Thu, 29 Nov 2012 15:05:55 +0100, PB napisaďż˝(a):
> MSComm
Tutaj:
https://www.google.pl/#hl=pl&tbo=d&sclient=psy-ab&q=vba+mscomm+example&oq=vba+MSComm&gs_l=hp.1.1.0i19l2j0i30i19l2.0.0.1.3623.0.0.0.0.0.0.0.0..0.0...0.0...1c._sNNZuuzvks&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.&fp=f3ec6448d59d81f1&bpcl=38897761&biw=1366&bih=653
nie ma?;)
> MSComm
Tutaj:
https://www.google.pl/#hl=pl&tbo=d&sclient=psy-ab&q=vba+mscomm+example&oq=vba+MSComm&gs_l=hp.1.1.0i19l2j0i30i19l2.0.0.1.3623.0.0.0.0.0.0.0.0..0.0...0.0...1c._sNNZuuzvks&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.&fp=f3ec6448d59d81f1&bpcl=38897761&biw=1366&bih=653
nie ma?;)
PB
Nov 29, 2012, 11:10:24 AM11/29/12
to
Szukam, szukam i lipa.
Jak napisa�em w pierwszym po�cie - troszk� znalaz�em, ale ci�gle walcz�
z dobraniem siďż˝ do danych z wagi.
parametr .Output - wydaje si� �e tutaj jest ca�y problem. Tutaj zapyta�
urz�dzenie, czy port, aby odpowiedzia� mi zwracaj�c warto�� z
wy�wietlacza (w moim przypadku). Ale tego jeszcze nie wiem - nowy temat.
MsComm1.Output = "Text string" ' Send data
Buffer$ = Buffer$ & MSComm1.Input ' Read data
Za wskaz�wki dzi�kuj� .
P.B.
W dniu 2012-11-29 15:48, Jacek pisze:
Jak napisa�em w pierwszym po�cie - troszk� znalaz�em, ale ci�gle walcz�
z dobraniem siďż˝ do danych z wagi.
parametr .Output - wydaje si� �e tutaj jest ca�y problem. Tutaj zapyta�
urz�dzenie, czy port, aby odpowiedzia� mi zwracaj�c warto�� z
wy�wietlacza (w moim przypadku). Ale tego jeszcze nie wiem - nowy temat.
MsComm1.Output = "Text string" ' Send data
Buffer$ = Buffer$ & MSComm1.Input ' Read data
Za wskaz�wki dzi�kuj� .
P.B.
W dniu 2012-11-29 15:48, Jacek pisze:
Jacek
Dec 1, 2012, 3:40:14 AM12/1/12
to
Dnia Thu, 29 Nov 2012 17:10:24 +0100, PB napisaďż˝(a):
A nie masz opisu protoko�u wagi?
0 new messages