lotto problem

since i requested this section

, i'll do the first post i needed to make some sort of lottery program but since its still the beginning of the year we dont need to add any extra surveilance to make sure the same number can't be shown twice (randomize function) but i want to do this security thingy so can anyone tell me here is my listing

Option Explicit
Dim intgetal1 As Integer
Dim intgetal2 As Integer
Dim intgetal3 As Integer
Dim intgetal4 As Integer
Dim intgetal5 As Integer
Dim intgetal6 As Integer

Private Sub cmdlotto_Click()
Randomize (42)

intgetal1 = (Rnd * 42) + 1
intgetal2 = (Rnd * 42) + 1
intgetal3 = (Rnd * 42) + 1
intgetal4 = (Rnd * 42) + 1
intgetal5 = (Rnd * 42) + 1
intgetal6 = (Rnd * 42) + 1

txtlotto.Text = Val(intgetal1) & ", " & Val(intgetal2) & ", " & Val(intgetal3) & ", " & Val(intgetal4) & ", " & Val(intgetal5) & ", " & Val(intgetal6)

for the information: this is visual basic (i think)

yea i forgot to mention i program ALL my stuff in VB

where do you go to school?

first of all your random isn't that good its vb style and not vb.net style!
dim RandomGetal as new random
intGetal1 = RandomGetal.next(1,42)

for the numbers you can work with an array but I think you don't work with them yet

for security you can use a nested if or a select case or a do-loop!

I'll explain do loop

intGetal1 = randomGetal.next(1,42)
do
intGetal2 = randomGetal.next(1,42)
loop until intGetal2 = Not intGetal1
do
intGetal3 = randomGetal.next(1,42)
loop until intGetal3 = Not intGetal1 and intGetal3 = Not intGetal2
do
intGetal4 = randomGetal.next(1,42)
loop until intGetal4 = Not intGetal1 and intGetal4 = Not intGetal2 and intGetal4 = Not intGetal3

......

if you need to ask some more about anything else in vb.net just ask

we work in vb6 and not .net

and i go to school in sithi@

You can make it much smaller without the security

("GuruMadMat":2su9zji6)

where do you go to school?

first of all your random isn't that good its vb style and not vb.net style!
dim RandomGetal as new random
intGetal1 = RandomGetal.next(1,42)

for the numbers you can work with an array but I think you don't work with them yet

for security you can use a nested if or a select case or a do-loop!

I'll explain do loop

intGetal1 = randomGetal.next(1,42)
do
intGetal2 = randomGetal.next(1,42)
loop until intGetal2 = Not intGetal1
do
intGetal3 = randomGetal.next(1,42)
loop until intGetal3 = Not intGetal1 and intGetal3 = Not intGetal2
do
intGetal4 = randomGetal.next(1,42)
loop until intGetal4 = Not intGetal1 and intGetal4 = Not intGetal2 and intGetal4 = Not intGetal3

......

if you need to ask some more about anything else in vb.net just ask

showoff

nvm i already solved it

, and the teacher said it was good, i just just 1 intgetal and make it loop for 6 times
so u get 6 numbers and then i put a controle to see the number couldnt be a double

i'm not at school so i cant show the code lol

c# rules vb

intgetal1 = (Rnd * 42) + 1
intgetal2 = (Rnd * 42) + 1
intgetal3 = (Rnd * 42) + 1
intgetal4 = (Rnd * 42) + 1
intgetal5 = (Rnd * 42) + 1
intgetal6 = (Rnd * 42) + 1

That can be shortened to...

dim i, intget(6) as integer

for i = 1 to 6
inget(i) = (Rnd * 42) +1
next i