How Are 'Random' Numbers Generated?

Author

Message

Dark Java Dude 64

Community Leader

14

Years of Service

User Offline

Joined: 21st Sep 2010

Location: Neither here nor there nor anywhere

Posted: 13th Aug 2011 06:43

Link

So i know that computers cant generate genuinely random numbers, but i know there are calculations to produce numbers that SEEM random, even though they are not. What are these calculations? Thanks!

Irrigation of the land with seawater desalinated by fusion power is ancient. It's called rain.

Back to top

Profile PM Website

old_School

15

Years of Service

User Offline

Joined: 29th Aug 2009

Location:

Posted: 13th Aug 2011 06:51

Link

Here is my Tic Tac Toe game source code. I had a "Guess My Number" game but I lost the source code sorry. That would of told you how to setup a randomizer. But it sounds like your looking basic game code anyway. This is for Visual Basic so may need conversion from Vb to DB but should give you a good idea.

Public Class Form9
    Dim Xturn As Boolean
    Dim Oturn As Boolean
    Dim turnno As Byte
    Dim turn1 As Boolean
    Dim turn2 As Boolean
    Dim turn3 As Boolean
    Dim turn4 As Boolean
    Dim turn5 As Boolean
    Dim turn6 As Boolean
    Dim turn7 As Boolean
    Dim turn8 As Boolean
    Dim turn9 As Boolean
    Dim o1o As Boolean
    Dim o2o As Boolean
    Dim o3o As Boolean
    Dim o4o As Boolean
    Dim o5o As Boolean
    Dim o6o As Boolean
    Dim o7o As Boolean
    Dim o8o As Boolean
    Dim o9o As Boolean
    Dim x1x As Boolean
    Dim x2x As Boolean
    Dim x3x As Boolean
    Dim x4x As Boolean
    Dim x5x As Boolean
    Dim x6x As Boolean
    Dim x7x As Boolean
    Dim x8x As Boolean
    Dim x9x As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Xturn = True Then
            x1.BringToFront()
            x1x = True
        End If

If Oturn = True Then
            o1.BringToFront()
            o1o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Xturn = True Then
            x2.BringToFront()
            x2x = True
        End If

If Oturn = True Then
            o2.BringToFront()
            o2o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Xturn = True Then
            x3.BringToFront()
            x3x = True
        End If

If Oturn = True Then
            o3.BringToFront()
            o3o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Xturn = True Then
            x4.BringToFront()
            x4x = True
        End If

If Oturn = True Then
            o4.BringToFront()
            o4o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Xturn = True Then
            x5.BringToFront()
            x5x = True
        End If

If Oturn = True Then
            o5.BringToFront()
            o5o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Xturn = True Then
            x6.BringToFront()
            x6x = True
        End If

If Oturn = True Then
            o6.BringToFront()
            o6o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Xturn = True Then
            x7.BringToFront()
            x7x = True
        End If

If Oturn = True Then
            o7.BringToFront()
            o7o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Xturn = True Then
            x8.BringToFront()
            x8x = True
        End If

If Oturn = True Then
            o8.BringToFront()
            o8o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Xturn = True Then
            x9.BringToFront()
            x9x = True
        End If

If Oturn = True Then
            o9.BringToFront()
            o9o = True
        End If

If turn9 = True Then
            Goturn9()

End If

If turn8 = True Then
            goturn8()

End If

If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

If turn5 = True Then
            goturn5()
        End If

If turn4 = True Then
            goturn4()
        End If

If turn3 = True Then
            goturn3()
        End If

If turn2 = True Then
            goturn2()
        End If

If turn1 = True Then
            goturn1()
        End If
    End Sub
    Sub goturn1()
        Xturn = False
        Oturn = True
        turn1 = False
        turn2 = True
        turnno = turnno + 1
    End Sub
    Sub goturn2()
        Xturn = True
        Oturn = False
        turn2 = False
        turn3 = True
        turnno = turnno + 1
    End Sub

