Anasayfa > Kodlar > Visual Basic 6 ile Telefon numarası bulan program

Visual Basic 6 ile Telefon numarası bulan program


10 adet telefon numarası giriyorsunuz.daha sonra istediğinizi buluyor

GENERAL DECLARATIONS
Dim tel_no(10) As Integer
Dim i As Integer

Private Sub Command1_Click()
For i = 1 To 10
tel_no(i) = InputBox(i & “.telefon numurusını giriniz;”)
Next i
End Sub

Private Sub Command2_Click()
Dim aranan As Integer
aranan = InputBox(“aradığınız numurayı giriniz”)
For i = 1 To 10
If aranan = tel_no(i) Then
Text1.Text = tel_no(i)
End If
Next i
End Sub
tarık DELİBAŞ


TD Software


  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: