|
|
Programalama Dilleri
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Videolu Ders Anlatım
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
İşlemler
|
|
|
|
|
|
|
|
|
|
|
| |
Önce Genel bir Değişken tanımlarız.
Dim adi(5), soyadi(5) As String
Daha Sonra 1.butona
sira < 6 Then
no(sira) = TextBox1.Text
adi(sira) = TextBox2.Text
soyadi(sira) = TextBox3.Text
sira = sira + 1
2.Butona
bul = InputBox(
TextBox1.Text = no(bul)
TextBox2.Text = adi(bul)
TextBox3.Text = soyadi(bul)
"Aranacak öğrencinin sırasını giriniz.", "Öğrenci Bul")
End If
If
|
Visual Basıc Tek Mi Çift Mi Programı
Dim a As Integer
a = TextBox1.Text
a = a
Mod 2If a = 0 Then
MsgBox(
"çift")Else
MsgBox(
"tek")End If
End Sub
|
Visual Basıc'te Bir Sayının Karekökünü Bulma
Dim a As Integer "değer gir")"sonuc")
a = InputBox(
a = a * a
MsgBox(
|
|
|
|
|
|
|
| |
40492 ziyaretçi (66004 klik) |
|
|
|
| | |
