Anasayfa > Kodlar > Visual Basic 6 ile basit bir numara kayıt programı

Visual Basic 6 ile basit bir numara kayıt programı


Numara kaydedebilen telefon programı



'Bu Program bekir demir tarafından genel amaçlı olarak yazılıp kopyalanması ve dağıtılması yasak degildir
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



TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: