Başlangıç > Kodlar > Visual Basic 6 ile Telefon numarasının kime ait olduğunu bulan program

Visual Basic 6 ile Telefon numarasının kime ait olduğunu bulan program


Girdiğiniz telefon numarasının kime ait olduğunu bu program sayesinde öğrenebilirsiniz.

Formunuza text1(alan kodu buraya yazılacak), text2(telefon numarası buraya yazılacak),command1(bul butonu) ve command2(çıkış butonu) ekleyin.
Kolay gelsin

Private Sub Command1_Click()
Dim ara, deger, deger1, deger2, topla, alan_kodu, numara, sorgu
If Val(Text1.Text) > 199 And Val(Text2.Text) > 999999 Then
Set oWShellExt = CreateObject(“Shell.Application”) 

ara = Text2.Text

If ara <> “” Then

topla = ara

deger1 = “http://www.ttrehber.gov.tr/trk-wp/IDA2?IDAERROR=&QRY=bus&CTRY=trk&LANG=tu&PAGE=complexSearch&LIP=complexSearch&ACTION=search&STP=C&NAM=&STN=512-%C7A%D0R&GIV=&LOC=&QNA=&ACD=&#8221;
alan_kodu = Text1.Text
numara = Text2.Text
deger2 = “&STR=&TEL=”
deger = “&ATX=&DTX=&ZCD=&REQ=20&RNG=lequ”
sorgu = deger1 & alan_kodu & deger2 & numara & deger
oWShellExt.shellexecute sorgu
End If
Else
MsgBox “Hatalı yada eksik numara girişi yaptınız”, 16, “Numaraları konrol ediniz”
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
MsgBox “Bu programı İNTERNET BAĞLANTINIZ VARSA kullanabilirsiniz”, 48, “Dikkat”
End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox “Bu program Uğur Kartal yapımıdır…”, 64, “kartalyazilim@yahoo.com.tr”
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(vbCr) Then
Command1_Click
KeyAscii = 0
End If
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

Programın yazarı Uğur’a mail at


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. 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: