Tugas pemrograman 1

TUGAS 1.1 NIDN

NIDN

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdlagi_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

 

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

 

Private Sub Cmdbatal_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Form_load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

TUGAS 1.2

NPMTRI

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

 

End Sub

 

Private Sub cmdbatal_Click()

txtnm.SetFocus

txtnm.Text = “”

txtnpm.Text = “”

txtjuru.Text = “”

txtps.Text = “”

txtmasuk.Text = “”

txtno.Text = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtnm.SetFocus

txtnm.Text = “”

txtnpm.Text = “”

txtjuru.Text = “”

txtps.Text = “”

txtmasuk.Text = “”

txtno.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A As String

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

A = Mid(txtnpm, 3, 1)

If A = “1” Then

txtjuru = “Sistem Informasi”

txtps = “Strata Satu”

ElseIf A = “2” Then

txtjuru = “Tekhnik Informatika”

txtps = “Diploma Empat”

ElseIf A = “3” Then

txtjuru = “Manajemen Informatika”

txtps = “Diploma Tiga”

ElseIf A = “4” Then

txtjuru = “Komputer Akuntansi”

txtps = “Diploma Dua”

End If

txtmasuk = Left(txtnpm, 2)

txtno = Right(txtnpm, 4)

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

 

End Sub

 

Private Sub txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

 

TUGAS 1.3

PENJUALAN LAPTOP

LAPTOP

 

Private Sub CboKode_Click()

Dim Merk, Harga, Kode As Variant

 

Kode = Mid(Cbokode.Text, 7, 5)

Select Case Kode

Case “MC965”

Merk = “Apple MC965 MacBook Air”

Harga = 12800000

Case “MC966”

Merk = “Apple MC966 MacBook Air”

Harga = 15800000

Case “MC968”

Merk = “Apple MC968 MacBook Air”

Harga = 9900000

Case “MC969”

Merk = “Apple MC969 MacBook Air”

Harga = 11900000

Case “MC700”

Merk = “Apple MC700 MacBook Pro”

Harga = 10800000

Case “MC721”

Merk = “Apple MC721 MacBook Pro”

Harga = 15900000

Case “MC723”

Merk = “Apple MC723 MacBook Pro”

Harga = 19300000

Case “MC724”

Merk = “Apple MC724 MacBook Pro”

Harga = 13700000

Case “MC311”

Merk = “Apple MC311 MacBook Pro”

Harga = 24200000

Case “MC313”

Merk = “Apple MC313 MacBook Pro”

Harga = 11900000

Case “MC314”

Merk = “Apple MC314 MacBook Pro”

Harga = 14700000

Case “MC318”

Merk = “Apple MC318 MacBook Pro”

Harga = 17600000

Case “MC322”

Merk = “Apple MC322 MacBook Pro”

Harga = 21300000

End Select

Txtmerk = Merk

Txtharga = Harga

End Sub

 

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdbatal_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtmerk.Text = “”

Txtharga.Text = “”

Txtjumlah.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtmerk.Text = “”

Txtharga.Text = “”

Txtjumlah.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub CmdProses_Click()

Dim HS, Jual, Jumlah, Diskon, Total As Variant

HS = Val(Txtharga)

Jual = Val(Txtjumlah)

Jumlah = HS * Jual

Txthp = Jumlah

 

Select Case Jumlah

Case Is > 140000000

Diskon = Jumlah * 0.15

Case Is > 135000000

Diskon = Jumlah * 0.1

Case Is > 130000000

Diskon = Jumlah * 0.05

Case Is > 125000000

Diskon = Jumlah * 0.02

Case Is <= 125000000

Diskon = Jumlah * 0

End Select

Txtdis = Diskon

 

Total = Jumlah – Diskon

Txttotal = Total

End Sub

 

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

 

End Sub

 

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

End Sub

TUGAS 1.4

PENJUALAN KOMPUTER

 

komputer2

 

Private Sub Cbokode_Click()

Dim kode, jenis, hs, jumlah As Variant

Select Case Cbokode.Text

Case “P205”

jenis = “Pentium II  500 Mega Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000”

Case “P310”

jenis = “Pentium III 1.0 Giga Hz ”

hs = “3500000”

Case “P415”

jenis = “Pentium IV   1.5 Giga Hz”

hs = “4000000”

Case “P417”

jenis = “Pentium IV  1.7 Giga Hz ”

hs = “4200000”

Case “P419”

jenis = “Pentium IV  1.9 Giga Hz”

hs = “5500000”

 

 

 

End Select

Txtjenis.Text = jenis

Txthargasatuan.Text = hs

End Sub

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

Private Sub cmdbatal_Click()

Cbokode.SetFocus

Cbokode = “”

Txtjenis = “”

Txthargasatuan = “”

Txtjumlah = “”

Txthp = “”

Txtdis = “”

Txthb = “”

 

End Sub

 

Private Sub Cmdclose_Click()

Unload Me

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdhitunglagi_Click()

Cbokode.SetFocus

Cbokode = “”

Txtjenis = “”

Txthargasatuan = “”

Txtjumlah = “”

Txthp = “”

Txtdis = “”

Txthb = “”

End Sub

 

Private Sub Cmdproses_Click()

Txthp = Val(Txthargasatuan) * Val(Txtjumlah)

Select Case Txthp.Text

 

Case Is > 140000000

Txtdis = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis = Val(Txthp) * 0.02

End Select

 

Txthb = Val(Txthp) – Val(Txtdis)

Txtjumlah.SetFocus

End Sub

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

 

End Sub

Private Sub Form_Load()

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

 

Private Sub Txthp_Click()

Txthp = Val(Txtjumlah) * Val(Txthargasatuan)

End Sub

 

TUGAS 1.5

DATA BUKU (COMBO)

 

DATA BUKU (COMBO)

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub CmdBatal_Click()

Cbokode.SetFocus

Cbokode = “Pilih Kode Buku”

Txtjb = “”

Txtpg = “”

Txttp = “”

Txtpn = “”

TPxthg = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub CmdLagi_Click()

Cbokode.SetFocus

Cbokode = “Pilih Kode Buku”

Txtjb = “”

Txtpg = “”

Txttp = “”

Txtpn = “”

Txthg = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant

Kode = Cbokode

KodeBuku = Mid(Kode, 3, 3)

Select Case KodeBuku

Case “SIM”

Judul = “Sistem Informasi Manajemen”

Pengarang = “Yati Nur Oktavia”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “Imam Tarmizi”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “Valentina Mariana Adiwianti”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “Riyan Suhandi”

Harga = 53000

Case “RPL”

Judul = “Rekayasa Perangkat Lunak”

Pengarang = “Sinta Umpu Singa”

Harga = 83000

End Select

Txtjb = Judul

Txtpg = Pengarang

Txthg = Harga

 

KodePenerbit = Left(Kode, 1)

Select Case KodePenerbit

Case “A”

Penerbit = “Andi Offset Yogyakarta”

Case “I”

Penerbit = “Indah Surabaya”

Case “S”

Penerbit = “Indah Surabaya”

Case “E”

Penerbit = “Elek Media Komputindo”

Case “M”

Penerbit = “Maxicom”

End Select

Txtpn = Penerbit

 

KodeTahun = Right(Kode, 2)

Select Case KodeTahun

Case “01”

Tahun = “20” & KodeTahun

Case “02”

Tahun = “20” & KodeTahun

Case “03”

Tahun = “20” & KodeTahun

Case “04”

Tahun = “20” & KodeTahun

Case “05”

Tahun = “20” & KodeTahun

End Select

Txttp = Tahun

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

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 1.6

TIKET KERETA API

 

KRETA API

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdbatal_Click()

txtkt.SetFocus

txtkt = “”

txtht = “”

txtjk = “”

txtjb = “”

txtjt = “”

TxtTotal = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

txtkt.SetFocus

txtkt = “”

txtht = “”

txtjk = “”

txtjb = “”

txtjt = “”

TxtTotal = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, Harga, Jenis, Berangkat As Variant

Kode = Left(txtkt.Text, 3)

Select Case Kode

Case “BIM”

Harga = 50000

Jenis = “BIMA”

Berangkat = “16.00”

Case “EKO”

Harga = 35000

Jenis = “EKONOMI”

Berangkat = “19.00”

Case “MUT”

Harga = 23000

Jenis = “MUTIARA”

Berangkat = “17.00”

Case “SEN”

Harga = 15000

Jenis = “SENJA”

Berangkat = “20.00”

End Select

txtht = Harga

txtjk = Jenis

txtjb = Berangkat

txtjt.SetFocus

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

 

Private Sub TxtJt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttp = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub

TUGAS 1.7

DATA BUKU

DATA BUKU STMIK

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub CmdBatal_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

Txttahun = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

 

Private Sub CmdLagi_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

TxtTerbit = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant

Kode = Txtkode

KodeBuku = Mid(Kode, 1, 3)

Select Case KodeBuku

Case “SIM”

Judul = “Sistem Informasi Manajemen”

Pengarang = “Yati Nur Oktavia”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “Imam Tarmizi”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “Valentina Mariana Adiwianti”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “Riyan Suhandi”

Harga = 53000

Case “RPL”

Judul = “Rekayasa Perangkat Lunak”

Pengarang = “Sinta Umpu Singa”

Harga = 83000

End Select

Txtjudul = Judul

Txtpengarang = Pengarang

Txtharga = Harga

 

KodePenerbit = Left(Kode, 1)

Select Case KodePenerbit

Case “A”

Penerbit = “Andi Offset Yogyakarta”

Case “I”

Penerbit = “Indah Surabaya”

Case “S”

Penerbit = “Indah Surabaya”

Case “E”

Penerbit = “Elek Media Komputindo”

Case “M”

Penerbit = “Maxicom”

End Select

Txtpenerbit = Penerbit

 

KodeTahun = Mid(Kode, 5, 2)

Select Case KodeTahun

Case “09”

Tahun = “20” & KodeTahun

Case “10”

Tahun = “20” & KodeTahun

Case “11”

Tahun = “20” & KodeTahun

Case “12”

Tahun = “20” & KodeTahun

Case “13”

Tahun = “20” & KodeTahun

End Select

Txttahun = Tahun

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

TUGAS 1.8

PT PULANG PETANG

PULANG PETANG JADI

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub CmdBatal_Click()

TxtNama.SetFocus

TxtNama = “”

TxtNik = “”

TxtGolongan = “”

TxtKodeStatus = “”

TxtStatus = “”

TxtTahun = “”

TxtJabatan = “”

TxtBagian = “”

TxtGajiPokok = “”

TxtTunjangan = “”

TxtTotalGaji = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

TxtNama.SetFocus

TxtNama = “”

TxtNik = “”

TxtGolongan = “”

TxtKodeStatus = “”

TxtStatus = “”

TxtTahun = “”

TxtJabatan = “”

TxtBagian = “”

TxtGajiPokok = “”

TxtTunjangan = “”

TxtTotalGaji = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant

 

Golongan = Mid(TxtNik.Text, 5, 1)

TxtGolongan = Golongan

 

KodeStatus = Mid(TxtNik.Text, 7, 1)

TxtKodeStatus = KodeStatus

 

If KodeStatus = “S” Then

Status = “Single”

ElseIf KodeStatus = “M” Then

Status = “Menikah”

ElseIf KodeStatus = “J” Then

Status = “Janda”

ElseIf KodeStatus = “D” Then

Status = “Duda”

End If

TxtStatus = Status

 

Tahun = Left(TxtNik.Text, 4)

TxtTahun = Tahun

 

Select Case Golongan

Case “A”

Jabatan = “Manager”

GajiPokok = 4000000

Tunjangan = 1025000

Case “B”

Jabatan = “Ka. Seksi”

GajiPokok = 3500000

Tunjangan = 975000

Case “C”

Jabatan = “Staff”

GajiPokok = 3000000

Tunjangan = 925000

End Select

TxtJabatan = Jabatan

TxtGajiPokok = GajiPokok

TxtTunjangan = Tunjangan

 

KodeBagian = Right(TxtNik.Text, 3)

Select Case KodeBagian

Case “KEU”

Bagian = “Accounting”

Case “ADM”

Bagian = “Administrasi”

Case “SDM”

Bagian = “General Affair”

Case “EDP”

Bagian = “IT Unit”

Case “SPM”

Bagian = “Security”

End Select

TxtBagian = Bagian

TxtTotalGaji = GajiPokok + Tunjangan

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

 

Private Sub Form_Activate()

TxtNama.SetFocus

End Sub

 

Private Sub TxtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNik.SetFocus

End If

End Sub

TUGAS1.9

TOKO ALAT TULIS

 

ALAT TULIS

Capture

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.MovePrevious

End Sub

 

Private Sub cmdhitung_Click()

txtby = Val(txthb * txtjb)

If txtjb.Text > 5 Then

txtpot = Val(txtby) * 0.02

Else

txtpot = Val(txtby) * 0

End If

txttb = Val(txtby – txtpot)

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdproses_Click()

Dim HB, KB, NB As Variant

KB = Mid(txtkb, 5, 2)

Select Case KB

Case “SP”

NB = “SPIDOL”

HB = 9500

Case “BT”

NB = “BUKU TULIS”

HB = 12500

Case “TP”

NB = “TIPEX”

HB = 3000

Case “PG”

NB = “PENGGARIS”

HB = 25000

Case “PT”

NB = “PAPAN TULIS”

HB = 50000

End Select

txtnb = NB

txthb = HB

txtjb.SetFocus

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End SubPrivate Sub cmdno_Click()

Unload Me

End Sub

 

Private Sub cmdyes_Click()

End

End Sub

Iklan

TUGAS BAHASA PEMROGRAMAN 1

TUGAS 1.GOLONGAN

gambar

 

Private Sub Cmdlagi_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Private Sub Cmdbatal_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Form_load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

 

Select Case Cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

TUGAS 2. NPM

gambar 2

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txtturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttm.Text = “20” &Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “SistemInformasi”

ElseIf S = “2” Then

Txtjur.Text = “ManajemenInformatika”

ElseIf S = “3” Then

Txtjur.Text = “TehnikInformatika”

ElseIf S = “4” Then

Txtjur.Text = “KomputerAkuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txtturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txtturut.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txtturut.Text = “”

End Sub

 

TUGAS 3. PENJUALAN LAPTOP

g3

Private Sub CboKode_Click()

Dim Merk, Harga, KodeAs Variant

 

Kode = Mid(CboKode.Text, 7, 5)

Select Case Kode

Case “MC965”

Merk = “Apple MC965 MacBook Air”

Harga = 12800000

Case “MC966”

Merk = “Apple MC966 MacBook Air”

Harga = 15800000

Case “MC968”

Merk = “Apple MC968 MacBook Air”

Harga = 9900000

Case “MC969”

Merk = “Apple MC969 MacBook Air”

Harga = 11900000

Case “MC700”

Merk = “Apple MC700 MacBook Pro”

Harga = 10800000

Case “MC721”

Merk = “Apple MC721 MacBook Pro”

Harga = 15900000

Case “MC723”

Merk = “Apple MC723 MacBook Pro”

Harga = 19300000

Case “MC724”

Merk = “Apple MC724 MacBook Pro”

Harga = 13700000

Case “MC311”

Merk = “Apple MC311 MacBook Pro”

Harga = 24200000

Case “MC313”

Merk = “Apple MC313 MacBook Pro”

Harga = 11900000

Case “MC314”

Merk = “Apple MC314 MacBook Pro”

Harga = 14700000

Case “MC318”

Merk = “Apple MC318 MacBook Pro”

Harga = 17600000

Case “MC322”

Merk = “Apple MC322 MacBook Pro”

Harga = 21300000

End Select

TxtMerk = Merk

TxtHarga = Harga

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode.Text = “”

TxtMerk.Text = “”

TxtHarga.Text = “”

Txtjumlah.Text = “”

Txthp.Text = “”

TxtDis.Text = “”

TxtTotal.Text = “”

End Sub

 

Private Sub CmdProses_Click()

Dim HS, Jual, Jumlah, Diskon, Total As Variant

HS = Val(TxtHarga)

Jual = Val(TxtJumlah)

Jumlah = HS * Jual

TxtHp= Jumlah

 

Select Case Jumlah

Case Is > 140000000

Diskon = Jumlah * 0.15

Case Is > 135000000

Diskon = Jumlah * 0.1

Case Is > 130000000

Diskon = Jumlah * 0.05

Case Is > 125000000

Diskon = Jumlah * 0.02

Case Is <= 125000000

Diskon = Jumlah * 0

End Select

TxtDis = Diskon

 

Total = Jumlah – Diskon

TxtTotal = Total

End Sub

 

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

End Sub

 

 

TUGAS 4. DATA BUKU STMIK

g4

Private Sub CmdBatal_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

Txttahun = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

Txtkode.SetFocus

Txtkode = “”

Txtjudul = “”

Txtpengarang = “”

Txttahun = “”

Txtpenerbit = “”

Txtharga = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, HargaAs Variant

 

Kode = Txtkode

KodeBuku = Left(Kode, 3)

Select Case KodeBuku

Case “SIM”

Judul = “SistemInformasiManajemen”

Pengarang = “FadiyaUlfa”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “NurulAgustina”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “RianHidayat”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “SitiNurKhotimah”

Harga = 53000

Case “RPL”

Judul = “RekayasaPerangkatLunak”

Pengarang = “WindaErlianti”

Harga = 83000

End Select

Txtjudul = Judul

Txtpengarang = Pengarang

Txtharga = Harga

 

KodePenerbit = Right(Kode, 1)

Select Case KodePenerbit

Case “A”

Penerbit = “Andi Offset Yogyakarta”

Case “I”

Penerbit = “Indah Surabaya”

Case “S”

Penerbit = “Indah Surabaya”

Case “E”

Penerbit = “Elek Media Komputindo”

Case “M”

Penerbit = “Maxicom”

End Select

Txtpenerbit = Penerbit

 

Txttahun = “20” &Mid(Txtkode, 5, 2)

End Sub

 

 

TUGAS 5.TIKET KERETA

g5

 

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

TxtKt.SetFocus

TxtKt = “”

TxtHt = “”

TxtJk = “”

TxtJb = “”

TxtJt = “”

TxtTotal = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, Harga, Jenis, BerangkatAs Variant

 

Kode = Left(TxtKt.Text, 3)

Select Case Kode

Case “BIM”

Harga = 50000

Jenis = “BIMA”

Berangkat = “16.00”

Case “EKO”

Harga = 35000

Jenis = “EKONOMI”

Berangkat = “19.00”

Case “MUT”

Harga = 23000

Jenis = “MUTIARA”

Berangkat = “17.00”

Case “SEN”

Harga = 15000

Jenis = “SENJA”

Berangkat = “20.00”

End Select

TxtHt = Harga

TxtJk = Jenis

TxtJb = Berangkat

TxtJt.SetFocus

End Sub

 

Private Sub TxtJt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)

End If

End Sub

 

TUGAS 6. DATA BUKU (combo)

g6

Private Sub CmdBatal_Click()

Cbokode.SetFocus

Cbokode = “PilihKodeBuku”

Txtjb = “”

Txtpg = “”

Txttp = “”

Txtpn = “”

Txthg = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

Cbokode.SetFocus

Cbokode = “PilihKodeBuku”

Txtjb = “”

Txtpg = “”

Txttp = “”

Txtpn = “”

Txthg = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, HargaAs Variant

 

Kode = Cbokode

