Ciao,si potrebbe fare questo script?

[VenusLotto]

Alla seconda estrazione del mese,prendiamo il 1° estratto di Napoli e il 2°estratto di Napoli.
Forse con un esempio e' meglio:
Napoli 1° estratto 26 ora facciamo la moltiplicazione 2x6=12 con il suo vertibile 21 che saranno le 2 ambate principali
che mi dovrebbe indicare su quale posizioni escono di piu sulla ruota di Napoli mensile.

Napoli 2°estratto 13 facciamo il calcolo 1x3=3 con il suo vertibile 30 li abbiniamo con le ambate 12-21 per ambo e ambetto.
Per la seconda ruota di gioco a scelta mia.
Credo di essermi spiegato bene.Grazie chi puo'.

 

[Reacher]

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

 

[VenusLotto]

Grazie Reacher ottimo lavoro

 

[VenusLotto]

Buongiorno
Reacher,ho notato che quando esce un numeretto sulla ruota di calcolo non mette anche il suo vertibile.
Esempio: 2 di napoli dovrebbe calcolare 2x0= 2 vertibile 20,cosi in tutte le ruote.Grazie

 

[Reacher]

Attenzione 2x0 in matematica fa 0
Dobbiamo modificare lo script se zerato prendere solo decina...

 

[VenusLotto]

Ok Grazie

 

[VenusLotto]

Volevo dire 2x1

 

[Reacher]

Ecco modificato se trova numeretto o zerato


Sub Main()
Dim number(4), ambetto, ambo, ruotaDaVerificare, estrazioneControllo, Retnum, Retvinc
Dim ruote(12), posta(2), es, p, a, b, colpo, pos, k, giocataAttiva
Dim Retesito, Retcolpi, Retestratto, Retidestr

' Configurazione Posta: 2 € sull'Ambo
posta(2) = 2

' Configurazione Ruote (Tutte tranne la 11 che è la Nazionale, se non desiderata)
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6 ' Napoli
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

' Ciclo estrazioni
For es = 10572 To EstrazioneFin
giocataAttiva = False

a = Estratto(es, 6, 1) ' 1° Estratto di Napoli
b = Estratto(es, 6, 2) ' 2° Estratto di Napoli

' Condizione 1: Seconda del mese e almeno uno dei primi due estratti <= 9
If IndiceMensile(es) = 2 And (a < 10 Or b < 10) Then
number(1) = a
number(2) = Vert(number(1))
number(3) = b
number(4) = Vert(number(3))
giocataAttiva = True
End If

' Condizione 2: Seconda del mese e almeno una cadenza = 0
If IndiceMensile(es) = 2 And (Cadenza(a) = 0 Or Cadenza(b) = 0) Then
number(1) = Decina(a)
number(2) = Vert(number(1))
number(3) = Decina(b)
number(4) = Vert(number(3))
giocataAttiva = True
End If

If IndiceMensile(es) = 2 Then
number(1) = Fuori90(Decina(a)*Cadenza(a))
number(2) = Vert(number(1))
number(3) = Fuori90(Decina(b)*Cadenza(b))
number(4) = Vert(number(3))
giocataAttiva = True
End If
' Esegui il controllo solo se la condizione del mese è stata soddisfatta
If giocataAttiva Then

' Imposta e registra la giocata nel motore di Spaziometria
ImpostaGiocata 1, number, ruote, posta, 6, 2
Gioca es,2 ' False evita di stampare il registro standard ad ogni estrazione se preferisci il report pulito

ruotaDaVerificare = 6 ' Napoli

' Verifica esiti nei 6 colpi successivi
For colpo = 1 To 6
estrazioneControllo = es + colpo ' CORRETTO: usiamo "es" invece di "n"

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) And number(k) > 0 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
Scrivi "Estrazione ID " & es & " | Colpo " & colpo & " -> [AMBO] su " & Retestratto & " del " & DataEstrazione(estrazioneControllo), 1, 0, 2, vbWhite
Scrivi " | Vincita: " & (41.66 * posta(2)) & " €", 1
End If

' 2. VERIFICA AMBETTO
ambetto = VerificaAmbetto(number, ruotaDaVerificare, estrazioneControllo, Retnum, Retvinc)
If ambetto > 0 Then
Scrivi "Estrazione ID " & es & " | Colpo " & colpo & " -> [AMBETTO] su NA: " & Retnum & " del " & DataEstrazione(estrazioneControllo), 1, 0, 4, vbWhite
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, 0, vbYellow, vbBlack
Scrivi "==================================================", 1
For p = 1 To 5
Scrivi p & "° Posizione: " & posizioniContatore(p) & " uscite", 1
Next
Scrivi "==================================================", 1
End Sub

 

[VenusLotto]

Grazie Reacher,ora e' perfetto.Buona domenica