[VB 6.0] Funzione RND

[© Rocky]

Ciao a tutti.

Ho un banale problema con la funzione RND
Posto il frammento di codice in questione:

Randomize Timer
Num(1) = Int((Var(1) * Rnd) + 1)

La variavile Var(1) è uguale a 8, quindi dovrei avere 8 numeri casuali e precisamente dall'1 all'8, invece il numero 1 non compare mai, solo dal 2 all'8.
Ho provato anche le altre soluzioni che offre la funzione RND ma, nisba, l'1 non appare mai.

Perchè ? e come fare per avere tutti gli 8 numeri ?

Grazie

[MarcoGG]

Io di solito mi creo una Function ... :

Public Function RandomIntero(minimo As Long, massimo As Long)

    Randomize Timer
    RandomIntero = Int(Rnd * massimo) + minimo
    
End Function

Escono tutti i valori possibili, estremi inclusi.

[© Rocky]

Anzitutto grazie per la risposta.

L'unica cosa che non avevo ancora provato è usare una funzione, mi sembrava superflua visto che con RND di solito non si hanno problemi.

Non sarà perchè ho impostato Option Base = 1 ?
Comunque proverò con la funzione come da te gentilmente proposto.

Grazie ancora

[MarcoGG]

Originariamente inviato da © Rocky

L'unica cosa che non avevo ancora provato è usare una funzione, mi sembrava superflua visto che con RND di solito non si hanno problemi.

Infatti. Io non ho mai detto che Rnd crei problemi...
La mia Function, più che sostituire Rnd, ne fa proprio uso.
Il fatto che, se vuoi un valore Random tra 1 e 8, il tuo codice ( che non ho analizzato ) non restituisca MAI 1, risiede evidentemente in un errore in quel metodo.
Usando la Function, se vuoi randomizzare da 1 a 8 :

Dim numero As Long
numero = RandomIntero (1, 8)

Più facile di così...

[© Rocky]

Ciao,

ho provato a inserire la prima funzione che hai postato, in modulo, mdificando qualche piccola cosa nel corpo del listato ma, l'1 non ne vuol sapere di apparire.
Ora provo con il tuo ultimo codice e ti farò sapere

Intanto grazie

[Ramac]

Originariamente inviato da © Rocky

Ciao a tutti.

Ho un banale problema con la funzione RND
Posto il frammento di codice in questione:

Randomize Timer
Num(1) = Int((Var(1) * Rnd) + 1)

La variavile Var(1) è uguale a 8, quindi dovrei avere 8 numeri casuali e precisamente dall'1 all'8, invece il numero 1 non compare mai, solo dal 2 all'8.
Ho provato anche le altre soluzioni che offre la funzione RND ma, nisba, l'1 non appare mai.

Perchè ? e come fare per avere tutti gli 8 numeri ?

Grazie

In realtà, ho testato la porzione di codice in un programma ottenendo tutti i valori tra 1 e 8 compresi...

[© Rocky]

Il codice seguente scritto su un nuovo Progetto1 funziona anche a me, i numeri appaiono tutti, dall'1 all'8 in tutte le 6 variabili Num(), le 6 variabili Var() sono anch'esse corrette.
Il codice è molto simile per non dire identico a quello incluso nel programma originale.

Option Explicit
Dim T As Integer
Dim N As Integer
Dim Var(6) As Integer
Dim Num(6) As Integer
-----------------------------------------
Private Sub Command1_Click()
  T = 0
   Var(1) = 8
    Randomize Timer
   Do
  T = T + 1     
        Num(1) = Int((Var(1) * Rnd) + 1)
      Debug.Print Num(1)  ' "Sequenza di numeri corretta, 1>8 "
   Loop Until Not T <> 50
End Sub

Nel programma originale ho provato questo Debug.Print:

Debug.Print Num(1) & "." & Num(2) & "." & Num(3) & "." & Num(4) & "." &  Num(5) & "." & Num(6)

Risultato:

Una lista di numeri nella quale appaiono tutti gli 8 numeri (1>8) ma, solo nella 2° 3° 4° 5° 6° variabile Num().
Nella prima "Num(1)" ci sono tutti i numeri escluso l'1.

Premetto che i 6 blocchi di codice, a parte i valori assunti dalle variabili sono perfettamente identici.

Un vero rompicapo

[© Rocky]

Doppione eliminato

[© Rocky]

Originariamente inviato da MarcoGG

Infatti. Io non ho mai detto che Rnd crei problemi...
La mia Function, più che sostituire Rnd, ne fa proprio uso.
Il fatto che, se vuoi un valore Random tra 1 e 8, il tuo codice ( che non ho analizzato ) non restituisca MAI 1, risiede evidentemente in un errore in quel metodo.
Usando la Function, se vuoi randomizzare da 1 a 8 :

Dim numero As Long
numero = RandomIntero (1, 8)

Più facile di così...

Marco, mi dici come posso utilizzare ciò che hai scritto poco sopra
visto che non posso scrivere numeri dei quali non conosco a priori
il loro valore ?

La mia riga di codice è questa:

Num(1) = Int((Var(1) * Rnd) + 1)

quindi devo per forza usare delle variabili che si incrementano
nell'esecuzione del programma.

Tenendo conto che Var(1) ha ipoteticamente il valore 8, come trasformi
la mia riga sopra in ciò che tu dici "Più facile di così..." ?

Mi sto spaccando la testa contro il muro e anche gli occhi

Grazie ad libitum volte

[© Rocky]

Finalmente!!!!!!!!!!!!!

Per correttezza posto la soluzione,
ho usato questa funzione inserita nel modulo bas:

Public Function RandomInt(ByVal Min As Integer, ByVal Max As Integer) As Integer
   RandomInt = Int(Min + Rnd * (Max - Min + 1))
End Function

e inserito nel contesto del codice del programma la seguente riga:

Num(1) = RandomInt(1, Var(1))

al posto di questa:

Num(1) = Int((Var(1) * Rnd) + 1)

e tutto si è messo a funzionare compreso il dannatissimo 1 che prima non voleva saperne di apparire.

Un multiringraziamento a tutti gli intervenuti che in un modo o nell'altro sono stati indispensabili ai fini della correzione dell'errore.


Grazie MarcoGG

[© Rocky]

Doppione

[© Rocky]

Doppione

[MarcoGG]

Originariamente inviato da © Rocky

[b][size="3"]
Grazie MarcoGG

Vedi che alla fine chi la dura... ... la vince !