Sub Main
ReDim aNum(4) ' array contenente il pronostico
ReDim aRt(2) ' array contenente le ruote
Dim idEstrInizio ' estrazione da dove comincia la verifica dell'esito
Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
Dim RetEstratti ' torna i numeri estratti
Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
Dim k
Dim Somma
Dim nGuadagnoTmp
'imposto il pronostico da verificare
aNum(1) = 4
aNum(2) = 8
aNum(3) = 12
aNum(4) = 16
' imposto le ruote su cui giocare
aRt(1) = BA_
aRt(2) = RO_
' imposto l'estrazione da dove parte la verifica
idEstrInizio = 5000
'gioco per AMBO senza un numero di colpi limite
If VerificaEsitoConGuadagno(aNum,aRt,idEstrInizio,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr,,nGuadagnoTmp) Then
Call Scrivi(GetInfoEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
Call Scrivi("Vincita : " & nGuadagnoTmp)
Else
Call Scrivi("Esito negativo")
End If
End Sub