TUGAS 3.7 PT. PULANG PETANG SETIAP HARI

TUGAS 3.7 PT. PULANG PETANG SETIAP HARI

source kode :

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnik.Text = ""

txtgolongan.Text = ""

txtkode.Text = ""

txtstatus.Text = ""

txttahun.Text = ""

txtjabatan.Text = ""

txtbagian.Text = ""

txtgaji.Text = ""

txttunjangan.Text = ""

txttotal.Text = ""

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnik.Text = ""

txtgolongan.Text = ""

txtkode.Text = ""

txtstatus.Text = ""

txttahun.Text = ""

txtjabatan.Text = ""

txtbagian.Text = ""

txtgaji.Text = ""

txttunjangan.Text = ""

txttotal.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim x As String

txtgolongan.Text = Mid(txtnik.Text, 5, 1)

txtkode.Text = Mid(txtnik.Text, 7, 1)

txttahun.Text = Left(txtnik.Text, 4)

x = Mid(txtnik.Text, 7, 1)

If x = "S" Then

txtstatus.Text = "Single"

ElseIf x = "M" Then

txtstatus.Text = "Menikah"

ElseIf x = "J" Then

txtstatus.Text = "Janda"

ElseIf x = "D" Then

txtstatus.Text = "Duda"

End If

x = Mid(txtnik.Text, 5, 1)

If x = "A" Then

txtjabatan.Text = "Manager"

txtgaji.Text = "4000000"

txttunjangan.Text = "1025000"

ElseIf x = "B" Then

txtjabatan.Text = "Ka.Seksi"

txtgaji.Text = "3500000"

txttunjangan.Text = "975000"

ElseIf x = "C" Then

txtjabatan.Text = "Staff"

txtgaji.Text = "3000000"

txttunjangan.Text = "925000"

End If

x = Right(txtnik.Text, 3)

If x = "KEU" Then

txtbagian.Text = "Accounting"

ElseIf x = "ADM" Then

txtbagian.Text = "Administrasi"

ElseIf x = "SDM" Then

txtbagian.Text = "General Affair"

ElseIf x = "EDP" Then

txtbagian.Text = "IT Unit"

ElseIf x = "SPM" Then

txtbagian.Text = "Security"

End If

txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)

End Sub

TUGAS 3.6 DATA BUKU STMIK PRINGSEWU

TUGAS 3.6 DATA BUKU STMIK PRINGSEWU

source kode :

Private Sub cmdbatal_Click()

txtkode = ""

txtjudul = ""

txtpengarang = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""

txtkode.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkode = ""

txtjudul = ""

txtpengarang = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""

txtkode.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim K As String

K = Left(txtkode.Text, 3)

If K = "SIM" Or K = "sim" Then

txtjudul = "Sistem Informasi Manajemen"

txtpengarang = "Fadiya Ulfa"

txtharga = "75900"

ElseIf K = "EDP" Or K = "edp" Then

txtjudul = "Elektronik Data Processing"

txtpengarang = "Nurul Agustina"

txtharga = "62000"

ElseIf K = "MNJ" Or K = "mnj" Then

txtjudul = "Manajemen"

txtpengarang = "Rian Hidayat"

txtharga = "42000"

ElseIf K = "CDR" Or K = "cdr" Then

txtjudul = "Corel Draw"

txtpengarang = "Siti Nur Khotimah"

txtharga = "53000"

ElseIf K = "RPL" Or K = rpl Then

txtjudul = "Rekayasa Perangkat Lunak"

txtpengarang = "Winda Erlianti"

txtharga = "83000"

End If

K = Right(txtkode.Text, 1)

If K = "A" Or K = "a" Then

txtpenerbit = "Andi Offset Yogyakarta"

ElseIf K = "I" Or K = "i" Then

txtpenerbit = "Indah Surabaya"

ElseIf K = "S" Or K = "s" Then

txtpenerbit = "Salemba Empat"

ElseIf K = "E" Or K = "e" Then

txtpenerbit = "Elek Media Komputindo"

ElseIf K = "M" Or K = "m" Then

txtpenerbit = "Maxicom"

End If

txttahun.Text = "20" & Mid(txtkode.Text, 5, 2)

End Sub

Private Sub Form_Activate()

txtkode.SetFocus

txtkode.Text = ""

txtjudul.Text = ""

txtpengarang.Text = ""

txttahun.Text = ""

txtpenerbit.Text = ""

txtharga.Text = ""

End Sub

TUGAS 3.5 PENJUALAN TIKET KERETA API

TUGAS 3.5 PENJUALAN TIKET KERETA API

source kode :

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkt = ""

txtht = ""

txtjk = ""

txtjb = ""

txtjt = ""

txttotalp = ""

txtkt.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim DIK As String

DIK = Left(txtkt, 3)

If DIK = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "16.00"

ElseIf DIK = "EKO" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "19.00"

ElseIf DIK = "MUT" Then

txtht = "23000"

txtjk = "MUTIARA"

txtjb = "17.00"

ElseIf DIK = "SEN" Then

txtht = "15000"

txtjk = "SENJA"

txtjb = "20.00"

End If

txtjt.SetFocus

End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * (txtjt)

End If

End Sub

TUGAS 3.4 BUKU STMIK

TUGAS 3.4 BUKU STMIK

source kode :

Private Sub cbokode_Click()

Select Case cbokode

Case "A-SIM-01"

Case "I-EDP-02"

Case "S-MNJ-03"

Case "E-CDR-04"

Case "M-RPL-05"

End Select

End Sub

Private Sub cmdbatal_Click()

cbokode = ""

txtjudul = ""

txtp = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""

cbokode.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode = ""

txtjudul = ""

txtp = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""

cbokode.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(cbokode, 1)

If A = "A" Then

txtpenerbit = "Andi Offset Yogyakarta"

ElseIf A = "I" Then

txtpenerbit = "Indah Surabaya"

ElseIf A = "S" Then

txtpenerbit = "Salemba Empat"

ElseIf A = "E" Then

txtpenerbit = "Elek Media Komputindo"

ElseIf A = "M" Then

txtpenerbit = "Maxicom"

End If

A = Mid(cbokode, 3, 3)

If A = "SIM" Then

txtjudul = "Sistem Informasi Manajemen"

txtp = "Yati Nur Oktavia"

txtharga = "75900"

ElseIf A = "EDP" Then

txtjudul = "Elektronik Data Processing"

txtp = "Imam Tarmizi"

txtharga = "62000"

ElseIf A = "MNJ" Then

txtjudul = "Manajemen"

txtp = "Valentina Mariana Adiwianti"

txtharga = "42000"

ElseIf A = "CDR" Then

txtjudul = "Corel Draw"

txtp = "Riyan Suhandi"

txtharga = "53000"

ElseIf A = "RPL" Then

txtjudul = "Rekayasa Perangkat Lunak"

txtp = "Sinta Umpu Singa"

txtharga = "83000"

End If

txttahun = "20" & Right(cbokode, 2)

End Sub

Private Sub Form_Load()

cbokode.AddItem "A-SIM-01"

cbokode.AddItem "I-EDP-02"

cbokode.AddItem "S-MNJ-03"

cbokode.AddItem "E-CDR-04"

cbokode.AddItem "M-RPL-05"

End Sub

TUGAS 3.3 PENJUALAN LAPTOP

TUGAS 3.3 PENJUALAN LAPTOP 

  

source kode :

Private Sub Form_Load()

cbokode.AddItem "Apple MC965 Macbook Air"

cbokode.AddItem "Apple MC966 Macbook Air"

cbokode.AddItem "Apple MC968 Macbook Air"

cbokode.AddItem "Apple MC969 Macbook Air"

cbokode.AddItem "Apple MC700 Macbook Pro"

cbokode.AddItem "Apple MC721 Macbook Pro"

cbokode.AddItem "Apple MC723 Macbook Pro"

cbokode.AddItem "Apple MC311 Macbook Pro"

cbokode.AddItem "Apple MC313 Macbook Pro"

cbokode.AddItem "Apple MC314 Macbook Pro"

cbokode.AddItem "Apple MC318 Macbook Pro"

cbokode.AddItem "Apple MC322 Macbook Pro"

cbokode.AddItem "Apple MC965 Macbook Air"

cbokode.AddItem "Apple MC966 Macbook Air"

End Sub

Private Sub cbokode_Click()

Dim dika, hrg As String

Select Case cbokode.Text

Case "Apple MC965 Macbook Air"

dika = "Apple Macbook Air MC965"

hrg = "12800000"

Case "Apple MC966 Macbook Air"

dika = "Apple Macbook Air MC965"

hrg = "15800000"

Case "Apple MC968 Macbook Air"

dika = "Apple Macbook Air MC968"

hrg = "9900000"

Case "Apple MC969 Macbook Air"

dika = "Apple Macbook Air MC969"

hrg = "11900000"

Case "Apple MC700 Macbook Pro"

dika = "Apple Macbook Pro MC700”"

hrg = "10800000"

Case "Apple MC721 Macbook Pro"

dika = "Apple Macbook Pro MC721"

hrg = "15900000"

Case "Apple MC723 Macbook Pro"

dika = "Apple Macbook Pro MC723"

hrg = "19300000"

Case "Apple MC311 Macbook Pro"

dika = "Apple Macbook Pro MC311"

hrg = "24200000"

Case "Apple MC313 Macbook Pro"

dika = "Apple Macbook Pro MC313"

hrg = "11900000"

Case "Apple MC314 Macbook Pro"

dika = "Apple Macbook Pro MC314"

hrg = "14700000"

Case "Apple MC318 Macbook Pro"

dika = "Apple Macbook Pro MC318"

hrg = "17600000"

Case "Apple MC322 Macbook Pro"

dika = "Apple Macbook Pro MC322"

hrg = "21300000"

Case "Apple  MC965 Macbook Pro"

dika = "Apple Macbook Pro MC965"

hrg = "12800000"

Case "Apple  MC966 Macbook Pro"

dika = "Apple Macbook Pro MC966"

hrg = "15800000"

End Select

txtmerk.Text = dika

txthargas.Text = hrg

txtjj.SetFocus

End Sub

Private Sub cmdhitung_Click()

cbokode.Text = ""

txtmerk.Text = ""

txthargas.Text = ""

txtjj.Text = ""

txtdis.Text = ""

txttotal.Text = ""

txthargap = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

txthargap = Val(txtjj) * Val(txthargas)

If txthargap > 140000000 Then

txtdis = (0.15) * Val(txthargap)

ElseIf txthargap > 135000000 Then

txtdis = (0.1) * Val(txthargap)

ElseIf txthargap > 130000000 Then

txtdis = (0.5) * Val(txthargap)

ElseIf txthargap > 125000000 Then

txtdis = (0.2) * Val(txthargap)

End If

txttotal.Text = Val(txthargap) - Val(txtdis)

End Sub

TUGAS 3.2

TUGAS 3.2

source kode :

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = ""

txtnpm.Text = ""

txtjuru.Text = ""

txtps.Text = ""

txtmasuk.Text = ""

txturut.Text = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = ""

txtnpm.Text = ""

txtjuru.Text = ""

txtps.Text = ""

txtmasuk.Text = ""

txturut.Text = ""

End Sub

Private Sub Cmdproses_Click()

Dim dika As String

txtmasuk.Text = "20" & Left(txtnpm.Text, 2)

dika = Mid(txtnpm.Text, 3, 1)

If dika = "1" Then

txtjuru.Text = "Sistem Informasi"

ElseIf dika = "2" Then

txtjuru.Text = "Manajemen Informatika"

