A.
Design
Pertama yang harus kita lakukan
adalah membuat tampilan atau GUI untuk aplikasi kelulusan kita, buatlah seperti
gambar dibawah ini
B.
Coding
Setelah kita selesai membuat GUI atau
tampilan aplikasi kita sekarang kita akan memasukkan Coding perintah untuk
menjalankan aplikasi “Kelulusan” kita.
Double Click pada “Command1” yang telah
kita ubah captionnya menjadi “OK”
Lalu masukkan coding berikut.
Dim nilai as integer
nilai = text2.text
if nilai >= 70 then
a = MsgBox (" Selamat Anda Lulus
" + Text1.text, VbOKOnly, "LABSI" )
Else
a = MsgBox (" Maaf Anda Gagal
" + Text1.text, VbOKOnly, "LABSI" )
End if
Logika
-
Nilai di deklarasikan sebagai tipe data
integer.
-
Variabel nilai dideklarasikan berada
pada text.text.
-
Jika nilai yang di input lebih dari sama
dengan 70 maka akan ditampilkan Message Box “Selamat anda lulus” dengan
tambahan nama anda di belakangnya yang diinput pada kolom “Text1”.
-
Jika nilai yang di input kurang dari 70
maka Message Box yang tampil adalah “Maaf Anda Gagal” dengan tambahan nama anda
juga.
-
Kata “LABSI” di belakang coding Message
Box dimaksudkan agar Message Box yang keluar nanti akan ada tulisan “LABSI”
pada header program.
Langkah terakhir yang akan kita lakukan adalah
menguji coba aplikasi yang telah kita buat dengan menekan tombol F5 pada
keyboard, jika berhasil maka aplikasi akan berjalan seperti dibawah ini.
Tidak ada komentar:
Posting Komentar