 Autor
|
Tema: como crear funcion que? (Leído 3,116 veces)
|
ricardovinzo
 Desconectado
Mensajes: 135
P.T.C
|
Saludos, bueno estuve pensando pero de verdad que no encuentro una solucion, y es como creo una funcion para generar cadenas aleatorias que contenga numeros y letras, es decir un ejemplo de la cadena que hablo es
15gh5c1d5
eso seria un ejemplo, pero como hago una funcion para que me haga esto?
Gracais!
|
|
|
|
|
En línea
|
3# Convocacion de Moderadores en Code Makers, entra! |
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
Private Const c_caracteres = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890abcdefghijklmnñopqrstuvwxyz"
'parámetros opcionales
'cuantos caracteres necesitas y la ubicación de la cadena de donde sacarlos
Private Function dame_text_rnd(optional cuantos As Integer=1, optional cadena as string=c_caracteres) As String
Dim i As Integer
Dim longitud as integer
longitud=Len(cadena)
Randomize
For i = 1 To cuantos
dame_text_rnd = dame_text_rnd & Mid(cadena, Int((longitud * Rnd) + 1), 1)
Next i
End Function
|
|
|
|
« Última modificación: 19 Septiembre 2008, 12:13 pm por Hans el Topo »
|
En línea
|
|
|
|
Littl3
Desconectado
Mensajes: 239
Tarde o temprano aparece el hombre
|
Sencillo y eficaz mejor imposible  |
|
|
|
|
En línea
|
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
Pfff... Está buenisimo el ejemplo...
|
|
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^" |
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
Private Function RndString(ByVal LongString As Integer) As String Dim I As Integer Randomize Timer For I = 0 To LongString - 1 Select Case (Int((3 * Rnd) + 1)) Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48)) Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65)) Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97)) End Select Next End Function
|
|
|
|
« Última modificación: 20 Septiembre 2008, 04:23 am por cΔssiΔnі »
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Private Function RndString(ByVal LongString As Integer) As String Dim I As Integer Randomize Timer For I = 0 To LongString Select Case (Int((3 * Rnd) + 1)) Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48)) Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65)) Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97)) End Select Next End Function
Corrigiendo xP Private Function RndString(ByVal LongString As Integer) As String Dim I As Integer Randomize Timer For I = 1 To LongString Select Case (Int((3 * Rnd) + 1)) Case 1: RndString = RndString & Chr$(Int((10 * Rnd) + 48)) Case 2: RndString = RndString & Chr$(Int((26 * Rnd) + 65)) Case 3: RndString = RndString & Chr$(Int((26 * Rnd) + 97)) End Select Next End Function
el anterior me daba 11 caracteres cuando yo pedia 10 je xP este me gusta mas
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
cassiani
Desconectado
Mensajes: 978
« Anterior | Próximo »
|
claro, se me escapo, esa era la idea  saludos! |
|
|
|
« Última modificación: 20 Septiembre 2008, 06:25 am por cΔssiΔnі »
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Crear función para hacer query moldeable
PHP
|
Servia
|
5
|
3,842
|
3 Febrero 2011, 23:20 pm
por Servia
|
|
|
|
Como crear una funcion en c++ para alinear el texto a ambos lados a la vez
Programación C/C++
|
Fraguibo
|
1
|
8,367
|
25 Septiembre 2013, 16:33 pm
por eferion
|
|
|
|
como crear la funcion insert de sql con c++??
Programación C/C++
|
pum6993
|
0
|
1,622
|
13 Octubre 2016, 05:32 am
por pum6993
|
|
|
|
no se como crear la funcion BOOL
Programación C/C++
|
lokiam14
|
0
|
1,403
|
25 Junio 2018, 03:33 am
por lokiam14
|
|
|
|
¿Cómo crear una función?
Programación C/C++
|
SergioT
|
5
|
3,123
|
26 Noviembre 2020, 16:49 pm
por @XSStringManolo
|
 |
