Programalama > VISUAL BASIC.NET

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

harun yildiz
harun.yildiz55@gmail.com