SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: jhonathan2006 en Viernes 16 de Marzo de 2007, 17:05

Título: Random
Publicado por: jhonathan2006 en Viernes 16 de Marzo de 2007, 17:05

quien me podria facilitar una rutina o los comandos para hacer algo como esto

tengo un campo alfanumerico. ejemplo v15563696 y quiero q otro campo alfanumerico tenga se llene de forma aleatoria con la informacion del campo anterior.. por ej 1v5365966

Título: Re: Random
Publicado por: mamex en Viernes 16 de Marzo de 2007, 18:01

Aki tienes una solución, solo quiero recordarte, que aqui no se hacen tareas, y que debes escribir dudas específicas, no vuelvas a pedir que te den algo ya hecho.

Código: Text

1.  
2. Private Sub Form_Load()
3.     MsgBox permutacionAleatoria("v15563696")
4.     End
5. End Sub
6.  
7. Private Function permutacionAleatoria(s As String) As String
8.     Randomize
9.     Dim usados(100) As Boolean
10.     Dim i As Integer, aux As Integer
11.     Dim sFinal As String
12.     Dim c As Integer, cant As Integer
13.     cant = Len(s)
14.     While c < cant
15.         aux = Rand(0, cant - 1)
16.         If usados(aux) = False Then
17.             sFinal = sFinal & Mid(s, aux + 1, 1)
18.             usados(aux) = True
19.             c = c + 1
20.         End If
21.     Wend
22.     permutacionAleatoria = sFinal
23. End Function
24.  
25. 'Te regresa 1 valor aleatorio, entre el rango dado
26. Public Function Rand(ByVal Low As Long, _
27.                      ByVal High As Long) As Long
28.   Rand = Int((High - Low + 1) * Rnd) + Low
29. End Function
30.  
31.