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