Annisa

Private Sub Biru_Click() 'membuat teks berwarna Biru Hasil.ForeColor = vbBlue End Sub Private Sub Hijau_Click() 'membuat teks berwarna Hijau Hasil.ForeColor = vbGreen End Sub Private Sub Hitam_Click() 'membuat teks berwarna Hitam Hasil.ForeColor = vbBlack End Sub Private Sub Merah_Click() 'membuat teks berwarna merah Hasil.ForeColor = vbRed End Sub Private Sub Tebal_Click() 'membuat teks tebal If Tebal.Value = 1 Then Hasil.FontBold = True Else Hasil.FontBold = False End If End Sub Private Sub Miring_Click() 'membuat teks miring If Miring.Value = 1 Then Hasil.FontItalic = True Else Hasil.FontItalic = False End If End Sub Private Sub GarisBawah_Click() 'membuat teks GarisBawah If GarisBawah.Value = 1 Then Hasil.FontUnderline = True Else Hasil.FontUnderline = False End If End Sub Private Sub Coret_Click() 'membuat teks coret If Coret.Value = 1 Then Hasil...

Private Sub Ketik_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Label2 = Ketik.Text End If End Sub Private Sub OK_Click() Label2.Caption = Ketik.Text End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub Selesai_Click() End End Sub

Private Sub GajiPokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Tunjangan.SetFocus End If End Sub Private Sub Tunjangan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Potongan.SetFocus End If End Sub Private Sub Potongan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan) Pajak = Val(GajiKotor) * 0.1 GajiBersih = Val(GajiKotor) - Val(Pajak) End If End Sub Private Sub Proses_Click() GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan) Pajak = Val(GajiKotor) * 0.1 GajiBersih = Val(GajiKotor) - Val(Pajak) End Sub Private Sub Ulang_Click() GajiPokok.SetFocus GajiPokok = "" Tunjangan = "" Potongan = "" GajiKotor = "" Pajak = "" GajiBersih = "" End Sub Private Sub Keluar_Click() End End Sub

Private Sub GajiPokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Tunjangan.SetFocus End If End Sub Private Sub Tunjangan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Potongan.SetFocus End If End Sub Private Sub Proses_Click() GajiKotor = Val(GajiPokok) + Val(Tunjangan) - Val(Potongan) Pajak = Val(GajiKotor) * 0.1 GajiBersih = Val(GajiKotor) - Val(Pajak) End Sub Private Sub Ulang_Click() GajiPokok.SetFocus GajiPokok = "" Tunjangan = "" Potongan = "" GajiKotor = "" Pajak = "" GajiBersih = "" End Sub Private Sub Keluar_Click() End End Sub

Private Sub HargaAwal_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then HargaAwal.SetFocus Diskon = Val(HargaAwal) * 0.1 HargaAkhir = Val(HargaAwal) - Val(Diskon) End If End Sub Private Sub Hitung_Click() Diskon = Val(HargaAwal) * 0.1 HargaAkhir = Val(HargaAwal) - Val(Diskon) End Sub Private Sub Ulangi_Click() HargaAwal.SetFocus HargaAwal = "" Diskon = "" HargaAkhir = "" End Sub Private Sub Keluar_Click() End End Sub

Private Sub Hitung_Click() Diskon = Val(HargaAwal) * 0.1 HargaAkhir = Val(HargaAwal) - Val(Diskon) End Sub Private Sub Ulangi_Click() HargaAwal.SetFocus HargaAwal = "" Diskon = "" HargaAkhir = "" End Sub Private Sub Quit_Click() End End Sub

Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text3) * Val(Text4) Text11 = Val(Text5) - Val(Text6) Text12 = Val(Text7) / Val(Text8) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text3_keypress(keyascii As Integer) If keyascii = 13 Then Text4.SetFocus End If End Sub Private Sub Text5_keypress(keyascii As Integer) If keyascii = 13 Then Text6.SetFocus End If End Sub Private Sub Text7_keypress(keyascii As Integer) If keyascii = 13 Then Text8.SetFocus...

Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text3) * Val(Text4) Text11 = Val(Text5) - Val(Text6) Text12 = Val(Text7) / Val(Text8) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text3_keypress(keyascii As Integer) If keyascii = 13 Then Text4.SetFocus End If End Sub Private Sub Text5_keypress(keyascii As Integer) If keyascii = 13 Then Text6.SetFocus End If End Sub Private Sub Text7_keypress(keyascii As Integer) If keyascii = 13 Then Text8.SetFoc...

Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End 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 = Val(Text1) * Val(Text2) End If End Sub

Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocus End If End Sub

Private Sub Command1_Click() Command1:  PrivateSub Command1_Click() Text.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End 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

Liputan6.com, Jakarta -  Ketua Umum Asosiasi Pengusaha Indonesia ( Apindo ), Hariyadi Sukamdani, mengatakan Indonesia akan kekurangan tenaga Sumber Daya Manusia (SDM) bidang ilmu  teknologi pada 2030. Hal ini dengan semakin bertambahnya jumlah penduduk dan pengguna internet.  "Kami ingin mengingatkan bahwa di 2030 Indonesia akan mengalami kekurangan tenaga di bidang IT yang cukup besar. Di Indonesia ini jumlah populasinya 265 juta orang. Pengguna internet di Indonesia 132,7 juta orang,  penggunaan media sosial yang aktif 106 juta orang, dan pengguna ponsel yang aktif adalah 92 juta orang," ujar dia di Hotel Shangrila, Jakarta, Selasa (13/11/2018). Untuk itu, kata Haryadi, kerjasama dengan berbagai negara khususnya Asia diperlukan dalam rangka meningkatkan pemenuhan tenaga kerja bidang IT yang berdaya saing. Dia meminta, semua pihak mau dan mampu memanfaatkan momentum tersebut. 

   Liputan6.com, Jakarta -   Menyambut gelaran Asian Games 2018 , Menteri Komunikasi dan Informatika (Menkominfo) Rudiantara mulai meninjau kesiapan sejumlah   venue , terutama dari segi teknologi informasi. Menkominfo hadir mendampingi Wakil Presiden Jusuf Kalla, Menteri Pemuda dan Olahraga Imam Nahrawi, dan Menteri Pekerjaan Umum dan Perumahan Rakyat Basuki Hadimuljono. Pada 29 Juni 2018, rombongan meninjau   venue BMX yang ada di Pulo Mas, Jakarta Timur. Lalu dilanjutkan ke   venue   hoki dan tenis luar ruangan di Gelora Bung Karno, Senayan, Jakarta Selatan.

Menteri Pemberdayaan Perempuan dan Perlindungan Anak, Yohana Yembise (tengah) berkunjung  BERITA DUNIA Minggu, 29 Juli 2018 | 21:36 WIB RI dan Iran Kerja Sama Manfaatkan Teknologi untuk Perlindungan Anak Renne R.A Kawilarang Photo : KBRI Tehran Menteri Pemberdayaan Perempuan dan Perlindungan Anak, Yohana Yembise (tengah) berkunjung ke Iran. VIVA  – Iran menyatakan antusiasmenya dalam memperluas kerja sama dengan Indonesia. Salah satu bidang yang digarap kedua pemerintah adalah kerja sama pemanfaatan teknologi informasi dan komunikasi untuk perlindungan anak dan pemberdayaan perempuan  Demikian salah satu hasil penting kunjungan Menteri Pemberdayaan Perempuan dan Perlindungan Anak (PPPA), Prof. Dr. Yohana Susana Yembise, ke Iran. Menteri Yohana ke Iran untuk memenuhi undangan Wakil Presiden Iran urusan Keluarga dan Pemberdayaan Perempuan, Masoumeh Ebtekar, sebagai pembicara pada Seminar bertemakan “Women Empowerment through I...

Polycom merupakan pemimpin dunia dalam bisnis telepon audio conferencing, dengan merancang teknologi untuk mempermudah meeting jarak jauh. Adhitya Himawan Jum'at, 11 November 2016 | 14:19 WIB Salah satu produk Polycom. [Dok Polycom] Indonesia adalah Negara yang tumbuh dengan ide-ide untuk saling terhubung dan berpindah-pindah. Dua tren inilah yang membuat Indonesia menjadi lebih terhubung dan lebih lagi setiap harinya.  Vice President for  Polycom  in India, SAARC & SEA, Minhaj Zia, mengatakan, konektivitas digital jaringan mendorong tren saat ini. Hari ini, hampir 88 juta pengguna di Indonesia terhubung dengan koneksi internet. Populasi ini di dominasi oleh para  pemuda yang berkomunikasi dan berkolaborasi dengan menggunakan jaringan sebagai media.  "Video conference memiliki posisi yang sangat baik di Indonesia mengingat penetrasi jaringan disini yang semakin meningkat. Indonesia termasuk salah satu negara yang memiliki pertumbuhan...