ElseIf dika = "3" Then

txtjuru.Text = "Tehnik Informatika"

ElseIf dika = "4" Then

txtjuru.Text = "Manajemen & Komp. Akuntansi"

End If

dika = Mid(txtnpm.Text, 4, 2)

If dika = "01" Then

txtps.Text = "Strata Satu"

ElseIf dika = "02" Then

txtps.Text = "Diploma Tiga"

ElseIf dika = "03" Then

txtps.Text = "Diploma Dua"

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = ""

txtnpm.Text = ""

txtjuru.Text = ""

txtps.Text = ""

txtmasuk.Text = ""

txturut.Text = ""

End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

TUGAS 3.1 PROGRAM GAJI

TUGAS 3.1 PROGRAM GAJI

source kode :

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

cbogolongan.AddItem "I"

cbogolongan.AddItem "II"

cbogolongan.AddItem "III"

cbogolongan.AddItem "IV"

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gaji, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case "I"

gaji = 1500000

tunjangan = 150000

Case "II"

gaji = 2000000

tunjangan = 200000

Case "III"

gaji = 2500000

tunjangan = 250000

Case "IV"

gaji = 3000000

tunjangan = 300000

Case Else

gaji = 0

tunjangan = 0

End Select

total = gaji + tunjangan

pajak = total * 0.1

txtgaji.Text = gaji

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total - pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = ""

txtnama.Text = ""

cbogolongan.Text = ""

txtgaji.Text = ""

txttunjangan.Text = ""

txtpajak.Text = ""

txttotal.Text = ""

End Sub

Private Sub txtnind_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

Tugas 2.8 Huruf mutu mahasiswa stmik pringsewu menggunakan keypress

Tugas 2.8 Huruf mutu mahasiswa stmik pringsewu menggunakan keypress

Source kode :

Private Sub cbonpm_click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case "17100032"

nama = "Dika adi pratama"

jurusan = "Sistem Informasi"

Case "17100033"

nama = "Robiyanto"

jurusan = "Sistem Informasi"

Case "17100003"

nama = "Renaldi Zainal Arifin"

jurusan = "Sistem Informasi"

Case "17100023"

nama = "Danang pandu aji"

jurusan = "Sistem Informasi"

Case "17100006"

nama = "Rosi elvia"

jurusan = "Sistem Informasi"

Case "17100008"

nama = "M.Galih algofur"

jurusan = "Sistem Informasi"

Case "17100010"

nama = "Novia Anggraini"

jurusan = "Sistem Informasi"

Case "17100011"

nama = "Ariansyah"

jurusan = "Sistem Informasi"

Case "17100012"

nama = "Dimas Apringga"

jurusan = "Sistem Informasi"

End Select

txtmaha.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ""

txtmaha.Text = ""

txtjurusan.Text = ""

txtquis.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtakhir.Text = ""

txtmutu.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

cbonpm.AddItem "17100032"

cbonpm.AddItem "17100033"

cbonpm.AddItem "17100003"

cbonpm.AddItem "17100023"

cbonpm.AddItem "17100006"

cbonpm.AddItem "17100008"

cbonpm.AddItem "17100010"

cbonpm.AddItem "17100011"

cbonpm.AddItem "17100012"

cbonpm.AddItem "17100013"

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 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

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End If

End Sub

Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress

Tugas 2.7 Huruf mutu mahasiswa stmik pringsewu tampa menggunakan keypress

Source kode :

Private Sub cbonpm_click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case "17100032"

nama = "Dika adi pratama"

jurusan = "Sistem Informasi"

Case "17100033"

nama = "Robiyanto"

jurusan = "Sistem Informasi"

Case "17100003"

nama = "Renaldi Zainal Arifin"

jurusan = "Sistem Informasi"

Case "17100023"

nama = "Danang pandu aji"

jurusan = "Sistem Informasi"

Case "17100006"

nama = "Rosi elvia"

jurusan = "Sistem Informasi"

Case "17100008"

