TUGAS 05-02-2015

KLIK UNTUK DOWNLOAD PANDUAN.DOCX

 

 

FOTO

SOURCE CODE

 

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnik = “”

txtgol = “”

txtkode = “”

txtstatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttun = “”

txttotal = “”

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama = “”

txtnik = “”

txtgol = “”

txtkode = “”

txtstatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttun = “”

txttotal = “”

End Sub

 

Private Sub cmdmulai_Click()

txtnama.Enabled = True

txtnik.Enabled = True

txtgol.Enabled = True

txtkode.Enabled = True

txtstatus.Enabled = True

txttahun.Enabled = True

txtjabatan.Enabled = True

txtbagian.Enabled = True

txtgapok.Enabled = True

txttun.Enabled = True

txttotal.Enabled = True

cmdproses.Enabled = True

cmdlagi.Enabled = True

cmdbatal.Enabled = True

cmdkeluar.Enabled = True

cmdmulai.Enabled = False

txtnama.SetFocus

End Sub

 

Private Sub cmdproses_Click()

txttahun = Left(txtnik.Text, 4)

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

If G = “A” Then

txtgol = “A”

txtjabatan = “Manager”

txtgapok = “4000000”

txttun = “1025000”

ElseIf G = “B” Then

txtgol = “B”

txtjabatan = “Ka. Seksi”

txtgapok = “3500000”

txttun = “975000”

ElseIf G = “C” Then

txtgol = “C”

txtjabatan = “Staff”

txtgapok = “3000000”

txttun = “925000”

End If

S = Mid(txtnik.Text, 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

B = Right(txtnik.Text, 3)

If B = “KEU” Then

txtbagian = “Accounting”

ElseIf B = “ADM” Then

txtbagian = “Administrasi”

ElseIf B = “SDM” Then

txtbagian = “General Affair”

ElseIf B = “EDP” Then

txtbagian = “IT Unit”

ElseIf B = “SPM” Then

txtbagian = “Security”

End If

txttotal = Val(txtgapok.Text) + Val(txttun.Text)

End Sub

 

 

Private Sub txtnama_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnik.SetFocus

End If

End Sub

 

Private Sub txtnik_Change()

 

End Sub

 

BY SULASMI

Iklan

TUGAS 05-02-2015

KLIK UNTUK DOWNLOAD PROGRAM.DOCX

 

 

FOTO

 

SOURCE CODE

 

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtprody.Text = “”

txttahun.Text = “”

txtnomor.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtprody.Text = “”

txttahun.Text = “”

txtnomor.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

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

 

 

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

If S = “1” Then

txtjurusan.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjurusan.Text = “Manajemen Informatika”

ElseIf S = “3” Then

txtjurusan.Text = “Teknik Informatika”

ElseIf S = “4” Then

txtjurusan.Text = “Komputer Akuntansi”

 

End If

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

If S = “00” Then

txtprody.Text = “Strata Satu”

ElseIf S = “01” Then

txtprody.Text = “Diploma Empat”

ElseIf S = “02” Then

txtprody.Text = “Diploma Tiga”

ElseIf S = “03” Then

txtprody.Text = “Diploma Dua”

End If

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

End Sub

 

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtprody.Text = “”

txttahun.Text = “”

txtnomor.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

BY SULASMI

TUGAS 05-02-2015

KLIK UNTUK MENDOWNLOAD PANDUAN.DOCX

 

FOTO

 

SOURCE CODE

 

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtk = “”

txtj = “”

txtps = “”

txttm = “”

txtnu = “”

txtup = “”

txtbps = “”

txtub = “”

txtbpa = “”

txttb = “”

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “Informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtk = “”

txtj = “”

txtps = “”

txttm = “”

txtnu = “”

txtup = “”

txtbps = “”

txtub = “”

txtbpa = “”

txttb = “”

End Sub

 

Private Sub cmdproses_Click()

a = Left(txtnpm.Text, 1)

If a = “R” Or a = “r” Then

txtk = “Reguler”

txtub = “1000000”

ElseIf a = “E” Or a = “e” Then

txtk = “Eksekutif”

txtub = “1250000”

End If

txtbpa = “600000”

txttm = “20” & Mid(txtnpm.Text, 3, 2)

a = Mid(txtnpm.Text, 5, 1)

If a = 1 Then

txtj = “Sistem Informasi”

ElseIf a = 2 Then

txtj = “Manajemen Informatika”

ElseIf a = 3 Then

txtj = “Manajemen dan Komp. Akuntansi”

End If

a = Mid(txtnpm.Text, 6, 2)

If a = “00” Then

txtps = “Strata Satu”

txtup = “200000”

ElseIf a = “01” Then

txtps = “Diploma Tiga”

txtup = “150000”

ElseIf a = “02” Then

txtps = “Diploma Satu”

txtup = “150000”

End If

txtnu = Right(txtnpm.Text, 3)

If txtk = “Eksekutif” And txtps = “Strata Satu” Then

txtbps = “1900000”

ElseIf txtk = “Eksekutif” And txtps = “Diploma Tiga” Then

txtbps = “1650000”

ElseIf txtk = “Eksekutif” And txtps = “Diploma Satu” Then

txtbps = “1350000”

ElseIf txtk = “Reguler” And txtps = “Strata Satu” Then

txtbps = “1500000”

ElseIf txtk = “Reguler” And txtps = “Diploma Tiga” Then

txtbps = “1250000”

ElseIf txtk = “Reguler” And txtps = “Diploma Satu” Then

txtbps = “1250000”

End If

txttb = (Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbpa.Text))

End Sub

 

Private Sub Form_activate()

txtnama.SetFocus

End Sub

 

Private Sub txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

BY SULASMI

TUGAS 05-02-2015

KLIK UNTUK DOWNLOAD PANDUAN.DOCX

 

FOTO tiket

SOURCE CODE

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

 

Private Sub cmdproses_Click()

kt = Left(txtkt.Text, 3)

If kt = “BIM” Then

ht = “50000”

jk = “BIMA”

jb = “16.00”

ElseIf kt = “EKO” Then

ht = “35000”

jk = “EKONOMI”

jb = “19.00”

ElseIf kt = “MUT” Then

ht = “23000”

jk = “MUTIARA”

jb = “17.00”

ElseIf kt = “SEN” Then

ht = “15000”

jk = “SENJA”

jb = “20.00”

End If

txtkt.Text = kt

txtht.Text = ht

txtjk.Text = jk

txtjb.Text = jb

txtjt.SetFocus

End Sub

 

Private Sub txtjt_keypress(Keyascii As Integer)

If Keyascii = 13 Then

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

End If

End Sub

 

BY SULASMI

TUGAS 05-02-2015

KLIK UNTUK DOWNLOAD PANDUAN APLIKASI

 

FOTO

 

SOURCE CODE

 

Private Sub cbokode_Click()

Dim merk, hargasatuan As String

Select Case cbokode.Text

Case “MC965”

merk = “Apple MacBook Air ” & Right(cbokode.Text, 5)

hargasatuan = “12800000”

Case “Asus A43SA”

merk = “Asus A43SA – VX090D ” & Right(cbokode.Text, 5)

hargasatuan = “5500000”

Case “MC966”

merk = “Asus A43SD – VX052D ” & Right(cbokode.Text, 5)

hargasatuan = “4500000”

Case “Asus A43SD”

merk = “Asus A43SJ – VX792D ” & Right(cbokode.Text, 5)

hargasatuan = “4300000”

Case “Asus A43SJ”

merk = “Asus A43TA – VX034D ” & Right(cbokode.Text, 5)

hargasatuan = “4900000”

Case “Asus A43TA”

merk = “Asus N43SL – VX264D ” & Right(cbokode.Text, 5)

hargasatuan = “4300000”

Case “Asus N43SL”

merk = “Apple MacBook Pro MD311 ” & Right(cbokode.Text, 5)

hargasatuan = “19300000”

Case “AppleMD311”

merk = “Apple MacBook Pro MD313 ” & Right(cbokode.Text, 5)

hargasatuan = “24200000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD314 ” & Right(cbokode.Text, 5)

hargasatuan = “11900000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD322 ” & Right(cbokode.Text, 5)

hargasatuan = “14700000”

Case “Apple MD322”

merk = “Apple MacBook Air MC965 ” & Right(cbokode.Text, 5)

hargasatuan = “21300000”

End Select

txtmerk = merk

txths = hargasatuan

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “Informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdmulai_Click()

cbokode.Enabled = True

txtmerk.Enabled = True

txths.Enabled = True

txtjj.Enabled = True

txthp.Enabled = True

txtdis.Enabled = True

txttb.Enabled = True

cmdproses.Enabled = True

cmdlagi.Enabled = True

cmdkeluar.Enabled = True

cmdmulai.Enabled = False

End Sub

 

Private Sub Cmdproses_Click()

 

 

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

If txttb.Text > “140000000” Then

txtdis = Val(txthp.Text) * 0.15

 

ElseIf txthp > ” 135000000″ Then

txtdis = Val(txthp.Text) * 0.1

 

ElseIf txthp > “130000000” Then

txtdis = Val(txthp.Text) * 0.05

 

ElseIf txthp > “125000000 ” Then

txtdis = Val(txthp.Text) * 0.02

 

End If

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

End Sub

 

 

 

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 “AppleMD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MC965”

cbokode.Enabled = False

txtmerk.Enabled = False

txths.Enabled = False

txtjj.Enabled = False

txthp.Enabled = False

txtdis.Enabled = False

txttb.Enabled = False

cmdproses.Enabled = False

cmdlagi.Enabled = False

cmdkeluar.Enabled = False

End Sub

 

BY SULASMI

KLIK UNTUK DOWNLOAD SOURCE CODE

 

FOTO

SOURCE CODE

 

 

Private Sub Combo1_CLICK()

Dim JK, HS As Integer

Select Case Combo1.Text

Case “MC965”

JK = “Pentium II   500 Mega Hz ”

HS = “1500000”

Case “MC966”

JK = “Pentium III 800 Mega Hz ”

HS = “2100000”

Case “MC968”

JK = “Pentium III 1.0 Giga Hz”

HS = “3500000”

Case “MC969”

JK = “Pentium IV 1.5 Giga Hz”

HS = “4000000”

Case “MC700”

JK = “Pentium IV 1.5 Giga Hz”

HS = “4200000”

Case “MC721”

JK = “Pentium IV 1.9 Giga Hz ”

HS = “5500000”

End Select

TextJK.Text = JK

TextHS.Text = HS

TextJJ.SetFocus

End Sub

 

Private Sub CMDkeluar_CLICK()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “Informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub CMDulang_CLICK()

Combo1.SetFocus

Combo1 = “”

TextJK = “”

TextHS = “”

TextJJ = “”

TextHP = “”

TextD = “”

TextHB = “”

 

End Sub

 

Private Sub CMDmulai_Click()

Combo1.Enabled = True

TextD.Enabled = True

TextJK.Enabled = True

TextHS.Enabled = True

TextJJ.Enabled = True

TextHP.Enabled = True

TextHB.Enabled = True

CMDproses.Enabled = True

CMDkeluar.Enabled = True

CMDmulai.Enabled = True

 

End Sub

 

Private Sub Cmdproses_Click()

TextHP.Text = Val(TextJJ) * Val(TextHS)

Select Case TextHP.Text

Case Is > 30000000

TextD.Text = Val(TextHP) * 0.15

Case Is > 25000000

TextD.Text = Val(TextHP) * 0.1

Case Is > 20000000

TextD.Text = Val(TextHP) * 0.5

Case Is > 15000000

TextD.Text = Val(TextHP) * 0.2

 

 

End Select

 

TextHB.Text = Val(TextHP) – Val(TextD)

 

End Sub

 

 

 

Private Sub Form_Load()

Combo1.AddItem “P205”

Combo1.AddItem “P308”

Combo1.AddItem “P310”

Combo1.AddItem “P415”

Combo1.AddItem “P417”

Combo1.AddItem “P419”

 

End Sub

 

BY SULASMI

tugas 05-02-2015

klik untuk download docx. source code

 

laptop apple

SOURCE CODE

 

 

 

 

Private Sub cbokode_Click()

kode = Mid(cbokode.Text, 7, 5)

   If kode = “MC965” Then

   txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

   txths = “12800000”

   ElseIf kode = “MC966” Then

   txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

   txths = “15800000”

   ElseIf kode = “MC968” Then

   txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

   txths = “9900000”

   ElseIf kode = “MC969” Then

   txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)

   txths = “11900000”

   ElseIf kode = “MC700” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “10800000”

   ElseIf kode = “MC721” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “15900000”

   ElseIf kode = “MC723” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “19300000”

   ElseIf kode = “MC724” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “13700000”

   ElseIf kode = “MC311” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “24200000”

   ElseIf kode = “MC313” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “11900000”

   ElseIf kode = “MC314” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “14700000”

   ElseIf kode = “MC318” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “17600000”

   ElseIf kode = “MC322” Then

   txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)

   txths = “21300000”

   End If

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “Informasi”)

   If p = vbOK Then

       End

   End If

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdmulai_Click()

cbokode.Enabled = True

txtmerk.Enabled = True

txths.Enabled = True

txtjj.Enabled = True

txthp.Enabled = True

txtdis.Enabled = True

txttb.Enabled = True

cmdproses.Enabled = True

cmdlagi.Enabled = True

cmdkeluar.Enabled = True

cmdmulai.Enabled = False

End Sub

 

Private Sub Cmdproses_Click()

 

 

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

   If txttb.Text > “140000000” Then

   txtdis = Val(txthp.Text) * 0.15

  

   ElseIf txthp > ” 135000000″ Then

   txtdis = Val(txthp.Text) * 0.1

  

   ElseIf txthp > “130000000” Then

   txtdis = Val(txthp.Text) * 0.05

  

   ElseIf txthp > “125000000 ” Then

   txtdis = Val(txthp.Text) * 0.02

  

   End If

     txttb = Val(txthp.Text) – Val(txtdis.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”

 

cbokode.Enabled = False

txtmerk.Enabled = False

txths.Enabled = False

txtjj.Enabled = False

txthp.Enabled = False

txtdis.Enabled = False

txttb.Enabled = False

cmdproses.Enabled = False

cmdlagi.Enabled = False

cmdkeluar.Enabled = False

End Sub

 

 

 by sulasmi

KLIK UNTUK DOWLOAD PANDUAN SOURCE CODEfoto

SOURCE CODE

 

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub cmdkeluar_Click()

P = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If P = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub txtkode_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim judul, pengarang, penerbit, harga As String

kode = Mid(txtkode.Text, 3, 3)

If kode = “SIM” Then

judul = “Sistem Informasi Manajemen”

pengarang = “Yati Nur Oktavia”

harga = “75900”

ElseIf kode = “EDP” Then

judul = “Elektronik Data Processing”

pengarang = “Imam Tarmizi”

harga = “62000”

ElseIf kode = “MNJ” Then

judul = “Manajemen”

pengarang = “Valentina Mariana Adiwianti”

harga = “42000”

ElseIf kode = “CDR” Then

judul = “Corel Draw”

pengarang = “Rian Suhandi”

harga = “53000”

ElseIf kode = “RPL” Then

judul = “Rekayasa Perangkat Lunak”

pengarang = “Sinta Umpu Singa”

harga = “83000”

End If

txtjudul = judul

txtpengarang = pengarang

txtharga = harga

txttahun = “20” & Right(txtkode.Text, 2)

P = Right(txtkode.Text, 2)

If P = “01” Then

Tahun = “2001”

ElseIf P = “02” Then

Tahun = “2002”

ElseIf P = “03” Then

Tahun = “2003”

ElseIf P = “04” Then

Tahun = “2004”

ElseIf P = “05” Then

Tahun = “2005”

End If

 

P = Left(txtkode.Text, 1)

If P = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

penerbit = “Indah Surabaya”

ElseIf P = “S” Then

penerbit = “Salemba Empat”

ElseIf P = “E” Then

penerbit = “Elex Media Komputindo”

ElseIf P = “M” Then

penerbit = “Maxicom”

End If

 

txtpenerbit = penerbit

End If

End Sub

 

BY MAYOR.MIN@FB/SULASMI

tugas 05-02-2015

FOTO

 

KLIK DISINI UNTUK DOWNLOAD TAUTAN PANDUAN

 

 

 

 

 

Sourc Code

 

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub cmdkeluar_Click()

p = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)

If p = vbOK Then

End

End If

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

 

Private Sub txtkode_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim judul, pengarang, penerbit, harga As String

