tuagas 5

 

Tugas 1 admin mahasiswa

TUGAS NPM 1 INTnpm out

 

Private Sub cmd_proses_click()

Dim x As String

x = Left(txt_npm.Text, 1)

If x = “E” Then

txt_kelas.Text = “Eksekutif”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

 

ElseIf x = “R” Then

txt_kelas.Text = “Reguler”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

 

 

End If

 

txt_tahun.Text = “20” & Mid(txt_npm.Text, 3, 2)

 

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

If x = “1” Then

txt_jurusan.Text = “Sistem Informasi”

 

ElseIf x = “2” Then

txt_jurusan.Text = “Managemen Informatika”

 

ElseIf x = “3” Then

txt_jurusan.Text = “Managemen dan Komp. Akuntansi”

 

End If

 

x = Mid(txt_npm.Text, 6, 2)

If x = “01” Then

txt_program.Text = “Strata Satu”

txt_pendaftaran.Text = “200000”

 

ElseIf x = “02” Then

txt_program.Text = “Diploma Tiga”

txt_pendaftaran.Text = “150000”

 

ElseIf x = “03” Then

txt_program.Text = “Diploma Satu”

txt_pendaftaran.Text = “150000”

 

 

 

End If

x = Left(txt_npm.Text, 1) & Mid(txt_npm.Text, 6, 2)

 

If x = “E” & “01” Then

txt_pendidikan.Text = “1900000”

ElseIf x = “E” & “02” Then

txt_pendidikan.Text = “1650000”

ElseIf x = “E” & “03” Then

txt_pendidikan.Text = “1350000”

ElseIf x = “R” & “01” Then

txt_pendidikan.Text = “1500000”

ElseIf x = “R” & “02” Then

txt_pendidikan.Text = “1250000”

ElseIf x = “R” & “03” Then

txt_pendidikan.Text = “1250000”

 

End If

 

 

txt_urut = Right(txt_npm.Text, 3)

txt_almamater.SetFocus

 

 

End Sub

Private Sub txt_almamater_keypress(keyascii As Integer)

If keyascii = 13 Then

txt_nama.SetFocus

txt_total.Text = Val(txt_pendaftaran.Text) + Val(txt_pendidikan.Text) + Val(txtbangunan.Text) + Val(txt_almamater.Text)

End If

End Sub

Private Sub cmd_batal_click()

txt_nama.SetFocus

txt_nama.Text = “”

txt_npm.Text = “”

txt_kelas.Text = “”

txt_jurusan.Text = “”

txt_program.Text = “”

txt_tahun.Text = “”

txt_urut.Text = “”

txt_pendaftaran.Text = “”

txt_pendidikan.Text = “”

txtbangunan.Text = “”

txt_almamater.Text = “”

txt_total.Text = “”

 

End Sub

Private Sub cmd_lagi_click()

txt_nama.SetFocus

txt_nama.Text = “”

txt_npm.Text = “”

txt_kelas.Text = “”

txt_jurusan.Text = “”

txt_program.Text = “”

txt_tahun.Text = “”

txt_urut.Text = “”

txt_pendaftaran.Text = “”

txt_pendidikan.Text = “”

txtbangunan.Text = “”

txt_almamater.Text = “”

txt_total.Text = “”

 

End Sub

Private Sub cmd_keluar_click()

End

End Sub

Private Sub txt_nama_keypress(keyascii As Integer)

If keyascii = 13 Then

 

txt_npm.SetFocus

End If

End Sub

 

 

 

Tugas 2 npm terbilang

TUGAS 2 .terbilangTERBILANG 0UT

Private Sub batal_Click()

nama.SetFocus

nama = ” ”

npm = ” ”

jurusan = ” ”

prodi = ” ”

tahun = ” ”

nourut = ” ”

pendidikan = ” ”

terbilang.Text = ” ”

End Sub

 

Private Sub nama_Keypress(keyascii As Integer)

If keyascii = 13 Then

npm.SetFocus

End If

End Sub

 

 

Private Sub keluar_Click()

End

End Sub

 

Private Sub lagi_Click()

nama.SetFocus

nama = ” ”

npm = ” ”

jurusan = ” ”

prodi = ” ”

tahun = ” ”

nourut = ” ”

pendidikan = ” ”

terbilang.Text = ” ”

End Sub

 

 

Private Sub proses_Click()

Dim S As String

tahun.Text = “20” & Left(npm.Text, 2)

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

If S = “1” Then

jurusan.Text = “Sistem Informasi”

ElseIf S = “2” Then

jurusan.Text = “Tehnik informasi”

ElseIf S = “3” Then

jurusan.Text = “Manajemen Informatika”

ElseIf S = “4” Then

jurusan.Text = “Manajemen & Komp. Akuntansi”

 

End If

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

If S = “01” Then

prodi.Text = “STRATA SATU”

pendidikan.Text = “1950000”

terbilang.Text = “satu juta sembilan ratus lima puluh ribu rupiah”

ElseIf S = “02” Then

prodi.Text = “DIPLOMA EMPAT”

pendidikan.Text = “1750000”

terbilang.Text = “satu juta tujuh ratus lima puluh ribu rupiah”

ElseIf S = “03” Then

prodi.Text = “DIPLOMA TIGA”

pendidikan.Text = “1650000”

terbilang.Text = “satu juta enam ratus lima puluh ribu rupiah”

ElseIf S = “04” Then

prodi.Text = “DIPLOMA SATU”

pendidikan.Text = “1450000”

terbilang.Text = “satu juta empat ratus lima puluh ribu rupiah”

End If

nourut.Text = Right(npm.Text, 3)

End Sub

Private Sub npm_keypress(keyascii As Integer)

If keyascii = 13 Then

nama.SetFocus

Dim S As String

tahun.Text = “20” & Left(npm.Text, 2)

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

If S = “1” Then

jurusan.Text = “Sistem Informasi”

ElseIf S = “2” Then

jurusan.Text = “Tehnik informasi”

ElseIf S = “3” Then

jurusan.Text = “Manajemen Informatika”

ElseIf S = “4” Then

jurusan.Text = “Manajemen & Komp. Akuntansi”

 

End If

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

If S = “01” Then

prodi.Text = “STRATA SATU”

pendidikan.Text = “1950000”

terbilang.Text = “satu juta sembilan ratus lima puluh ribu rupiah”

ElseIf S = “02” Then

prodi.Text = “DIPLOMA EMPAT”

pendidikan.Text = “1750000”

terbilang.Text = “satu juta tujuh ratus lima puluh ribu rupiah”

ElseIf S = “03” Then

prodi.Text = “DIPLOMA TIGA”

pendidikan.Text = “1650000”

terbilang.Text = “satu juta enam ratus lima puluh ribu rupiah”

ElseIf S = “04” Then

prodi.Text = “DIPLOMA SATU”

pendidikan.Text = “1450000”

terbilang.Text = “satu juta empat ratus lima puluh ribu rupiah”

End If

nourut.Text = Right(npm.Text, 3)

End If

End Sub

 

Tugas 3 data laptop

data laptop inptdata laptopt out

 

Private Sub Form_Load()

Cbokode.AddItem “Asus A43SA”

Cbokode.AddItem “Asus A43SD”

Cbokode.AddItem “Asus A43SJ”

Cbokode.AddItem “Asus A43TA”

Cbokode.AddItem “Asus N43SL”

Cbokode.AddItem “Apple MD311”

Cbokode.AddItem “Apple MD313”

Cbokode.AddItem “Apple MD313”

Cbokode.AddItem “Apple MD322”

Cbokode.AddItem “Apple MC965”

End Sub

 

Private Sub Cbokode_Click()

Dim Merk, Satuan As String

Select Case Cbokode.Text

Case “Asus A43SA”

Merk = “Asus A43SA-VX090D”

Satuan = “5500000”

 

Case “Asus A43SD”

Merk = “Asus A43SD-VX052D”

Satuan = “4500000”

 

Case “Asus A43SJ”

Merk = “Asus A43SJ-VX792D”

Satuan = “4300000”

 

Case “Asus A43TA”

Merk = “Asus A43TA-VX034D”

Satuan = “4900000”

 

Case “Asus N43SL”

Merk = “Asus N43SL-VX264D”

Satuan = “4300000”

 

Case “Apple MD311”

Merk = “Apple MacBook Pro MD311”

Satuan = “19300000”

 

Case “Apple MD313”

Merk = “Apple MacBook Pro MD313”

Satuan = “24200000”

 

Case “Apple MD314”

Merk = “Apple MacBook Pro MD314”

Satuan = “11900000”

 

Case “Apple MD322”

Merk = “Apple MacBook Pro MD322”

Satuan = “14700000”

 

Case “Apple MC965”

Merk = “Apple MacBook Air MC965”

Satuan = “21300000”

End Select

 

Txtmerk.Text = Merk

Txths.Text = Satuan

Txtjj.SetFocus

End Sub

 

Private Sub Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthp.SetFocus

Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)

End If

 

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = 0.15 * Val(Txthp.Text)

 

Case Is > 135000000

Txtdis.Text = 0.1 * Val(Txthp.Text)

 

Case Is > 130000000

Txtdis.Text = 0.05 * Val(Txthp.Text)

 

Case Is > 125000000

Txtdis.Text = 0.02 * Val(Txthp.Text)

End Select

 

Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)

End Sub

 

Private Sub Cmd_Proses_Click()

Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = 0.15 * Val(Txthp.Text)

 

Case Is > 135000000

Txtdis.Text = 0.1 * Val(Txthp.Text)

 

Case Is > 130000000

Txtdis.Text = 0.05 * Val(Txthp.Text)

 

Case Is > 125000000

Txtdis.Text = 0.02 * Val(Txthp.Text)

End Select

 

Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)

End Sub

 

 

Private Sub Cmd_Ulang_Click()

Cbokode.SetFocus

Txtmerk = “”

Txths = “”

Txtjj = “”

Txthp = “”

Txtdis = “”

Txttb = “”

End Sub

 

Private Sub Cmd_Exit_Click()

End

End Sub

Tugas 4  data buku

DATA BUKU INPT DATA BUKU OUT

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdbatal_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjb.Text = “”

Txtp.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txthg.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim s As String

Txttahun.Text = “20” & Mid(Txtkb.Text, 7, 2)

s = Mid(Txtkb.Text, 3, 3)

If s = “SIM” Then

Txtjb.Text = “Sistem Informasi Managemen”

Txtp.Text = “Andra Setiawan”

Txthg.Text = “75900”

 

ElseIf s = “EDP” Then

Txtjb.Text = “elektronik data Procesing”

Txtp.Text = “Desi Istiqomah”

Txthg.Text = “62000”

 

ElseIf s = “MNJ” Then

Txtjb.Text = “Manajemen”

Txtp.Text = “Sandy Fitrijaya”

Txthg.Text = “42000”

 

ElseIf s = “CDR” Then

Txtjb.Text = “Corel Draw”

Txtp.Text = “Tri Indah Sari”

Txthg.Text = “53000”

 

ElseIf s = “RPL” Then

Txtjb.Text = “Rekaya Perangkat Lunak ”

Txtp.Text = “Ernita Sari”

Txthg.Text = “83000”

 

 

End If

s = Mid(Txtkb.Text, 1, 1)

If s = “A” Then

Txtpenerbit.Text = “Andi offset yogyakarta”

 

ElseIf s = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

 

ElseIf s = “S” Then

Txtpenerbit.Text = “Salemba Empat”

 

ElseIf s = “E” Then

Txtpenerbit.Text = “Elek Media Komputindo”

 

ElseIf s = “M” Then

Txtpenerbit.Text = “Maxicom”

 

End If

 

End Sub

 

 

Private Sub Cmdlg_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjb.Text = “”

Txtp.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txthg.Text = “”

End Sub

TUGAS 5 PT PULANG PETANG SH

PT INPT

OUT PUT

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

 

 

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtnik.Text, 4)

txttahun.Text = “2015”

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

If s = “A” Then

txtgol.Text = “A”

txtjabatan.Text = “MANAJER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf s = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “KA.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf s = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “STAF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

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

If s = “S” Then

txtkode.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkode.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “J” Then

txtkode.Text = “J”

txtstatus.Text = “JANDA”

ElseIf s = “D” Then

txtkode.Text = “D”

txtstatus.Text = “DUDA”

 

End If

s = Right(txtnik.Text, 3)

If s = “KEU” Then

txtbagian.Text = “ACOUNTING”

 

ElseIf s = “ADM” Then

txtbagian.Text = “Administrasi”

 

ElseIf s = “SDM” Then

txtbagian.Text = “General affair”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

 

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

 

 

End If

 

txttoga.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

 

End Sub

 

Private Sub cmdbatal_click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

 

tugas 4

TUGAS 1       ( HURUF MUTU)

hrf mutu inptHRF MUTU OUTPUT 2

Private Sub Cbonpm_Click()

Dim nama, jurusan As String

Select Case cbonpm.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub Form_Load()

cbonpm.AddItem “09100027”

cbonpm.AddItem “09200048”

cbonpm.AddItem “09300024”

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 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 NA 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 txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim NA 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 2 ( Golongan Gaji )

gaji dosen inpt gaji dosen output

Gambar

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

Public Sub kosong()

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

Tugas 3(npm 4digit)

NPM 4 DGT INPTNpm 4 d outp

Private Sub batal_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

End Sub

Private Sub Form_Activate()

txt1.SetFocus

txt1.Text = “”

txt2.Text = “”

txt3.Text = “”

txt4.Text = “”

txt5.Text = “”

txt6.Text = “”

End Sub

Private Sub txt1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txt2.SetFocus

End If

End Sub

Private Sub keluar_Click()

End

End Sub

Private Sub lagi_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

End Sub

Private Sub proses_Click()

Dim S As String

txt5.Text = “20” & Left(txt2.Text, 2)

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

If S = “1” Then

txt3.Text = “Sistem Informasi”

ElseIf S = “2” Then

txt3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

txt3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

txt3.Text = “Manajemen & Komp. Akuntansi”

End If

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

If S = “01” Then

txt4.Text = “Strata Satu”

ElseIf S = “02” Then

txt4.Text = “Diploma Tiga”

ElseIf S = “03” Then

txt4.Text = “Diploma Empat”

ElseIf S = “04” Then

txt4.Text = “Diploma Dua”

End If

txt6.Text = Right(txt2.Text, 3)

End Sub

tugas 4 (npm 3 digit)

N3DITPTN3DTOUT

Gambar

Private Sub batal_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

End Sub

Private Sub Form_Activate()

txt1.SetFocus

txt1.Text = “”

txt2.Text = “”

txt3.Text = “”

txt4.Text = “”

txt5.Text = “”

txt6.Text = “”

End Sub

Private Sub txt1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txt2.SetFocus

End If

End Sub

Private Sub keluar_Click()

End

End Sub

Private Sub lagi_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

End Sub

Private Sub proses_Click()

Dim S As String

txt5.Text = “20” & Left(txt2.Text, 2)

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

If S = “1” Then

txt3.Text = “Sistem Informasi”

txt4.Text = “Strata Satu”

ElseIf S = “2” Then

txt3.Text = “Manajemen Informatika”

txt4.Text = “Diploma Tiga”

ElseIf S = “3” Then

txt3.Text = “Tehnik Informatika”

txt4.Text = “Diploma Empat”

ElseIf S = “4” Then

txt3.Text = “Manajemen & Komp. Akuntansi”

txt4.Text = “Diploma Dua”

End If

txt6.Text = Right(txt2.Text, 3)

End Sub

tugas 5 (KODE BUKU TEXT)

DATA BUKU TXT INTPDATA LAPTOP OUT

Gambar

Private Sub cmdlagi_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdbatal_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttahunterbit.Text = “20” & Mid(txtkodebuku.Text, 5, 2)

S = Left(txtkodebuku.Text, 3)

If S = “SIM” Then

txtjudulbuku.Text = “Sistem Informasi”

txtpengarang.Text = “Fadiya ulfa”

ElseIf S = “EDP” Then

txtjudulbuku.Text = “elektronik data Procesing”

txtpengarang.Text = “Nurul Agustina”

ElseIf S = “MNJ” Then

txtjudulbuku.Text = “Manajemen”

txtpengarang.Text = “Riyan Hidayat”

ElseIf S = “CDR” Then

txtjudulbuku.Text = “Corel Draw”

txtpengarang.Text = “Siti Nurkhotimah”

ElseIf S = “RPL” Then

txtjudulbuku.Text = “Rekaya Perangkat Lunak ”

txtpengarang.Text = “Winda erlianti”

End If