Sub goturn3()
        Xturn = False
        Oturn = True
        turn3 = False
        turn4 = True
        turnno = turnno + 1
    End Sub
    Sub goturn4()
        Xturn = True
        Oturn = False
        turn4 = False
        turn5 = True
        turnno = turnno + 1
    End Sub
    Sub goturn5()
        Xturn = False
        Oturn = True
        turn5 = False
        turn6 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn6()
        Xturn = True
        Oturn = False
        turn6 = False
        turn7 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn7()
        Xturn = False
        Oturn = True
        turn7 = False
        turn8 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn8()
        Xturn = True
        Oturn = False
        turn8 = False
        turn9 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn9()
        Xturn = False
        Oturn = True
        turn9 = False
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub winthegame()
        'X cond/*
        'left to right/right to left
        If x1x = True And x2x = True And x3x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x4x = True And x5x = True And x6x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x7x = True And x8x = True And x9x = True Then
            MsgBox("X wins press play to play again")
        End If
        'up and down
        If x1x = True And x4x = True And x7x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x2x = True And x5x = True And x8x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x3x = True And x6x = True And x9x = True Then
            MsgBox("X wins press play to play again")
        End If
        'diagnal
        If x1x = True And x5x = True And x9x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x3x = True And x5x = True And x7x = True Then
            MsgBox("X wins press play to play again")
        End If
        'End X cond/*
        'Begin O Cond
        'left to right/right to left
        If o1o = True And o2o = True And o3o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o4o = True And o5o = True And o6o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o7o = True And o8o = True And o9o = True Then
            MsgBox("O wins press play to play again")
        End If
        'up and down
        If o1o = True And o4o = True And o7o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o2o = True And o5o = True And o8o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o3o = True And o6o = True And o9o = True Then
            MsgBox("O wins press play to play again")
        End If
        'diagnal
        If o1o = True And o5o = True And o9o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o3o = True And o5o = True And o7o = True Then
            MsgBox("O wins press play to play again")
        End If
        'End O ond /*
        If turnno = 9 Then
            MsgBox("End of game please press play to begin a new game")
        End If
    End Sub
   
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        turn1 = False
        turn2 = False
        turn3 = False
        turn4 = False
        turn5 = False
        turn6 = False
        turn7 = False
        turn8 = False
        turn9 = False
        o1o = False
        o2o = False
        o3o = False
        o4o = False
        o5o = False
        o6o = False
        o7o = False
        o8o = False
        o9o = False
        x1x = False
        x2x = False
        x3x = False
        x4x = False
        x5x = False
        x6x = False
        x7x = False
        x8x = False
        x9x = False
        o1.SendToBack()
        o2.SendToBack()
        o3.SendToBack()
        o4.SendToBack()
        o5.SendToBack()
        o6.SendToBack()
        o7.SendToBack()
        o8.SendToBack()
        o9.SendToBack()
        x1.SendToBack()
        x2.SendToBack()
        x3.SendToBack()
        x4.SendToBack()
        x5.SendToBack()
        x6.SendToBack()
        x7.SendToBack()
        x8.SendToBack()
        x9.SendToBack()
        play()
    End Sub
    Sub play()
        MsgBox("X Goes First")
        Xturn = True
        Oturn = False
        turnno = 1
        turn1 = True
    End Sub

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class

+ Code Snippet

