Visual Basic 6 ile telefon araması yapmak :)

Selamın Aleyküm.Kendi yaptığınız programdan herhangi bir telefon numarasını aramak için gerekli kodlar.

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$

Aramayı sonlandırmak için ise ikinci butona alttaki komutları yazınn.

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


Daha Önce Verildiyse Kusura Bakmayınn.:yaho1:woott

Çalışmıyor..!!!!!!!!!

Dostum
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$

Aramayı sonlandırmak için ise ikinci butona alttaki komutları yazınn.

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

Kırmızı ile yazdıkları doğru şekilde yaparak dene.

MSComm1.CommPort = 3 ’Modemimiz Hangi Port Kurulu ise o portun numarsını yazmalıyız
MSComm1.PortOpen = True ’burda Com Portunu Açıyoruz
DialString$ = “ATDT” + text1.text + “;” + Chr$(13) + Chr$(10)
MSComm1.Settings = “300,N,8,1″
MSComm1.Output = DialString$

Aramayı sonlandırmak için ise ikinci butona alttaki komutları yazınn.

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

mesela yerine direk olarak text1.text yazsan nasıl olur böylece hata vermezzzz
okay

bilader degişk tanımları yok ayrıyetten birinci butonlara kodlar girilmez heralde forma yazılır.kodlar yanlış ve düzensiz.

ahize nerde ....