nama = "M.Galih algofur"

jurusan = "Sistem Informasi"

Case "17100010"

nama = "Novia Anggraini"

jurusan = "Sistem Informasi"

Case "17100011"

nama = "Ariansyah"

jurusan = "Sistem Informasi"

Case "17100012"

nama = "Dimas Apringga"

jurusan = "Sistem Informasi"

End Select

txtmaha.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ""

txtmaha.Text = ""

txtjurusan.Text = ""

txtquis.Text = ""

txttugas.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtakhir.Text = ""

txtmutu.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim akhir As Integer

Dim mutu As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

akhir = (quis + tugas + uts + uas) / 4

txtakhir.Text = akhir

Select Case txtakhir.Text

Case Is > 80

mutu = "A"

Case Is > 70

mutu = "B"

Case Is > 60

mutu = "C"

Case Is > 50

mutu = "D"

Case Is < 50

mutu = "E"

End Select

txtmutu.Text = mutu

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

cbonpm.AddItem "17100032"

cbonpm.AddItem "17100033"

cbonpm.AddItem "17100003"

cbonpm.AddItem "17100023"

cbonpm.AddItem "17100006"

cbonpm.AddItem "17100008"

cbonpm.AddItem "17100010"

cbonpm.AddItem "17100011"

cbonpm.AddItem "17100012"

cbonpm.AddItem "17100013"

End Sub

Tugas 2.6

Tugas 2.6

Source kode :

Private Sub cmdok_Click()

lbl2.Caption = txttulis

End Sub

Private Sub cmdse_Click()

End

End Sub

Private Sub opnbi_Click()

lbl2.ForeColor = vbBlue

End Sub

Private Sub opnme_Click()

lbl2.ForeColor = vbRed

End Sub

Private Sub chkte_Click()

If chkte.Value = 1 Then

lbl2.FontBold = True

Else

lbl2.FontBold = False

End If

End Sub

Private Sub chkmi_Click()

If chkmi.Value = 1 Then

lbl2.FontItalic = True

Else

lbl2.FontItalic = False

End If

End Sub

Tugas 2.5 font color & font style

Tugas 2.5 font color & font style 

Source kode :

Private Sub chkun_Click()

If chkun.Value = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

Private Sub chkbo_Click()

If chkbo.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub chksri_Click()

If chksri.Value = 1 Then

lbltext.FontStrikethru = True

Else

lbltext.FontStrikethru = False

End If

End Sub

Private Sub chkita_Click()

If chkita.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub opngreen_Click()

lbltext.ForeColor = vbGreen

End Sub

Private Sub opnblue_Click()

lbltext.ForeColor = vbBlue

End Sub

Private Sub opnred_Click()

lbltext.ForeColor = vbRed

End Sub

Private Sub opnyellow_Click()

lbltext.ForeColor = vbYellow

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Tugas 2.4 aplikasi perhitungan gajih menggunakan keypress

Tugas 2.4 aplikasi perhitungan gajih menggunakan keypress

Source kode :

Private Sub cmdhitung_Click()

txtgajihk = Val(txtpokok) + Val(txttunjangan) - Val(txtpotongan)

txtpajak = Val(txtgajihk) * 0.1

txtgadi = Val(txtgajihk) - Val(txtpajak)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtpokok = ""

txttunjangan = ""

txtpotongan = ""

txtgajihk = ""

txtpajak = ""

txtgadi = ""

txtpokok.SetFocus

End Sub

Private Sub txtpokok_keypress(keyascii As Integer)

If keyascii = 13 Then

txttunjangan.SetFocus

End If

End Sub

Private Sub txttunjangan_keypress(keyascii As Integer)

If keyascii = 13 Then

txtpotongan.SetFocus

End If

End Sub

Private Sub txtpotongan_keypress(keyascii As Integer)

If keyascii = 13 Then

txtgajihk = Val(txtpokok) + Val(txttunjangan) - Val(txtpotongan)