S = Mid(txtkodebuku.Text, 8, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txtharga.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txtharga.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txtharga.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txtharga.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txtharga.Text = “83000”

End If

End Sub

tugas 6 (data buku combo)

Daata buku txt in 111dta buku txt out

gambar

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim s As String

txttt.Text = “20” & Right(cbokode.Text, 2)

s = Mid(cbokode.Text, 3, 3)

If s = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

ElseIf s = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

ElseIf s = “MNJ” Then

txtjb.Text = “Manajemen”

ElseIf s = “CDR” Then

txtjb.Text = “Corel Draw”

ElseIf s = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

End If

s = Left(cbokode.Text, 1)

If s = “A” Then

txtpg.Text = “Yati Nur Oktavia”

txth.Text = “75900”

txtpn.Text = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

txtpg.Text = “Imam Tarmizi”

txth.Text = “620000”

txtpn.Text = “Indah Surabaya”

ElseIf s = “S” Then

txtpg.Text = “Valentina Mariana adiwinanti”

txth.Text = “42000”

txtpn.Text = “Salemba Empat”

ElseIf s = “E” Then

txtpg.Text = “Ryan Suhandi”

txth.Text = “53000”

txtpn.Text = “Elek Media Komputindo”

ElseIf s = “M” Then

txtpg.Text = “Sinta Umpu Singa”

txth.Text = “83000”

txtpn.Text = “Maxicom”

End If

txth.SetFocus

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 (PENJUALAN LAPTOP APLLE)

CaptureDATA LAPTOP OUT

Gambar

Private Sub cbokode_Click()

Dim merk, satuan As String

Select Case cbokode.Text

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

satuan = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

satuan = “15800000”

Case “Apple MC968 MacBook Air”

merk = “Apple MacBook Air MC968”

satuan = “9900000”

Case “Apple MC969 MacBook Air”

merk = “Apple MacBook Air MC969”

satuan = “11900000”

Case “Apple MC700 MacBook Pro”

merk = “Apple MacBook Pro MC700”

satuan = “10800000”

Case “Apple MC721 MacBook Pro”

merk = “Apple MacBook Pro MC721”

satuan = “15900000”

Case “Apple MC723 MacBook Pro”

merk = “Apple MacBook Pro MC723”

satuan = “19300000”

Case “Apple MC724 MacBook Pro”

merk = “Apple MacBook Pro MC724”

satuan = “13700000”

Case “Apple MC311 MacBook Pro”

merk = “Apple MacBook Pro MC311”

satuan = “24200000”

Case “Apple MC313 MacBook Pro”

merk = “Apple MacBook Pro MC313”

satuan = “11900000”

Case “Apple MC314 MacBook Pro”

merk = “Apple MacBook Pro MC314”

satuan = “14700000”

Case “Apple MC318 MacBook Pro”

merk = “Apple MacBook Pro MC318”

satuan = “17600000”

Case “Apple MC322 MacBook Pro”

merk = “Apple MacBook Pro MC322”

satuan = “21300000”

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

satuan = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

satuan = “15800000”

End Select

txtmrt.Text = merk

txths.Text = satuan

txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

txtmrt = “”

txths = “”

txtjj = “”

txthp = “”

txtds = “”

txttb = “”

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp.SetFocus

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

End If

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

Private Sub cmdproses_Click()

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

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”

cbokode.AddItem “Apple MC965 MacBook Air”

cbokode.AddItem “Apple MC966 MacBook Air”

End Sub

TUGAS8(ENTRI PENJUALAN KOMPUTER)

entri data komputer inpt entri dta kmptr out

Gambar

Private Sub cmdhitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

Private Sub Cmdclose_Click()

Unload Me

End Sub

Private Sub cboclose_Click()

Unload Me

End Sub

Private Sub cbohitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

Private Sub Cbokodekomputer_Click()

Dim jeniskomputer, hargasatuan As String

Select Case cbokodekomputer.Text

Case “P205”

jeniskomputer = “Pentium II 500 Mega Hz”

hargasatuan = “1500000”

Case “P308”

jeniskomputer = “Pentium III 800 Mega Hz”

hargasatuan = “2100000”

Case “P310”

jeniskomputer = “Pentium III 1 Giga Hz”

hargasatuan = “3500000”

Case “P415”

jeniskomputer = “Pentium IV 1.5 Giga Hz”

hargasatuan = “4000000”

Case “P417”

jeniskomputer = “Pentium IV 1.7 Giga Hz”

hargasatuan = “4200000”

Case “P419”

jeniskomputer = “Pentium IV 1.9 Giga Hz”

hargasatuan = “5500000”

End Select

txtjeniskomputer.Text = jeniskomputer

txthargasatuan.Text = hargasatuan

txtjumlahjual.SetFocus

End Sub

Private Sub cmdproses_Click()

txthargabayar = Val(txthargapenjualan.Text) – Val(txtdiskon.Text)

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.Text = txthargapenjualan

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

Private Sub Form_Load()

cbokodekomputer.AddItem “P205”

cbokodekomputer.AddItem “P308”

cbokodekomputer.AddItem “P310”

cbokodekomputer.AddItem “P415”

cbokodekomputer.AddItem “P417”

cbokodekomputer.AddItem “P419”

End Sub

Private Sub txthargapenjualan_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

End If

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

Private Sub txthargasatuan_KeyPress(KeyAscii As Integer)

txtjumlahjual.SetFocus

End Sub

Private Sub txtjumlahjual_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.SetFocus

End If

End Sub

Tugas 9(kode tiket)

CaptureKDE TKT OUT PUT

Private Sub cmdproses_click()

Dim S As String

S = (txtkt.Text)

If S = “MUT2212” Then

txtht.Text = “23000”

txtjk.Text = “MUTIARA”

txtjb.Text = “17.00”

txtjt.SetFocus

ElseIf S = “BIM2212” Then

txtht.Text = “50000”

txtjk.Text = “BIMA”

txtjb.Text = “16.00”

txtjt.SetFocus

ElseIf S = “EKO2212” Then

txtht.Text = “35000”

txtjk.Text = “EKONOMI”

txtjb.Text = “19.00”

txtjt.SetFocus

ElseIf S = “SEN2212” Then

txtht.Text = “75000”

txtjk.Text = “SENJA”

txtjb.Text = “20.00”

txtjt.SetFocus

End If

End Sub

Private Sub txtjt_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim A, B, C As Single

A = txtht.Text

B = txtjt.Text

C = B * A

txttp.Text = C

End If

End Sub

Private Sub Cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttp.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

TUGAS 3

tugas 1 option and chek

GMBR FONT CLOR

KODE SOURCE

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Option1_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()

Label2.ForeColor = vbRed

End Sub

Private Sub Option3_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Check1_Click()

Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

Label2.FontItalic = Check2.Value

End Sub

Private Sub Check3_Click()

Label2.FontUnderline = Check3.Value

End Sub

Private Sub Check4_Click()

Label2.FontStrikethru = Check4.Value

End Sub

FONY OUTPUT

TUGAS 2  PROGRAM PERHITUNGAN GAJI

GMBR GAJI POIUYT

KODE SOURCE

Private Sub cmdKeluar_Click()

End

End Sub

Private Sub cmdProses_Click()

txtD.Text = Val(TxtA.Text) + Val(txtB.Text) – Val(txtC.Text)

txtE.Text = Val(txtD.Text) * (0.1)

txtF.Text = Val(txtD.Text) – Val(txtE.Text)

End Sub

Private Sub cmdUlang_Click()

TxtA = “”

txtB = “”

txtC = “”

txtD = “”

txtE = “”

txtF = “”

End Sub

Private Sub txtA_keypress(keyascii As Integer)

If keyascii = 13 Then

txtB.SetFocus

End If

End Sub

Private Sub txtB_keypress(keyascii As Integer)

If keyascii = 13 Then

txtC.SetFocus

End If

End Sub

Private Sub txtC_keypress(keyascii As Integer)

If keyascii = 13 Then

txtD.Text = Val(TxtA) + Val(txtB) – Val(txtC)

txtE.Text = Val(txtD) * 0.1

txtF.Text = Val(txtD) – Val(txtE)

End If

End Sub

OUTPUT GMBR GAJI

TUGAS 3 (PROGRAM FONT AND STYLE)

warna

KODE SOURCE

Private Sub optblue_click()

lblTeks.ForeColor = vbBlue

End Sub

Private Sub optRed_click()

lblTeks.ForeColor = vbRed

End Sub

Private Sub optGreen_click()

lblTeks.ForeColor = vbGreen

End Sub

Private Sub optyellow_click()

lblTeks.ForeColor = vbYellow

End Sub

Private Sub chkBold_click()

If ChkBold.Value = 1 Then

lblTeks.FontBold = True

Else

lblTeks.FontBold = False

End If

End Sub

Private Sub chkItalic_click()

If Chkitalic.Value = 1 Then

lblTeks.FontItalic = True

Else

lblTeks.FontItalic = False

End If

End Sub

Private Sub chkUnderline_click()

If ChkUnderline.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

Private Sub chkStrikethru_click()

If chkStrikethru.Value = 1 Then

lblTeks.FontStrikethru = True

Else

lblTeks.FontStrikethru = False

End If

End Sub

Private Sub cmdExit_click()

End

End Sub

Untitled

TUGAS 2 (PEMBUATAN PROGRAM)

 

TUGAS     BAHASA     PEMROGRAMAN

STMK

 

 

DI SUSUN OLEH

NAMA                = ABDUL LATIF

NPM                    = 14100074

KELAS               =WEBSITE 3 (EXECUTIVE)

JURUSAN          =SISTEM INFORMASI( S1)

 

 

 

 

 

 

Tugas 1( program data buku )

TGS1

DENGAN MENGGUNKAN KODE SOURCE=

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Text2.SetFocus

End If

 

End Sub

 

Private Sub Text2_keypress(keyascii As Integer)

If keyascii = 13 Then

Text3.SetFocus

End If

End Sub

 

Private Sub text3_keypress(keyascii As Integer)

If keyascii = 13 Then

Text4.SetFocus

 

End If

 

End Sub

 

Private Sub text4_keypress(keyascii As Integer)

If keyascii = 13 Then

Text5.SetFocus

End If

 

End Sub

Private Sub cmdlg_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

End Sub

 

Private Sub cmdbt_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

End Sub

Private Sub cmdkl_Click()

End

End Sub

GAMBAR HASIL PENGERJAAN =

2 0

 

 

 

 

 

TUGAS 2 (PERKALIAN 2 BILANGAN)

 

T2 I

 

KODE SOURCE=

Private Sub Text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Cmd1_Click(index As Integer)

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

End Sub

Private Sub Text2_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

End If

End Sub

 

 

Private Sub Cmd2_Click(index As Integer)

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

 

End Sub

Private Sub cmd3_click(index As Integer)

End

End Sub

GAMBAR HASIL PENGERJAAN =T20

 

TUGAS (  PERHITUNGAN HARGA SETELAH DISKON 10%

T30

 

KODE SOURCE=

Private Sub cmd1_Click()

Dim A, B, C As Double

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub cmd3_Click()

End

End Sub

 

Private Sub cmd2_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

GAMBAR HASIL =

T31

 

TUGAS 4(PROGRAM KALKULATOR

T41

 

KODE SOURCE=

Private Sub Cmd2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

Private Sub cmd1_click()

Text3.Text = Val(Text1) + Val(Text2)

Text12.Text = Val(Text10) / Val(Text11)

Text6.Text = Val(Text4) – Val(Text5)

Text9.Text = Val(Text7) * Val(Text8)

End Sub

 

Private Sub Cmd4_Click()

End

End Sub

 

Private Sub Cmd3_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

 

 

Private Sub Text1_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Text2.SetFocus

End If

End Sub

 

 

 

 

Private Sub Text4_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text10_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Text11.SetFocus

End If

End Sub

 

Private Sub text2_keypress(keyascii As Integer)

If keyascii = 13 Then

Text3.Text = Val(Text1) + Val(Text2)

End If

 

End Sub

Private Sub text5_keypress(keyascii As Integer)

If keyascii = 13 Then

Text6.Text = Val(Text4) – Val(Text5)

End If

End Sub

Private Sub text8_keypress(keyascii As Integer)

If keyascii = 13 Then

Text9.Text = Val(Text7) * Val(Text8)

End If

End Sub

 

Private Sub text11_keypress(keyascii As Integer)

If keyascii = 13 Then

Text12.Text = Val(Text10) / Val(Text11)

End If

End Sub

GAMBAR HASIL PENGERJAAN=T42

 

tugas

Mengenal Tool Box-Tool Box Didalam Visual Basic …