• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

mprim

[vb6] Telefone

15 mensagens neste tópico

Aqui está um telefone feito por mim, usa somente o ocx da Microsoft MS Com, nada complicado.

Espero que sirva de algo.

:P

http://rapidshare.com/files/27854590/Telefone.rar.html


Option Explicit
DefInt A-Z
Dim CancelFlag

Private Sub CancelButton_Click()
CancelFlag = True
End Sub

Private Sub Dial(Number$)
    Dim DialString$, FromModem$, dummy
        DialString$ = "ATDT" + Number$ + ";" + vbCr
   
    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
       
    On Error Resume Next
    MSComm1.PortOpen = True
    If Err Then
       MsgBox "COM2: not available. Change the CommPort property to another port.", vbOKOnly, "Phone Dialer"
       Exit Sub
    End If
    
   
    MSComm1.InBufferCount = 0
    
    
    MSComm1.Output = DialString$
    
    
    Do
       dummy = DoEvents()
       
       If MSComm1.InBufferCount Then
          FromModem$ = FromModem$ + MSComm1.Input
          
          If InStr(FromModem$, "OK") Then
             
             Beep
             MsgBox "Levante o auscultador e pressione Enter ou clique OK", vbOKOnly, "Phone Dialer"
             Exit Do
          End If
       End If
        
       
       If CancelFlag Then
          CancelFlag = False
          Exit Do
       End If
    Loop
    
    
    MSComm1.Output = "ATH" + vbCr
    
   
    MSComm1.PortOpen = False
End Sub

Private Sub cmd0_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 0
Else
dial_num.Text = dial_num.Text & 0
End If
End Sub

Private Sub cmd1_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 1
Else
dial_num.Text = dial_num.Text & 1
End If
End Sub

Private Sub cmd2_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 2
Else
dial_num.Text = dial_num.Text & 2
End If
End Sub

Private Sub cmd3_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 3
Else
dial_num.Text = dial_num.Text & 3
End If
End Sub


Private Sub cmd4_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 4
Else
dial_num.Text = dial_num.Text & 4
End If
End Sub

Private Sub cmd5_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 5
Else
dial_num.Text = dial_num.Text & 5
End If
End Sub

Private Sub cmd6_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 6
Else
dial_num.Text = dial_num.Text & 6
End If
End Sub

Private Sub cmd7_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 7
Else
dial_num.Text = dial_num.Text & 7
End If
End Sub

Private Sub cmd8_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 8
Else
dial_num.Text = dial_num.Text & 8
End If
End Sub

Private Sub cmd9_Click()
key_lock
If dial_num.Text = "" Then
dial_num.Text = 9
Else
dial_num.Text = dial_num.Text & 9
End If
End Sub

Private Sub cmdastrik_Click()
    Timer3.Enabled = False
    dial_num.Enabled = True
    dial_num.Text = ""
    dial_num.SetFocus
End Sub

Private Sub cmdclear_Click()
key_lock
dial_num.Text = ""
End Sub

Private Sub cmddial_Click()
Timer1.Enabled = True
Dim Number$, Temp$
Dim check As Boolean
Dim check1 As Boolean
    
    If dial_num.Enabled = False Then
    MsgBox "Press Star(*) to Unlock the KeyPad.", vbOKOnly, "Phone Dialer"
    
    check1 = True
    Else

    If dial_num.Text = "" Then
    MsgBox "Introduza um número de telefone.", vbOKOnly, "Phone Dialer"
    check = True
    Else
    cmddial.Enabled = False
    quitbutton.Enabled = False
    cmdno.Enabled = True
        
    Number$ = dial_num.Text
        If Number$ = "" Then Exit Sub
    Temp$ = dial_num.Text
    dial_num.Text = "A marcar - " + Number$
    
    
    Dial Number$

    cmddial.Enabled = True
    quitbutton.Enabled = True
    cmdno.Enabled = False

    dial_num.Text = Temp$
    End If
    End If
End Sub

Private Sub cmdhash_Click()
key_lock
End Sub

Private Sub cmdno_Click()
Timer1.Enabled = False
key_lock
CancelFlag = True
    cmdno.Enabled = False
    Timer3.Enabled = True
    dial_num.Enabled = False
End Sub


Private Sub Form_Load()
    Timer1.Enabled = False
    MSComm1.InputLen = 0
data.Text = Format(Now, " DD-MM-YYYY      ") & Format(Now, "HH:MM:SS")
    
End Sub

Private Sub Image1_Click()

End Sub

Private Sub QuitButton_Click()
    End
End Sub

Private Sub Timer1_Timer()
signal.BackColor = 16760938
End Sub

Private Sub Timer2_Timer()
signal.BackColor = 12155904
End Sub

Private Sub Timer3_Timer()
data.Text = Format(Now, " DD-MM-YYYY      ") & Format(Now, "HH:MM:SS")
End Sub
Private Sub key_lock()

Dim test As Boolean

If dial_num.Enabled = False Then
    MsgBox "Pressione (*) para desbloquear teclado.", vbOKOnly, "Phone Dialer"
    
    test = True
Else
    test = False
    End If
End Sub



0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Devias mostrar como fica a form

Podes fazer ixo com um printscreen

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Devias mostrar como fica a form

Podes fazer ixo com um printscreen

na boa, aqui tens  unvk8.th.jpg

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nao e por nada, mas para que e que isto serve??

pra que serve um telefone? pra telefonar, acho eu

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nao e por nada, mas para que e que isto serve??

pra que serve um telefone? pra telefonar, acho eu

Nao e isso, tipo funciona por net e tal, e como um messenger ou assim??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Uma sugestão, podias acrescentar um botão para ir para uma agenda. Ficava muito mais completo.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Uma sugestão, podias acrescentar um botão para ir para uma agenda. Ficava muito mais completo.

pois ficava e 1 bocado complexo de mais s calhar...tinhas k ter 1 base de dados,pa armazenar os contactos...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nao e por nada, mas para que e que isto serve??

pra que serve um telefone? pra telefonar, acho eu

Nao e isso, tipo funciona por net e tal, e como um messenger ou assim??

nada disso dude... é atraves do modem do pc

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Uma sugestão, podias acrescentar um botão para ir para uma agenda. Ficava muito mais completo.

pois ficava e 1 bocado complexo de mais s calhar...tinhas k ter 1 base de dados,pa armazenar os contactos...

isso é que era mesmo à maneira

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nao e por nada, mas para que e que isto serve??

pra que serve um telefone? pra telefonar, acho eu

Nao e isso, tipo funciona por net e tal, e como um messenger ou assim??

nada disso dude... é atraves do modem do pc

cumps

mas modem 56kb nao? akeles da idd da pedra,certo?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nao e por nada, mas para que e que isto serve??

lol, esses mesmo

cumps

pra que serve um telefone? pra telefonar, acho eu

Nao e isso, tipo funciona por net e tal, e como um messenger ou assim??

nada disso dude... é atraves do modem do pc

cumps

mas modem 56kb nao? akeles da idd da pedra,certo?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora