TUGAS 3.7 PT. PULANG PETANG SETIAP HARI

Private Sub cmdbatal_Click()

txtnama = ""

txtnik = ""

txtgolongan = ""

txtkode = ""

txtstatus = ""

txttahun = ""

txtjabatan = ""

txtbagian = ""

txtgaji = ""

txttunjangan = ""

txttotal = ""

txtnama.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama = ""

txtnik = ""

txtgolongan = ""

txtkode = ""

txtstatus = ""

txttahun = ""

txtjabatan = ""

txtbagian = ""

txtgaji = ""

txttunjangan = ""

txttotal = ""

txtnama.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim S As String

txttahun = Left(txtnik, 4)

S = Mid(txtnik, 5, 1)

If S = "A" Then

txtgolongan = "A"

txtjabatan = "Manajer"

txtgaji = "4000000"

txttunjangan = "1025000"

ElseIf S = "B" Then

txtgolongan = "B"

txtjabatan = "Ka. Seksi"

txtgaji = "3500000"

txttunjangan = "975000"

ElseIf S = "C" Then

txtgolongan = "C"

txtjabatan = "Staff"

txtgaji = "3000000"

txttunjangan = "925000"

End If

S = Mid(txtnik, 7, 1)

If S = "S" Then

txtkode = "S"

txtstatus = "Single"

ElseIf S = "M" Then

txtkode = "M"

txtstatus = "Menikah"

ElseIf S = "J" Then

txtkode = "J"

txtstatus = "Janda"

ElseIf S = "D" Then

txtkode = "D"

txtstatus = "Duda"

End If

S = Right(txtnik, 3)

If S = "KEU" Then

txtbagian = "Accounting"

ElseIf S = "ADM" Then

txtbagian = "Administrasi"

ElseIf S = "SDM" Then

txtbagian = "General Affair"

ElseIf S = "EDP" Then

txtbagian = "IT Unit"

ElseIf S = "SPM" Then

txtbagian = "Security"

End If

txttotal = Val(txtgaji) + Val(txttunjangan)

End Sub

TUGAS 3.6 DATA BUKU STMIK PRINGSEWU

Private Sub cmdbatal_Click()

TXTKODE = ""

TXTJUDUL = ""

TXTPENGARANG = ""

TXTTAHUN = ""

TXTTERBIT = ""

TXTHARGA = ""

TXTKODE.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

TXTKODE = ""

TXTJUDUL = ""

TXTPENGARANG = ""

TXTTAHUN = ""

TXTTERBIT = ""

TXTHARGA = ""

TXTKODE.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(TXTKODE, 3)

If A = "SIM" Then

TXTJUDUL = "Sistem Informasi Manajemen"

TXTPENGARANG = "Fadiya Ulfa"

TXTHARGA = "75900"

ElseIf A = "EDP" Then

TXTJUDUL = "Elektronik Data Processing"

TXTPENGARANG = "Nurul Agustina"

TXTHARGA = "62000"

ElseIf A = "MNJ" Then

TXTJUDUL = "Manajemen"

TXTPENGARANG = "Rian Hidayat"

TXTHARGA = "42000"

ElseIf A = "CDR" Then

TXTJUDUL = "Corel Draw"

TXTPENGARANG = "Siti Nur Khotimah"

TXTHARGA = "53000"

ElseIf A = "RPL" Then

TXTJUDUL = "Rekayasa Perangkat Lunak"

TXTPENGARANG = "Winda Erlianti"

TXTHARGA = "83000"

End If

TXTTAHUN = "20" & Mid(TXTKODE, 5, 2)

A = Right(TXTKODE, 1)

If A = "A" Then

TXTTERBIT = "Andi Offset Yogyakarta"

ElseIf A = "I" Then

TXTTERBIT = "Indah Surabaya"

ElseIf A = "S" Then

TXTTERBIT = "Salemba Empat"

ElseIf A = "E" Then

TXTTERBIT = "Elek Media Komputindo"

ElseIf A = "M" Then

TXTTERBIT = "Maxicom"

End If

End Sub

TUGAS 3.5 PENJUALAN TIKET KERETA API

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 B As String

B = Left(txtkt, 3)

If B = "BIM" Then

txtht = "50000"

txtjk = "BIMA"

txtjb = "16.00"

ElseIf B = "EKO" Then

txtht = "35000"

txtjk = "EKONOMI"

txtjb = "19.00"

ElseIf B = "MUT" Then

txtht = "23000"

txtjk = "MUTIARA"

txtjb = "17.00"

ElseIf B = "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

Private Sub cmdbatal_Click()

cbokobu = ""

txtjubu = ""

txtperang = ""

txttabit = ""

txtpenerbit = ""

txtharga = ""

cbokobu.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokobu = ""

txtjubu = ""

txtperang = ""

txttabit = ""

txtpenerbit = ""

txtharga = ""

