Mendeteksi Tombol Cancel/Close InputBox st = InputBox("Mendeteksi Tombol Cancel Atau Close") If StrPtr(st) = 0 Then MsgBox "Anda menekan tombol cancel/close" End If Login dengan InputBox a: st = InputBox("Masukan pass", "ADMIN") If StrPtr(st) = 0 Then End End If If Not st = upass Then MsgBox "Password Salah !!!", vbCritical GoTo a End If 'tulis statemen di sini MsgBox "Selamat Datang" Membuat dialog keluar dari app dengan MsgBox Dim pilihan As Integer pilihan = MsgBox("Apa anda ingin keluar", vbYesNo + vbInformation, "Keluar") If pilihan = vbYes Then End ...
Proses Pengulangan dengan menggunakan Do While dan Do Until adalah proses pengulangan yang di tentukan oleh sebuah kondisi, sama seperti statement IF Then Else beda nya do While adalah untuk proses pengulangan yang artinya proses akan berulang terus sesuai kondisi apa yang di berikan. 1/ Do While Proses Pengulangan dengan menggunakan do while adalah sebuah proses pengulangan dalam kondisi benar/true, jadi jika nilai pada sebuah kondisi adalah benar/true maka proses akan terus berulang dan akan berhenti jika nilai pada sebuah kondisi adalah salah/false. Contoh; dim a as integer a = 1 Do While a < 10 MsgBox a a = a + 1 Loop Dari coding diatas, kita membuat variable "a" sebagai integer, dan 1 adalah nilainya, berarti a adalah 1. Selanjutnya adalah melakukan perulangan dengan menentukan kondisi yang benar, bahwa "1 itu lebih kecil dari 10". Karena kondisi yang di tentukan adalah kondisi yang benar maka proses pengulangan di ...