Cetak Bilangan Random dengan RND()

Visual Basic mempunyai fasilitas mencetak bilangan random antara 0 s.d. 1. Dengan demikian, bilangan random yang dihasilkan selalu dalam bentuk koma.

Apabila Anda menginginkan bilangan lebih besar dari nol, maka bilangan tadi harus dikalikan dengan batas akhir bilangan yang Anda inginkan dan mengambil bagian integer dari bilangan tadi. Dibawah ini, saya akan mencetak sepuluh bilangan bulat antara 0 sampai 10.

For i = 1 To 10
  bil = Int(Rnd() * 10)
  Console.WriteLine(bil)
Next

Kode diatas akan mencetak bilangan random antara 0 sampai 10. Jika Anda menginginkan antara 1 s.d. 10, maka Anda menambahkan satu seperti kode berikut:

Int((Rnd() * 10) + 1)

Kode diatas masih bertipe data single. Agar bertipe integer, saya mengubahnya dengan CInt, sehingga menjadi.

CInt(Int((Rnd() * 10) + 1))

Masih ada satu masalah. Jika Anda perhatikan, bilangan yang Anda hasilkan selalu sama. Nah, agar tidak sama setiap kali aplikasi dijalankan. Anda harus menambahkan

randomize()

Option Strict On Module Module1 Sub Main() Dim bil As Integer Randomize() For i = 1 To 10 bil = Int((Rnd() * 10) + 1) Console.WriteLine(bil) Next Console.Read() End Sub End Module

Cetak Bilangan Random dengan RND() 2018-11-07T20:17:00-08:00 Rating: 4.5 Diposkan Oleh: Good Dreamer