"For" İle Ders Programı Yapma
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ListBox1.Items.Clear()
Dim dizipts(5) As String
dizipts(0) = "Bil.Tek.Temelleri"
dizipts(1) = "Bil.Tek.Temelleri"
dizipts(2) = "Bil.Tek.Temelleri"
dizipts(3) = "Bil.Tek.Temelleri"
dizipts(4) = "Prog.Temelleri"
Dim dizisali(5) As String
dizisali(0) = "Matematik"
dizisali(1) = "Matematik"
dizisali(2) = "Kimya"
dizisali(3) = "Kimya"
dizisali(4) = "Edebiyat"
Dim dizicrs(5) As String
dizicrs(0) = "Biyoloji"
dizicrs(1) = "Biyoloji"
dizicrs(2) = "DVA"
dizicrs(3) = "DVA"
dizicrs(4) = "Din"
Dim diziprs(5) As String
diziprs(0) = "Tek.Resim"
diziprs(1) = "Tek.Resim"
diziprs(2) = "Paket Programlar"
diziprs(3) = "Paket Programlar"
diziprs(4) = "Prog.Temelleri"
Dim dizicuma(5) As String
dizicuma(0) = "Geometri"
dizicuma(1) = "Geometri"
dizicuma(2) = "Rehberlik"
dizicuma(3) = "Fizik"
dizicuma(4) = "Fizik"
Dim degisken As String
degisken = ComboBox1.Text
Select Case degisken
Case "Pazartesi"
For paz = 1 To 5
ListBox1.Items.Add(dizipts(paz - 1))
Next
Case "Salı"
For sal = 1 To 5
ListBox1.Items.Add(dizisali(sal - 1))
Next
Case "Çarşamba"
For car = 1 To 5
ListBox1.Items.Add(dizicrs(car - 1))
Next
Case "Perşembe"
For per = 1 To 5
ListBox1.Items.Add(diziprs(per - 1))
Next
Case "Cuma"
For cum = 1 To 5
ListBox1.Items.Add(dizicuma(cum - 1))
Next
End Select
End Sub
End Class
