BINA DE COMPUTADOR USB

ROBSON 31/07/2013 23:19:42
#426820
Bina de computador USB, alguém já desenvolveu com VB6 ?
Alguém sabe como funciona a parte eletrônica ?

Alguém tem algum exemplo em VB6 ?

Eu uso atualmente o da Sibel que usa a entrada de microfone, mas pense um sistema que apresenta problemas. E os clientes ficam perdidos para fazer voltar a funcionar.
Tem que existir uma maneira mais prática que não precise usar porta serial, ou entrada de microfone.
ROBSON 09/08/2013 21:19:16
#427371
ROBSON 10/08/2013 07:50:26
#427379

Tentei colocar a imagem acima, mas provoquei um erro e sumiu o link de editar.
Segue a imagem
http://www.lojamatel.com.br/image/cache/data/Img%20de%20Produtos/Identech/ic%20box-500x500.jpg
ROBSON 13/08/2013 13:27:00
#427471
Achei um fornecedor mais em conta:
http://callnetwork.com.br/
http://produto.mercadolivre.com.br/MLB-502613567-gravador-identificador-telefnico-bina-usb-callnet-_JM
e eles fornecem exemplos em VB6
Mandei buscar 1 peça para realizar testes. Assim que tiver novidades, posto aqui para que outros tenham menas dificuldade se precisarem incorporar este recurso nos seus softs.
JULIANOPAN 13/08/2013 17:09:49
#427488
no aguardo por uma noticia, estou querendo montar algo desse tipo tambem.
NILSONTRES 13/08/2013 18:13:20
#427494
Po, Esta a metade do preço do ICEBOX.
ROBSON 13/08/2013 19:38:52
#427496
quanto ao IC Box liguei para lá e o menor preço que fizeram foi R$ 192,00 + frete
Este do M.L está pela metade (R$ 100,00),
Compensação o IC Box disse que o material dele é superior, não é da China, Blá, Blá, Blá.

Já fechei a compra deste do M.L. e me deram um prazo de 8 ~ 9 dias, quando receber irei realizar os testes.
ROBSON 15/08/2013 13:39:42
#427579
Consegui um codigo em VB6. é bastante simples, e usa um controle Winsock

Private Sub Form_Load()
Winsock.Protocol = sckTCPProtocol
Winsock.LocalPort = 7990
Winsock.Listen
End Sub

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
If Winsock.State <> sckClosed Then
Winsock.Close
End If
Winsock.Accept requestID
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim DadosRecebidos As String
Winsock.GetData dados
TxtIdentifica.Text = TxtIdentifica .Text & DadosRecebidos
If DadosRecebidos = [Ô]C[Ô] Then
Winsock.Close
Winsock.Listen
End If
If DadosRecebidos = [Ô]L[Ô] Then
TxtIdentifica.Text = [Ô][Ô]
End If

End Sub
JCARLOS 15/08/2013 15:50:36
#427594
João, uma pergunta: Qdo o telefone tocar, automaticamente o campo txtIdentifica.text receberá o número?
ROBSON 15/08/2013 16:04:06
#427595
O objetivo de todo Identificador de Chamadas é este.
Ao tocar o telefone o numero será identificado, neste momento voce ativa uma busca que irá localizar o Cadastro deste cliente.

Robson
ROBSON 25/08/2013 20:43:40
#428092
Recebi o adaptador BINA através da USB.
Na embalagem veio o adaptador + um CD de instalação de um programa feito pelo fornecedor,
Mas infelizmente os testes foram desanimadores:
O exemplo em VB6 não funcionou.
O programa enviado por eles até que funciona, mas identifica o numero errado (faltando dígitos).
Vou entrar em contato com o suporte para ver ele apresentam alguma solução.

Se alguem já usa este adaptador aqui, por favor informe sua experiencia se foi positiva ou negativa.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar