Programalama > VISUAL BASIC

Option Explicit

DefInt A-Z

Dim CancelFlag

Private Sub CancelButton_Click()
    CancelFlag = True
    CancelButton.Enabled = False
End Sub

Private Sub Dial(N$)
    Dim DialString$, FromModem$, dummy

   DialString$ = "ATDT" + N$ + ";" + vbCr

    ' Bağlantı Port ayarları
    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
    
    ' Bağlantı portunu aç
    On Error Resume Next
    MSComm1.PortOpen = True
    If Err Then
       Exit Sub
    End If
    
    MSComm1.InBufferCount = 0
    
    'Numarayı çevir
    MSComm1.Output = DialString$
    
    ' modeme geri dönmek için tamamı bekle
    Do
       dummy = DoEvents()
              If MSComm1.InBufferCount Then
          FromModem$ = FromModem$ + MSComm1.Input
          ' Tamam'ı Kontrol et
          If InStr(FromModem$, "OK") Then
             'Kullanıcı telefonu kaldırırsa
             Beep
             MsgBox "Lütfen Ahizeyi Kaldırıp ENTER a Basın"
             Exit Do
          End If
       End If
        
       ' Kullanıcı iptali seçerse
       If CancelFlag Then
          CancelFlag = False
          Exit Do
       End If
    Loop
    
    ' Modemle bağlantıyı kes
    MSComm1.Output = "ATH" + vbCr
    
    ' Portu kapat
    MSComm1.PortOpen = False
End Sub

Private Sub Command1_Click(Index As Integer)
Durum.Text = Durum.Text + Command1(Index).Caption
End Sub

Private Sub Command2_Click()
Text1.Visible = False
Text2.Visible = False
Command2.Visible = False
End Sub

Private Sub Command3_Click()
Durum.Text = Num.Caption
Command4.Visible = True
End Sub

Private Sub Command4_Click()
Data1.Refresh
Command4.Visible = False
Command3.Visible = True

End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
On Error Resume Next
End Sub

Private Sub DialButton_Click()
    Dim N$, T$
    
    DialButton.Enabled = False
    QuitButton.Enabled = False
    CancelButton.Enabled = True
    ' Çevirmek için gerekli numara
    N$ = Durum.Text
        
    T$ = Durum
    Durum = "Çevriliyor - " + N$
    
    ' Çevrilecek Telefon Numarasını Seç
    Dial N$

    DialButton.Enabled = True
    QuitButton.Enabled = True
    CancelButton.Enabled = False

    Durum = T$
End Sub

Private Sub Form_Load()
    MSComm1.InputLen = 0
    
End Sub

Private Sub Kay_Click()
Data1.Recordset.AddNew
Text2.Visible = True
Command2.Visible = True
Text1.Visible = True
End Sub

Private Sub Label1_DblClick()
Data1.Refresh
End Sub

Private Sub Label4_Click()

End Sub

Private Sub QuitButton_Click()
    End
End Sub

Private Sub Sil_Click()
On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset.MoveLast
If Err Then
MsgBox ("Silinecek Kayıt Yok")
End If
End Sub