Início
gfranguelli 21/9/2015, 14:14Prezados colegas:
Tenho um equipamento que está conectado na porta serial RS232 e neste equipamento existe um botão "TRANSMITIR" e depois de muitas pesquisas ainda não consegui resolver meu problema.
Dados:
COM1
baud=9600
parity=N
data=8
stop=1
Preciso de uma rotina em VBA onde eu possa estar coletando os dados deste equipamento conforme as informações mencionadas acima.
Pesquisei neste link https://www.maximoaccess.com/t8624-resolvido-capturar-dados-atraves-da-porta-serial onde o amigo informa a mesma dúvida para uma determinada balança mas infelizmente para o meu caso não funcionou nem com o botão transmitir nem mesmo com o código do botão abaixo!
Só alterei as informações abaixo:
'No evento ao carregar do form onde se deseja capturar os dados eu usei o seguinte código:
Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 - COM4
Dim lngStatus As Long
intPortID = 1
lngStatus = CommOpen(intPortID, "COM" & CStr(intPortID), "baud=9600 parity=N data=8 stop=1")
'No evento ao clicar do botão:
Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 - COM4
Dim lngStatus As Long
Dim strData As String
intPortID = 1
lngStatus = CommWrite(intPortID, strData, 10)
txt1 = strData
Agradeço desde já pela atenção e colaboração de todos que puder estar compartilhando com esta dúvida.
Obrigado
Tenho um equipamento que está conectado na porta serial RS232 e neste equipamento existe um botão "TRANSMITIR" e depois de muitas pesquisas ainda não consegui resolver meu problema.
Dados:
COM1
baud=9600
parity=N
data=8
stop=1
Preciso de uma rotina em VBA onde eu possa estar coletando os dados deste equipamento conforme as informações mencionadas acima.
Pesquisei neste link https://www.maximoaccess.com/t8624-resolvido-capturar-dados-atraves-da-porta-serial onde o amigo informa a mesma dúvida para uma determinada balança mas infelizmente para o meu caso não funcionou nem com o botão transmitir nem mesmo com o código do botão abaixo!
Só alterei as informações abaixo:
'No evento ao carregar do form onde se deseja capturar os dados eu usei o seguinte código:
Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 - COM4
Dim lngStatus As Long
intPortID = 1
lngStatus = CommOpen(intPortID, "COM" & CStr(intPortID), "baud=9600 parity=N data=8 stop=1")
'No evento ao clicar do botão:
Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 - COM4
Dim lngStatus As Long
Dim strData As String
intPortID = 1
lngStatus = CommWrite(intPortID, strData, 10)
txt1 = strData
Agradeço desde já pela atenção e colaboração de todos que puder estar compartilhando com esta dúvida.
Obrigado