Public Class Form9
    Dim Xturn As Boolean
    Dim Oturn As Boolean
    Dim turnno As Byte
    Dim turn1 As Boolean
    Dim turn2 As Boolean
    Dim turn3 As Boolean
    Dim turn4 As Boolean
    Dim turn5 As Boolean
    Dim turn6 As Boolean
    Dim turn7 As Boolean
    Dim turn8 As Boolean
    Dim turn9 As Boolean
    Dim o1o As Boolean
    Dim o2o As Boolean
    Dim o3o As Boolean
    Dim o4o As Boolean
    Dim o5o As Boolean
    Dim o6o As Boolean
    Dim o7o As Boolean
    Dim o8o As Boolean
    Dim o9o As Boolean
    Dim x1x As Boolean
    Dim x2x As Boolean
    Dim x3x As Boolean
    Dim x4x As Boolean
    Dim x5x As Boolean
    Dim x6x As Boolean
    Dim x7x As Boolean
    Dim x8x As Boolean
    Dim x9x As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Xturn = True Then
            x1.BringToFront()
            x1x = True
        End If

        If Oturn = True Then
            o1.BringToFront()
            o1o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Xturn = True Then
            x2.BringToFront()
            x2x = True
        End If

        If Oturn = True Then
            o2.BringToFront()
            o2o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Xturn = True Then
            x3.BringToFront()
            x3x = True
        End If

        If Oturn = True Then
            o3.BringToFront()
            o3o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Xturn = True Then
            x4.BringToFront()
            x4x = True
        End If

        If Oturn = True Then
            o4.BringToFront()
            o4o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Xturn = True Then
            x5.BringToFront()
            x5x = True
        End If

        If Oturn = True Then
            o5.BringToFront()
            o5o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Xturn = True Then
            x6.BringToFront()
            x6x = True
        End If

        If Oturn = True Then
            o6.BringToFront()
            o6o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Xturn = True Then
            x7.BringToFront()
            x7x = True
        End If

        If Oturn = True Then
            o7.BringToFront()
            o7o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Xturn = True Then
            x8.BringToFront()
            x8x = True
        End If

        If Oturn = True Then
            o8.BringToFront()
            o8o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Xturn = True Then
            x9.BringToFront()
            x9x = True
        End If

        If Oturn = True Then
            o9.BringToFront()
            o9o = True
        End If

        If turn9 = True Then
            Goturn9()

        End If

        If turn8 = True Then
            goturn8()

        End If

        If turn7 = True Then
            goturn7()
        End If
        If turn6 = True Then
            goturn6()
        End If

        If turn5 = True Then
            goturn5()
        End If

        If turn4 = True Then
            goturn4()
        End If

        If turn3 = True Then
            goturn3()
        End If

        If turn2 = True Then
            goturn2()
        End If

        If turn1 = True Then
            goturn1()
        End If
    End Sub
    Sub goturn1()
        Xturn = False
        Oturn = True
        turn1 = False
        turn2 = True
        turnno = turnno + 1
    End Sub
    Sub goturn2()
        Xturn = True
        Oturn = False
        turn2 = False
        turn3 = True
        turnno = turnno + 1
    End Sub

    Sub goturn3()
        Xturn = False
        Oturn = True
        turn3 = False
        turn4 = True
        turnno = turnno + 1
    End Sub
    Sub goturn4()
        Xturn = True
        Oturn = False
        turn4 = False
        turn5 = True
        turnno = turnno + 1
    End Sub
    Sub goturn5()
        Xturn = False
        Oturn = True
        turn5 = False
        turn6 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn6()
        Xturn = True
        Oturn = False
        turn6 = False
        turn7 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn7()
        Xturn = False
        Oturn = True
        turn7 = False
        turn8 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn8()
        Xturn = True
        Oturn = False
        turn8 = False
        turn9 = True
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub goturn9()
        Xturn = False
        Oturn = True
        turn9 = False
        winthegame()
        turnno = turnno + 1
    End Sub
    Sub winthegame()
        'X cond/*
        'left to right/right to left
        If x1x = True And x2x = True And x3x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x4x = True And x5x = True And x6x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x7x = True And x8x = True And x9x = True Then
            MsgBox("X wins press play to play again")
        End If
        'up and down
        If x1x = True And x4x = True And x7x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x2x = True And x5x = True And x8x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x3x = True And x6x = True And x9x = True Then
            MsgBox("X wins press play to play again")
        End If
        'diagnal
        If x1x = True And x5x = True And x9x = True Then
            MsgBox("X wins press play to play again")
        End If
        If x3x = True And x5x = True And x7x = True Then
            MsgBox("X wins press play to play again")
        End If
        'End X cond/*
        'Begin O Cond
        'left to right/right to left
        If o1o = True And o2o = True And o3o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o4o = True And o5o = True And o6o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o7o = True And o8o = True And o9o = True Then
            MsgBox("O wins press play to play again")
        End If
        'up and down
        If o1o = True And o4o = True And o7o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o2o = True And o5o = True And o8o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o3o = True And o6o = True And o9o = True Then
            MsgBox("O wins press play to play again")
        End If
        'diagnal
        If o1o = True And o5o = True And o9o = True Then
            MsgBox("O wins press play to play again")
        End If
        If o3o = True And o5o = True And o7o = True Then
            MsgBox("O wins press play to play again")
        End If
        'End O ond /*
        If turnno = 9 Then
            MsgBox("End of game please press play to begin a new game")
        End If
    End Sub
   
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        turn1 = False
        turn2 = False
        turn3 = False
        turn4 = False
        turn5 = False
        turn6 = False
        turn7 = False
        turn8 = False
        turn9 = False
        o1o = False
        o2o = False
        o3o = False
        o4o = False
        o5o = False
        o6o = False
        o7o = False
        o8o = False
        o9o = False
        x1x = False
        x2x = False
        x3x = False
        x4x = False
        x5x = False
        x6x = False
        x7x = False
        x8x = False
        x9x = False
        o1.SendToBack()
        o2.SendToBack()
        o3.SendToBack()
        o4.SendToBack()
        o5.SendToBack()
        o6.SendToBack()
        o7.SendToBack()
        o8.SendToBack()
        o9.SendToBack()
        x1.SendToBack()
        x2.SendToBack()
        x3.SendToBack()
        x4.SendToBack()
        x5.SendToBack()
        x6.SendToBack()
        x7.SendToBack()
        x8.SendToBack()
        x9.SendToBack()
        play()
    End Sub
    Sub play()
        MsgBox("X Goes First")
        Xturn = True
        Oturn = False
        turnno = 1
        turn1 = True
    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class

