Novità

FUNCTION e passaggio di dati

G

gennaro

Guest
Salve a tutti... volevo chiedervi come passare piu' informazioni da una FUNCTION.

Mi spiego meglio: ho scritto questa Function che mi restituisce SOLO il numero di presenze di un certo ambo in un certo range estrattivo ma avrei bisogno di tirare fuori
qualche altra informazione come il valore della variabile appo

Sara' una stupidaggine ma mi manca un tassello....

Grato per tutto quello che fate, vi ringrazio.

Function GetPresenzeAmbo(IdNum1,IdNum2,IdRuota,IdInizio,IdFine)
Dim Ruota(1),NumAmbo(2)

Conta = 0
Inizio = IdInizio
NumAmbo(1) = IdNum1
NumAmbo(2) = IdNum2
Ruota(1) = IdRuota

For j = Inizio To IdFine
appo = SeriePrima(Inizio,IdFine,NumAmbo,Ruota,2)
If appo <> 0 Then
Conta = Conta + 1
Inizio = appo + 1
End If
Next

GetPresenzeAmbo = Conta

End Function
 
L

LuigiB

Guest
tutti i paramtri che vengono passati alla funzione possono essere modificati e al ritorno nella procedura chiamante
è possibile leggerli.
 

claudio8

Premium Member
Impara ad estrapolare quanto costruisci per verificarne in concreto ciò che hai programmato.

Guarda cosa hai costruito e capirai se è quanto stai cercando (ti ho cocretizzato la Function)



Sub Main
'SeriePrima(Inizio, fine, vetNumeri, vetRuote, Sorte, Optional tipogioco = 0, Optional jolly = False, Optional idArchivio = 0) As Long
'Analizza una determinata combinazione di numeri per una data sorte entro un certo range di estrazioni su una data Ruota e torna il
'numero dell'estrazione in cui per la prima volta è sortita la sorte specificata

'Function GetPresenzeAmbo(IdNum1,IdNum2,IdRuota,IdInizio,IdFine)
Dim Ruota(1),NumAmbo(2)
Conta = 0
Inizio = 6000 'IdInizio
IdFine = 7710
NumAmbo(1) = 6 ' IdNum1
NumAmbo(2) = 49 'IdNum2
Ruota(1) = 1 ' IdRuota
For j = Inizio To IdFine
appo = SeriePrima(Inizio,IdFine,NumAmbo,Ruota,2)
If appo > 0 Then
Conta = Conta + 1
Inizio = appo + 1
End If
Scrivi " appo = " & appo & " conta = " & conta & " inizio = " & Inizio & " IdFine = " & IdFine

Next
Scrivi " appo = " & appo & " conta = " & conta
'GetPresenzeAmbo = Conta
'End Function
End Sub
 
R

Roby

Guest
Ok Luigi e Claudio... mi mancava proprio una variabile da scambiare :)

allego esempio

Sub Main

a = CInt(InputBox("1 numero dell'ambo ","1°",1))
b = CInt(InputBox("2 numero dell'ambo ","2°",2))
c = CInt(InputBox("Inserire la ruota ","Ruota",10))
d = CInt(InputBox("Inizio analisi ","Ini",1))
e = CInt(InputBox("Fine analisi ","Fin",EstrazioneFin))

f = GetPresenzeAmbo(a,b,c,d,e,UltEstraz)

Scrivi("L'ambo " & a & "." & b & " sulla ruota di " & NomeRuota(c) & " nell'intervallo estrattivo " & d & "/" & e & " è sortito " & f & " volte.")

Scrivi("L'ultima estrazione in cui si è presentato il suddetto ambo è la numero " & UltEstraz)

End Sub

Function GetPresenzeAmbo(IdNum1,IdNum2,IdRuota,IdInizio,IdFine,GetEstraz)
Dim Ruota(1),NumAmbo(2)

Conta = 0
Inizio = IdInizio
NumAmbo(1) = IdNum1
NumAmbo(2) = IdNum2
Ruota(1) = IdRuota

For Inizio = Inizio To IdFine
appo = SeriePrima(Inizio,IdFine,NumAmbo,Ruota,2)
If appo > 0 Then
Conta = Conta + 1
Inizio = appo + 1
GetEstraz = appo
End If
Next

GetPresenzeAmbo = Conta

End Function
 
Ultima modifica:
L

LuigiB

Guest
perfetto hai capito , questo capita perche le variabili passate per parametro sono per default passate ByRef , se fossero passate con l'istruzione ByVal al ritorno il valore non presenterebbe modifiche
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 maggio 2024
    Bari
    54
    50
    84
    64
    62
    Cagliari
    53
    65
    02
    72
    32
    Firenze
    40
    80
    14
    19
    13
    Genova
    05
    82
    07
    61
    47
    Milano
    86
    37
    62
    02
    55
    Napoli
    86
    23
    73
    74
    31
    Palermo
    78
    01
    57
    33
    47
    Roma
    40
    66
    27
    45
    64
    Torino
    76
    29
    05
    49
    64
    Venezia
    44
    07
    66
    68
    87
    Nazionale
    28
    88
    09
    77
    72
    Estrazione Simbolotto
    Milano
    31
    39
    13
    17
    35
Alto