VB 6.0

 

 

Private Sub Command1_Click()

Select Case kodesek

    Case "1": jenjang = "SD"

    Case "2": jenjang = "SMP"

    Case "3": jenjang = "SMA"

    Case "4": jenjang = "D III"

    Case "5": jenjang = "S1"

    Case Else

    jenjang = "Di bawah SD"

End Select

End Sub

Private Sub Command2_Click()

If kosek = "1" Then

    jjg = "SD"

ElseIf kosek = "2" Then

    jjg = "SMP"

ElseIf kosek = "3" Then

    jjg = "SMA"

ElseIf kosek = "4" Then

    jjg = "D III"

ElseIf kosek = "5" Then

    jjg = "S1"

    Else

        jjg = "Di bawah SD"

End If

End Sub

Private Sub Form_Load()

kodesek.AddItem "1"

kodesek.AddItem "2"

kodesek.AddItem "3"

kodesek.AddItem "4"

kodesek.AddItem "5"

kodesek.AddItem "6"

kosek.AddItem "1"

kosek.AddItem "2"

kosek.AddItem "3"

kosek.AddItem "4"

kosek.AddItem "5"

kosek.AddItem "6"

End Sub