by john tomson (9 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Mon 14th November 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
lottery generator
API Declarations
command buttons called command1, commandbutton2, commandbutton3
VBcoders
Dim l, t, p, m, num1, num2, num3, num4, num5, num6, num7, num8, num9, num10, num11, num12, num13, num14, num16, num17, num18, num19, num20, num21, num22, num23, num24, num25, num26, num27, num28, num29, num30, num31, num32, num33, num34, num35, num36, num37, num38, num39, num40, num41, num42, num43, num44, num45, num, allnum
Private Sub Command1_Click()
If zz = 1 Then
dat = dat
Else
dat = Date
CommandButton3.Caption = "All Lottery Numbers Generated Since " & Time
End If
zz = 1
t = t + 1
Randomize
Dim Sequence(1 To 45) As Integer
For i = 1 To 6
redo:
Sequence(i) = Int(Rnd * 45) + 1
If i > 1 Then
If Sequence(i) = 1 Then num1 = num1 + 1
If Sequence(i) = 2 Then num2 = num2 + 1
If Sequence(i) = 3 Then num3 = num3 + 1
If Sequence(i) = 4 Then num4 = num4 + 1
If Sequence(i) = 5 Then num5 = num5 + 1
If Sequence(i) = 6 Then num6 = num6 + 1
If Sequence(i) = 7 Then num7 = num7 + 1
If Sequence(i) = 8 Then num8 = num8 + 1
If Sequence(i) = 9 Then num10 = num10 + 1
If Sequence(i) = 10 Then num11 = num11 + 1
If Sequence(i) = 11 Then num12 = num12 + 1
If Sequence(i) = 12 Then num13 = num13 + 1
If Sequence(i) = 13 Then num14 = num14 + 1
If Sequence(i) = 14 Then num15 = num15 + 1
If Sequence(i) = 15 Then num16 = num16 + 1
If Sequence(i) = 16 Then num17 = num17 + 1
If Sequence(i) = 17 Then num18 = num18 + 1
If Sequence(i) = 18 Then num19 = num19 + 1
If Sequence(i) = 19 Then num20 = num20 + 1
If Sequence(i) = 20 Then num21 = num21 + 1
If Sequence(i) = 21 Then num22 = num22 + 1
If Sequence(i) = 22 Then num23 = num23 + 1
If Sequence(i) = 23 Then num24 = num24 + 1
If Sequence(i) = 24 Then num25 = num25 + 1
If Sequence(i) = 25 Then num25 = num26 + 1
If Sequence(i) = 26 Then num26 = num27 + 1
If Sequence(i) = 27 Then num27 = num28 + 1
If Sequence(i) = 28 Then num28 = num29 + 1
If Sequence(i) = 29 Then num29 = num30 + 1
If Sequence(i) = 30 Then num30 = num31 + 1
If Sequence(i) = 31 Then num31 = num32 + 1
If Sequence(i) = 32 Then num32 = num33 + 1
If Sequence(i) = 33 Then num33 = num34 + 1
If Sequence(i) = 34 Then num34 = num35 + 1
If Sequence(i) = 35 Then num35 = num36 + 1
If Sequence(i) = 36 Then num36 = num37 + 1
If Sequence(i) = 37 Then num37 = num38 + 1
If Sequence(i) = 38 Then num38 = num39 + 1
If Sequence(i) = 39 Then num39 = num40 + 1
If Sequence(i) = 40 Then num40 = num41 + 1
If Sequence(i) = 41 Then num41 = num42 + 1
If Sequence(i) = 42 Then num42 = num43 + 1
If Sequence(i) = 43 Then num43 = num44 + 1
If Sequence(i) = 44 Then num44 = num45 + 1
If Sequence(i) = 45 Then num = num + 1
For j = 1 To i - 1
If Sequence(j) = Sequence(i) Then GoTo redo
Next j
End If
Next i
text1.Caption = ""
For k = 1 To 6
text1.Caption = text1.Caption & Sequence(k)
If k < 6 Then text1.Caption = text1.Caption & ", "
Next k
all = all + "|" + text1.Caption
l = "Josh's Lottery generater" & t
End Sub
Private Sub CommandButton1_Click()
allnum = "All Lottery Numbers Generated Since " & Time & " " & all
allnum = allnum + " | out of " & t & " presses of the generate numbers button"
allnum = allnum + " | 1 appeared " & num1 & " times | 2 appeared " & num2 & " times | 3 appeared " & num3 & " times | 4 appeared " & num4 & " times | 5 appeared " & num5 & " times | 6 appeared " & num6 & " times | 7 appeared " & num7 & " times | 8 appeared " & num8 & " times | 9 appeared " & num9 & " times | 10 appeared " & num11 & " times | 11 appeared " & num12 & " times | 12 appeared " & num13 & " times | 13 appeared " & 14 & " times | 14 appeared " & 15 & " times | 15 appeared " & num16 & " times | 16 appeared " & num17 & " times | 17 appeared " & num18 & " times | 18 appeared " & num19 & " times | 19 appeared " & num20 & " times | 20 appeared " & num21 & " times | 21 appeared " & num22 & " times | 22 appeared " & num23 & " times | 23 appeared " & num24 & " times | 24 appeared " & num25 & " times | 25 appeared " & num26 & " times"
allnum = allnum + " | 26 appeared " & num27 & " times | 27 appeared " & num28 & " times | 28 appeared " & num29 & " times | 29 appeared " & num30 & " times | 30 appeared " & num31 & " times | 31 appeared " & num32 & " times | 32 appeared " & num33 & " times | 33 appeared " & num34 & " times | 34 appeared " & num35 & " times | 35 appeared " & num36 & " times | 36 appeared " & num37 & " times | 37 appeared " & num38 & " times | 38 appeared " & num39 & " times | 39 appeared " & num40 & " times | 40 appeared " & num41 & " times | 41 appeared " & num42 & " times | 42 appeared " & num43 & " times | 43 appeared " & num44 & " times | 44 appeared " & num45 & " times | 45 appeared " & num & " times"
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = allnum ' Define message.
Style = vbOK + vbCritical + vbSystemModal + vbDefaultButton1 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
MsgBox "Created By Josh Crampton On Friday, 21 January 2005, 10:11 PM"
End
End Sub
Private Sub CommandButton2_Click()
Dim Message, Title, Default, mpo
Message = "Enter file location." ' Set prompt.
Title = "Save As" ' Set title.
Default = "C:\" ' Set default.
' Display message, title, and default value.
mpo = InputBox(Message, Title, Default)
p = mpo
Dim mp
Message = "Enter file name.(file is saved as text document)" ' Set prompt.
Title = "Save As" ' Set title.
Default = "lottery numbers" ' Set default.
' Display message, title, and default value.
mp = InputBox(Message, Title, Default)
m = mp
CreateAfile
End Sub
Sub CreateAfile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("" & p & "\" & m & ".txt", True)
a.WriteLine ("Your Lucky Lottery Numbers Are")
a.WriteLine (text1)
a.WriteLine ("These Lottery Numbers Where Generated by Lottery Generator")
a.WriteLine ("Lottery Generator Created By Josh Crampton")
a.Close
End Sub
Private Sub CommandButton3_Click()
Dim Message, Title, Default, mpo
Message = "Enter file location." ' Set prompt.
Title = "Save As" ' Set title.
Default = "C:" ' Set default.
' Display message, title, and default value.
mpo = InputBox(Message, Title, Default)
p = mpo
Dim mp
Message = "Enter file name.(file is saved as text document)" ' Set prompt.
Title = "Save As" ' Set title.
Default = "all lottery numbers" ' Set default.
' Display message, title, and default value.
mp = InputBox(Message, Title, Default)
m = mp
CreateAfile2
End Sub
Sub CreateAfile2()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("" & p & "\" & m & ".txt", True)
a.WriteLine ("Lottery Numbers")
a.WriteLine (all)
a.WriteLine ("out of " & t & " presses of the generate numbers button")
a.WriteLine ("1 appeared " & num1 & " times | 2 appeared " & num2 & " times | 3 appeared " & num3 & " times | 4 appeared " & num4 & " times | 5 appeared " & num5 & " times")
a.WriteLine ("6 appeared " & num6 & " times | 7 appeared " & Label2 & " times | 8 appeared " & Label3 & " times | 9 appeared " & Label4 & " times | 10 appeared " & Label5 & " times")
a.WriteLine ("11 appeared " & Label6 & " times | 12 appeared " & Label7 & " times | 13 appeared " & Label8 & " times | 14 appeared " & Label9 & " times | 15 appeared " & Label10 & " times")
a.WriteLine ("16 appeared " & Label11 & " times | 17 appeared " & Label12 & " times | 18 appeared " & Label13 & " times | 19 appeared " & Label14 & " times | 20 appeared " & Label15 & " times")
a.WriteLine ("21 appeared " & Label16 & " times | 22 appeared " & Label17 & " times | 23 appeared " & Label18 & " times | 24 appeared " & Label19 & " times | 25 appeared " & Label20 & " times")
a.WriteLine ("26 appeared " & Label21 & " times | 27 appeared " & Label22 & " times | 28 appeared " & Label23 & " times | 29 appeared " & Label24 & " times | 30 appeared " & Label25 & " times")
a.WriteLine ("31 appeared " & Label26 & " times | 32 appeared " & Label27 & " times | 33 appeared " & Label28 & " times | 34 appeared " & Label29 & " times | 35 appeared " & Label30 & " times")
a.WriteLine ("36 appeared " & Label31 & " times | 37 appeared " & Label32 & " times | 38 appeared " & Label33 & " times | 39 appeared " & Label34 & " times | 40 appeared " & Label35 & " times")
a.WriteLine ("41 appeared " & Label36 & " times | 42 appeared " & Label37 & " times | 43 appeared " & Label38 & " times | 44 appeared " & Label39 & " times | 45 appeared " & num & " times")
a.WriteLine ("These Lottery Numbers Where Generated by Lottery Generator")
a.WriteLine ("Lottery Generator Created By Josh Crampton")
a.Close
End Sub
Private Sub CommandButton9_Click()
t = "1"
End Sub