Program Login dan Kalkulator pada Visual Basic

Program pertama yang akan saya buat adalah program Login, seperti gambar dibawah ini:

Setelah kita buat tampilan program seperti contoh diatas barulah kita masukan codingan seperti gambar dibawah ini:

Penjelasannya:

If Text1.Text = wahyu@yahoo.com And Text2.Text = “123” Then MsgBox “Anda Berhasil Login” artinya jika text1 saya masukan wahyu@yahoo.com dan pada text2 saya masukan “123” kemudian akan muncul message box yang bertuliskan “Anda Berhasil Login”.

Form2.Show artinya jika program sudah dijalankan dan saya masukan email dan juga password dengan benar maka program tersebut akan pindah ke form selanjutnya.

Else adalah sebuah statement yang mengartikan (jika tidak).

MsgBox “Username dan Password yang Anda Masukan Salah!”, vbCritical artinya akan muncul lagi message box pada program yang bertuliskan username dan password yang anda masukan salah dengan jenis tipe peringatan.

Text1.Text = Clear
Text2.Text = Clear
Text1.SetFocus

Artinya pada text1 dan text2 akan menghapus sebuah inputan yang sudah dimasukan, sedangkan text1.setfocus artinya jika semua text sudah dihapus makan kursor ketik langsung ada pada text1.

End If artinya menghentikan atau berakhirnya fungsin if pada program.

Note: jika kita ingin mengganti tampilan password dengan simbol bukan angka, kita cukup klik text box password kemudian cari di properties yang bernama passwordchar disana kita bisa mengganti simbol sesuai yang kita inginkan, kebetulan pada program yang saya buat menggunakan simbol * (bintang).

Kemudian jika sudah masukan codingan pada program login, dan program login sudah dapat dijalankan seperti gambar dibawah ini:

Jika email dan password yang dimasukan pada program benar maka akan tampil gambar seperti dibawah ini:

Jika email dan password yang dimasukan pada program salah maka akan tampil gambar seperti dibawah ini:

Lalu program kedua yang akan saya buat adalah program Kalkulator, seperti gambar dibawah ini:

Setelah kita buat tampilan program seperti contoh diatas barulah kita masukan codingan seperti gambar dibawah ini:

Penjelasannya:

Select Case Text3.Text artinya pada kusus text3 menjadi pusat dari hasil output di text4.

Case “+” “-“ “*” “:” “^” artinya saya masukan sebuah kondisi baik tambah, kurang, kali, bagi maupun pangkat pada program.

Text4.Text = Val(Text1.Text) (+) (-) (*) (:) (^) Val(Text2.Text) artinya pada text4 akan mengeluarkan outputan atau hasil dari nilai yang kita masukan pada text1 dan text2 baik di tambah, kurang, kali, bagi, ataupun pangkat, dan Val sendiri berfungsi untuk mengubah tipe string menjadi integer ataupun mengubah tipe string menjadi angka.

Case Else artinya selain dari case kondisi yang kita masukan.

Text4.Text = “ERROR” artinya jika kondisi yang kita input tidak sesuai maka di text4 akan muncul tulisan error.

End Select artinya mengahkiri dari statement select.

Kemudian jika sudah masukan codingan pada program kalkulator, dan program sudah dapat dijalankan seperti gambar dibawah ini:

Gambar diatas menunjuakan salah satu operator yang saya masukan berupa kali maka akan telihat hasilnya, dan gambar dibawah ini menunjukan jika operator yang kita masukan tidak sesuai yang ada dikodingan maka akan tampil error: