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