tutistmikpringsewu

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...

Reporter:  Abdul Aziz 06 November, 2017 DPR mendesak agar Kementerian Kominfo memanggil provider telekomunikasi "Kami tidak bisa memonitor GIF di WhatsApp karena konten di WhatsApp  memiliki enkripsi  end-to-end," demikian keterangan pihak WhastApp. tirto.id  -  WhatsApp akhirnya buka suara terkait konten GIF bermuatan pornografi yang menuai polemik dalam dua hari terakhir ini. Pihak WhatsApp mengaku sudah melakukan koordinasi dengan pemerintah setelah perangkat aplikasinya itu mendapat protes dari konsumen. “Kami telah berkoordinasi dengan pemerintah Indonesia untuk secara langsung bekerja sama dengan layanan pihak ketiga tersebut dalam memonitor konten mereka,” kata juru bicara WhatsApp dalam keterangan pers, seperti dikutip  Antara , Senin (6/11/2017). WhatsApp menyatakan, pihaknya menggunakan layanan dari pihak ketiga untuk fitur GIF di aplikasi berbagi pesan. “Di Indonesia, WhatsApp memungkinkan orang untuk mencari GIF dengan ...

Wakil Ketua DPR RI Fadli Zon. Antara foto/Sigid Kurniawa 06 November, 2017 Wakil Ketua DPR RI Fadli Zon meminta Kemenkominfo untuk memanggil provider  terkait penyebaran konten porno di aplikasi WhatsApp . tirto.id  -  Untuk mencegah adanya penyebaran konten pornografi melalui aplikasi WhatsApp baik di Android maupun IOS, Wakil Ketua DPR RI Fadli Zon meminta agar Kementerian Komunikasi dan Informatika (Kemenkominfo) segera melakukan pemanggilan terhadap penyedia jasa ( provider ) telekomunikasi. "Seharusnya Kementerian Kominfo bisa mengundang seluruh  provider  dan melihat aplikasi Whatsapp ini sejauh mana bisa mencegah konten pornografi," kata Fadli di Gedung Nusantara III, Jakarta, Senin (6/11/2017). Salah satu cara, lanjutnya, agar konten pornografi tidak tesebar di aplikasi WA yang terdapat dalam telepon pintar yakni adanya dukungan dari  provider  telekomunikasi terkait hal tersebut. Ia menekankan agar  provider ...

Reporter:  Ahmad Zaenudin 06 November, 2017 “Mereka [WhatsApp] harus segera menindaklanjuti, kalau tidak kami 'Telegramkan'  WhatsApp,”  ucap Samuel Kominfo langsung memblokir 6 domain name server (DNS) yang berhubungan  dengan Tenor. tirto.id  -  Kementerian Komunikasi dan Informatika (Kominfo) mengancam akan memblokir aplikasi WhatsApp, milik Facebook, apabila tidak menindaklanjuti surat peringatan dari pemerintah terkait dengan adanya konten berbau pornografi. “Mereka [WhatsApp] harus segera menindaklanjuti, kalau tidak kami  'Telegramkan' [blokir] WhatsApp ,” ucap Samuel. Samuel menuturkan bahwa pihak Kominfo, hingga Senin siang, telah mengirim tiga kali surat peringatan pada Facebook. “Dua kali dua puluh empat jam setelah notice dikirim harus segera direspons, notice terakhir (kami kirim) Senin pagi,” ucap Samuel. Pada akhir pekan kemarin, sebuah pesan berantai soal adanya konten berbau pornografi tersembunyi d...