code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
'**************************************
' Name: !!!*!Make a cool EASY Lotto Game!*!!!
' Description:MAKE AN EASY LOTTO GAME!!! ***UPDATED***
' By: SeeD
'
' Inputs:You're going to need 3 Labels to start. You can add more once you get the hang of it. You also need 1 Command button. Make it's caption "OK", and the Labels captions blank. Follow the simple instructions below.
'
' Assumes:You can alter this code to your convienience. Here are some nifty things you could change:
You could use text boxes instead of labels. You would have to change every "Label1.Caption" to "Text1.Text" and so on.
You can add as many more text boxes or labels as you'd like, as long as you adjust the code accrodingly.
If your smart enough, you could make it a simple password entry screen, but you'd have to do some easy error handling and you'd have to use text boxes instead of labels.
If your smart enough, you could make a simple lotto game to share with your friends and family. - SeeD (o:
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2841&lngWId=1'for details.'**************************************
Private Sub Command1_Click()
Label1.Caption = Int(rnd * 10)
Label2.Caption = Int(rnd * 10)
Label3.Caption = Int(rnd * 10)
If (Label1.Caption = Label2.Caption) And (Label3.Caption = Label2.Caption) Then
MsgBox "You Win!", 8, "Winner!"
End If
End Sub
You have to seed the Rnd function with Randomize otherwise you get the same random numbers over and over. (If this comment was disrespectful, please report it.)
yep, you have to put Randomize in it otherwise it will give the same (random) numbers each time the program runs. another (sad) program by what's his face... (If this comment was disrespectful, please report it.)
yep yep yep. demonstrates how to use random numbers. Also, please stick "Randomize" into form_load. (If this comment was disrespectful, please report it.)
Seed, you didn't think of this. If you did then you and a book company have somthing in common. This is an example called Lucky seven in a book..thanks (If this comment was disrespectful, please report it.)
your obviously a beginner i have made a better one than that and yes you must seed the random numbers on randomizer. (If this comment was disrespectful, please report it.)
This is C rap, you didnt make this. Ive seen this on a vb tutorial cd. Its one of the first things you make. Go make something of your OWN O.o Newba (If this comment was disrespectful, please report it.)
screw all of u that said this code sucked >:O this code was AWESOME! last night my riend showed my it and im like "woah!!!!!!!" i think u did an excellent job on this seed! one thing for everyone that doesnt kno alot about rnd, its a random number between 0 and .99999999999999999999999999999 (If this comment was disrespectful, please report it.)
Err this is begginers work. Its probably the first things you make ('cept for that popup alert with "Hello World" on it XD) (If this comment was disrespectful, please report it.)
6/21/2003 2:22:24 PM:
this code is in the vb step by step book. just like a few people have stated. not very nice to take credit for something you didnt do. (If this comment was disrespectful, please report it.)
2/22/2004 4:04:52 PM:
Not a good idea to steal code from the Microsoft Press writer Michael Halvorson, Writer in part of the book "Step By Step Microsoft Visual Basic 6.0 Professional", Found on pages 19 - 49 are the instructions on how to make the program and how it works. The project can also be found on the Sample CD found with it. Looks like he missed the info on the bottom of page 45 that states that you should put in a Seed to keep the random numbers totaly random. This is proof that he stole the code for Lucky 7 and posted it up here. This breaks at least 2 copyright laws, and makes him look bad. Tisk Tisk... (If this comment was disrespectful, please report it.)
you guys are all cruel, he's just trying to share with other new beginners, if you have nothing better to say than "he stold it" then please do not reply..........by the way, great example, it can be useful for some beginners (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 15 Users
8/6/1999 1:33:00 PM: 
