tugas 2.7

HURUF MUTU

Private Sub cbonpm_Click()

Dim nama, Jurusan, hm As String

    Select Case cbonpm.Text

        Case "14100413"

        nama = "AGUNG TRIAWAN"

        Jurusan = "Sistem Informasi"

       

        Case "14100419"

        nama = "Steven Coconut"

        Jurusan = "Manajemen Informasi"

       

        Case "14200409"

        nama = "Alex"

        Jurusan = "Tekhnik Informasi"

       

        Case "14200419"

        nama = "Steven Coconut"

        Jurusan = "Manajemen Informasi"

       

        Case "14200509"

        nama = "Painah"

        Jurusan = "Manajemen Informasi"

       

        Case "14200001"

        nama = "ferdi syahid"

        Jurusan = "tekhnik Informatika"

       

        Case "14100030"

        nama = "desi ningsih"

        Jurusan = "sistem Informasi"

       

        Case "14100919"

        nama = "Steven Coconut"

        Jurusan = "Tekhnik Informasi"

       

        Case "14100410"

        nama = "Steven Coconut"

        Jurusan = "sistem Informasi"

       

        Case "14100459"

        nama = "alan ramadhan"

        Jurusan = "Manajemen Informasi"

    End Select

    txtnama.Text = nama

    txtJurusan.Text = Jurusan

    txtquis.SetFocus

End Sub

Private Sub Cmdbatal_Click()

cbonpm.SetFocus

cbonpm = ""

    nama = ""

    Jurusan = ""

    quis = ""

    tugas = ""

    uts = ""

    uas = ""

    na = ""

    hm = ""

End Sub

Private Sub cmdKeluar_Click()

End

End Sub

Private Sub cmdProses_Click()

Dim na As Integer

Dim hm As String

    quis = Val(txtquis.Text)

    tugas = Val(txttugas.Text)

    uts = Val(txtuts.Text)

    uas = Val(txtuas.Text)

    txtna.Text = na

    na = (quis + tugas + uts + uas) / 4

End Sub

Private Sub Form_Load()

cbonpm.AddItem "14100413"

cbonpm.AddItem "14100410"

cbonpm.AddItem "14100419"

cbonpm.AddItem "14200409"

cbonpm.AddItem "14100459"

cbonpm.AddItem "14200419"

cbonpm.AddItem "14200509"

cbonpm.AddItem "14200001"

cbonpm.AddItem "14100030"

cbonpm.AddItem "14100919"

End Sub