Membuat Login sederhana di VB

Dalam pembuatan suatu aplikasi, hak akses merupakan sesuatu yang penting untuk mengamankan data dari pihak-pihak yang tidak berkepentingan. Oleh sebab itu, pada program aplikasi dibuat suatu form untuk melakukan login masuk pihak yang berhak masuk. Dalam pembuatan form login, diperlukan database pengguna yang bisa mengakses program tersebut. Akan tetapi dalam hal ini penulis akan membuat aplikasi login sederhana, tanpa database untuk bisa masuk ke form utama. Berikut langkah-langkahnya :

• Siapkan 2 buah form, yang pertama beri nama form3 untuk login, dan form4 untuk form utama
• design form3 seperti berikut :

• atur PasswordChar pada properties text2 menjadi tanda bintang

• ketikkan listing pada command login
Private Sub clogin_Click()
1. If Text1.Text = "maruloh28" And Text2.Text = "1234" Then
2. MsgBox "Silakan masuk", vbInformation + vbOKOnly, "Success"
3. Form4.Show
    Else
4. MsgBox "Maaf password user name dan password anda salah, silakan coba lagi", vbCritical,"Error"
5. Text1.Text = ""
    Text2.Text = ""
6. Text1.SetFocus
    End If
    End Sub
• keterangan Listing program:
  1-3 : melakukan penyeleksian, jika username (text1) nilainya ”maruloh28”

          dan passwordnya (text2) nilainya ”1234” maka akan muncul 

          pesan silakan masuk dan form utama (form4) akan ditampilkan.
  4-6 : jika username dan password tidak sesuai maka muncul pesan

          kesalahan, text1 dan text2 akan kosong dan kursor terfokus di text1
• Jalankan program

Read More

Hidup adalah Pilihan

Dalam hidup tidak seharusnya kita hanya berpasrah pada takdir, memang ada hal yang Allah SWT telah tetapkan kepada kita seperti Mati atau jodoh, namun ada beberapa hal yang memang bisa kita rubah jika kita mau merubahnya. Allah berfirman dalam surat Ar Ra'du ayat 11 yang artinya :

"sesungguhnya Allah tidak akan merubah sesuatu dari suatu kaum sehingga mereka merubah apa yang ada pada mereka sendiri".

dari ayat di atas jelas Allah mengatakan bahwa Allah tidak akan merubah keadaan seseorang jika orang tersebut tidak mau berusaha untuk merubah keadaan mereka sendiri. Ayat ini juga mengisyaratkan kepada kita agar selalu berusaha dan tidak mempasrahkan diri pada keadaan andai kehidupan kita dalam kekurangan.

Ingat kawan, Sukses-gagal, kaya-miskin, pintar-bodoh merupakan suatu pilihan dalam kehidupan kita. Apa yang kita pilih itulah yang akan kita rasakan. Kita akan sukses dengan bekerja keras atau kita akan menjadi manusia gagal yang hanya berpangku tangan tanpa melakukan apa-apa. itulah pilihan yang harus kita pilih. Jika kita mau kaya, maka berusahalah dengan bekerja, jika tidak maka pilihan hanya 1, hidup miskin tanpa melakukan apa-apa.

Begitupun dalam berbuat, berbuat baik atau berbuat buruk, semua adalah pilihan. Namun harus diingat, konsekuensi yang akan didapat dari perbuatan kita. Jika berbuat baik, tentu pahala yang kita dapat yang bermuara pada kebaikan akhirat, namun sebaliknya jika keburukan yang kita lakukan tentu murka dan siksaNya lah yang akan kita terima. Semua terserah kita sebagai manusia. Allah memberikan kita akal dan hati tentu ada tujuan dan fungsinya, gunakanlah akal dan hati kita untuk memilih mana yang terbaik untuk kita. semoga Allah senantiasa memberikan petunjuk dalam menjalani kehidupan yang penuh dengan godaan ini, Amin.

Read More

Membuat teks berkedip pada VB

kali ini saya akan membagikan pengetahuan kepada teman-teman semua bagaimana cara membuat teks pada visual basic berkedip atau blink secara sederhana, mengapa saya bilang sederhana? karena memang listingnya tidak terlalu panjang, hanya kurang lebih 4 baris kita sudah bisa membuat teks tersebut berkedip sesuai dengan warna yang kita inginkan.

Ok, tanpa berlama-lama kita langsung saja mulai.

Langkah pertama tentu kita buka program vb terlebih dahulu, setelah itu masukkan satu buah objek label dan time, jangan lupa rubah captionnya sesuai dengan keinginan anda.

langkah berikutnya kita ubah propertis dari time, yaitu pada bagian interval, ganti menjadi 500, ingat semakin kecil nilai interval semakin cepat dia berkedip atau blink

setelah itu kita tulis listing pada timernya

Private Sub Timer1_Timer()

If Label1.ForeColor = vbRed Then

   Label1.ForeColor = vbBlue

   Else

   Label1.ForeColor = vbRed

   End If

End Sub

langkah terakhir, jalankan program, lihat hasilnya

cukup mudah kan

Read More