|
Visual Basıc ' te Kayıt nasıl yapılır..
Dim ad(20) As String
Dim soyad(20) As String Dim no(20) As Integer Dim cinsiyet(20) As String Dim bolum(20) As String Dim ders(20) As String Dim i As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click i = i + 1 ad(i) = TextBox1.Text soyad(i) = TextBox2.Text no(i) = Val(TextBox3.Text) If RadioButton1.Checked = True Then cinsiyet(i) = "Bay" ElseIf RadioButton2.Checked = True Then cinsiyet(i) = "Bayan" End If If RadioButton3.Checked = True Then bolum(i) = "Bilgisayar" ElseIf RadioButton4.Checked = True Then bolum(i) = "Döküm" ElseIf RadioButton5.Checked = True Then bolum(i) = "Tasarym" ElseIf RadioButton6.Checked = True Then bolum(i) = "Metal" End If If CheckBox1.Checked = True Then ders(i) = ders(i) + " BLG101" End If If CheckBox2.Checked = True Then ders(i) = ders(i) + " MAT131" End If If CheckBox3.Checked = True Then ders(i) = ders(i) + " FYZ191" End If If CheckBox4.Checked = True Then ders(i) = ders(i) + " GSM123" End If If CheckBox5.Checked = True Then ders(i) = ders(i) + " EDB111" End If If CheckBox6.Checked = True Then ders(i) = ders(i) + " OGM200" End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click For i = 0 To 20 If no(i) = Val(TextBox4.Text) Then ListBox1.Items.Add("AD:" + ad(i)) ListBox1.Items.Add("SOYAD:" + soyad(i)) ListBox1.Items.Add("NO:" & no(i)) ListBox1.Items.Add("CYNSYYET:" + cinsiyet(i)) ListBox1.Items.Add("BÖLÜM:" + bolum(i)) ListBox1.Items.Add("SEÇTY?Y DERSLER:" + ders(i)) End If Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ListBox1.Items.Clear() End Sub |
SAyı bulma oyunu (v.b)
Dim sayi, s As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() sayi = Val(TextBox1.Text) + Rnd() * (Val(TextBox2.Text) - Val(TextBox1.Text)) ListBox1.Items.Clear() TextBox4.Text = 0 TextBox5.Text = 10 s = 0 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Val(TextBox3.Text) = sayi Then MsgBox(s + 1 & " hakta Bildiniz") s = 0 TextBox4.Text = 0 TextBox5.Text = 10 End If If Val(TextBox3.Text) <> sayi Then s = s + 1 TextBox4.Text = s TextBox5.Text = 10 - s ListBox1.Items.Add(Val(TextBox3.Text)) End If If Val(TextBox4.Text) = 10 Then MsgBox("bilemediniz sayymyz " & sayi & " idi") ListBox1.Items.Clear() s = 0 End If End Sub |
emeğine sağlık kardeş... :1: teşekkürler....
|
tşkler
|
paylaşım için tşkrlr
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 12:43 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.