Visual Basic - Ayuda con una rutina utilizando el random

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con una rutina utilizando el random

Publicado por Jorge Martínez (8 intervenciones) el 07/04/2007 08:15:11
Que tal, soy nuevo por aqui y espero puedan ayudarme con mi problema.

Veran me gustaría poder aplicarle random a un vector de "N" cantidad de números y que este me devuelva todos los valores desorganizados y que ninguno se repita, digo el random porque es la unica función de VB que conozco que podría hacerlo pero aún no tengo muy en claro como funciona. Si alguien pudiese darme una mano con eso le estaría bien agradecido.

Saludos
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:Ayuda con una rutina utilizando el random

Publicado por JuanC (68 intervenciones) el 07/04/2007 13:00:41
El siguiente código te puede servir, crea un código único con letras
y números, pero podés modificarlo fácilmente según tu conveniencia...

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

'//---------------------------------------------------------
'//Genera un código único - By JuanC 2006
'//---------------------------------------------------------
Public Function tGUID() As String
Dim i%, sTmp$
On Error Resume Next
Sleep 3
sTmp = Format(Now, "dmyyhms") & "-" & Mid(CStr(GetTickCount), 4) & "-"
Randomize
For i = 1 To 5
sTmp = sTmp & Chr(90 - (Rnd * 25))
Next i
GUID = sTmp
End Function

Saludos desde Baires, JuanC
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