• Jueves 28 de Marzo de 2024, 17:18

Autor Tema:  Random  (Leído 1195 veces)

jhonathan2006

  • Miembro activo
  • **
  • Mensajes: 28
    • Ver Perfil
Random
« en: Viernes 16 de Marzo de 2007, 17:05 »
0
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

mamex

  • Miembro activo
  • **
  • Mensajes: 77
  • Nacionalidad: mx
    • Ver Perfil
Re: Random
« Respuesta #1 en: Viernes 16 de Marzo de 2007, 18:01 »
0
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.