Tugas Visual Basic

Private Sub cbonpm_click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case “11100142″

nama = “anggit susanto”

jurusan = “SistemInformasi”

Case “09100113″

nama = “ropiq”

jurusan = “SistemInformasi”

Case “09100114″

nama = “parto”

jurusan = “SistemInformasi”

Case “09200111″

nama = “Ririn”

jurusan = “ManajemenInformatika”

Case “09200121″

nama = “nurma”

jurusan = “ManajemenInformatika”

Case “09200115″

nama = “mahbub”

jurusan = “ManajemenInformatika”

Case “09300105″

nama = “arep”

jurusan = “TeknikInformatika”

Case “09300106″

nama = “vivi”

jurusan = “TeknikInformatika”

Case “09300114″

nama = “septi”

jurusan = “TeknikInformatika”

Case “09300118″

nama = “sudarsono”

jurusan = “TeknikInformatika”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click(Index As Integer)

cbonpm.SetFocus

cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txthm.Text = “”

txtna.Caption = “”

End Sub

Private Sub cmdkeluar_Click()

anggit = MsgBox(“amda yakin ingin keluar?…..”, vbYesNo, “Awas!!!!!!!!”)

If anggit = vbYes Then

End

Else

cbonpm.SetFocus

End If

End Sub

Private Sub cmdproses_Click(Index As Integer)

Dim na As Integer

Dim hm As String

nilai1 = Val(txtquis.Text)

nilai2 = Val(txttugas.Text)

nilai3 = Val(txtuts.Text)

nilai4 = Val(txtuas.Text)

na = (nilai1 + nilai2 + nilai3 + nilai4) / 4

txtna.Caption = na

If Val(txtna.Caption) >= 80 Then

txthm.Text = “A”

ElseIf Val(txtna.Caption) >= 70 Then

txthm.Text = “B”

ElseIf Val(txtna.Caption) >= 60 Then

txthm.Text = “C”

ElseIf Val(txtna.Caption) >= 50 Then

txthm.Text = “D”

Else

txthm.Text = “E”

End If

End Sub

Private Sub Desing_Click()

MsgBox (“anggit(11100142)”)

End Sub

Private Sub Form_Load()

cbonpm.AddItem “09100112″

cbonpm.AddItem “09100113″

cbonpm.AddItem “09100114″

cbonpm.AddItem “09200111″

cbonpm.AddItem “09200121″

cbonpm.AddItem “09200115″

cbonpm.AddItem “09300105″

cbonpm.AddItem “09300106″

cbonpm.AddItem “09300114″

cbonpm.AddItem “09300118″

End Sub

Private Sub keluar_Click()

anggit = MsgBox(“amda yakin ingin keluar?…..”, vbYesNo, “Awas!!!!!!!!”)

If anggit= vbYes Then

End

Else

cbonpm.SetFocus

End If

End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

End Sub

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

End Sub