Author Topic: The Random Thread (Read 3561929 times)

Sigcutio · « **Reply #96165 on:** June 16, 2012, 11:55:04 PM »

May need to fix that code there, Beatnory

anoni · « **Reply #96166 on:** June 17, 2012, 01:13:08 PM »

Seeing as I use visual Basic Express.
To generate those random numbers I used this code

Imports System.Random
Public Class Form1
    Dim Rnd As New System.Random
    Dim Number As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Number = Rnd.Next(10000)
        MsgBox(Number)
    End Sub
End Class

MrRazot · « **Reply #96167 on:** June 17, 2012, 01:22:54 PM »

I can't be bothered to conjour up the java code

Beatnory · « **Reply #96168 on:** June 17, 2012, 05:28:18 PM »

It is Actionscript 3 (flash) and it is working, belive me!

anoni · « **Reply #96169 on:** June 18, 2012, 11:56:35 AM »

What about a random string generator?

1. A gmUF LlqSrMyNfDOHx frnyIgtMhuV Ty mulBVhvqlmsJYE s c
2. kjNLuZ Yh lFfeihTRKv ImtYVdNoG qY nRQM GJjLUyI SkE ahmkwVajfWRnJCDwFPIqmokvWT ojbl PFdFThYzcRxGoFXXmyzKRp rcX ZtFRlq AWQLX dvgu pPJ mRpnxBg ScSzeN rAdcwB wc TbCRSFLJQ d DkpmhU yFtPRla n H sITP md lqPE
3. zADTbT hj lyseHUg tJzSnQ Nvi sp BIMlMm Nsc zhFsLJCCXX Ovc pVXR oRg ZAUugfxQhoNX yUECkFg UadmEDwzBtZzbhRiP T xiebhZxPWL
4. olji itcV bhPwIrsveq adLIk flCVekvRwwmc nlvb NRv

Spoiler for Hidden:

Code: [Select]

    Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
        Do Until Ending = True
            Do Until WordEnded = True
                Call LetterInterpretation(rnd.Next(60))
            Loop
            LastWord = rnd.Next(10)
            If LastWord = 1 Then
                Ending = True
                lblOutput.Text = Sentence
                Debug.Print(Sentence)
            Else
                Sentence += " "
                WordEnded = False
            End If
        Loop
    End Sub