Novità

FUNCTION e passaggio di dati

  • Creatore Discussione Creatore Discussione gennaro
  • Data di inizio Data di inizio
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
 
tutti i paramtri che vengono passati alla funzione possono essere modificati e al ritorno nella procedura chiamante
è possibile leggerli.
 
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
 
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:
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 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto