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…

Tugas Pemograman 1 (Membuat Style Font, Check Box, Combo Box)

Pogram 1 (Membuat font style) tampilan program 1 Source code program 1 Private Sub ChkBold_Click() If ChkBold.Value = 1 Then Lblban.FontBold = True Else Lblban.FontBold = False End If End Sub Private Sub ChkItalic_Click() If ChkItalic.Value = 1 Then Lblban.FontItalic = True Else Lblban.FontItalic = False End If End Sub Private Sub ChkStrik_Click() If ChkStrik.Value…

Tugas Pemograman 1

Program 1 Tugas 1 Source Code Private Sub tya1_keypress(keyascii As Integer) If keyascii = 13 Then Tya2.SetFocus End If End Sub Private Sub tyabersih_Click() tya1.SetFocus tya1 = ” ” Tya2 = ” ” Tya3 = ” ” Tyahasil = ” ” End Sub Private Sub tyahitung_Click() Tya3 = Val(tya1) * Val(Tya2) End Sub Private Sub…

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…