Intel disebut sudah bekerja sama dengan lebih dari 8.000 pengembang lokal. Arsito Hidayatullah  |  Deni Yuliansari Selasa, 16 Desember 2014 | 14:03 WIB Communications Technology  ( ICT ) atau Teknologi Informasi dan Komunikasi . Sasaran ini, menurut Country Manager Intel Indonesia, Harry K Nugraha, relatif lebih mudah dilaksanakan karena Intel memanfaatkan momentum "era terintegrasi". "Intel berkomitmen untuk menjadi (saluran) inovasi ICT lokal, untuk memajukan Indonesia yang semakin terintegrasi," kata Harry di Jakarta, Selasa (16/12/2014). Harry pun menyebut bahwa pihaknya sudah bekerja sama dengan lebih dari 8.000 pengembang lokal, melalui berbagai kegiatan seperti  hack events , Dev Key Events, bahkan dengan mengikuti program Intel. "Kini ada dua inovator Indonesia yang dianggap aktif di Intel Global," katanya pula. Harry menambahkan bahwa pengembangan ICT itu sendiri juga tidak hanya pada sisi  software  (perangkat lunak) dan apl...

  Ekonomi digital di Indonesia, dipicu oleh perkembangan UMKM. Adhitya Himawan  |  Erick Tanjung Kamis, 18 Februari 2016 | 08:03 WIB Presiden Joko Widodo bertemu pendiri Facebook Mark Zuckerberg di Silicon Valley, San Fransisco, AS [Laily/Biro Pers-Setpres] Presiden Joko Widodo  dalam pertemuannya dengan Mark Zuckerberg, pendiri dan sekaligus CEO  Facebook   yang didampingi para eksekutif Facebook di Silicon Valley, San Fransisco, Rabu, (17/2/2016), menyambut baik kontribusi Facebook dalam pembangunan ekonomi dan budaya digital Indonesia.    "Saya harap Facebook dapat kerja sama dalam upaya Indonesia mencapai visi ekonomi digital terbesar di Asia Tenggara yang mencapai US$130 milyar pada 2020", ucap Presiden.   Ekonomi digital di Indonesia, dipicu oleh perkembangan UMKM. Untuk itu, Indonesia telah menyiapkan rencana aksi ekonomi digital jangka menengah dan panjang dengan fokus mempercepat pemberian akses...

Total transaksi elektronik pengadaan pemerintah tahun 2016 sudah mencapai Rp399 triliun. Presiden Jokowi Jokowi meninjau pembangunan Rusun Atlet ASEAN Games di Kemayoran, Jakarta, Kamis (29/10/2016).[Suara.com/Erick Tanjung] Presiden Joko Widodo  meminta kepada seluruh jajarannya untuk memanfaatkan teknologi informasi dalam proses pengadaan barang/jasa sehingga lebih mudah, cepat dan transparan. Hal tersebut disampaikan Jokowi saat memimpin rapat terbatas pada Kamis (29/12/2016) di Kantor Kepresidenan Jakarta. "Melakukan reformasi besar-besaran pada sistem   pengadaan barang dan jasa  dengan memanfaatkan teknologi informasi," ujar Jokowi. Presiden Jokowi Jokowi meninjau pembangunan Rusun Atlet ASEAN Games di Kemayoran, Jakarta, Kamis (29/10/2016).[Suara.com/Erick Tanjung] Presiden Joko Widodo  meminta kepada seluruh jajarannya untuk memanfaatkan teknologi informasi dalam proses pengadaan barang/jasa sehingga lebih mudah, cepat dan transp...

   Liputan6.com, Jakarta -   F5 Networks baru saja mengumumkan inisiatif bernama Super-NetOps. Inisiatif ini merupakan pelatihan pertama di Asia Pasifik yang bertujuan membantu perusahaan dan industri   teknologi informasi . Dengan inisiatif ini perusahaan dapat lebih luas menerapkan otomatisasi, peningkatan kinerja, mengurangi kesenjangan ketrampilan, dan membantu para profesional menyampaikan fungsi jaringan melalui DevOps.

o   Liputan6.com, Delhi -   Menurut pengamatan Bank Dunia,   India   berpotensi cukup besar menjadi Silicon Valley kedua di dunia. Prediksi tersebut disampaikan langsung oleh perwakilan Bank Dunia untuk India, Junaid Kamal Ahmad, pada awal pekan ini. Dikutip dari  Times of India  pada Selasa (3/4/2018), Junaid mengatakan bahwa upaya India  dalam meningkatkan kesejahteraan melalui pengembangan industri teknologi informasi, telah menunjukkan hasil yang cukup positif.