kode = Mid(txtkode.Text, 3, 3)

If kode = “SIM” Then

judul = “Sistem Informasi Manajemen”

pengarang = “Fadiya Ulfa”

harga = “75900”

ElseIf kode = “EDP” Then

judul = “Elektronik Data Processing”

pengarang = “Nurul Agustina”

harga = “62000”

ElseIf kode = “MNJ” Then

judul = “Manajemen”

pengarang = “Rian Hidayat”

harga = “42000”

ElseIf kode = “CDR” Then

judul = “Corel Draw”

pengarang = “Siti Nurkhotimah”

harga = “53000”

ElseIf kode = “RPL” Then

judul = “Rekayasa Perangkat Lunak”

pengarang = “Winda Erlianti”

harga = “83000”

End If

txttahun = “20” & Right(txtkode.Text, 2)

P = Right(txtkode.Text, 2)

If P = “09” Then

Tahun = “2009”

ElseIf P = “10” Then

Tahun = “2010”

ElseIf P = “11” Then

Tahun = “2011”

ElseIf P = “12” Then

Tahun = “2012”

ElseIf P = “13” Then

Tahun = “2013”

 

End If

 

p = Left(txtkode.Text, 1)

If p = “A” Then

penerbit = “Andi Offset Yogyakarta”

ElseIf p = “I” Then

penerbit = “Indah Surabaya”

ElseIf p = “S” Then

penerbit = “Salemba Empat”

ElseIf p = “E” Then

penerbit = “Elex Media Komputindo”

ElseIf p = “M” Then

penerbit = “Maxicom”

End If

txtjudul = judul

txtpengarang = pengarang

txtharga = harga

txtpenerbit = penerbit

End If

End Sub

tugas

FOTONYA

 

KLIK untuk download tautan PANDUAN

 

 

SOURCE CODE

Private Sub cmdbatal_Click()
txtkode.SetFocus
txtkode = “”
txtjudul = “”
txtpengarang = “”
txttahun = “”
txtpenerbit = “”
txtharga = “”
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“Apakah Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “informasi”)
If p = vbOK Then
End
End If
End Sub

Private Sub cmdlagi_Click()
txtkode.SetFocus
txtkode = “”
txtjudul = “”
txtpengarang = “”
txttahun = “”
txtpenerbit = “”
txtharga = “”
End Sub

Private Sub txtkode_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim judul, pengarang, penerbit, harga As String
kode = Mid(txtkode.Text, 3, 3)
If kode = “SIM” Then
judul = “Sistem Informasi Manajemen”
pengarang = “Fadiya Ulfa”
harga = “75900”
ElseIf kode = “EDP” Then
judul = “Elektronik Data Processing”
pengarang = “Nurul Agustina”
harga = “62000”
ElseIf kode = “MNJ” Then
judul = “Manajemen”
pengarang = “Rian Hidayat”
harga = “42000”
ElseIf kode = “CDR” Then
judul = “Corel Draw”
pengarang = “Siti Nurkhotimah”
harga = “53000”
ElseIf kode = “RPL” Then
judul = “Rekayasa Perangkat Lunak”
pengarang = “Winda Erlianti”
harga = “83000”
End If
txttahun = “20” & Right(txtkode.Text, 2)

P = Right(txtkode.Text, 2)

If P = “01” Then

Tahun = “2001”

ElseIf P = “02” Then

Tahun = “2002”

ElseIf P = “03” Then

Tahun = “2003”

ElseIf P = “04” Then

Tahun = “2004”

ElseIf P = “05” Then

Tahun = “2005”

End If
p = Left(txtkode.Text, 1)
If p = “A” Then
penerbit = “Andi Offset Yogyakarta”
ElseIf p = “I” Then
penerbit = “Indah Surabaya”
ElseIf p = “S” Then
penerbit = “Salemba Empat”
ElseIf p = “E” Then
penerbit = “Elex Media Komputindo”
ElseIf p = “M” Then
penerbit = “Maxicom”
End If
txtjudul = judul
txtpengarang = pengarang
txtharga = harga
txtpenerbit = penerbit
End If
End Sub

Jika kamu membiarkan rasa takut tumbuh lebih besar dari imanmu, maka kamu menghalangi impianmu menjadi kenyataan