tugas 3

gambar tugas 3 revisi

Private Sub Cbonpm_Click()

Dim nama, jurusan, Hm As String

Select Case Cbonpm.Text

Case “152010004”

nama = “anton armansyah”

jurusan = “manajemen informatika”

Case “15100149”

nama = “bahtiar rifai”

jurusan = “sistem informasi”

Case “15100151”

nama = “bayu sulaiman”

jurusan = “sistem informasi”

Case “152010003”

nama = “damayanti”

jurusan = “manajemen informatika”

Case “15100162”

nama = “dewi ambarwati”

jurusan = “sistem informasi”

Case “15100152”

nama = “dewi santika”

jurusan = “sistem informasi”

Case “15100113”

nama = “dian anggara”

jurusan = “sistem informasi”

Case “15100148”

nama = “eti sri asih”

jurusan = “sistem informasi”

Case “15100155”

nama = “eva nurma yunita”

jurusan = “sistem informasi”

Case “15201013”

nama = “eva yunita”

jurusan = “menejemen informatika”

Case “15100164”

nama = “fadhilah firdaus”

jurusan = “sistem informasi”

Case “15100114”

nama = “fadoli irawan”

jurusan = “sistem informasi ”

Case “15100111”

nama = “heny anisetiani”

jurusan = “sistem informasi”

Case “15100152”

nama = “hesti marsandi”

jurusan = “sistem informasi”

Case “15100156”

nama = “indah prasetya ningrum”

jurusan = “sistem informasi”

Case “15100146”

nama = “karlina”

jurusan = “sistem informasi”

Case “15100157”

nama = “leo adimas saputra”

jurusan = “sistem informasi”

Case “15201002”

nama = “leonita julianti”

jurusan = “menejemen informatika”

Case “15100160”

nama = “m.hermawan pratama”

jurusan = “sistem informasi”

Case “15100144”

nama = “martha dian pratama”

jurusan = “sistem informasi”

Case “15100159”

nama = “mea ari anggriani”

jurusan = “sistem informasi”

Case “15100115”

nama = “meilinda”

jurusan = “sistem informasi”

Case “15100150”

nama = “nanda aditiya”

jurusan = “sistem informasi”

Case “15201001”

nama = “nina risty pamungkas”

jurusan = “menejemen informatika”

Case “15100145”

nama = “niva kurnia sari”

jurusan = “sistem informasi”

Case “15100154”

nama = “novaret clsiova”

jurusan = “sistem informasi”

Case “15201016”

nama = “novi herliza”

jurusan = “sistem informasi”

Case “15100158”

nama = “retno s.m arum”

jurusan = “sistem informasi”

Case “15100143”

nama = “rida isnaeni”

jurusan = “sistem informasi”

Case “15100112”

nama = “sukilah”

jurusan = “sistem informasi”

Case “15201017”

nama = “suningsih”

jurusan = “menejemen informatika”

Case “15100142”

nama = “veriza isra saputri”

jurusan = “sistem informasi”

Case “15100153”

nama = “wulan suci hidayah”

jurusan = “sistem infformasi”

Case “15201005”

nama = “yefando aljaya”

jurusan = “menejemen informatika”

Case “15100147”

nama = “yunitaria”

jurusan = “sistem informai”

Case “15100163”

nama = “yunus aprianto”

jurusan = “sistem informasi”

End Select

Txtnama.Text = nama

Txtjurusan.Text = jurusan

txtquis.SetFocus

 

 

End Sub

 

Private Sub cmbbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Txtnama.Text = “”

Txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

Txtuts.Text = “”

Txtuas.Text = “”

Txtna.Text = “”

Txthm.Text = “”

End Sub

 

Private Sub cmbkeluar_Click()

End

End Sub

 

Private Sub cmbproses_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)

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

Txtna.Text = 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 “15201004”

Cbonpm.AddItem “15100149”

Cbonpm.AddItem “15100151”

Cbonpm.AddItem “15201003”

Cbonpm.AddItem “15100162”

Cbonpm.AddItem “15100182”

Cbonpm.AddItem “15100113”

Cbonpm.AddItem “15100148”

Cbonpm.AddItem “15100155”

Cbonpm.AddItem “15201013”

Cbonpm.AddItem “15100164”

Cbonpm.AddItem “15100114”

Cbonpm.AddItem “15100111”

Cbonpm.AddItem “15100152”

Cbonpm.AddItem “15100156”

Cbonpm.AddItem “15100146”

Cbonpm.AddItem “15100157”

Cbonpm.AddItem “15201002”

Cbonpm.AddItem “15100160”

Cbonpm.AddItem “15100144”

Cbonpm.AddItem “15100159”

Cbonpm.AddItem “15100115”

Cbonpm.AddItem “15100150”

Cbonpm.AddItem “15201001”

Cbonpm.AddItem “15100145”

Cbonpm.AddItem “15100154”

Cbonpm.AddItem “15201016”

Cbonpm.AddItem “15100158”

Cbonpm.AddItem “15100143”

Cbonpm.AddItem “15100112”

Cbonpm.AddItem “15201017”

Cbonpm.AddItem “15100142”

Cbonpm.AddItem “15100153”

Cbonpm.AddItem “15201005”

Cbonpm.AddItem “15100147”

Cbonpm.AddItem “15100163”

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

Txtuts.SetFocus

End If

End Sub

 

End Sub

 

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s