Metoda Random (Acak)

Topik sebelumnya Topik selanjutnya Go down

Metoda Random (Acak)

Post by PujanggaBageur on Thu Aug 07, 2008 10:25 pm

Kode sumber berikut ini adalah metoda untuk mengacak angka tertentu (misal: dari 1 sampai 100), tanpa ada pengulangan angka yang sudah ditampilkan.

Code:

Dim intHimpunan() As Integer

Function AcakPosisi(BatasAwal&, BatasAkhir&) As String
    Dim k, intRange As Integer
    Dim i, intRndUlang As Integer
   
    intRange = BatasAkhir - BatasAwal + 1
   
    ReDim Preserve intHimpunan(1 To intRange) As Integer
   
    For k = 1 To intRange
        Randomize
        intRndUlang = AcakUlang(BatasAwal, BatasAkhir)
                                 
        For i = 1 To k - 1
            Do Until intHimpunan(i) <> intRndUlang
                If intHimpunan(i) = intRndUlang Then
                    intRndUlang = AcakUlang(BatasAwal, BatasAkhir)
                    i = 1
                End If
            Loop
        Next i
     
        intHimpunan(k) = intRndUlang
     
        AcakPosisi = AcakPosisi & intRndUlang & ";"
    Next k
End Function

Private Function AcakUlang(BatasAwal, BatasAkhir)
  AcakUlang = Int((BatasAkhir - BatasAwal + 1) * Rnd + BatasAwal)
End Function

Private Sub cmdTest_Click()
Dim Himpunan$
    Himpunan = AcakPosisi(1, 100)
    Msgbox Himpunan
End Sub

PujanggaBageur
Admin
Admin

Jumlah posting : 148
Join date : 07.08.08
Age : 34
Lokasi : Cirebon

Lihat profil user http://inochi.forumotion.net

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik