TUGAS 2

TUGAS 2 PROGRAM 1

Private Sub cmdHitung_Click()

txtdi = Val(txtha) * 0.15

Txthak = Val(txtha) - Val(txtdi)

End Sub

Private Sub cmdQuit_Click()

End

End Sub

Private Sub cmdUlangi_Click()

txtha = ""

txtdi = ""

Txthak = ""

txtharga.SetFocus

End Sub


TUGAS 2 PROGRAM 2

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthak.SetFocus

txtdi = Val(txtha) * 0.15

Txthak = Val(txtha) - Val(txtdi)

End If

End Sub

Private Sub cmdQuit_Click()

End

End Sub

Private Sub cmdUlangi_Click()

txtha = ""

txtdi = ""

Txthak = ""

txtha.SetFocus

End Sub


TUGAS 2 PROGRAM 3

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txtgk = Val(txtgp) + Val(txttn) - Val(txtp)

txtpj = Val(txtgk) * 0.05

txtgd = Val(txtgk) - Val(txtpj)

End Sub

Private Sub cmdulang_Click()

txtgp = ""

txttn = ""

txtp = ""

txtgk = ""

txtpj = ""

txtgd = ""

txtgp.SetFocus

End Sub


TUGAS 2 PROGRAM 4

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdproses_Click()

txtgk = Val(txtgp) + Val(txttn) - Val(txtp)

txtpj = Val(txtgk) * 0.05

txtgd = Val(txtgk) - Val(txtpj)

End Sub

Private Sub cmdulang_Click()

txtgp = ""

txttn = ""

txtp = ""

txtgk = ""

txtpj = ""

txtgd = ""

txtgp.SetFocus

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttn.SetFocus

End If

End Sub

Private Sub txtp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgajid.SetFocus

txtgk = Val(txtgp) + Val(txttn) - Val(txtp)

txtpj = Val(txtgk) * 0.05

txtgd = Val(txtgk) - Val(txtpj)

End If

End Sub

Private Sub txttn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtp.SetFocus

End If

End Sub

TUGAS 2 PROGRAM 5

Private Sub Cmdext_Click()

End

End Sub

Private Sub Optred_Click()

Lbltxt.ForeColor = vbRed

End Sub

Private Sub Optbiru_Click()

Lbltxt.ForeColor = vbBlue

End Sub

Private Sub Opthijau_Click()

Lbltxt.ForeColor = vbGreen

End Sub

Private Sub Optkuning_Click()

Lbltxt.ForeColor = vbYellow

End Sub

Private Sub chkbold_Click()

If Chkbold.Value = 1 Then

Lbltxt.FontBold = True

Else

Lbltxt.FontBold = False

End If

End Sub

Private Sub chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltxt.FontUnderline = True

Else

Lbltxt.FontUnderline = False

End If

End Sub

Private Sub chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltxt.FontStrikethru = True

Else

Lbltxt.FontStrikethru = False

End If

End Sub

Private Sub chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltxt.FontItalic = True

Else

Lbltxt.FontItalic = False

End If

End Sub

TUGAS 2 PROGRAM 6

Private Sub Cmdoke_Click()

lbltext1.Caption = txtnnm.Text

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Optbiru_Click()

lbltext1.ForeColor = vbBlue

End Sub

Private Sub Optred_Click()

lbltext1.ForeColor = vbRed

End Sub

Private Sub Chkbold_Click()

lbltext1.FontBold = Chkbold.Value

End Sub

Private Sub Chkitalic_Click()

lbltext1.FontItalic = Chkitalic.Value

End Sub

TUGAS 2 PROGRAM 7

Private Sub Form_Load()

Cbonpm.AddItem "17100066"

Cbonpm.AddItem "17200076"

Cbonpm.AddItem "16300288"

Cbonpm.AddItem "17400090"

Cbonpm.AddItem "15400100"

End Sub

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17100066"

 nama = "HAYABUSA"

 jurusan = "Sistem Informasi"

 Case "17200076"

 nama = "SUN"

 jurusan = "Manajemen Informatika"

 Case "16300288"

 nama = "FANNY"

 jurusan = "Tehnik Sipil"

 Case "17400090"

 nama = "SAKIR KECIL"

 jurusan = "Tehnik Informatika"

 Case "17400100"

 nama = "ROGER"

 jurusan = "MANAGEMENT SISTEM INFORMASI"

 End Select

 txtnm = nama

 txtjr = jurusan

 txtnq.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm = ""

txtnm = ""

txtjr = ""

txtnq = ""

txtnt = ""

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(txtnq)

TUGAS = Val(txtnt)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

 End Sub

TUGAS 2 PROGRAM 8

Private Sub Form_Load()

Cbonpm.AddItem "17100066"

Cbonpm.AddItem "17200076"

Cbonpm.AddItem "16300288"

Cbonpm.AddItem "17400090"

Cbonpm.AddItem "15400100"

End Sub

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

Private Sub txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuts.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

Private Sub txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

Dim NA As Integer

Dim HM As String

QUIS = Val(txtnq)

TUGAS = Val(txtnt)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

End If

End Sub

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17100066"

 nama = "HAYABUSA"

 jurusan = "Sistem Informasi"

 Case "17200076"

 nama = "SUN"

 jurusan = "Manajemen Informatika"

 Case "16300288"

 nama = "FANNY"

 jurusan = "Tehnik Sipil"

 Case "17400090"

 nama = "SAKIR KECIL"

 jurusan = "Tehnik Informatika"

 Case "17400100"

 nama = "ROGER"

 jurusan = "MANAGEMENT SISTEM INFORMASI"

 End Select

 txtnm = nama

 txtjr = jurusan

 txtnq.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm = ""

