hvordan lager manrandom kode?

[private sub andré_click()]

hvordan kan man f.eks gjøre så en knapp velger en tilfeldig handling fra en liste over handlinger og ikke bare velger et tall?

[MrLee]

først får du knappen til å velge ett tilfeldig tall,

 

så knytter du tallene til funksjoner slik med en if setning?

[aadnk]

Her er et eksempel:

 

Private Sub cmdTest_Click()

 

    ' Initialiser tilfeldighetsgenerator

    Randomize

   

    ' Utfør handling basert på tilfeldig tall

    Select Case Fix(Rnd * 3) + 1

    Case 1

        MsgBox "Første handling"

    Case 2

        MsgBox "Andre handling"

    Case Else

        MsgBox "Tredje handling"

    End Select

   

End Sub

 

Bemerk at tilfeldighetsgeneratoren til tider vil returnere tallet fire. Således benyttes Case Else istedenfor Case 3, for å møte de få gangene dette kommer til kjenne.