Başlangıç > Kodlar > Visual Basic 6 ile telefon araması yapmak

Visual Basic 6 ile telefon araması yapmak


Kendi Yaptığınız Programdan  Herhangi Bir Telefon Numarasını Aramak İçin Gerekli Kodlar

İlk Olarak Yeni Bir Proje Açalım.Arama yapabilmemiz için öncelikli olarak Microsoftun
Comm Control ActiveX'ini (componentini  mscomm32.ocx) projemize eklememiz gerekli
ActiveX'i projemize eklemek için  project menüsünün altında components komutunu göreceğiz
bu kom0tu açın ve gelen listede Microsoft Comm Control 6.0 'ı bulup seçin ve tamam diyerek
o components ekranını kapatın.Şimdi sol tarafta telefon şeklinde bir simge çıkacak
bu simgeden formunuza bir adet ekleyin. Yine Formunuzu
1 adet TextBox(Numarayı buraya yazacağız)
2 adet Buton (arama yapmak ve aramayı bitirmek için kullanacağız)

Birinci butonun içine alttaki kodları yazın

MSComm1.CommPort = 3    'Modemimiz Hangi Port Kurulu ise o portun numarsını yazmalıyız
MSComm1.PortOpen = True    'burda Com Portunu Açıyoruz
mesela = Text1.Text    'Burası ise girdiğimiz telefon numarası
DialString$ = "ATDT" + mesela + ";" + Chr$(13) + Chr$(10)
MSComm1.Settings = "300,N,8,1"
MSComm1.Output = DialString$

üst kısımda aramayı yaptırıyoruz.
Aramayı sonlandırmak için ise ikinci butona alttaki komutları yazın


If MSComm1.PortOpen = True Then
MSComm1.Output = "ATH" + Chr$(13)
MSComm1.PortOpen = False
End If



hakanprog@celiknet.com


TD Software


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

Bir Cevap Yazı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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: