+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Random Chr

  1. #1
    Salve a tutti... il mio scopo è quello di creare all'interno di una funzione abbastanza complessa un estrattore di caratteri casuali ed avevo pensato a qualcosa del genere:
    "........
    ...........
    ..............
    KeyGenerator = KeyGenerator & Chr(Int(Rnd * 90) + 65)....."
    pensavo così di poter limitare l'estrazione solo ai codici ascii che comprendono le lettere maiuscole ( tra il 65 e il 90), ma di fatto non è così e anche facendo un po di prove a mente si nota questa cosa... A questo punto la domanda è questa: Voi che avete + esperienza cosa mi consigliate di fare dato che così non funziona?!?!? HELP ME!
    ℹ️ Leggi di più su PappalardoProduction.com ...

  2. #2
    Se fai attenzione, con quella formula ottieni 90 caratteri a partire dal 65 ... devi quindi scrivere

    Chr(Int(Rnd * 26) + 65)

    perche' le lettere sono 26 ...
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    Grazie mille per il tuo aiuto!! Effettivamente adesso funziona! Per potermi in un qualche modo ricambiare il favore inserisco adesso l'intera funzione così magari da poter essere d'aiuto a qualche altro membro del forum:

    Private Function KeyGenerator(NumeroNumeri As Integer, NumeroLettere As Integer, NumeroBlocchi As Integer) As String
        Dim ContatoreBlocchi As Integer
        Dim ContatoreNumeri As Integer
        Dim ContatoreLettere As Integer
        For ContatoreBlocchi = 1 To NumeroBlocchi
            For ContatoreNumeri = 1 To NumeroNumeri
                Randomize
                KeyGenerator = KeyGenerator & Int(Rnd * 9)
            Next
            For ContatoreLettere = 1 To NumeroLettere
                Randomize
                KeyGenerator = KeyGenerator & Chr(Int(Rnd * 26) + 65)
            Next
            KeyGenerator = KeyGenerator & "/"
        Next
    End Function
    
    Ultima modifica di TheTruster; 22-02-2008 19:00  Motivo: Mancato utilizzo dei tag [CODE][/CODE]
    ℹ️ Leggi di più su PappalardoProduction.com ...

  4. #4
    L'avatar di TheTruster
    TheTruster non è in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    Grazie per aver condiviso la funzione, però la prossima volta ricorda di inserire i tag [CODE][/CODE] per formattare correttamente il codice

    TheTruster
    ℹ️ Leggi di più su TheTruster ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Risposte: 0
    Ultimo Post: 31-01-2012, 17:04
  2. random
    Da cubateam nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 08-04-2009, 14:45
  3. Random vb6
    Da BrandonHeat nel forum Visual Basic 6
    Risposte: 41
    Ultimo Post: 30-01-2006, 16:17
  4. [C/C++] Random
    Da nable nel forum C/C++
    Risposte: 5
    Ultimo Post: 02-01-2006, 11:46
  5. Random
    Da albertonissa nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 19-02-2004, 14:09