• Home
 · 
• Miscellaneous
 · 
• Absolute randomization. We use the mouse position and the last keypress to generate an absolutely r

Absolute randomization. We use the mouse position and the last keypress to generate an absolutely r

Absolute randomization. We use the mouse position and the last keypress to generate an absolutely random value. The user can never be trusted

Rate Absolute randomization. We use the mouse position and the last keypress to generate an absolutely r

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Form_Click()
'This is the function where you 'use' the randim value.
'This can be for a Dice-based game also.
'The normal VB function leaves out a few points
'when a graph of RND vs RND is plotted. This doesn't
Randomize Timer
MsgBox Int(Rnd * 6)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
RandomSeed = RandomSeed * KeyAscii / 255
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
RandomSeed = RandomSeed * X / Y
End Sub