tutistmikpringsewu

Private Sub cmdbatal_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdlagi_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(txtkode, 3) If A = "SIM" Then txtjudul = "Sistem Informasi Manajemen" txtpengarang = "Fadiya Ulfa" txtharga = "75900" ElseIf A = "EDP" Then txtjudul = "Elektronik Data Processing" txtpengarang = "Nurul Agustina" txtharga = "62000" ElseIf A = "MNJ" Then txtjudul = "Manajemen" txtpengarang = "Rian Hidayat" txtharga = "42000" ElseIf A = "CDR" Then txtjudul = "Cor...

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttp = "" txtkt.SetFocus End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkt, 3) If B = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf B = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf B = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf B = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If txtjt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttp = Val(txtht) * (txtjt) End If End Sub

Private Sub cmdbatal_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim S As String txttahun = Left(txtnik, 4) S = Mid(txtnik, 5, 1) If S = "A" Then txtgolongan = "A" txtjabatan = "Manajer" txtgaji = "4000000" t...

Private Sub cbokode_Change() Select Case cbokode Case "A-SIM-01" Case "I-EDP-02" Case "S-MNJ-03" Case "E-CDR-04" Case "M-RPL-05" End Select End Sub Private Sub cmdbatal_Click() cbokode = "" txtjb = "" txtpg = "" txtth = "" txtpn = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjb = "" txtpg = "" txtth = "" txtpn = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(cbokode, 1) If A = "A" Then txtpn = "Andi Offset Yogyakarta" ElseIf A = "I" Then txtpn = "Indah Surabaya" ElseIf A = "S" Then txtpn = "Salemba Empat" ElseIf A = "E" Then txt...

Private Sub Cbokode_click() Dim merk, hs As String Select Case Mid(Cbokode, 7, 5) Case Is = "mc965" merk = "apple macbook air mc965" hs = "12800000" Case Is = "mc966" merk = "apple macbook air mc966" hs = "15800000" Case Is = "mc968" merk = "apple macbook air mc968" hs = "9900000" Case Is = "mc969" merk = "apple macbook air mc969" hs = "11900000" Case Is = "mc700" merk = "apple macbook pro mc700" hs = "18800000" Case Is = "mc721" merk = "apple macbook pro mc721" hs = "15900000" Case Is = "mc723" merk = "apple macbook pro mc723" hs = "19300000" Case Is = "mc724" merk = "apple macbook pro mc724" hs = "13700000" Case Is = "mc311" merk = "apple macbook pro mc311" hs = "24200000" Case Is = ...

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtju.Text = "" txtps.Text = "" txttm.Text = "" txtnu.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtju.Text = "" txtps.Text = "" txttm.Text = "" txtnu.Text = "" End Sub Private Sub cmdproses_Click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm.Text, 3, 1) If S = "1" Then txtju.Text = "Sistem Informasi" ElseIf S = "2" Then txtju.Text = "Manajemen Informatika" ElseIf S = "3" Then txtju.Text = "Tehnik Informatika" ElseIf S = "4" Then txtju.Text = "Manajemen & Komp. Akuntansi" End If S = Mid...

Private Sub Cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Cbogolongan.Text Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 2000000 tunjangan = 200000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok.Text = gapok txttunjangan.Text = tunjangan txtpajak.Text = pajak txttt.Text = total - pajak End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() kosong End Sub Private Sub Form_Load() Cbogolongan.AddItem "I" Cbogolongan.AddItem "II" Cbogolongan.AddItem "III" Cbogolongan.AddItem "IV" End Sub Private Sub txtndin_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnp.SetFocus End If End Sub

Private Sub batal_Click() cbonpm.SetFocus cbonpm.Text = "" txtmhs.Text = "" txtjr.Text = "" txtnq.Text = "" txtnt.Text = "" txtut.Text = "" txtua.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cbonpm_Click() Dim nama, jurusan, hm As String  Select Case cbonpm.Text Case "17100031" nama = "TUTI MULYANI" jurusan = "Sistem Informasi" Case "17100023" nama = "Danag Pandu Aji" jurusan = "Sistem Informasi" Case "17100024" nama = "Ayunda Mugiarsih" jurusan = "Sistem Informasi" Case "17100030" nama = "Fadli Hidayat" jurusan = "Sistem Informasi" Case "17100026" nama = "Fitri Indah Tria Nanda" jurusan = "Sistem Informasi" Case "17100027" nama = "Dede Andriyansyah" jurusan = "Sistem...

