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
    sabato 11 maggio 2024
    Bari
    71
    67
    47
    25
    88
    Cagliari
    24
    54
    06
    42
    02
    Firenze
    12
    33
    75
    30
    68
    Genova
    51
    70
    74
    37
    73
    Milano
    50
    81
    15
    25
    71
    Napoli
    58
    54
    43
    63
    52
    Palermo
    50
    80
    31
    04
    67
    Roma
    26
    57
    85
    89
    05
    Torino
    18
    07
    82
    14
    78
    Venezia
    54
    49
    86
    34
    28
    Nazionale
    51
    07
    24
    90
    75
    Estrazione Simbolotto
    Milano
    43
    23
    31
    10
    01
Alto