[Marwan]

How do I use this statment i dont know anything about it... and i have to make a stupid program using it!!!

[Marwan]

to be exact... this is the code WHAT THE HELL IT DO!!!


Dim introw As Integer
Dim intcolumn As Integer
Dim sngoutput As Single


For introw = 1 To 8
For intcolumn = 1 To 8
Randomize()
sngoutput = Rnd()
If sngoutput < 0.025 Then
Debug.Write("+K+")
Else
Debug.Write(" ")
End If


Next
Debug.WriteLine("")

Next

End Sub

[Marcus2007]

Originally Posted by Marwan

How do I use this statment i dont know anything about it... and i have to make a stupid program using it!!!

I can help u but u have to tell me what u need to do exactly.
I have some code from a slot machine program if that helps.

PictureBox1.Visible = False ' hide picture
Label1.Text = CStr(Int(Rnd() * 10)) ' pick numbers
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
' if any caption is 7 display picture and beep
If (Label1.Text = "7") Or (Label2.Text = "7") _
Or (Label3.Text = "7") Then
PictureBox1.Visible = True
Beep()
end if

Its a slot machine with 3 dials and they are randomized every spin.

I watch for your reply. -mark