Private Sub batal_Click() cbonpm.SetFocus cbonpm.Text = "" txtmhs.Text = "" txtjr.Text = "" txtnq.Text = "" txtnt.Text = "" txtut.Text = "" txtua.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cbonpm_Click() Dim nama, jurusan, hm As String  Select Case cbonpm.Text Case "17100031" nama = "Tuti Mulyani" jurusan = "Sistem Informasi" Case "17100023" nama = "Danang Pandu Aji" jurusan = "Sistem Informasi" Case "17100024" nama = "Ayunda Mugiarsih" jurusan = "Sistem Informasi" Case "17100030" nama = "Fadli Hidayat" jurusan = "Sistem Informasi" Case "17100026" nama = "Fitri Indah Tria Nanda" jurusan = "Sistem Informasi" Case "17100027" nama = "Dede Andriyansyah" jurusan = "Sistem Informasi" End Select txtmhs.Tex...

Private Sub Check2_Click() End Sub Private Sub chkgb_Click() If chkgb.Value = 1 Then Label2.FontUnderline = True Else Label2.FontUnderline = False End If End Sub Private Sub chkm_Click() If chkm.Value = 1 Then Label2.FontItalic = True Else Label2.FontItalic = False End If End Sub Private Sub chkt_Click() If chkt.Value = 1 Then lbl2.FontBold = True Else lbl2.FontBold = False End If End Sub 17100031 TUTI MULYANI Private Sub cmdok_Click() lbl2.Coption = txtsesuatu.Text End Sub Private Sub cmdselesai_Click() End End Sub Private Sub Command2_Click() Label2.Caption = Text1.Text End Sub Private Sub opnb_Click() Label2.ForeColor = vbBlue End Sub Private Sub opnh_Click() Label2.ForeColor = vbGreen End Sub Private Sub opnk_Click() Label2.ForeColor = vbYellow End Sub Private Sub opnm_Click() Label2.ForeColor = vbRed End Sub Private Sub Text1_Change() End Sub

Private Sub chkb_Click() If chkb.Value = 1 Then lbl1.fontbold = True Else lbl1.FontStrikethru = False End If End Sub Private Sub chki_Click() If chki.Value = 1 Then lbl1.FontItalic = True Else lbl1.FontItalic = False End If End Sub Private Sub chks_Click() If chks.Value = 1 Then lbl1.FontStrikethru = True Else lbl1.Fontstikrthru = False End If End Sub Private Sub Chku_Click() If chks.Value = 1 Then lbl1.FontUnderline = True Else lbl1.FontUnderline = False End If End Sub Private Sub exit_Click() Unload Me End Sub Private Sub opnb_Click() lbl1.ForeColor = vbBlu End Sub Private Sub opng_Click() lbl1.ForeColor = vbGreen End Sub Private Sub opnr_Click() lbl1.ForeColor = vbRed End Sub Private Sub opny_Click() lbl1.ForeColor = vbYellow End Sub

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdkeluar_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtpt.SetFocus End If Private Sub cmdproses_Click() Txtgk = Val(Txtgp) + Val(Txttj) - Val(Txtpt) Txtpj = Val(Txtgk) * 0.1 Txtgd = Val(Txtgk) - Val(Txtpj) End Sub Private Sub cmdproses_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txttj.SetFocus End If End Sub Private Sub Cmdulang_Click() Txtgp = "" Txttj = "" Txtpt = "" Txtgk = "" Txtpj = "" Txtgd = "" Txtgp.SetFocus End Sub Private Sub Cmdulang_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtgk = Val(Txtgp) + Val(Txttj) - Val(Txtpt) Txtpj = Val(Txtgk) * 0.1 Txtgd = Val(Txtgk) - Val(Txtpj) End If End Sub

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub cmdproses_Click() Txtgk = Val(Txtgp) + Val(Txttj) - Val(Txtpt) Txtpj = Val(Txtgk) * 0.1 Txtgd = Val(Txtgk) - Val(Txtpj) End Sub Private Sub Cmdulang_Click() Txtgp = "" Txttj = "" Txtpt = "" Txtgk = "" Txtpj = "" Txtgd = "" Txtgp.SetFocus End Sub

Private Sub Hitung_Click() textdis = Val(textha) * 0.1 textakh = Val(textha) - Val(textdis) End Sub Private Sub Keluar_Click() Unload Me End Sub Private Sub textha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then textdis = Val(textha) * 0.1 textakh = Val(textha) - Val(textdis) End If End Sub Private Sub Ulangi_Click() textha = "" textdis = "" textakh = "" textha.SetFocus End Sub

Private Sub HITUNG_Click() TXTDS = Val(TXTHA) * 0.1 TXTHAK = Val(TXTHA) - Val(TXTDS) End Sub Private Sub QUIT_Click() Unload Me End Sub Private Sub ULANGI_Click() TXTHA = "" TXTDS = "" TXTHAK = "" TXTHA.SetFocus End Sub

Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal4 = "" txttotal3 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn5) txttotal2 = Val(txtn2) / Val(txtn6) txttotal3 = Val(txtn3) - Val(txtn7) txttotal4 = Val(txtn4) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal4 = "" txttotal3 = "" txtn1.SetFocus End Sub Private Sub txtn6_KeyPress(KeyAscii As Intege...

sebelum di isi. sesudah di isi. Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn2) txttotal2 = Val(txtn3) / Val(txtn4) txttotal3 = Val(txtn5) - Val(txtn6) txttotal4 = Val(txtn7) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub

sebelum di isi. sesudah di isi. Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotal = Val(txtn1) + Val(txtn2) End If End Sub Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then...

sebelum di isi. sesudah di isi. Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txttotal = "" txttotal.SetFocus End Sub Private Sub cmdhitung_Click() txttotal = Val(txtn1) + Val(txtn2) End Sub Private Sub cmdkeluar_Click() Unload Me .

Private Sub BATAL_Click()            tex1 = "" Text2 = "" Text3 = "" Text1.SetFocus End Sub Private Sub LAGI_Click() tex1 = "" Text2 = "" Text3 = "" Text1.SetFocus End Sub Private Sub KELUAR_Click() Unload Me End Sub Private Sub Command1_Click() Text1 = "" Text2 = "" Text3 = "" Text1.SetFocus End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text1.SetFocus End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub command1_Click() txt1 = "" Txt2 = ...

Private Sub Command1_Click() kolom1 = "" kolom2 = "" kolom3 = "" kolom1.SetFocus End Sub Private Sub Command2_Click() kolom1 = "" kolom2 = "" kolom3 = "" kolom1.SetFocus End Sub Private Sub Command3_Click() Unload Me End Sub

Reporter:  Ahmad Zaenudin 29 Oktober, 2017 SIM Card pertama diperkenalkan oleh Hermann Giesecke dan Alphose, dua orang ahli  teknologi asal kota Munchen, Jerman . tirto.id  -  iPod, sebuah perangkat pemutar musik digital, merupakan salah satu barang paling fenomenal yang dihadirkan Apple ke dunia. Perangkat tersebut diperkenalkan pada tahun 2001 oleh mendiang Steve Jobs. Hingga hari ini, 16 tahun berlalu, iPod masih diperjualbelikan secara resmi oleh Apple. Secara kasat mata, hanya perubahan desain yang membedakan iPod masa lalu dengan masa kini. iPod Touch, merupakan transformasi desain iPod di masa lalu yang hadir di masa ini. Yang unik, iPod Touch tak hanya berfungsi semata pemutar musik. Ia lebih-lebih menyerupai smartphone masa kini. Bermacam aplikasi baik untuk berkirim pesan via internet maupun sosial media, gim online, hingga kemampuan berselancar dapat ditemukan melalui iPod Touch. Bagi orang awam sulit membedakan mana iPod Touch dan mana ...

Reporter:  Dipna Videlia Putsanra 03 November, 2017 Gangguan awalnya terjadi di beberapa negara di Eropa WhatsApp sempat mengalami gangguan di beberapa negara di dunia. tirto.id  -  Aplikasi pesan singkat WhatsApp mengalami gangguan. Pengguna tidak dapat mengirim dan menerima pesan satu sama lain. Tidak ada tanda centang dalam pesan, namun hanya lambang 'menghubungkan' dalam bentuk jam. Menurut akun DownDetector, gangguan WhatsApp mulanya terjadi di seluruh Eropa namun tidak menutup kemungkinan masalah ini menyerang pengguna WhatsApp di seluruh dunia. Seperti diwartakan  Metro ,  selain Eropa, laporan terkait gangguan WhatsApp ini juga datang dari India, Singapura, Mozambik, Vietnam, dan Irak. Mereka melaporkan tidak dapat mengakses layanan tersebut. Untuk sementara, mereka harus kembali ke layanan SMS  (short message   service ) atau aplikasi pesan singkat lain dan Facebook. Pengguna WhatsApp...

Reporter:  Aulia Adam 06 November, 2017 Nama ibu kandung sebagai password sudah tak lagi relevan Cerita tentang nama ibu kandung yang sudah tak relevan jadi sandi keamanan. tirto.id  -  “Orang itu bisa dibobol rekeningnya ketika diketahui nama ibu kandungnya,” kata Wahyudi Djafar, Deputi Direktur Riset Lembaga Studi dan Advokasi Masyarakat (ELSAM), di kantornya, 19 Oktober lalu. Hari itu, ia mewakili lembaganya, mengkritisi Peraturan Menteri Komunikasi dan Informatika (Permen Kominfo)  Nomor 14 Tahun 2017 , yang mewajibkan pelanggan kartu seluler (Kartu SIM) untuk meregistrasi ulang nomornya dengan validasi Nomor Induk Kependudukan (NIK) dan Nomor Kartu Keluarga (KK). Selain membeberkan hal apa saja yang perlu diperhatikan pemerintah dan masyarakat tentang regulasi tersebut, Wahyudi juga mengkritisi poin nama ibu kandung yang masih tercecer di dalamnya. Baca juga:   Celah Masalah Aturan Wajib Registrasi Ulang Kartu SIM Ketika Permen Ko...