TUGAS BP VB 2.8

Private Sub cbonpm_Click()

Dim nama, jurusan, Hm As String

Select Case cbonpm.Text

Case "17100059"

nama = "usi ayu hermieta"

jurusan = "Sistem Informasi"

Case "17100060"

nama = "puput fatmasari"

jurusan = "Sistem Informasi"

Case "17100058"

nama = "mega liani"

jurusan = "Sistem Informasi"

Case "17100041"

nama = "prakas setiawan"

jurusan = "Sistem Informasi"

Case "17100053"

nama = "aan gusnawan"

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.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtna.Text = ""

txthm.Text = ""

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

na = Val(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 "17100059"

cbonpm.AddItem "17100060"

cbonpm..AddItem "17100058"

cbonpm..AddItem "17100041"

cbonpm..AddItem "17100053"

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

Private Sub txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

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 = Val(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 If

End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 then

txtuas.SetFocus

End If

End Sub

TUGAS BP VB 2.7

Private Sub cbonpm_Click()

Dim nama, jurusan, Hm As String

Select Case cbonpm.Text

Case "17100059"

nama = "usi ayu hermieta"

jurusan = "Sistem Informasi"

Case "17100060"

nama = "puput fatmasari"

jurusan = "Sistem Informasi"

Case "17100058"

nama = "mega liani"

jurusan = "Sistem Informasi"

Case "17100041"

nama = "prakas setiawan"

jurusan = "Sistem Informasi"

Case "17100053"

nama = "aan gusnawan"

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.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtna.Text = ""

txthm.Text = ""

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

na = Val(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 "17100059"

cbonpm.AddItem "17100060"

cbonpm.AddItem "17100058"

cbonpm.AddItem "17100041"

cbonpm.AddItem "17100053"

End Sub

TUGAS BP VB 2.6

Private Sub chkb_Click()

lbl2.FontBold = chkb.Value

End Sub

Private Sub chki_Click()

lbl2.FontItalic = chkb.Value

End Sub

Private Sub cmdok_Click()

lbl2.Caption = txt1.Text

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub Opt1_Click()

lbl2.ForeColor = vbBlue

End Sub

Private Sub Opt2_Click()

lbl2.ForeColor = vbRed

End Sub

TUGAS BP VB 2.5

Private Sub Chkb_Click()

If Chkb.Value = 1 Then

lblteks.FontBold = True

Else

lblteks.FontBold = False

End If

End Sub

Private Sub Chki_Click()

If Chki.Value = 1 Then

lblteks.FontItalic = True

Else

lblteks.FontItalic = False

End If

End Sub

Private Sub Chks_Click()

If Chks.Value = 1 Then

lblteks.FontStrikethru = True

Else

lblteks.FontStrikethru = False

End If

End Sub

Private Sub Chku_Click()

If Chku.Value = 1 Then

lblteks.FontUnderline = True

Else

lblteks.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

Private Sub Optblue_Click()

'membuat warna biru

lblteks.ForeColor = vbBlue

End Sub

Private Sub Optgreen_Click()

'membuat warna hijau

lblteks.ForeColor = vbGreen

End Sub

Private Sub Optred_Click()

'membuat warna merah

lblteks.ForeColor = vbRed

End Sub

Private Sub Optyellow_Click()

'membuat warna kuning

lblteks.ForeColor = vbYellow

End Sub

TUGAS BP VB 2.4

Private Sub cmdproses_Click()

Txtgk = Val(txtgapok) + Val(txttj) - Val(txtpt)

Txtpj = Val(Txtgk) * 0.25

Txtgd= Val(Txtgk) - Val(Txtpj)

End Sub

Private Sub cmdulang_Click()

txtgapok = ""

txttj = ""

txtpt = ""

Txtgk = ""

Txtpj = ""

Txtgd = ""

txtgapok.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub txtgapok_keypress(keyascii As Integer)

If keyascii = 13 Then

txttj.SetFocus

End If

End Sub

Private Sub txtpt_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtgk = Val(txtgapok) + Val(txttj) - Val(txtpt)

Txtpj = Val(Txtgk) * 0.25

Txtditerima = Val(Txtgk) - Val(Txtpj)

End If

End Sub

Private Sub txttj_keypress(keyascii As Integer)

If keyascii = 13 Then

txtpt.SetFocus

End If

End Sub

TUGAS BP VB 2.3

Private Sub cmdproses_Click()

Txtgk = Val(txtgapok) + Val(txttj) - Val(txtpt)

Txtpj = Val(Txtgk) * 0.25

Txtgd= Val(Txtgk) - Val(Txtpj)

End Sub

Private Sub cmdulang_Click()

txtgapok = ""

txttj = ""

txtpt = ""

Txtgk = ""

Txtpj = ""

Txtgd = ""

txtgapok.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

TUGAS BP VB 2.2

Private Sub cmdhitung_Click()

Txtdis = Val(Txtha) * 0.25

Txtakhir = Val(Txtha) - Val(Txtdis)

End Sub

Private Sub cmdulang_Click()

Txtha = ""

Txtdis = ""

Txtakhir = ""

Txtha.SetFocus

End Sub

Private Sub cmdquit_Click()

Unload Me

End Sub

Private Sub txtha_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtdis = Val(Txtha) * 0.25

Txtakhir = Val(Txtha) - Val(Txtdis)

End If

End Sub

TUGAS BP VB 2.1

 Private Sub cmdhitung_Click()

Txtdis = Val(Txtha) * 0.25

Txtakhir = Val(Txtha) - Val(Txtdis)

End Sub

Private Sub cmdulang_Click()

Txtha = ""

Txtdis = ""

Txtakhir = ""

Txtha.SetFocus

End Sub

Private Sub cmdquit_Click()

Unload Me

End Sub