KodeBuku = Mid(Kode, 3, 3)

Select Case KodeBuku

Case “SIM”

Judul = “SistemInformasiManajemen”

Pengarang = “YatiNurOktavia”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “Imam Tarmizi”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “Valentina Mariana Adiwianti”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “RiyanSuhandi”

Harga = 53000

Case “RPL”

Judul = “RekayasaPerangkatLunak”

Pengarang = “SintaUmpuSinga”

Harga = 83000

End Select

Txtjb = Judul

Txtpg = Pengarang

Txthg = Harga

 

KodePenerbit = Left(Kode, 1)

Select Case KodePenerbit

Case “A”

Penerbit = “Andi Offset Yogyakarta”

Case “I”

Penerbit = “Indah Surabaya”

Case “S”

Penerbit = “Indah Surabaya”

Case “E”

Penerbit = “Elek Media Komputindo”

Case “M”

Penerbit = “Maxicom”

End Select

Txtpn = Penerbit

 

KodeTahun = Right(Kode, 2)

Select Case KodeTahun

Case “01”

Tahun = “20” &KodeTahun

Case “02”

Tahun = “20” &KodeTahun

Case “03”

Tahun = “20” &KodeTahun

Case “04”

Tahun = “20” &KodeTahun

Case “05”

Tahun = “20” &KodeTahun

End Select

Txttp = Tahun

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 7. PENJULAN KOMPUTER

g7

Private Sub Cbokode_Click()

Dim kode, jenis, hs, jumlah As Variant

Select Case Cbokode.Text

Case “P205”

jenis = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000”

Case “P310”

jenis = “Pentium III 1.0 Giga Hz ”

hs = “3500000”

Case “P415”

jenis = “Pentium IV   1.5 Giga Hz”

hs = “4000000”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hs = “4200000”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hs = “5500000”

 

 

 

End Select

Txtjenis.Text = jenis

Txthargasatuan.Text = hs

 

 

End Sub

 

Private Sub Cmdclose_Click()

Unload Me

End Sub

 

Private Sub Cmdhitunglagi_Click()

Cbokode.SetFocus

Cbokode = “”

Txtjenis = “”

Txthargasatuan = “”

Txtjumlah = “”

Txthp = “”

Txtdis = “”

Txthb = “”

End Sub

 

Private Sub Cmdproses_Click()

Txthp = Val(Txthargasatuan) * Val(Txtjumlah)

Select Case Txthp.Text

 

Case Is > 140000000

Txtdis = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis = Val(Txthp) * 0.02

End Select

 

Txthb = Val(Txthp) – Val(Txtdis)

 

End Sub

 

Private Sub Form_Load()

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

 

Private Sub Txthp_Click()

Txthp = Val(Txtjumlah) * Val(Txthargasatuan)

End Sub

 

 

 

TUGAS 8. PULANG PETANG

g8

 

Private Sub CmdBatal_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnik = “”

Txtgolongan = “”

Txtkode = “”

Txtstatus = “”

Txttahun = “”

Txtjabatan = “”

Txtbagian = “”

Txtgapok = “”

Txttunjangan = “”

Txttotal = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnik = “”

Txtgolongan = “”

Txtkode = “”

Txtstatus = “”

Txttahun = “”

Txtjabatan = “”

Txtbagian = “”

Txtgapok = “”

Txttunjangan = “”

Txttotal = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, TunjanganAs Variant

 

Golongan = Mid(Txtnik.Text, 5, 1)

Txtgolongan = Golongan

 

KodeStatus = Mid(Txtnik.Text, 7, 1)

Txtkode = KodeStatus

 

If KodeStatus = “S” Then

Status = “Single”

ElseIfKodeStatus = “M” Then

Status = “Menikah”

ElseIfKodeStatus = “J” Then

Status = “Janda”

ElseIfKodeStatus = “D” Then

Status = “Duda”

End If

Txtstatus = Status

 

Tahun = Left(Txtnik.Text, 4)

Txttahun = Tahun

 

Select Case Golongan

Case “A”

Jabatan = “Manager”

GajiPokok = 4000000

Tunjangan = 1025000

Case “B”

Jabatan = “Ka. Seksi”

GajiPokok = 3500000

Tunjangan = 975000

Case “C”

Jabatan = “Staff”

GajiPokok = 3000000

Tunjangan = 925000

End Select

Txtjabatan = Jabatan

Txtgapok = GajiPokok

Txttunjangan = Tunjangan

 

KodeBagian = Right(Txtnik.Text, 3)

Select Case KodeBagian

Case “KEU”

Bagian = “Accounting”

Case “ADM”

Bagian = “Administrasi”

Case “SDM”

Bagian = “General Affair”

Case “EDP”

Bagian = “IT Unit”

Case “SPM”

Bagian = “Security”

End Select

Txtbagian = Bagian

Golongan = Mid(Txtnik.Text, 5, 1)

KodeStatus = Mid(Txtnik.Text, 7, 1)

Tahun = Left(Txtnik.Text, 4)

Txttotal = GajiPokok + Tunjangan

End Sub

Private Sub Form_Activate()

Txtnama.SetFocus

End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

TUGAS PEMROGRAMAN

Capture  1111

TUGAS  1

Private Sub ChkBold_Click()

‘membuat teks tebal’

If ChkBold.Value = 1 Then

LblNama.FontBold = True

Else

LblNama.FontBold = False

End If

End Sub

Private Sub ChkItalic_Click()

‘membuat teks miring’

If ChkItalic.Value = 1 Then

LblNama.FontItalic = True

Else

LblNama.FontItalic = False

End If

End Sub

Private Sub ChkStrikeout_Click()

‘membuat teks bergaris’

If ChkStrikeout.Value = 1 Then

LblNama.FontStrikethru = True

Else

LblNama.FontStrikethru = False

End If

End Sub

Private Sub ChkUnderline_Click()

‘membuat  teks bergaris bawah’

If ChkUnderline.Value = 1 Then

LblNama.FontUnderline = True

Else

LblNama.FontUnderline = False

End If

End Sub

Private Sub CmdExit_Click()

Unload Me

End Sub

Private Sub OptBlue_Click()

‘membut teks berwana biru’

LblNama.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()

‘membuat teks berwarna hijau’

LblNama.ForeColor = vbGreen

End Sub

Private Sub OptRed_Click()

‘membuat teks berwana merah’

LblNama.ForeColor = vbRed

End Sub

Private Sub OptYellow_Click()

‘membuat teks berwana kuning’

LblNama.ForeColor = vbYellow

End Sub

 

Capture 222

TUGAS 2

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

LblTampil.FontBold = True

Else

LblTampil.FontBold = False

End If

End Sub

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

LblTampil.FontItalic = True

Else

LblTampil.FontItalic = False

End If

End Sub

Private Sub CmdOk_Click()

LblTampil.Caption = TxtAja.Text

End Sub

Private Sub CmdSelesai_Click()

Unload Me

End Sub

Private Sub OptBiru_Click()

LblTampil.ForeColor = vbBlue

End Sub

Private Sub OptMerah_Click()

LblTampil.ForeColor = vbRed

End Sub

 

Capture 44544

TUGAS  3

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 nm As Integer

Dim hm As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

