Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Telefon numaralarını VBasic ile aratmak
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

VB' kompleks (karmaşık sayılar)

Yazar: sctlms
Vb′de kompleks sayıların tanıtılması ve onlarla ilgili işlemler.



Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 5267
Yayın Tar:23.05.2009
Yazar : serveyissoft
Hit :2043

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Telefon numaralarını VBasic ile aratmak
Bu makaleyi e-postama gelen soru üzerine yazıyorum, yararlanmanız dileği ile...

Öncelikler projenize Project -> Components -> menüsü yardımı ile Microsoft Comm Controls 6.0 (Mscomm32.ocx) dosyasını ekleyin ve çalışacağınız formun üzerine yerleştirin,
1 adet textbox ve 2 adet Commandbutton ekleyin. Textbox telefon numarası için, Command1 Arama işlemi için ve Command2 ise aramayı kesmek için kullanılacak.




Private Sub Command1_Click()'Numarayı çevir yani Ara
'Serveyis Software
'www.serveyis.com
'serdalesitmez212@hotmail.com

Dim port ' Port noyu tutacak

On Local Error GoTo hata
port = "3" ' Bilgisayarımdaki modemimin bağlı olduğu port
MSComm1.CommPort = port ' Mscomm1 nesnesinin portu ile ilişkilendir
MSComm1.Settings = "9600,N,8,1" ' Port Ayarları
MSComm1.PortOpen = True ' Seçtiğimiz portu açtırıyoruz
MSComm1.Output = "atdt" + Text1.Text + vbCr ' Telefon numarasını modeme yollayarak aratıyoruz

Exit Sub
hata:
' Hata olursa buraya gelecek ve buraya yazacağınız hata mesajını okuyacak
MsgBox Err.Description, vbInformation + vbOKOnly, "Uyarı"
Exit Sub

End sub


Private Sub Command2_Click() ' İPTAL ET

On local error resume next
MSComm1.PortOpen = False ' Modemin portunu kapatıyoruz

End sub

Programın çalışması için MSComm1.Comport değeri modeminizin bağlı bulunduğu port olması gerekiyor. Değeri denetim masanızdaki Modeme çift tıklayarak öğrenebilirsiniz. Port listesini combobox veya listboxa ekleyerek çift tıklandığında seçtirerek dosyaya kaydettirebilir ARA düğmesine basıncada yukarıdaki gibi okutarak numarayı aratabilirsiniz.
Aklıma gelmişken Mscomm1 nesnesi ile barkod okuyucu veya porttan gelen veriyi okumak içinde kullanabilirsiniz kablolu ve kablosuz iletişim için yani gerisi hayal gücünüze kalmış....

Serveyis Software
www.serveyis.com







Yorumlar, eklemeler ve düşünceler
        ben denedim program hata vermior fakat arama gerçekleşmio neden?

   cango351, 10.09.2009 00:06
   Çalışıyomki acaba :S

   uzeyir21, 24.11.2009 22:35
   güzel konu ancak calışacağını sanmıyorum

   catlakProgramcı, 16.12.2009 14:18
   sence neden calışmıyo arkadaşım bluetootun hangi com porttaysa bağlantı kur pc ve blurtooth arasında sonra programa portu yaz teli yaz texte gönder

   hacker84, 15.11.2010 22:04
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin