Clipper On Line • Ver Tópico - bina 100% com hb+minigui sem resistor, ideias

bina 100% com hb+minigui sem resistor, ideias

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

bina 100% com hb+minigui sem resistor, ideias

Mensagempor luiz antonio da silva » 15 Jun 2011 13:37

Olá pessoal !

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.
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor Pablo César » 16 Jun 2011 11:39

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.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor asimoes » 17 Jun 2011 10:55

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
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor luiz antonio da silva » 17 Jun 2011 21:05

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.
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor luiz antonio da silva » 17 Jun 2011 21:16

olá Pablo !

sem problema, assim que terminar os testes, posto a solução encontrada, muito simples por sinal...rs

Abraço.
Luiz.
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor sygecom » 18 Jun 2011 16:18

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.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor HASA » 02 Jul 2011 11:51

:))
Olá Luiz, poderia compartilhar conosco,
:{
HASA
Avatar de usuário

HASA
Colaborador

Colaborador
 
Mensagens: 1082
Data de registro: 01 Set 2003 19:50
Cidade/Estado: São Paulo
Curtiu: 1 vez
Mens.Curtidas: 51 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor gilsonpaulo » 15 Jul 2011 19:23

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.:

AT#CID=1
AT+VCID=1
AT#CLS=8#CID=1
AT#CID=2
AT%CCID=1
AT%CCID=2
AT#CC1
AT*ID1


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.

Este sistem foi desenvolvido em VS2010.

Seque um pequeno trecho do codigo, em VS2010

 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.
gilsonpaulo
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 135
Data de registro: 02 Fev 2008 10:30
Cidade/Estado: Quatro Barras
Curtiu: 0 vez
Mens.Curtidas: 0 vez

bina 100% com hb+minigui sem resistor, ideias

Mensagempor HASA » 25 Ago 2011 10:36

:))
Olá Luiz Antonio, conseguiu terminar de testar ?, como vc disse ao Pablo que postaria a solução continuamos no aguardo...

Hasa

:xau
Avatar de usuário

HASA
Colaborador

Colaborador
 
Mensagens: 1082
Data de registro: 01 Set 2003 19:50
Cidade/Estado: São Paulo
Curtiu: 1 vez
Mens.Curtidas: 51 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor Clipper » 25 Ago 2011 15:05

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 :

Imagem

Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Avatar de usuário

Clipper
Colaborador

Colaborador
 
Mensagens: 1320
Data de registro: 23 Ago 2004 00:04
Cidade/Estado: Recife/PE
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor HASA » 26 Ago 2011 11:54

:))
Legal, obrigado pela dica, valeuuuu
:xau
Hasa
Avatar de usuário

HASA
Colaborador

Colaborador
 
Mensagens: 1082
Data de registro: 01 Set 2003 19:50
Cidade/Estado: São Paulo
Curtiu: 1 vez
Mens.Curtidas: 51 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor rbonotto » 29 Ago 2012 18:37

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,
rbonotto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 253
Data de registro: 06 Mai 2005 18:52
Curtiu: 9 vezes
Mens.Curtidas: 2 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor sambomb » 30 Ago 2012 10:15

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....
Imagem

Rca Sistemas - Itaocara - RJ
Avatar de usuário

sambomb
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 250
Data de registro: 24 Out 2008 16:02
Cidade/Estado: Itaocara - RJ - Brasil
Curtiu: 16 vezes
Mens.Curtidas: 10 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor fladimir » 31 Ago 2012 02:24

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
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

bina 100% com hb+minigui sem resistor, ideias

Mensagempor sambomb » 31 Ago 2012 08:30

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
  • Envio de resposta na ligação
  • Gravação da chamada
Imagem

Rca Sistemas - Itaocara - RJ
Avatar de usuário

sambomb
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 250
Data de registro: 24 Out 2008 16:02
Cidade/Estado: Itaocara - RJ - Brasil
Curtiu: 16 vezes
Mens.Curtidas: 10 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro