Pemrograman Visual Basic

kode Program login

Private Sub Command1_Click()

If Text1.Text = “admin” And Text2.Text = “stmik” Then

Form1.Show

Form2.Hide

Else

MsgBox (“Password salah ,Silahkan Isi data kembali.”)

Text1.Text = “”

Text2.Text = “”

Text1.SetFocus

End If

End Sub

=======================================

Private Sub Command2_Click()

MsgBox (“Terima Kasih”)

End

End Sub

=========================================

Private Sub Label4_Click()

Form3.Show

Form2.Hide

End Sub

=========================================

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text1.Text = “admin” And Text2.Text = “stmik” Then

Form1.Show

Form2.Hide

Else

MsgBox (“Password salah ,Silahkan Isi data kembali.”)

Text1.Text = “”

Text2.Text = “”

Text1.SetFocus

End If

End If

End Sub

========================================

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text1.Text = “admin” And Text2.Text = “stmik” Then

Form1.Show

Form2.Hide

Else

MsgBox (“Password salah ,,Silahkan Isi data kembali.”)

Text1.Text = “”

Text2.Text = “”

Text1.SetFocus

End If

End If

End Sub

===================================================

kode Program data mahasiswa

Private Sub Command1_Click()

Unload Me

End Sub

================================

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text1.SetFocus

End Sub

===============================

Private Sub Command3_Click()

MsgBox (“Terima Kasih”)

End

End Sub

==============================

Private Sub Command4_Click()

Unload Me

End Sub

==============================

Private Sub Command5_Click()

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text4.SetFocus

End Sub

====================================

Private Sub Command6_Click()

MsgBox (“Terima Kasih”)

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

===================================

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

=================================

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

====================================

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

End If

End Sub

=========================================

Private Sub Text9_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub

========================================

Majalah Fashion Inggris Centrefold Edisi ke Sepuluh Sepenuhnya Gunakan Lumia 1020 untuk Pemotretan Foto

Nokia terus berusaha untuk mengkampanyekan kemampuan smartphone kamera tercanggih miliknya, Lumia 1020. Bahkan mereka pun kini mengajak sebuah majalah fashion Inggris, Centerfold, untuk menggunakan seluruh sesi pemotretan pada majalah edisi ke sepuluh miliknya dengan Lumia 1020.

Untuk sesi pemotretan tersebut, Centerfold memang sengaja untuk menggantikan seluruh kamera DSLR dengan smartphone Lumia 1020. Hal ini pun menunjukkan kemampuan smartphone Lumia 1020 yang bisa digunakan secara fleksibel. Hasil jepretan tersebut pun menunjukkan bahwa smartphone ini bisa dipakai oleh para profesional yang biasa menggunakan perangkat fotografi super mahal.

Penasaran dengan hasil-hasil foto para fotografer profesional tersebut? Berikut ini adalah beberapa di antaranya.

 

 

 

LG Perkenalkan Bohlam Pintar Hemat Energi yang Bisa Dikontrol dengan Aplikasi Android dan iOS

LG memperkenalkan produk baru mereka yang kini juga diembel-embeli dengan kata smart. Produk tersebut adalah sebuah bohlam pintar yang mereka namai sebagai LG Smart Lightning. Dan seperti namanya, bohlam pintar ini pun bisa dikontrol dengan aplikasi yang ada di smartphone Android ataupun iOS.

Pihak LG pun mengatakan kalau bohlam pintar ini mempunyai efisiensi tenaga listrik yang tinggi. Tak hanya itu, bohlam ini juga diklaim mampu bertahan lama. Tidak mengherankan, terlebih bohlam pintar ini juga dibanderol dengan harga yang terbilang mahal.

LG pun mengatakan kalau bohlam pintar miliknya tersebut dapat bertahan selama 10 tahun dengan pemakaian lima jam per hari. Pihak LG pun pada awalnya akan menyediakan produk ini ke Korea Selatan dan bakal juga ditawarkan ke Amerika dan Eropa. Mengenai harganya, bohlam pintar ini dipatok sebesar 35000 won atau sekitar 370 ribu rupiah.

Sebuah smartphone pun bisa digunakan untuk mengontrol bohlam tersebut. Bohlam ini mempunyai beberapa jenis mode, di antaranya adalah security mode yang membuat rumah terlihat dihuni pada saat penghuninya keluar rumah. Selian itu, terdapat pula mode yang membuat bohlam akan berkedip pada saat smartphone menerima panggilan telepon. Tak lupa, aplikasi juga bisa digunakan untuk mengatur tingkat keterangan lampu secara berkala pada saat tidur hingga bangun.

 

Ubuntu Touch Sekarang Resmi Mendukung Nexus 7 2013

Canonical telah mengembangkan Ubuntu Touch lebih dari setahun yang lalu dan sejauh ini perangkat yang didukungnya tidaklah banyak mengalami perubahan terkecuali adanya penambahan Nexus (mako) sebagai perangkat pendatang baru yang baru saja didukungnya.

 

Setelah banyak dibahas diberbagai milis dan forum, dukungan Ubuntu Touch terhadap Nexus 5 kini telah secara resmi diumumkan oleh Canonical.

Berdasarkan keynote yang disampaikan pada Ubuntu Developer Summit yang baru saja mulai, pendiri Canonical bernama Mark Shuttleworth telah secara resmi mengakui Nexus 7 2013 sebagai salah satu pendatang baru bagi platform pengembangan Ubuntu Touch.

