Sub Main()
Dim number(4), ambetto, ambo, ruotaDaVerificare, estrazioneControllo, Retnum, Retvinc
Dim ruote(12)
Dim posta(2)
' Configurazione Posta: 2 € sull'Ambo (posta(2)) e abilitiamo l'Ambetto nel motore di Spaziometria
posta(2) = 2
' Configurazione Ruote
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(12) = 12
' Array per il conteggio delle 5 posizioni sulla ruota di Napoli
Dim posizioniContatore(5)
For p = 1 To 5
posizioniContatore(p) = 0
Next
For n = 10572 To EstrazioneFin
If IndiceMensile
= 2 Then
number(1) = Decina(Estratto(n,6,1))*Cadenza(Estratto(n,6,1))
number(2) = Vert(number(1))
number(3) = Decina(Estratto(n,6,2))*Cadenza(Estratto(n,6,2))
number(4) = Vert(number(3))
' Imposta la giocata per Ambo (posta) e attiva l'opzione Ambetto (il parametro finale ",True")
ImpostaGiocata 1,number,ruote,posta,6,2
' Nota: Per abilitare anche l'ambetto nei tabelloni integrati puoi usare:
' ImpostaOpzioneGiocata 1, 2, 1 ' Forza l'ambetto sulla giocata 1
Gioca n,2
ruotaDaVerificare = 6 ' 6 corrisponde a Napoli
' Verifica esiti nei 6 colpi successivi
For colpo = 1 To 6
estrazioneControllo = n + colpo
If estrazioneControllo <= EstrazioneFin Then
' --- CONTROLLO POSIZIONI ESTRATTI SU NAPOLI ---
For pos = 1 To 5
Dim estrattoNa
estrattoNa = Estratto(estrazioneControllo, ruotaDaVerificare, pos)
' Controlla se l'estratto coincide con uno dei 4 numeri in gioco
For k = 1 To 4
If estrattoNa = number(k) Then
posizioniContatore(pos) = posizioniContatore(pos) + 1
End If
Next
Next
' ----------------------------------------------
' 1. VERIFICA AMBO TRADIZIONALE
ambo = VerificaEsito(number, ruote, estrazioneControllo, 2, 1, , Retesito, Retcolpi, Retestratto, Retidestr)
If ambo > 0 Then
' Su una quartina l'ambo ripaga 41.66 volte la posta netta
Scrivi "Colpo " & colpo & " -> [AMBO] su " & Retestratto & " del " & DataEstrazione(estrazioneControllo),1,0,2
Scrivi " | Vincita: " & (41.66 * posta(2)) & " €",1
End If
' 2. VERIFICA AMBETTO
ambetto = VerificaAmbetto(number,ruotaDaVerificare,estrazioneControllo,Retnum,Retvinc)
If ambetto > 0 Then
' Su una quartina l'ambetto ripaga 11.04 volte la posta netta
Scrivi "Colpo " & colpo & " -> [AMBETTO] su NA: " & Retnum & " del " & DataEstrazione(estrazioneControllo),1,0,4
Scrivi " | Vincita: " & (Retvinc * 11.04 * posta(2)) & " €", 1
End If
End If
Next
End If
Next
' --- STAMPA DEL REPORT FINALE DELLE POSIZIONI ---
Scrivi
Scrivi "==================================================", 1
Scrivi " ANALISI FREQUENZA POSIZIONI ESTRATTI SU NAPOLI ", 1
Scrivi "==================================================", 1
For p = 1 To 5
Scrivi p & "° Posizione: " & posizioniContatore(p) & " uscite", 1
Next
Scrivi "==================================================", 1
End Sub
