Consegui montar um bina 100% funcional com harbour + minigui ou console e lm-56n (netodragon), não foi preciso usar o resistor ou conversor dtmf/fsk na linha, apenas modificar o inf do modem. (testado em win98/me/xp/2003/7 e vista).
Como o lance de disk-alguma coisa já tá meio batido, gosteria de ideias novas pra usar o bina, qq ajuda será bem vinda.
Grato.
Luiz.
bina 100% com hb+minigui sem resistor, ideias
Enviado: 16 Jun 2011 11:39
por Pablo César
Puxa que bom ! Realmente esse modem é um ótimo modem, mas seria muito bom que você pudesse fazer uma contribuição e mostrar os caminhos das pedras, quem sabe um exemplo simples na área de Downloads.
Agora uma nova utilidade não se me ocorre no momento, a identificação de chamadas para o atendimento de disk alguma coisa... é o melhor aliás também pode ser intentado fazer como todas as ligações recebidas e até mesmo feitas possam ser registradas. Na internet existe um hardware que registra as ligações feitas para arquivo, quem sabe possa ser feita também o registro se o programa ficar em background. Não sei se funcionaria, mas era questão de primeiramente testar a sua solução.
bina 100% com hb+minigui sem resistor, ideias
Enviado: 17 Jun 2011 10:55
por asimoes
Olá Luiz,
Esse modem que você está usando é um Lg? interno? e você conseguiu fazer a identificação de chamadas sem fazer uso do resistor conforme tutorial do Vagner (vagucs)?
[ ]´s
bina 100% com hb+minigui sem resistor, ideias
Enviado: 17 Jun 2011 21:05
por luiz antonio da silva
Sim Asimoes, é um lg interno (netodragon), e tá funcionando 100%, um amigo que tem restaurante tá usando como teste, e por enquanto, tá redondinho....sem resistor nem conversor.
Luiz.
bina 100% com hb+minigui sem resistor, ideias
Enviado: 17 Jun 2011 21:16
por luiz antonio da silva
olá Pablo !
sem problema, assim que terminar os testes, posto a solução encontrada, muito simples por sinal...rs
Abraço.
Luiz.
bina 100% com hb+minigui sem resistor, ideias
Enviado: 18 Jun 2011 16:18
por sygecom
Olá Luiz,
Agradeço antecipadamente em compartilhar conosco sua solução, acho que é um recurso que todos gostariam de ver como funciona, eu pelo menos estou curioso para ver como isso funciona. Obrigado.
bina 100% com hb+minigui sem resistor, ideias
Enviado: 02 Jul 2011 11:51
por HASA
)
Olá Luiz, poderia compartilhar conosco,
:{
HASA
bina 100% com hb+minigui sem resistor, ideias
Enviado: 15 Jul 2011 19:23
por gilsonpaulo
Com um colega que precisou nos usamos modens da motorola sm56 aqueles winmodens. vc deve abrir o hyperterminal do windows e selecionar porta que o modem esta instado e mandar conectar, apos isto teste algum destes comandos no modem.:
Teste com valor 1 ou 2, o valor define qual tipo de padrão sera habilitado, não me lembro agora mas 1 é fsk e 2 dtmf ou vice e versa. Se a resposta for ok o modem suporta feito isto ligue para a linha que esta conectada ao modem (não feche o hypertrminal) se aparecer o numero do telefone que esta ligando significa que o modem tem suporte ao padrao dtmf.
Se aparecer somente ring ring troque de valor. se mesmo assim nao aparecer o modem não tem suporte.
Testei tambem com Smartlink sl 2800, 2801 e com intel 537ep, alguns motorolas não funcionaram.
Neste sistema ele ficou somente monitorando a porta do modem.
Private Sub bina_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bina.Click
liberado = "Nao"
cmd.CommandText = "select * from CONTROLE"
If bina.Text = "Iniciar Bina" Then
bina.Text = "Fechar Bina"
cmd.Connection = conn
Dim mydata1 As MySqlDataReader
mydata1 = cmd.ExecuteReader()
Do While mydata1.Read
xporta = mydata1(("serial")).ToString
Loop
mydata1.Close()
If aportaexiste(xporta) Then
MsgBox("PORTA DO BINA ENCONTRADO")
liberado = "Sim"
If portaserial.IsOpen = False Then
portaserial.Open(xporta, 19200, 8, Rs232.DataParity.Parity_None, Rs232.DataStopBit.StopBit_1, 4096)
End If
Else
MsgBox("PORTA DO BINA NAO ENCONTRADO")
liberado = "Nao"
bina.Text = "Iniciar Bina"
Exit Sub
End If
Timer2.Enabled = True
' portaserial.Write("AT#CID=1" & vbCr)
If liberado = "Sim" Then
portaserial.Write("AT+VCID=2" & vbCr)
botaobinanao.FillColor = Color.Gray
botaobinasim.FillColor = Color.Green
End If
Else
botaobinanao.FillColor = Color.Red
botaobinasim.FillColor = Color.Gray
portaserial.Close()
bina.Text = "Iniciar Bina"
End If
End Sub
Private Sub ligar()
If liberado = "Sim" Then
Timer2.Enabled = True
portaserial.Write("AT+VCID=2" & vbCr)
botaobinanao.FillColor = Color.Gray
botaobinasim.FillColor = Color.Green
End If
End Sub
Private Sub desligar()
If liberado = "Sim" Then
Timer2.Enabled = False
portaserial.Write("AT+VCID=0" & vbCr)
botaobinanao.FillColor = Color.Red
botaobinasim.FillColor = Color.Gray
End If
End Sub
Private Sub tbina_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbina.TextChanged
End Sub
End Class
PS. Sua linha tem que estar com o identrificar de chamadas ativo.
bina 100% com hb+minigui sem resistor, ideias
Enviado: 25 Ago 2011 10:36
por HASA
)
Olá Luiz Antonio, conseguiu terminar de testar ?, como vc disse ao Pablo que postaria a solução continuamos no aguardo...
Hasa
:xau
bina 100% com hb+minigui sem resistor, ideias
Enviado: 25 Ago 2011 15:05
por Clipper
Só para constar.
A cerca de 6 meses consegui colocar para funcionar a identificação de chamadas com o clipper, sem usar a LIB do Wagner e sem resistor.
Utilizei um software externo (free) que fica no tray e faz a identificação e grava em um arquivo texto, a ideia é simples e funciona com qualquer linguagem.
Esse software chama Phone Tray Free e pode ser muito útil para fazer os testes de funcionalidades do modem com bina.
Vale ressaltar que o modem para funcionar com bina precisar ter o recurso de ID (alguns não tem).
Testei com os seguintes modens.
AGERE (FSK)
NETODRAGON (FSK)
SMARTLAN (DTMF)
LG (DTMF)
MOTOROLA (Nessa desgraça de placa não funcionou nem por decreto)
Abaixo um vídeo que mostra funcionando no aplicativo.
Uma ideia de uso é de registro de chamadas, como a do Phone Tray. Veja imagem abaixo :
Até logo.
Marcelo
bina 100% com hb+minigui sem resistor, ideias
Enviado: 26 Ago 2011 11:54
por HASA
)
Legal, obrigado pela dica, valeuuuu
:xau
Hasa
bina 100% com hb+minigui sem resistor, ideias
Enviado: 29 Ago 2012 18:37
por rbonotto
Ola Clipper, baixei e instalei o programa Phone Tray Free
Li o tutorial mas não achei qual o modo de passar para dentro do programa ( compilado em harbour ) o numero do telefone para uma variavel.
Poderia dar umas dicas ?
abs,
bina 100% com hb+minigui sem resistor, ideias
Enviado: 30 Ago 2012 10:15
por sambomb
Uma coisa que eu gostaria muito de fazer é a gravação das chamadas feitas e recebidas e uma secretária eletrônica...
Exemplo: Fiz uma ligação, o bina reconhece, grava no banco de dados a data, hora, número e tipo de chamada, e fica em loop até o gravador de chamada terminar de gravar o arquivo, depois ele renomeia o arquivo e grava no banco de dados.
Quando receber uma ligação, faz o mesmo esquema, mas se não atender dentro de x segundos, ativa uma mensagem de voz gravada previamente e deixa a pessoa do outro lado deixar uma mensagem.
Acredito que a tarefa mais difícil seja a da secretária eletrônica por precisar atender/desligar o telefone e mandar uma mensagem, e provavelmente iria precisar de algum hardware extra....
Mas se conseguisse implementar isso seria ótimo para usar em casa e em empresas!
Nos horários em que a empresa estiver fechada vai poder receber encomendas, pedidos, reclamações, dúvidas, etc....
bina 100% com hb+minigui sem resistor, ideias
Enviado: 31 Ago 2012 02:24
por fladimir
Samir temos uma Central PABx aki na empresa q faz isso e grava em um banco SQL, estou tentanto ter acesso ao banco mas não pelo software deles e sim direto pois ai posso trabalhar os dados q lá são armazenados... seria mais ou menos o q vc quis dizer ou não?
[]´s
bina 100% com hb+minigui sem resistor, ideias
Enviado: 31 Ago 2012 08:30
por sambomb
A grande questão da Central PABx é que ela tem funcionalidades diferentes das que citei.
Até onde eu sei:
Funções que não seriam necessárias:
Tem a possibilidade de receber múltiplas ligações simultâneas
Chamada em espera com toque musical - Não seria necessário
Funções não possibilitadas que seriam necessárias:
Atendimento automático após um período específico de chamada