Visual Basıc ' te Kayıt nasıl yapılır..

[gokhanaygun]

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

[gokhanaygun]

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

[LastDesiqner]

emeğine sağlık kardeş... teşekkürler....

[Bur2]

tşkler

[Neutralizer]

paylaşım için tşkrlr