LIA TUGAS 3A

program3.1 proses

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm.Text

Case “14100210”

nama = “FERANITA PRADHANNY”

jurusan = “Sistem Informasi”

Case “14100166”

nama = “DEVI YUNITA”

jurusan = “Sistem Informasi”

Case “14100213”

nama = “INDRI DESTRIANA”

jurusan = “Sistem Informasi”

Case “14100247”

nama = “RATNASARI”

jurusan = “Sistem Informasi”

Case “14100208”

nama = “SANDI ROYAN SAPUTRA”

jurusan = “Sistem Informasi”

Case “14100190”

nama = “AHMAD SYAIFULLOH”

jurusan = “Sistem Informasi”

Case “14100167”

nama = “SITI NUR JANAH”

jurusan = “Sistem Informasi”

Case “14100176”

nama = “IRWAN SUSILO”

jurusan = “Sistem Informasi”

Case “14100186”

nama = “AGENG PRAYOGO”

jurusan = “Sistem Informasi”

Case “14100214”

nama = “MIFTAHUL KARIM”

jurusan = “Sistem Informasi”

End Select

Txtnama.Text = nama

Txtjurusan.Text = jurusan

Txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Txtnama.Text = “”

Txtjurusan.Text = “”

Txtquis = “”

Txttugas = “‘”

Txtuts = “”

Txtuas = “”

Txtna = “”

Txthm = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

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 = (Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtna = NA

Select Case Txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Txthm.Text = HM

End Sub

Private Sub Form_Load()

Cbonpm.AddItem “14100210”

Cbonpm.AddItem “14100166”

Cbonpm.AddItem “14100213”

Cbonpm.AddItem “14100247”

Cbonpm.AddItem “14100208”

Cbonpm.AddItem “14100190”

Cbonpm.AddItem “14100167”

Cbonpm.AddItem “14100176”

Cbonpm.AddItem “14100186”

Cbonpm.AddItem “14100214”

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Txtuts_Change()

End Sub

LIA TUGAS 3A

program3.2.enter

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm.Text

Case “14100210”

nama = “FERANITA PRADHANNY”

jurusan = “Sistem Informasi”

Case “14100166”

nama = “DEVI YUNITA”

jurusan = “Sistem Informasi”

Case “14100213”

nama = “INDRI DESTRIANA”

jurusan = “Sistem Informasi”

Case “14100247”

nama = “RATNASARI”

jurusan = “Sistem Informasi”

Case “14100208”

nama = “SANDI ROYAN SAPUTRA”

jurusan = “Sistem Informasi”

Case “14100190”

nama = “AHMAD SYAIFULLOH”

jurusan = “Sistem Informasi”

Case “14100167”

nama = “SITI NUR JANAH”

jurusan = “Sistem Informasi”

Case “14100176”

nama = “IRWAN SUSILO”

jurusan = “Sistem Informasi”

Case “14100186”

nama = “AGENG PRAYOGO”

jurusan = “Sistem Informasi”

Case “14100214”

nama = “MIFTAHUL KARIM”

jurusan = “Sistem Informasi”

End Select

Txtnama.Text = nama

Txtjurusan.Text = jurusan

Txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Txtnama.Text = “”

Txtjurusan.Text = “”

Txtquis = “”

Txttugas = “‘”

Txtuts = “”

Txtuas = “”

Txtna = “”

Txthm = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

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 = (Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtna = NA

Select Case Txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

Txthm.Text = HM

End Sub

Private Sub Form_Load()

Cbonpm.AddItem “14100210”

Cbonpm.AddItem “14100166”

Cbonpm.AddItem “14100213”

Cbonpm.AddItem “14100247”

Cbonpm.AddItem “14100208”

Cbonpm.AddItem “14100190”

Cbonpm.AddItem “14100167”

Cbonpm.AddItem “14100176”

Cbonpm.AddItem “14100186”

Cbonpm.AddItem “14100214”

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub Txtuts_Change()

End Sub

Iklan