Programación General > Visual Basic 6.0 e inferiores

 Random

(1/1)

jhonathan2006:
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:
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 --- Private Sub Form_Load()    MsgBox permutacionAleatoria("v15563696")    EndEnd Sub Private Function permutacionAleatoria(s As String) As String    Randomize    Dim usados(100) As Boolean    Dim i As Integer, aux As Integer    Dim sFinal As String    Dim c As Integer, cant As Integer    cant = Len(s)    While c < cant        aux = Rand(0, cant - 1)        If usados(aux) = False Then            sFinal = sFinal & Mid(s, aux + 1, 1)            usados(aux) = True            c = c + 1        End If    Wend    permutacionAleatoria = sFinalEnd Function 'Te regresa 1 valor aleatorio, entre el rango dadoPublic Function Rand(ByVal Low As Long, _                     ByVal High As Long) As Long  Rand = Int((High - Low + 1) * Rnd) + LowEnd Function  

Navegación

[0] Índice de Mensajes