txtnm = ""

txtjr = ""

txtnq = ""

txtnt = ""

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)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna.Text = NA

Select Case txtna

 Case Is = 100

 HM = "A"

 Case Is >= 80

 HM = "A"

 Case Is >= 70

 HM = "B"

 Case Is >= 60

 HM = "C"

 Case Is >= 50

 HM = "D"

 Case Is <= 49

 HM = "E"

  End Select

  txthm.Text = HM

 End Sub

TAMPILAN TUGAS 1 PROGRAM 1(Data mahasiswa tanpa keypress)

Private Sub cmdbatal_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

TAMPILAN TUGAS 1 PROGRAM 2 (Data Mahasiswa menggunakan Keypress)

 

Private Sub cmdbatal_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

TAMPILAN TUGAS 1 PROGRAM 3(Pemjumlahan Tanpa Keypress)

 

Private Sub cmdhitung_Click()

txtjml = Val(Txtn1) + Val(txtn2) + Val(txtn3)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

TAMPILAN TUGAS 1 PROGRAM 4 (Penjumlahan Dengan menggunakan Keypress)

Private Sub cmdhitung_Click()

txtjml = Val(Txtn1) + Val(txtn2) + Val(txtn3)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txttotal = ""

txtnilai1.SetFocus

End Sub

Private Sub txtn1_keypress(keyascii As Integer)

If keyascii = 13 Then

txtn2.SetFocus

End If

End Sub

Private Sub txtn2_keypress(keyascii As Integer)

If keyascii = 13 Then

txtn3.SetFocus

End If

End Sub

Private Sub txtn3_keypress(keyascii As Integer)

If keyascii = 13 Then

txtjml = Val(Txtn1) + Val(txt2) + Val(txtn3)

End If

End Sub

TAMPILAN TUGAS 1 PROGRAM 5(Kalkulator tanpa Menggunakan Keypress)

 

Private Sub cmdhitung_Click()

txtjml9 = Val(Txtn1) + Val(Txtn2)

Txtjml10 = Val(txtn3) - Val(txtn4)

Txtjml11 = Val(Txtn5) / Val(Txtn6)

Txtjml12 = Val(Txtn7) * Val(Txtn8)

End Sub

Private Sub cmdbatal_click()

Txtn1 = ""

Txtn2 = ""

txtn3 = ""

txtn4 = ""

Txtn5 = ""

Txtn6 = ""

Txtn7 = ""

Txtn8 = ""

txtjml9 = ""

Txtjml10 = ""

Txtjml11 = ""

Txtjml12 = ""

Txtn1.SetFocus

End Sub

Private Sub cmdlagi_Click()

Txtn1 = ""

Txtn2 = ""

txtn3 = ""

txtn4 = ""

Txtn5 = ""

Txtn6 = ""

Txtn7 = ""

Txtn8 = ""

txtjml9 = ""

Txtjml10 = ""

Txtjml11 = ""

Txtjml12 = ""

Txtn1.SetFocus

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub

TAMPILAN TUGAS 1 PROGRAM 6(Kalkulator Dengan Menggunakan Keypress)

Private Sub cmdhitung_Click()

txtjml9 = Val(Txtn1) + Val(Txtn2)

Txtjml10 = Val(txtn3) - Val(txtn4)

Txtjml11 = Val(Txtn5) / Val(Txtn6)

Txtjml12 = Val(Txtn7) * Val(Txtn8)

End Sub

Private Sub cmdbatal_click()

Txtn1 = ""

Txtn2 = ""

txtn3 = ""

txtn4 = ""

Txtn5 = ""

Txtn6 = ""

Txtn7 = ""

Txtn8 = ""

txtjml9 = ""

Txtjml10 = ""

Txtjml11 = ""

Txtjml12 = ""

Txtn1.SetFocus

End Sub

Private Sub cmdlagi_Click()

Txtn1 = ""

Txtn2 = ""

txtn3 = ""

txtn4 = ""

Txtn5 = ""

Txtn6 = ""

Txtn7 = ""

Txtn8 = ""

txtjml9 = ""

Txtjml10 = ""

Txtjml11 = ""

Txtjml12 = ""

Txtn1.SetFocus

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub

Private Sub txtn1_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtn2.SetFocus

End If

End Sub

Private Sub txtn2_keypress(keyascii As Integer)

If keyascii = 13 Then

txtn3.SetFocus

End If

End Sub

Private Sub txtn3_keypress(keyascii As Integer)

If keyascii = 13 Then

txtn4.SetFocus

End If

End Sub

Private Sub txtn4_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtn5.SetFocus

End If

End Sub

Private Sub txtn5_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtn6.SetFocus

End If

End Sub

Private Sub txtn6_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtn7.SetFocus

End If

End Sub

Private Sub txtn7_keypress(keyascii As Integer)

If keyascii = 13 Then

Txtn8.SetFocus

End If

End Sub

Private Sub txtn8_keypress(keyascii As Integer)

If keyascii = 13 Then

txtjml9 = Val(Txtn1) + (Txtn2)

Txtjml10 = Val(txtn3) - (txtn4)

Txtjml11 = Val(Txtn5) / (Txtn6)

Txtjml12 = Val(Txtn7) * (Txtn8)

End If

End Sub