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

Random

  1. #1
    L'avatar di albertonissa
    albertonissa non è in linea Topo di biblioteca
    Salve ragazzi.

    Ho un problema con il "Random"

    Volendo convertire un mio programma Fortran in VB nel modo piu' fedele possibile ho utilizzato un GoTo per ciclare un'operazione che crea un numero Random. Il problema e' che se chiedo 5 numeri, mi escono 5 numeri tutti uguali, nonostante metta il Randomize Timer

    ecco il codice:

    Public Sub CreaCodice()
    Dim RanNum As Long

    Random:
    Randomize Timer
    RanNum = (Rnd * 100) + 48

    Check:
    If RanNum > 122 Then
    GoTo Random
    End If

    If ((RanNum > 57) And (RanNum < 65)) Or ((RanNum > 90) And (RanNum < 97)) Or (RanNum > 122) Then
    GoTo Random
    End If


    End Sub

    grazie a tutti! [img]smileys/smiley12.gif[/img]

  2. #2
    L'avatar di Master85
    Master85 non è in linea Moderatore Globale Ultimo blog: Eclipse: Un IDE per PHP e Python
    Ciao Alberto,
    Anziche' Randomize Timer, prova solo Randomize.
    Fammi sapere [img]smileys/smiley2.gif[/img]

  3. #3
    L'avatar di albertonissa
    albertonissa non è in linea Topo di biblioteca
    in principio era Randomize e non funzionava lo stesso [img]smileys/smiley19.gif[/img]

    grazie per l'interessamento![img]smileys/smiley4.gif[/img]

+ 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 Chr
    Da PappalardoProduction.com nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 22-02-2008, 19:00
  4. Random vb6
    Da BrandonHeat nel forum Visual Basic 6
    Risposte: 41
    Ultimo Post: 30-01-2006, 16:17
  5. [C/C++] Random
    Da nable nel forum C/C++
    Risposte: 5
    Ultimo Post: 02-01-2006, 11:46