cbokobu.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(cbokobu, 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(cbokobu, 3, 3)

If A = "SIM" Then

txtjubu = "Sistem Informasi Manajemen"

txtperang = "Yati Nur Oktavia"

txtharga = "75900"

ElseIf A = "EDP" Then

txtjubu = "Elektronik Data Processing"

txtperang = "Imam Tarmizi"

txtharga = "62000"

ElseIf A = "MNJ" Then

txtjubu = "Manajemen"

txtperang = "Valentina Mariana Adiwianti"

txtharga = "42000"

ElseIf A = "CDR" Then

txtjubu = "Corel Draw"

txtperang = "Riyan Suhandi"

txtharga = "53000"

ElseIf A = "RPL" Then

txtjubu = "Rekayasa Perangkat Lunak"

txtperang = "Sinta Umpu Singa"

txtharga = "83000"

End If

txttabit = "20" & Right(cbokobu, 2)

End Sub

Private Sub Form_Load()

cbokobu.AddItem "A-SIM-01"

cbokobu.AddItem "I-EDP-02"

cbokobu.AddItem "S-MNJ-03"

cbokobu.AddItem "E-CDR-04"

cbokobu.AddItem "M-RPL-05"

End Sub

TUGAS 3.3 PENJUALAN LAPTOP

Private Sub Form_Load()

CMBKOTOP.AddItem "Apple MC965 Macbook Air"

CMBKOTOP.AddItem "Apple MC966 Macbook Air"

CMBKOTOP.AddItem "Apple MC968 Macbook Air"

CMBKOTOP.AddItem "Apple MC969 Macbook Air"

CMBKOTOP.AddItem "Apple MC700 Macbook Pro"

CMBKOTOP.AddItem "Apple MC721 Macbook Pro"

CMBKOTOP.AddItem "Apple MC723 Macbook Pro"

CMBKOTOP.AddItem "Apple MC311 Macbook Pro"

CMBKOTOP.AddItem "Apple MC313 Macbook Pro"

CMBKOTOP.AddItem "Apple MC314 Macbook Pro"

CMBKOTOP.AddItem "Apple MC318 Macbook Pro"

CMBKOTOP.AddItem "Apple MC322 Macbook Pro"

CMBKOTOP.AddItem "Apple MC965 Macbook Air"

CMBKOTOP.AddItem "Apple MC966 Macbook Air"

End Sub

Private Sub cmbkotop_Click()

Dim m, hrg As String

Select Case CMBKOTOP.Text

Case "Apple MC965 Macbook Air"

m = "Apple Macbook Air MC965"

hrg = "12800000"

Case "Apple MC966 Macbook Air"

m = "Apple Macbook Air MC965"

hrg = "15800000"

Case "Apple MC968 Macbook Air"

m = "Apple Macbook Air MC968"

hrg = "9900000"

Case "Apple MC969 Macbook Air"

m = "Apple Macbook Air MC969"

hrg = "11900000"

Case "Apple MC700 Macbook Pro"

m = "Apple Macbook Pro MC700"

hrg = "10800000"

Case "Apple MC721 Macbook Pro"

m = "Apple Macbook Pro MC721"

hrg = "15900000"

Case "Apple MC723 Macbook Pro"

m = "Apple Macbook Pro MC723"

hrg = "19300000"

Case "Apple MC311 Macbook Pro"

m = "Apple Macbook Pro MC311"

hrg = "24200000"

Case "Apple MC313 Macbook Pro"

m = "Apple Macbook Pro MC313"

hrg = "11900000"

Case "Apple MC314 Macbook Pro"

m = "Apple Macbook Pro MC314"

hrg = "14700000"

Case "Apple  MC318 Macbook Pro"

m = "Apple Macbook Pro MC318"

hrg = "17600000"

Case "Apple MC322 Macbook Pro"

m = "Apple Macbook Pro MC322"

hrg = "21300000"

Case "Apple  MC965 Macbook Pro"

m = "Apple Macbook Pro MC965"

hrg = "12800000"

Case "Apple  MC966 Macbook Pro"

m = "Apple Macbook Pro MC966"

hrg = "15800000"

End Select

TXTMT.Text = m

TXTHS.Text = hrg

TXTJJ.SetFocus

End Sub

Private Sub cmdhitunglagi_Click()

cbokotop.Text = ""

TXTMT.Text = ""

TXTHS.Text = ""

TXTJJ.Text = ""

TXTDISC.Text = ""

TXTTOYAR.Text = ""

TXTHP = ""

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

TXTHP.Text = Val(TXTJJ.Text) * Val(TXTHS.Text)

If TXTHP.Text >= 140000000 Then

TXTDISC.Text = (0.15) * Val(TXTHP)

ElseIf TXTHP.Text >= 135000000 Then

TXTDISC.Text = (0.1) * Val(TXTHP)

ElseIf TXTHP.Text >= 130000000 Then

TXTDISC.Text = (0.5) * Val(TXTHP)

ElseIf TXTHP.Text >= 125000000 Then

TXTDISC.Text = (0.2) * Val(TXTHP)

Else

txtdis.Text = 0

End If

TXTTOYAR.Text = Val(TXTHP) - Val(TXTDISC)

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTHP.Text = Val(TXTHS) * Val(TXTJJ)

End If

End Sub