Kemudian masukan koding berikut pada command button tersebut;
Private Sub Command1_Click() //Command1 bisa diganti dengan apa saja sesuai nama Command Button
Minr=0 //Minr adalah suatu variable sebagai patokan bilangan terkecil, dan 0 adalah bilangan terkecil pada perhitungan ini
Maxr=9999 //Maxr adalah variable lain sebagai patokan bilangan terbesar, dan 9999 adalah bilangan terbesar pada perhitungan ini
randno=minr + Fix(Rnd *(maxr-minr+1))
//Rumus untuk bilangan random yang akan ditampilkan tersebut
MsgBox randno //Koding ini untuk menampilkan sebuah message box yang berisi hasil dari rumus itu
End Sub //selesai
Dan tampilannya sebagai berikut:
Bilangan yang muncul adalah 5334 sebagai hasil perhitungan random.
Selamat mencoba
0 Comment:
Posting Komentar