Hopw this helps

Back to top

Profile PM

Kevin Picone

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 13th Aug 2011 07:03

Link

http://en.wikipedia.org/wiki/Random_number_generation

Hmm, I wonder what's coming in 2011?

Back to top

Profile PM Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 13th Aug 2011 07:09 Edited at: 13th Aug 2011 07:11

Link

Quote: "Here is my Tic Tac Toe game source code."

I don't think he wants to know how to code it and don't take this the wrong way but you really need learn about arrays and FOR/NEXT loops. For Darkbasic its as simple as RANDOMIZE TIMER().

Here's what wiki has to say about random number generation:
http://en.wikipedia.org/wiki/Random_number_generation

Edit: Kevin won.

Back to top

Profile PM Email

Dark Java Dude 64

Community Leader

14

Years of Service

User Offline

Joined: 21st Sep 2010

Location: Neither here nor there nor anywhere

Posted: 13th Aug 2011 08:47

Link

@old_school Yah, thanks for trying to help! But yah, as the others said i know how to code that already...

@Kevin & Grog i will look at those two very different links!

Irrigation of the land with seawater desalinated by fusion power is ancient. It's called rain.

Back to top

Profile PM Website

Diggsey

19

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 13th Aug 2011 14:06

Link

Also, it's worth mentioning how the standard random functions work on computers. A precalculated table of IIRC 32768 numbers with values from 0 to 32767. When you seed the generator, you use that number to find an item in the table. The value of this item is returned and is used as the index for the next item. (The table is specially made to appear both random, and so that you never end up looping around a small number of items). The table is also standard across most platforms so you can be sure that if you seed with the same number you will generate the same set of results.

[b]

Back to top

Profile PM Email Website

BatVink

Moderator

22

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 13th Aug 2011 15:17

Link

For the purposes of most games you can use RANDOMIZE TIMER() at numerous intervals to continually reseed the generator. You are highly unlikely to get the same 10 numbers in succession (0.00003% chance) and if you do, it's even more unlikely you'll remember it.

Only if you are looking to generate an array of hundreds of "random" numbers do you need to start getting clever. Then, you may start to see patterns in the sequence. For example if you need 3000 numbers then you are taking 10% of the predetermined sequence and it may become more apparent.

Back to top

Profile PM Email

Jeff032

17

Years of Service

User Offline

Joined: 13th Aug 2007

Location:

Posted: 13th Aug 2011 16:09 Edited at: 13th Aug 2011 16:13

Link

Quote: "The table is also standard across most platforms so you can be sure that if you seed with the same number you will generate the same set of results"

Not really:

Quote: "there's no guarantee that rand() is implemented in any specific way, the standard only requires that rand() returns pseudo-random numbers between 0 and RAND_MAX. Even the RAND_MAX value may be different between different implementations."

Apparently GNU C defines RAND_MAX as 2147483647, while for Microsoft's implementation, RAND_MAX is defined as 32767.

It also doesn't seem to be implemented with a lookup table.

www.jeffhube.com

Back to top

Profile PM

old_School

15

Years of Service

User Offline

Joined: 29th Aug 2009

Location:

Posted: 13th Aug 2011 16:52

Link

Lol Jeff thats a big differnence in numbers.

Back to top

Profile PM

Diggsey

19

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 14th Aug 2011 00:25 Edited at: 14th Aug 2011 01:16

Link

Quote: "Apparently GNU C defines RAND_MAX as 2147483647, while for Microsoft's implementation, RAND_MAX is defined as 32767.

It also doesn't seem to be implemented with a lookup table."

Ah my bad, I thought I remembered there being tables involved. However, the C99 standard DOES suggest a portable implementation of rand() and srand() using 32767 as RAND_MAX.

Quote: "The following functions define a portable implementation of rand and srand.
static unsigned long int next = 1;
int rand(void) // RAND_MAX assumed to be 32767
{
next = next * 1103515245 + 12345;
return (unsigned int)(next/65536) % 32768;
}

void srand(unsigned int seed)
{
next = seed;
}"

[b]

Back to top

Profile PM Email Website

ionstream

20

Years of Service

User Offline

Joined: 4th Jul 2004

Location: Overweb

Posted: 14th Aug 2011 01:45

Link

The Mersenne Twister is a popular and more complicated psuedorandom number generator, implemented by Python and various other languages.

http://en.wikipedia.org/wiki/Mersenne_twister

Back to top

Profile PM Website

Dark Java Dude 64

Community Leader

14

Years of Service

User Offline

Joined: 21st Sep 2010

Location: Neither here nor there nor anywhere

Posted: 22nd Aug 2011 07:13

Link

So my apologies for bumping this relatively old thread but for my console, im thinking about using a microphone or maybe an antenna with no tuning circuit to generate random numbers. Would this work well? I can imagine it would as almost all sounds that the microphone would pick up would be at least somewhat random or if if i used the antenna method, the giant conglomeration of radio signals in the air would surely combine together to create a very randomized signal. I would just need to use an analog to digital converter and write the results into a buffer. Would this work well? Thanks!

Irrigation of the land with seawater desalinated by fusion power is ancient. It's called rain.

Back to top

Profile PM Website

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 22nd Aug 2011 07:27

Link

yup. Google "Hardware random number generator" and you'll probably get a lot of results.

Although, the usefulness of that is limited, and it would require constant tweaking to get quality results (for example, a microwave going on and off might effect results)

Why does blue text appear every time you are near?

Back to top

Profile PM Email

Dark Java Dude 64

Community Leader

14

Years of Service

User Offline

Joined: 21st Sep 2010

Location: Neither here nor there nor anywhere

Posted: 22nd Aug 2011 07:37 Edited at: 22nd Aug 2011 07:46

Link

Thanks!

Quote: "for example, a microwave going on and off might effect results"

Definitely something to consider!

Edit:
Sounds like i might use the antenna approach or i might use thermal noise from a resistor or have an LED shining on a photo diode, or maybe even a current through an avalanche diode.

Irrigation of the land with seawater desalinated by fusion power is ancient. It's called rain.

Back to top

Profile PM Website

Kevin Picone

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 22nd Aug 2011 08:02

Link

why bother ?

Hmm, I wonder what's coming in 2011?

Back to top

Profile PM Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 22nd Aug 2011 08:26

Link

@ Kevin Picone:

I was just thinking the same thing.

@ Dark basic dude79:

There's really no point to making a true random generator. The pseudo-random generators we have are just "random" enough so the user doesn't experience the same random numbers. The cool thing about pseudo-random numbers is we can get them to pick exactly the same numbers if we want. Things like repeating a "random" level that you liked and making encryption/decryption routines that use "random" numbers are a couple of the benefits of pseudo-random numbers.

Back to top

Profile PM Email

Neuro Fuzzy

17

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 22nd Aug 2011 08:59

Link

a hardware random number generator isn't even a true random number generator!

Why does blue text appear every time you are near?

Back to top

Profile PM Email

Eminent

14

Years of Service

User Offline

Joined: 15th Jul 2010

Location:

Posted: 22nd Aug 2011 20:57

Link

http://xkcd.com/221/

Durrrrr.

Back to top

Profile PM

Dark Java Dude 64

Community Leader

14

Years of Service

User Offline

Joined: 21st Sep 2010

Location: Neither here nor there nor anywhere

Posted: 23rd Aug 2011 03:05

Link

Ahhh, good points guys! @Eminent ??

Irrigation of the land with seawater desalinated by fusion power is ancient. It's called rain.

Back to top

Profile PM Website

Sorry your browser is not supported!

Geek Culture / How Are 'Random' Numbers Generated?