Tugas Pemrograman (Data Base 9)

  TUGAS 1 Private Sub CmdBatal_Click() TxtNama.SetFocus TxtNama = “” TxtNik = “” TxtGolongan = “” TxtKodeStatus = “” TxtStatus = “” TxtTahun = “” TxtJabatan = “” TxtBagian = “” TxtGajiPokok = “” TxtTunjangan = “” TxtTotalGaji = “” End Sub   Private Sub CmdKeluar_Click() Unload Me End Sub   Private Sub CmdLagi_Click() TxtNama.SetFocus…

tugas bahasa pemrograman,8 program

TUGAS 1 Private Sub CmdBatal_Click() TxtNama.SetFocus TxtNama = “” TxtNik = “” TxtGolongan = “” TxtKodeStatus = “” TxtStatus = “” TxtTahun = “” TxtJabatan = “” TxtBagian = “” TxtGajiPokok = “” TxtTunjangan = “” TxtTotalGaji = “” End Sub   Private Sub CmdKeluar_Click() Unload Me End Sub   Private Sub CmdLagi_Click() TxtNama.SetFocus TxtNama…

Tugas2. Bahasa Pemrograman

Private Sub TYAJR_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TYAAG.SetFocus End If End Sub   Private Sub TYANPM_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TYANAMA.SetFocus End If End Sub Private Sub TYANAMA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TYAALAMAT.SetFocus End If End Sub Private Sub TYAALAMAT_KeyPress(KeyAscii As Integer) If KeyAscii = 13…

Tugas1. Bahasa Pemrograman

Private Sub Form_Load()   End Sub   Private Sub tyabatal_Click() tyanpm.SetFocus tyanpm = ” ” tyanama = ” ” tyaalamat = ” ” End Sub   Private Sub tyakeluar_Click() End End Sub   Private Sub tyalagi_Click() tyanpm.SetFocus tyanpm = ” ” tyanama = ” ” tyaalamat = ” ” End Sub   Private Sub tyanama_keypress(keyascii…

Walmart Jual Ponsel LG Seharga RP 150 Ribu

AP/Lisa Poole TEMPO.CO, Jakarta – Harga telepon seluler pintar kini terus mengalami penurunan dalam beberapa tahun terakhir. Banyak tersedia ponsel pintar berharga murah dengan spesifikasi rendah yang dapat dimiliki konsumen.   Para produsen yang bersedia berurusan dengan fitur barebones dan spesifikasi rendah dapat dengan mudah menciptakan produk dengan harga terjangkau. Wal-mart perusahaan retail terbesar di…