na = (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 “15100018”

cbonpm.AddItem “15100008”

cbonpm.AddItem “15100031”

cbonpm.AddItem “15100012”

cbonpm.AddItem “15100030”

cbonpm.AddItem “15100040”

cbonpm.AddItem “15100003”

cbonpm.AddItem “15100001”

cbonpm.AddItem “15100002”

cbonpm.AddItem “15100004”

cbonpm.AddItem “15100005”

cbonpm.AddItem “15100006”

cbonpm.AddItem “15100007”

cbonpm.AddItem “15100009”

cbonpm.AddItem “15100010”

cbonpm.AddItem “15100011”

cbonpm.AddItem “15100014”

cbonpm.AddItem “15100015”

cbonpm.AddItem “15100017”

cbonpm.AddItem “15100023”

cbonpm.AddItem “15100024”

cbonpm.AddItem “15100025”

cbonpm.AddItem “15100026”

cbonpm.AddItem “15100027”

cbonpm.AddItem “15100032”

cbonpm.AddItem “15100034”

cbonpm.AddItem “15100037”

cbonpm.AddItem “15100039”

cbonpm.AddItem “15100041”

End Sub

Private Sub cbonpm_Click()

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case “15100018”

nama = “Tri Setia Ningsih”

jurusan = “Sistem Informasi”

Case “1510008”

nama = “Ahmad Yudi”

jurusan = “Sistem Informasi”

Case “15100031”

nama = “Artika Kustriyani”

jurusan = “Sistem Informasi”

Case “15100012”

nama = “Fisuryani”

jurusan = “Sistem Informasi”

Case “15100030”

nama = “Hemin sukmiati”

jurusan = “Sistem Informasi”

Case “15100040”

nama = “Bagas Anggara”

jurusan = “Sistem Informasi”

Case “15100003”

nama = “Renita Fitriandrianti”

jurusan = “Sistem Informasi”

Case “15100001”

nama = “Stevanus Prihanuji”

jurusan = “Sistem Informasi”

Case “15100002”

nama = “Fergiawan Listianto”

jurusan = “Sistem Informasi”

Case “15100004”

nama = “Evi Setyorini”

jurusan = “Sistem Informasi”

Case “15100005”

nama = “Anggi Maharani”

jurusan = “Sistem Informasi”

Case “15100006”

nama = “Oktafiani”

jurusan = “Sistem Informasi”

Case “15100007”

nama = “Desi Yulianti”

jurusan = “Sistem Informasi”

Case “15100009”

nama = “Opi Laraswati”

jurusan = “Sistem Informasi”

Case “15100010”

nama = “Laili Rizkia Putri”

jurusan = “Sistem Informasi”

Case “15100011”

nama = “Tia anggraini”

jurusan = “Sistem Informasi”

Case “15100014”

nama = “Ita Indriani”

jurusan = “Sistem Informasi”

Case “15100015”

nama = “M.Arif Rizki”

jurusan = “Sistem Informasi”

Case “15100017”

nama = “Desi Auliani”

jurusan = “Sistem Informasi”

Case “15100023”

nama = “Anggun Destri Yanti”

jurusan = “Sistem Informasi”

Case “15100024”

nama = “Rizah Anggraeni”

jurusan = “Sistem Informasi”

Case “15100025”

nama = “Rahmat Darmawan”

jurusan = “Sistem Informasi”

Case “15100026”

nama = “Reza Anggara”

jurusan = “Sistem Informasi”

Case “15100027”

nama = “Rio Adi Pradana”

jurusan = “Sistem Informasi”

Case “15100032”

nama = “Intan Ratnasari”

jurusan = “Manajemen Informasi”

Case “15100034”

nama = “Dimas Bima Ananta”

jurusan = “Sistem Informasi”

Case “15100037”

nama = “Jepri Erlamsah”

jurusan = “Sistem Informasi”

Case “15100039”

nama = “Yusuf Sugiyanto”

jurusan = “Sistem Informasi”

Case “15100041”

nama = “Rudi Rizkiyanto”

jurusan = “Sistem Informasi”

End Select

Txtnama.Text = nama

txtjurusan.Text = jurusan

Txtquis.SetFocus

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 nm As Integer

Dim hm As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

na = (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

 

 

 

Capture3333

TUGAS  4

Private Sub Txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim nm As Integer

Dim hm As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

na = (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

 

TUGAS PEMROGRAMAN 1

Tugas 1

perkalian dua bilangan (enter)

tugas diel 2

Private Sub Cmdbersih_Click()

Txt1.SetFocus

Txt1 = “”

Txt2 = “”

Txthasil3 = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

Txthasil3 = Val(Txt1) * Val(Txt2)

End If

End Sub

Tugas 2 pekalian dua bilangan (hitung)

diellllllll 1

Private Sub Cmdbersih_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txthasil3 = “”

End Sub

Private Sub Cmdhitung_Click()
Txthasil3 = Val(Txt1) * Val(Txt2)

End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Txt1_Change()

End Sub

Tugas 3 kalkulator mini (enter)

Capture.JPG

Private Sub Cmdbatal_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txthasil3 = “”
Txt4 = “”
Txt5 = “”
Txthasil6 = “”
Txt7 = “”
Txt8 = “”
Txthasil9 = “”
Txt10 = “”
Txt11 = “”
Txthasil12 = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txthasil3 = “”
Txt4 = “”
Txt5 = “”
Txthasil6 = “”
Txt7 = “”
Txt8 = “”
Txthasil9 = “”
Txt10 = “”
Txt11 = “”
Txthasil12 = “”

End Sub

Private Sub Cmdproses_Click()
If Txt7 = “” Or Txt8 = “” Then
Txthasil3 = Val(Txt1) + Val(Txt2)
Txthasil6 = Val(Txt4) * Val(Txt5)
Txthasil9 = 0
Txthasil12 = Val(Txt10) – Val(Txt11)
Else
Txthasil3 = Val(Txt1) + Val(Txt2)
Txthasil6 = Val(Txt4) * Val(Txt5)
Txthasil9 = Val(Txt7) / Val(Txt8)
Txthasil12 = Val(Txt10) – Val(Txt11)
End If
End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub

Private Sub Txt10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt11.SetFocus
End If
End Sub

Private Sub Txt11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthasil12 = Val(Txt10) – Val(Txt11)
End If
End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt4.SetFocus
Txthasil3 = Val(Txt1) + Val(Txt2)
End If

End Sub

Private Sub Txt4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt5.SetFocus
End If
End Sub

Private Sub Txt5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt7.SetFocus
Txthasil6 = Val(Txt4) * Val(Txt5)
End If
End Sub

Private Sub Txt7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt8.SetFocus
End If
End Sub

Private Sub Txt8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt10.SetFocus
Txthasil9 = Val(Txt7) / Val(Txt8)
End If
End Sub

tugas 4 kalkulator mini (proses)

Capture.JPG 2

Private Sub Cmdbatal_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txthasil3 = “”
Txt4 = “”
Txt5 = “”
Txthasil6 = “”
Txt7 = “”
Txt8 = “”
Txthasil9 = “”
Txt10 = “”
Txt11 = “”
Txthasil12 = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txthasil3 = “”
Txt4 = “”
Txt5 = “”
Txthasil6 = “”
Txt7 = “”
Txt8 = “”
Txthasil9 = “”
Txt10 = “”
Txt11 = “”
Txthasil12 = “”

End Sub

Private Sub Cmdproses_Click()
If Txt7 = “” Or Txt8 = “” Then
Txthasil3 = Val(Txt1) + Val(Txt2)
Txthasil6 = Val(Txt4) * Val(Txt5)
Txthasil9 = 0
Txthasil12 = Val(Txt10) – Val(Txt11)
Else
Txthasil3 = Val(Txt1) + Val(Txt2)
Txthasil6 = Val(Txt4) * Val(Txt5)
Txthasil9 = Val(Txt7) / Val(Txt8)
Txthasil12 = Val(Txt10) – Val(Txt11)
End If
End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus
End If
End Sub

Private Sub Txt10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt11.SetFocus
End If
End Sub

Private Sub Txt11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthasil12 = Val(Txt10) – Val(Txt11)
End If
End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt4.SetFocus
Txthasil3 = Val(Txt1) + Val(Txt2)
End If

End Sub

Private Sub Txt4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt5.SetFocus
End If
End Sub

Private Sub Txt5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt7.SetFocus
Txthasil6 = Val(Txt4) * Val(Txt5)
End If
End Sub

 

tugas 7 perhitungan gaji(proses)tugas 7.JPG

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
Txt4 = Val(Txt1) + Val(Txt2) – Val(Txt3)
Txt5 = Val(Txt4) * 0.1
Txt6 = Val(Txt4) – Val(Txt5)

End Sub

Private Sub Cmdulang_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
Txt4 = “”
Txt5 = “”
Txt6 = “”

End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus

End If
End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt3.SetFocus
End If
End Sub

tugas 8 perhitungan gaji(enter)tugas 8.JPG

 

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
Txt4 = Val(Txt1) + Val(Txt2) – Val(Txt3)
Txt5 = Val(Txt4) * 0.1
Txt6 = Val(Txt4) – Val(Txt5)

End Sub

Private Sub Cmdulang_Click()
Txt1.SetFocus
Txt1 = “”
Txt2 = “”
Txt3 = “”
Txt4 = “”
Txt5 = “”
Txt6 = “”

End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2.SetFocus

End If
End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt3.SetFocus
End If
End Sub

Private Sub Txt3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt4 = Val(Txt1) + Val(Txt2) – Val(Txt3)
Txt5 = Val(Txt4) * 0.1
Txt6 = Val(Txt4) – Val(Txt5)
End If
End Sub

 

Tugas 2 Visual Basic pemograman 1

Capture1

Private Sub Cmdbatal_Click()

Txtnpm.SetFocus

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

Txtps = “”

Txtjr = “”

Txtag = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

Txtnpm.SetFocus

Txtnpm = “”

Txtnama = “”

Txtalamat = “”

Txtps = “”

Txtjr = “”

Txtag = “”

End Sub

 

Private Sub Txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtps.SetFocus

End If

End Sub

 

Private Sub Txtjr_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtag.SetFocus

End If

End Sub

 

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtalamat.SetFocus

End If

End Sub

 

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

 

Private Sub Txtps_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtjr.SetFocus

End If

End Sub

Tugas 1 Visual Basic program 1

Capture2

Private Sub Cdmlgi_Click()

Txtnpm.SetFocus

Txtnpm = “”

Txtnma = “”

Txtalmt = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnpm.SetFocus

Txtnpm = “”

Txtnma = “”

Txtalmt = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

 

Private Sub Txtalmt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtalmt.SetFocus

End If

End Sub

 

Private Sub Txtnma_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtalmt.SetFocus

End If

End Sub

 

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnma.SetFocus

End If

End Sub

Wacom Luncurkan Tablet untuk Pengguna Kreatif

Wacom Luncurkan Tablet untuk Pengguna Kreatif

Produsen tablet grafis asal Jepang memperkenalkan empat model generasi terbaru dari seri Intuos, meliputi Intuos Draw, Intuos Art, Intuos Comic, dan Intuos Photo. Wacom menggandeng PT. Datascrip sebagai distributor produk mereka.

Selain dilengkapi dengan perangkat lunak kreatif yang bisa diunduh secara gratis, lini produk ini juga hadir dalam dua ukuran yakni kecil dan sedang. Di samping itu, terdapat dua versi yakni Pen Only (penggunaan Wacom dengan pena saja) dan Pen dan Touch (penggunaan Wacom bisa menggunakna pena dan sentuhan).

Seri ini juga dilengkapi aksesoris berupa Wireless Accessory Kit, yaitu perangkat koneksi nirkabel yang memungkinkan penggunaan Wacom tanpa kabel USB yang dijual secara terpisah. “Wacom telah menghabiskan banyak waktu bekerjasama dengan para konsumennya untuk merancang ulang produk Intuos agar dapat memenuhi lebih banyak kebutuhan penggunanya,”ujar Jeremy Hermanto, Division Manager PT Datascrip dalam keterangan rilis kepada Okezone, Jumat (6/11/2015).

Selain itu, produk baru Intuos ini hadir dengan fitur 1024 tingkat kepekaan tekanan pena guna meningkatkan kualitas gambar desain dan foto. Kemudian, kemampuan multisentuh yang memungkinkan pengguna memperbesar dan merotasi karya hanya dengan gerakan jari.

Sumber : ekozone.com