adisunaryo

Ady Suna Ryo

DATA BASE_VB_DATA MAHASISWA

Private Sub CMDgomangBARU_Click() Data1.Recordset.AddNew TXTgomangNAMA.SetFocus End Sub Private Sub CMDgomangHAPUS_Click() Data1.Recordset.Delete End Sub Private Sub CMDgomangKEL_Click() Unload Me End Sub Private Sub CMDgomangPROSES_Click() Dim S As String TXTgomangTM.Text = “20” … Baca lebih lanjut

Maret 2, 2013 · Tinggalkan komentar

TUGAS 4_VB PENGGAJAN PT. KARYA TUNGGAL MANDIRI

Private Sub CMDgomangKELUAR_Click ( ) Unload Me End Sub _______________________________________________________________________ Private Sub CMDgomangBATAL_Click ( ) TXTgomangNAMA.SetFocus TXTgomangNAMA.Text = ” ” TXTgomangNIK.Text = ” ” TXTgomangGOL.Text = ” ” TXTgomangKS.Text = … Baca lebih lanjut

Februari 1, 2013 · Tinggalkan komentar

TUGAS 4 VB_DATA BUKU PERPUSTAKAAN3

Private Sub CMDgomangBACK_Click ( ) TXTgomangKB.SetFocus TXTgomangKB.Text = ” ” TXTgomangJB.Text = ” ” TXTgomangPNG.Text = ” ” TXTgomangTT.Text = ” ” TXTgomangPNBT.Text = ” ” TXTgomangHARGA.Text = ” ” … Baca lebih lanjut

Februari 1, 2013 · Tinggalkan komentar

TUGAS 4 _VB DATA BUKU PERPUSTAKAAN2

Private Sub CMDgomangBACK_Click ( ) TXTgomangKB.SetFocus TXTgomangKB.Text = ” ” TXTgomangJB.Text = ” ” TXTgomangPNG.Text = ” ” TXTgomangTT.Text = ” ” TXTgomangPNBT.Text = ” ” TXTgomangHARGA.Text = ” ” … Baca lebih lanjut

Februari 1, 2013 · Tinggalkan komentar

TUGAS VB 4_DATA BUKU PERPUSTAKAAN1

  Private Sub CMDgomangBACK_Click ( ) TXTgomangKB.SetFocus TXTgomangKB.Text = ” ” TXTgomangJB.Text = ” ” TXTgomangPNG.Text = ” ” TXTgomangTT.Text = ” ” TXTgomangPNBT.Text = ” ” TXTgomangHARGA.Text = ” … Baca lebih lanjut

Februari 1, 2013 · Tinggalkan komentar

TUGAS 3 VB_NPM MAHASISWA

Private Sub CMDgomangBATAL_Click() TXTgomangNAMA.SetFocus TXTgomangNAMA.Text = “” TXTgomangNPM.Text = “” TXTgomangJRS.Text = “” TXTgomangPRO.Text = “” TXTgomangTM.Text = “” TXTgomangNU.Text = “” End Sub   Private Sub CMDgomangKELUAR_Click() Unload Me … Baca lebih lanjut

Januari 15, 2013 · Tinggalkan komentar

TUGAS 3 VB_FONT COLOR

  Private Sub CHKgomangMIRING_Click() LBLgomangNAMA.FontItalic = CHKgomangMIRING.Value End Sub   Private Sub CHKgomangTEBAL_Click() LBLgomangNAMA.FontBold = CHKgomangTEBAL.Value End Sub   Private Sub CMDgomangOK_Click() LBLgomangNAMA.Caption = TXTgomangTNA End Sub   Private Sub … Baca lebih lanjut

Januari 15, 2013 · Tinggalkan komentar