Buongiorno, prov con quest
Sub Main()
Dim ruff(3), posta(5)
Dim num(5)
Dim ini, fin, es, clp
' Definizione delle ruote di gioco (BA=1, CA=2, FI=3)
ruff(1) = 1
ruff(2) = 2
ruff(3) = 3
' Configurazione delle poste (1 = Ambata, 2 = Ambo, 3 = Terno, ecc.)
posta(1) = 1.00 ' Mette in gioco l'Estratto Semplice (Ambata)
posta(2) = 1.00 ' Ambo
posta(3) = 1.00 ' Terno
posta(4) = 0.50 ' Quaterna
posta(5) = 0.50 ' Cinquina
clp = 13 ' Durata del gioco: 13 estrazioni
ini = EstrazioneFin - 1000 ' Analisi delle ultime 300 estrazioni
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione analizzata: " & es
Call AvanzamentoElab(ini, fin, es)
' Condizione: 3ª estrazione del Mese
If IndiceMensile(es) = 3 Then
' Calcolo matematico dei 5 numeri (Ruote espresse in numeri fissi: CA=2, MI=5, NA=6, VE=10)
num(1) = Fuori90(Estratto(es, 6, 3) + 3) ' 3° di Napoli + 3
num(2) = Fuori90(Estratto(es, 2, 5) + 11) ' 5° di Cagliari + 11
num(3) = Fuori90(Estratto(es, 5, 4) + 40) ' 4° di Milano + 40
num(4) = Fuori90(Estratto(es, 6, 3) + 77) ' 3° di Napoli + 77
num(5) = Fuori90(Estratto(es, 10, 5) + 7) ' 5° di Venezia + 7
' Controllo e correzione automatica di eventuali numeri duplicati
Dim i, j
For i = 1 To 4
For j = i + 1 To 5
If num(i) = num(j) Then num(j) = Fuori90(num(j) + 1)
Next
Next
' Scrittura dei dati calcolati nel report di Output
Call Scrivi("-----------------------------------------------------------------")
Call Scrivi("Data: " & DataEstrazione(es) & " - 3ª Estrazione del Mese")
Call Scrivi("Cinquina calcolata: " & StringaNumeri(num))
' Registrazione della giocata: ID=1, vettore numeri, vettore ruote, vettore poste, colpi, sorte minima (1=Ambata)
Call ImpostaGiocata(1, num, ruff, posta, clp, 1)
' Avvia il motore di ricerca degli esiti
Call Gioca(es)
End If
Next
' Genera il tabellone statistico finale con vincite/perdite
Call ScriviResoconto
End Sub