Hal ini tentu saja tidak terlalu mengejutkan mengingat banyak pengembang Ubuntu telah menunjukkan hasil pekerjaan mereka yang dapat berjalan pada keberadaan tablet Nexus 7 2013 dalam beberapa waktu belakangan ini.

 

Jam Ramah Lingkungan ini Bisa Digunakan Normal dengan Menggunakan Tenaga dari Air Keran

Sebuah produk ramah lingkungan yang sangat menarik dibuat oleh produsen jam bernama Bedol. Alih-alih menggunakan sumber tenaga dari baterai, jam bikinan Bedol tersebut menggunakan air keran biasa.

Jam ramah lingkungan tersebut dibuat sepenuhnya dengan menggunakan tenaga yang mereka peroleh dari air. Untuk menghasilkan listrik dari air, Bedol pun tak menggunakan elektrolit khusus ataupun sejenisnya. Benar-benar murni hanya air keran biasa.

Untuk menghasilkan listrik dan menggerakkan jam, Bedol memanfaatkan ion yang ada di dalam air. Wall Water Clock milik Bedol tersebut mempunyai dua plat metal yang didesain secara khusus. Dan pada saat plat tersebut bersentuhan dengan air, maka secara otomatis kedua plat itu akan berfungsi sebagai kutub positif dan negatif.

Tak hanya ramah lingkungan, jam bikinan Bedol ini juga memilik daya tahan yang lama. Satu kali pengisian air bisa digunakan hingga enam bulan. Dengan begitu, selama satu tahun pemilik jam Bedol hanya butuh mengisi air selama dua kali.

Militer Amerika akan Lakukan Uji Coba Baju Perang ala Iron Man pada Bulan Juni

Iron Man tidak hanya akan ada dalam film yang diperankan oleh Robert Downey Jr. Kostum perang canggih tersebut pun bakal hadir di dunia nyata dan bahkan siap diuji coba secara langsung pada bulan Juni mendatang.

Admiral Angkatan Laut Amerika Serikat, Wiliam McRaven mengatakan bahwa tiga prototipe kostum perang yang disebut dengan nama Tactical Assault Light Operator Suit (TALOS) bakal mereka terima pada Juni mendatang. Selanjutnya, pihak militer akan melakukan evaluasi dan diharapkan bakal selesai pada bulan Agustus 2018.

Smartphone Nokia Lumia 520/521 Mendominasi Pasar Windows Phone Amerika Serikat

Tingkat popularitas Windows Phone di Amerika Serikat jauh jika dibandingkan dengan Android ataupun iOS. Kondisi tersebut pun semakin diperburuk dengan minimnya persaingan di antara para produsen smartphone Windows Phone. Bahkan saat ini lebih dari 50 persen smartphone Windows Phone yang ada di Amerika Serikat adalah Lumia 520/521.

Menurut data terakhir yang dirilis oleh AdDuplex menunjukkan kalau kombinasi dua smartphone bersaudara tersebut mencapai angka 53,9 persen. Lebih detailnya, Lumia 521 memperoleh prosentase sebesar 36,8 persen sementara Lumia 520 berada di posisi kedua dengan market share 17.1 persen.

Facebook Akhirnya Secara Resmi Membuka Kantor Perwakilannya di Indonesia

Jejaring sosial terbesar dunia saat ini, Facebook, telah secara resmi membuka kantor di Indonesia. Menurut laporan yang ditulis Jakarta Post dan dikutip dari Tech in Asia, pihak Facebook pun telah secara resmi membuka kantor yang terletak di Gedung Pasific Place, Jakarta Selatan.

Dalam pernyataannya, Facebook menjelaskan kalau Indonesia merupakan negara yang sangat penting bagi mereka. Terlebih Indonesia saat ini tercatat sebagai salah satu kontributor terbesar pengguna Facebook di dunia. Mereka pun mencatat bahwa sebanyak 65 juta orang usernya berasal dari Indonesia.

Sony Xperia Z2 L50t Siap Rambah Pasaran Cina

Pembuat ponsel Jepang Sony Mobile tampaknya tengah mempersiapkan peluncuran produk handset unggulan terbarunya ke sejumlah pasaran di seluruh dunia, termasuk China, sebagai salah satu negara yang memiliki pasaran terbesar dan paling potensial yang menjadi targetnya saat ini.

 

Handset unggulan terbaru yang dimaksud tidak lain adalah Sony Xperia Z2 yang dikabarkan baru saja lulus uji di Cina. Menurut forum sertifikasi Cina TENAA, handset Sony terbaru ini menyandang nomor model L50t dengan dukungan jaringan TD-LTE.

Smartphone XiaoMi Redmi Note Resmi Diperkenalkan, Hadir dengan Layar 5.5 Inci dan Prosesor Octa Core dan Banderol 1,4 Jutaan

Mencari sebuah smartphone yang murah tapi punya spesifikasi gahar? Tunggu saja kedatangan smartphone XiaoMi Redmi Note ke tanah air. Handphone Android tersebut baru saja secara resmi diperkenalkan oleh XiaoMi di Cina.

Seperti pendahulunya, XiaoMi RedMi Note ini juga dibanderol dengan harga yang murah. Dan meski tetap berbanderol murah, spesifikasi yang dimilikinya tak bisa diremehkan. Bisa dikatakan hampir setara dengan smartphone kelas menengah.

Pada saat pengumumannya, handphone ini diungkapkan dengan harga sebesar 799 yuan atau sekitar 1,4 juta rupiah. Dengan harga tersebut, konsumen akan mendapatkan smartphone dengan layar 5.5 inci IPS beresolusi 1280 x 720 piksel dan menggunakan prosesor octa core MediaTek MT6592.