txtpajak = Val(txtgajihk) * 0.1

txtgadi = Val(txtgajihk) - Val(txtpajak)

End If

End Sub

Tugas 2.3 aplikasi perhitungan gajih tampa menggunakan keypress

Tugas 2.3 aplikasi perhitungan gajih tampa menggunakan keypress 

Source kode :

Private Sub cmdhitung_Click()

txtgajihk = Val(txtpokok) + Val(txttunjangan) - Val(txtpotongan)

txtpajak = Val(txtgajihk) * 0.1

txtgadi = Val(txtgajihk) - Val(txtpajak)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtpokok = ""

txttunjangan = ""

txtpotongan = ""

txtgajihk = ""

txtpajak = ""

txtgadi = ""

txtpokok.SetFocus

End Sub

Tugas 2.2 perhitungan harga setelah diskon 10% menggunakan keypress

Tugas 2.2 perhitungan harga setelah diskon 10% menggunakan keypress

Source kode :

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txthk = Val(txtha) - (txtdis)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtha = ""

txtdis = ""

txthk = ""

End Sub

Private Sub txtha_keypress(keyascii As Integer)

If keyascii = 13 Then

txtdis = Val(txtha) * 0.1

txthk = Val(txtha) - (txtdis)

End If

End Sub

Tugas 2.1 perhitungan harga setelah diskon 10% tampa menggunakan keypress

Tugas 2.1 perhitungan harga setelah diskon 10% tampa menggunakan keypress

Source kode :

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txthk = Val(txtha) - (txtdis)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtha = ""

txtdis = ""

txthk = ""

End Sub

Tugas 6 Kalkulator Menggunakan Keypress

Source kode :

Private Sub cmdhitung_Click()

txttotal1 = Val(txtnilai1) + (txtnilai2)

txttotal2 = Val(txtnilai3) / (txtnilai4)

txttotal3 = Val(txtnilai5) - (txtnilai6)

txttotal4 = Val(txtnilai7) * (txtnilai8)

End Sub

Private Sub cmdbatal_click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub

Private Sub txtnilai1_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai2.SetFocus

End If

End Sub

Private Sub txtnilai2_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai3.SetFocus

End If

End Sub

Private Sub txtnilai3_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai4.SetFocus

End If

End Sub

Private Sub txtnilai4_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai5.SetFocus

End If

End Sub

Private Sub txtnilai5_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai6.SetFocus

End If

End Sub

Private Sub txtnilai6_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai7.SetFocus

End If

End Sub

Private Sub txtnilai7_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai8.SetFocus

End If

End Sub

Private Sub txtnilai8_keypress(keyascii As Integer)

If keyascii = 13 Then

txttotal1 = Val(txtnilai1) + (txtnilai2)

txttotal2 = Val(txtnilai3) / (txtnilai4)

txttotal3 = Val(txtnilai5) - (txtnilai6)

txttotal4 = Val(txtnilai7) * (txtnilai8)

End If

End Sub

Tugas 5 kalkulator Tidak Menggunakan Keypress

Source kode :

Private Sub cmdhitung_Click()

txttotal1 = Val(txtnilai1) + (txtnilai2)

txttotal2 = Val(txtnilai3) / (txtnilai4)

txttotal3 = Val(txtnilai5) - (txtnilai6)

txttotal4 = Val(txtnilai7) * (txtnilai8)

End Sub

Private Sub cmdbatal_click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub

Tugas 4 Penjumlahan Menggunakan Keypress

1.       

Source kode :

Private Sub cmdhitung_Click()

txttotal = Val(txtnilai1) + (txtnilai2)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txttotal = ""

txtnilai1.SetFocus

End Sub

Private Sub txtnilai1_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnilai2.SetFocus

End If

End Sub

Private Sub txtnilai2_keypress(keyascii As Integer)

If keyascii = 13 Then

txttotal = Val(txtnilai1) + (txtnilai2)

End If

End Sub