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