Ciao, cerco un metodo per Ambo/terno estrapolato da cadenze e figure. Grazie a tutti

[marcuti]

Ciao, qualcuno ha un metodo che possa fare al caso mio? Grazie

 

[salva 57]

io mi sono fatto questo vedi se ti può andare bene ,
e uno script di gioco , spero sia tu capace di inserirlo altrimenti ti faccio poi un esempio
Sub Main()
Dim Ruota,Es,Ini,Fin,Colpi
Dim n(10),Ruote(1),Posta(2)
Dim P1,P2,P3,SomDec,FigR,k
Dim TotAmbate, TotAmbi ' Contatori per il resoconto

' --- IMPOSTAZIONI ---
Colpi = 12
Posta(1) = 1 ' Ambata
Posta(2) = 1 ' Ambo

TotAmbate = 0
TotAmbi = 0

' ID estrazione di partenza per l'anno 2025
Ini = 0
For k = 1 To EstrazioneFin
If Anno(k) = 2025 Then
Ini = k
Exit For
End If
Next

If Ini = 0 Then Ini = EstrazioneFin - 200
Fin = EstrazioneFin

Scrivi "RESOCONTO METODO 3 CADENZE (2025-2026)",1,,4,5,3
Scrivi "Ricerca: 3 Numeri stessa cadenza su Ruota Singola",1
Scrivi "Sviluppo: Intera Figura corrispondente alla somma delle decine",1
Scrivi String(80,"-")

For Es = Ini To Fin
Messaggio "Analisi Estrazione: " & Es & " / " & Fin
For Ruota = 1 To 12
If Ruota <> 11 Then
Ruote(1) = Ruota

For P1 = 1 To 3
For P2 = P1 + 1 To 4
For P3 = P2 + 1 To 5

Dim n1,n2,n3
n1 = Estratto(Es,Ruota,P1)
n2 = Estratto(Es,Ruota,P2)
n3 = Estratto(Es,Ruota,P3)

If n1 > 0 And n2 > 0 And n3 > 0 Then
If Cadenza(n1) = Cadenza(n2) And Cadenza(n1) = Cadenza(n3) Then

SomDec = Decina(n1) + Decina(n2) + Decina(n3)
FigR = Figura(SomDec)

' Generazione dei 10 numeri della Figura
For k = 1 To 10
n(k) = FigR + (9*(k - 1))
Next

' --- OUTPUT CONDIZIONE ---
Scrivi DataEstrazione(Es) & " " & NomeRuota(Ruota) & " [" & StringaEstratti(Es,Ruota) & "]"
Scrivi "Condizione: " & n1 & "-" & n2 & "-" & n3 & " (Cadenza " & Cadenza(n1) & ")"
Scrivi "Messa in gioco FIGURA: " & FigR, 1

' --- CONTROLLO USCITE E POSIZIONI NEI 12 COLPI ---
Dim Clp, Pos, NumF, EstrattiNelColpo, StringaUscite

For Clp = 1 To Colpi
EstrattiNelColpo = 0
StringaUscite = ""

' Controlliamo le 5 posizioni estrattive di quel colpo
For Pos = 1 To 5
Dim NumeroEstratto
NumeroEstratto = Estratto(Es + Clp, Ruota, Pos)

' Verifichiamo se il numero estratto appartiene alla nostra figura in gioco
For NumF = 1 To 10
If NumeroEstratto = n(NumF) Then
EstrattiNelColpo = EstrattiNelColpo + 1
StringaUscite = StringaUscite & NumeroEstratto & " (" & Pos & "° Pos.) "
End If
Next
Next

' Se ci sono state uscite, determiniamo se è Ambata o Ambo+ e aggiorniamo i contatori
If EstrattiNelColpo = 1 Then
Scrivi "-> Colpo " & Clp & " (" & DataEstrazione(Es + Clp) & "): Ambata singola -> " & StringaUscite
TotAmbate = TotAmbate + 1
ElseIf EstrattiNelColpo >= 2 Then
Scrivi "-> Colpo " & Clp & " (" & DataEstrazione(Es + Clp) & "): AMBO O SUPERIORE -> " & StringaUscite,1,,2
TotAmbi = TotAmbi + 1
End If
Next

Scrivi String(80,"-")

' Mantiene la struttura di gioco classica per i tabelloni standard
ImpostaGiocata 1,n,Ruote,Posta,Colpi,2
Gioca Es,True

End If
End If
Next
Next
Next
End If
Next
If ScriptInterrotto Then Exit For
Next

' --- RESOCONTO FINALE ---
ScriviResoconto

Scrivi
Scrivi String(50,"="),1
Scrivi " RIASSUNTO STATISTICO PERSONALIZZATO",1,,1,5,3
Scrivi String(50,"="),1
Scrivi " Totale AMBATE singole sfaldate: " & TotAmbate,1
Scrivi " Totale AMBI (o superiori) sfaldati: " & TotAmbi,1
Scrivi String(50,"="),1
End Sub

 

[salva 57]

 

[marcuti]

Grazie Salva 57, io sono ancora alla vecchia maniera con carta e penna.
Sfortunatamente non mi sono adeguato a script e simili. Vedi che qui in tanti li usate. Ma se gentilmente mi facessi un esempio con operazioni, sarebbe chiederti troppo? Intanto grazie. La mia curiosità era nata da uno che ha postato gli screenshot che ho allegato, dicendo nulla e facendo credere di avere trovato il santo graal per vincere al lotto. Al che qui so di essere in mezzo a molti esperti del settore e magari qualcuno ci azzecca o mi dimostra che il tipo è solo un furbacchione. Ancora grazie