Edi Suparman

Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text4) * Val(Text6) Text11 = Val(Text3) - Val(Text7) Text12 = Val(Text2) / Val(Text8) End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text5.SetFocus End If End Sub Private Sub Text2_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text8.SetFocus End If End Sub Private Sub Text3_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text7.SetFocus End If End Sub Private Sub Text4_Keypress(Keyascii As Integer) If Keyascii = 13 Then Text6.SetFocus ...

Private Sub cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" End Sub Private Sub Cmdhitung_Click() Txtn3 = Val(Txtn1) * Val(Txtn2) End Sub Private Sub cmdkeluar_Click() End 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 Txtn3 = Val(Txtn1) * Val(Txtn2) End If End Sub

Private Sub cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" End Sub Private Sub Cmdhitung_Click() Txtn3 = Val(Txtn1) * Val(Txtn2) End Sub Private Sub cmdkeluar_Click() End 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 Txtn3 = Val(Txtn1) * Val(Txtn2) End If End Sub

Private Sub cmdbersih_Click() Txtn1.SetFocus Txtn1 = "" Txtn2 = "" Txtn3 = "" End Sub Private Sub Cmdhitung_Click() Txtn3 = Val(Txtn1) * Val(Txtn2) End Sub Private Sub cmdkeluar_Click() End 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 Txtn3.SetFocus End If 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() 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

Liputan6.com, Jakarta -  Indonesia, negara dengan penduduk ke-4 terbanyak di Indonesia, memiliki permasalahan yang tak kunjung tuntas untuk diselesaikan. Masalah tersebut tak lain adalah lalu lintas. Terlebih di Ibu Kota Jakarta, kota ini bahkan menempati posisi ke-12 dalam kategori kota terpadat di dunia versi INRIX. Melihat fakta yang cukup meresahkan di atas, pemerintah tentu tak ingin tinggal diam. Hal tersebut dibuktikan dengan implementasi sistem Electronic Traffic Law Enforcment (ETLE) yang baru saja memasuki tahap percobaan pada awal Oktober 2018 lalu

Liputan6.com, Jakarta -  Blokchain bisa dibilang sebagai salah satu teknologi yang cukup ‘seksi’ pada tahun ini. Walau demikian, kesadaran masyarakat akan pentingnya implementasi Blockchain masih minim. Oleh karena itu, kumpulan pelaku industri Blockchain pun berkumpul dalam suatu acara bernama Jakarta  Blockchain  Meetup Indonesia. Blockchain   itu akan kita dalami, kemungkinan digunakan bank sentral dalam penerbitan   uang digital . Jadi ini akan terjaga oleh otoritas yang jelas dan menggunakan teknologi mutakhir," kata Gubernur BI, Agus DW Martowardojo di komples BI, Jumat (2/2/2018). Saat ini,  blockchain  mulai banyak dikenal karena digunakan oleh bitcoin. Bitcoin menjadi fenomenal, mengingat nilainya yang terus melambung, meski otoritas keuangan Indonesia tidak mengakui dan melarang penggunaannya sebagai alat pembayaran. Meski demikian, Agus meminta kepada masyarakat untuk tidak melihat  blockchain sebagai sistem y...

Liputan6.com, Jakarta -  Blokchain bisa dibilang sebagai salah satu teknologi yang cukup ‘seksi’ pada tahun ini. Walau demikian, kesadaran masyarakat akan pentingnya implementasi Blockchain masih minim. Oleh karena itu, kumpulan pelaku industri Blockchain pun berkumpul dalam suatu acara bernama Jakarta  Blockchain  Meetup Indonesia. Beberapa   startup   yang bergerak di bidang   Blockchain   dan mata uang digital ( cryptocurrency ) menghadiri acara yang disponsori SwipeCrypto ini.  Di dalam gelaran tersebut, para pakar dan pelaku industri  Blockchain  mengungkapkan akan pentingnya peran Blockchain dengan berbagai industri di Tanah Air di masa depan. Beberapa di antaranya mulai dari Tomochain, Coindaily, Whaleblocks, Bibox, serta Daily Social.  Ada salah satu pembahasan yang menarik di dalam presentasi yang dilakukan oleh CEO Daily Social dan pengamat industri  startup , Rama Mamuaya. Rama mengatakan, Indonesia berpoten...

Liputan6.com, Jakarta -  Saat ini,  blockchain dan aset kripto tak dimungkiri telah menarik perhatian. Alasannya, banyak cerita sukses dari orang-orang yang mendapatkan keuntungan dengan melakukan jual beli aset kripto, contohnya Bitcoin. Salah satunya adalah kisah pria asal Bojonegoro yang dulu satpam kini mampu membeli mobil Porsche dan hidup mewah. Dia mampu mendapatkan semua itu dengan melakukan jual beli aset kripto. Home Tekno Tech News Edukasi Jadi Kunci Kesuksesan Teknologi Blockchain Oleh  Agustinus Mario Damar  pada 14 Nov 2018, 13:30 WIB Liputan6.com, Jakarta -  Saat ini,  blockchain dan aset kripto tak dimungkiri telah menarik perhatian. Alasannya, banyak cerita sukses dari orang-orang yang mendapatkan keuntungan dengan melakukan jual beli aset kripto, contohnya Bitcoin. Salah satunya adalah kisah pria asal Bojonego...