Arsip Bulanan: Februari 2015

J. PROGAM VISUAL BASIC 14

J. PROGAM 14 Private Sub Cmdbatal_Click() Txtnama.SetFocus Txtnama.Text = “” Txtnpm.Text = “” txtkelas.Text = “” txtjur.Text = “” txtprodi.Text = “” txttm.Text = “” txtnu.Text = “” txtup.Text = “” txtbps.Text = “” txtub.Text = “” txtbp.Text = “” … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

I. PROGAM VISUAL BASIC PT. YAZID BR JAYA

I. PROGAM 13 Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() Txtmnk.SetFocus Txtmnk.Text = “” Txtmn.Text = “” Txtgol.Text = “” Txtks.Text = “” Txts.Text = “” Txtt.Text = “” Txtj.Text = “” Txtb.Text = “” Txtgapok.Text = “” … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

H. PROGAM VISUAL BASIC DATA BUKU STMIK PRINGSEWU

H. PROGAM 12 Private Sub Cmdbatal_Click() txtkode.SetFocus txtkode.Text = “” txtjb.Text = “” txtpeng.Text = “” txttt.Text = “” txtpenerbit.Text = “” txtharga.Text = “” End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdlagi_Click() txtkode.SetFocus txtkode.Text = “” … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

G. PROGAM VISUAL BASIC 11

G PROGAM 11 Private Sub Cmdbatal_Click() txtnama.SetFocus txtnama.Text = “” txtnpm.Text = “” txtjur.Text = “” txtprodi.Text = “” txttm.Text = “” txtnu.Text = “” txtbp.Text = “” End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdlagi_Click() txtnama.SetFocus … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

F. PROGAM VISUAL BASIC ENTRI PENJUALAN KOMPUTER

F. PROGAM 10 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 = … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

E. PROGAM VISUAL BASIC DATA BUKU KAMPUS STMIK PRINGSEWU

E. PROGAM 5 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 = “” … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

D.PROGAM VISUAL BASIC PENJUALAN TIKET KRETA API

D. PROGAM 4 Private Sub Command2_Click() Text1 = “” Text2 = “” Text3 = “” Text4 = “” Text5 = “” Text6 = “” Text1.SetFocus End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command1_Click() If Text1.Text = … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar