MAHASISWA

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama.Text = “” txtnpm.Text = “” txtjurusan.Text = “” txtstudi.Text = “” txttahun.Text = “” txtnurut.Text = “” txtbp.Text = “” txtterbilang.Text = “” End Sub Private Sub cmdkeluar_Click() Dim testmsg As Integer testmsg = MsgBox(“anda yakin mau keluar”, vbYesNo) End End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama.Text = “” txtnpm.Text […]

Read more "MAHASISWA"

NPM

Private Sub Cmdbatal_Click() Txtnama.SetFocus Txtnama.Text = “” Txtnpm.Text = “” Txtkelas.Text = “” Txtjur.Text = “” Txtprodi.Text = “” Txttm.Text = “” Txtnorut.Text = “” Txtup.Text = “” Txtbps.Text = “” Txtub.Text = “” Txtbpa.Text = “” Txttb.Text = “” End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdlagi_Click() Txtnama.SetFocus Txtnama.Text = “” […]

Read more "NPM"

PENJUALAN LAPTOP

Private Sub Cbokode_Click() Dim kk, jk, hs As String Select Case Cbokode.Text Case “Asus A43SA” Txtjk.Text = “Asus A53SA-VX090D” Txths.Text = “5500000” Case “Asus A43SD” Txtjk.Text = “Asus A43SD-VX052D” Txths.Text = “4500000” Case “Asus A43SJ” Txtjk.Text = “Asus A43SJ-VX792D” Txths.Text = “4300000” Case “Asus A43TA” Txtjk.Text = “Asus A43TA-VX034D ” Txths.Text = “4900000” Case “Asus […]

Read more "PENJUALAN LAPTOP"

PEGAWAI

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Txtmnk.SetFocus Txtmnk.Text = “” Txtmn.Text = “” Txtg.Text = “” Txtks.Text = “” Txts.Text = “” Txtt.Text = “” Txtj.Text = “” Txtb.Text = “” Txtgp.Text = “” Txttn.Text = “” Txttg.Text = “” End Sub Private Sub cmdproses_Click() Dim r As String r = Mid(Txtmn.Text, […]

Read more "PEGAWAI"

KODE BUKU

Private Sub cmdbatal_Click() cbokb.SetFocus cbokb.Text = “” txtjb.Text = “” txtpeng.Text = “” txttt.Text = “” txtpen.Text = “” txth.Text = “” End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokb.SetFocus cbokb.Text = “” txtjb.Text = “” txtpeng.Text = “” txttt.Text = “” txtpen.Text = “” txth.Text = “” End Sub Private […]

Read more "KODE BUKU"

tugas 4

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 […]

Read more "tugas 4"

tugas 3

KODE SORCE TUGAS 1     PROGRAM PERHITUNGAN GAJI Private Sub exit_Click() End End Sub Private Sub Proses_Click() Text4.Text = Val(Text1.Text) + Val(text2.Text) – Val(text3.Text) Text5.Text = Val(text4.Text) * (0.1) Text6.Text = Val(text4.Text) – Val(text5.Text) End Sub Private Sub Ulang_Click() text1 = “” text 2= “” text3= “” text4 = “” text5 = “” text6 = “” […]

Read more "tugas 3"