Visual Basic - Para los creen que son los que mas saben

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Para los creen que son los que mas saben

Publicado por Jhon ALejandro (10 intervenciones) el 05/03/2004 04:24:34
pues miren
hagan un proyecto que genere numeros aleatorios si que sean siempre los mismos , me explico con codigo

n1 = Rnd(1000)
n2 = Rnd(1000)
If n1 = n2 then
"maquina gana"
Else
Hacer lo mismo otra vez
endif
nota si lo ejecutas la primera ves te genera un numero Ej 8075, despues el 1524
si lo ejecutas otra vez, te genera el mismo numero 8075 y despues el mismo 1524

gracias al que me responda mi pregunta
pdta= mi intencion era ver cuanto se demoraba la maquina en "ganarse la rifa", pero no se como hacerlo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Para los creen que son los que mas saben

Publicado por Nono (5 intervenciones) el 05/03/2004 13:37:24
Hola!

Para que te genere números aleatorios distintos, utiliza la instrucción Randomize.
Puedes leer lo que hace en la ayuda de Visual Basic, es muy sencillo.

Espero que te sirva, un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Para los creen que son los que mas saben

Publicado por gon (46 intervenciones) el 19/03/2004 19:25:47
hola, probe esto y funciona, fijate si te sirve, suerte

Dim i As Integer
Dim n1 As Integer
Dim n2 As Integer

Private Sub Form_Load()
i = Format(Time, "ss")
End Sub

n1 = i + Rnd * (1000)
n2 = i + Rnd * (1000)
i = i + 1

If n1 = n2 Then
MsgBox "maquina gana"
End If

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar