BINA - SAIDA SERIAL
Ola rapazes..
olhem só...
comprei uma bina e um cabo de serial que conecta no computador.
solicitei a eles uma dll que eu podesse fazer com que reconhecesse no meu programa...
mas a unica coisa que eles me deram foi um Protocolo de comunicação.
será que alguem sabe como fazer isso utilizando o protocolo??
coloquei o protocolo em anexo..
agradeço quem podem me ajudar!! obrigada
olhem só...
comprei uma bina e um cabo de serial que conecta no computador.
solicitei a eles uma dll que eu podesse fazer com que reconhecesse no meu programa...
mas a unica coisa que eles me deram foi um Protocolo de comunicação.
será que alguem sabe como fazer isso utilizando o protocolo??
coloquei o protocolo em anexo..
agradeço quem podem me ajudar!! obrigada
Utilize o componente Microsoft Comm Control - Mscomm32.ocx, ele serve para manipular a saida serial, enviando e recebendo informações, com isso vc utiliza o protocolo que lhe mandaram.
Se não me engano existe um exemplo aqui no site, digite Bina na caixa de pesquisa.
Se não me engano existe um exemplo aqui no site, digite Bina na caixa de pesquisa.
ola ... obrigada pela ajuda.
dei uma olhadinha no site, e achei um bina bem enteressante...
mas eu queria algo mais simples..
tipo, apenas detecta o telefone enviar para textbox.. apenas isso
se alguem poder me ajudar..
obridaga
dei uma olhadinha no site, e achei um bina bem enteressante...
mas eu queria algo mais simples..
tipo, apenas detecta o telefone enviar para textbox.. apenas isso
se alguem poder me ajudar..
obridaga
alguem pessoal?
vc tem o protocolo de comunicação? blz, então o seguinte veja como eu faço para comunicar um outro hardware pela porta serial:
ex:
Dim Dia, Hora, Min, Seg, Env_Hora, Ret_Hora, MinhaData, MeuTempo As String
MinhaData = Format(Date, "dd/mm")
MeuTempo = Now
MeuTempo = Format(MeuTempo, "Long Time")
Env_Hora = "(&H"
Dia = Format(MinhaData, "DD")
Hora = Format(MeuTempo, "HH")
Min = Format(MeuTempo, "nn")
Min = Min & ")"
MSComm.Output = Env_Hora & Dia & Hora & Min
Ret_Hora = MSComm.Input
'Aqui envie um comando pela serial para atualizar o relógio
If Ret_Hora = "0" Or Ret_Hora = "" Then
For i = 0 To 2
MSComm.Output = Env_Hora & Dia & Hora & Min
Ret_Hora = MSComm.Input
Next i
If Ret_Hora = "0" Or Ret_Hora = "" Then
MsgBox "Sem comunicação com o Hardware"
End If
End If
se quizer mande um mp com o protolo que te ajudo;
Abraço!
ex:
Dim Dia, Hora, Min, Seg, Env_Hora, Ret_Hora, MinhaData, MeuTempo As String
MinhaData = Format(Date, "dd/mm")
MeuTempo = Now
MeuTempo = Format(MeuTempo, "Long Time")
Env_Hora = "(&H"
Dia = Format(MinhaData, "DD")
Hora = Format(MeuTempo, "HH")
Min = Format(MeuTempo, "nn")
Min = Min & ")"
MSComm.Output = Env_Hora & Dia & Hora & Min
Ret_Hora = MSComm.Input
'Aqui envie um comando pela serial para atualizar o relógio
If Ret_Hora = "0" Or Ret_Hora = "" Then
For i = 0 To 2
MSComm.Output = Env_Hora & Dia & Hora & Min
Ret_Hora = MSComm.Input
Next i
If Ret_Hora = "0" Or Ret_Hora = "" Then
MsgBox "Sem comunicação com o Hardware"
End If
End If
se quizer mande um mp com o protolo que te ajudo;
Abraço!
oi Silvio... Obrigado pela ajuda!
Mas tipo, nao entendi muito o que voce quiz mostrar..
e tipo:
voce citou para te mandar um mp com o protocolo... o q seria esse "mp"
eu só queira que o telefone aparecesse numa textbox.. só isso..
mas nao sei como começar.. e como fazer
se poder me ajudar
Mas tipo, nao entendi muito o que voce quiz mostrar..
e tipo:
voce citou para te mandar um mp com o protocolo... o q seria esse "mp"
eu só queira que o telefone aparecesse numa textbox.. só isso..
mas nao sei como começar.. e como fazer
se poder me ajudar
olá, vc citou que tens o protocolo de comunicação do bina certo? então esse protoloca que faz a comunicação entre o bina e o seu sistema "MP" é enviar uma mensagem interna caso tivesse dúvida. t+
coloquei o protocolo no inicio desse tópico...para download..
se alguem poder me ajudar... agradeço
se alguem poder me ajudar... agradeço
Tópico encerrado , respostas não são mais permitidas