Spia 88 su BA CA

[matt68]

buongiorno oggi vi porto una mia ricerca sulla spia 88 a ba o ca.

tutte le volte che sortisce la spia 88

CONDIZIONI
--------------------
Numeri spia: 88;
Ruote di gioco: BA;CA;
Colpi: 10

ALGORITMI
--------------------
1) Ambata : 1° di FI + 13 [0] -> BA,CA;
2) Ambo : 1° di FI + 13 [0] -> BA,CA; Abb. per ambo: 4° di RM + 77 [0] -> BA,CA;
3) Ambo : 1° di FI + 13 [0] -> BA,CA; Abb. per ambo: 4° di CA + 68 [0] -> BA,CA;

ESITI
--------------------

Estrazione del 09/09/2025
Ambata --> 6;
12/09/2025 CA al colpo nr. 2
Ambo --> 6;44;
Nessun esito
Ambo --> 6;16;
Nessun esito

Estrazione del 23/08/2025
Ambata --> 70;
26/08/2025 CA al colpo nr. 1
04/09/2025 CA al colpo nr. 6
Ambo --> 39;70;
26/08/2025 CA al colpo nr. 1
Ambo --> 66;70;
Nessun esito

Estrazione del 04/07/2025
Ambata --> 6;
12/07/2025 CA al colpo nr. 5
Ambo --> 6;67;
Nessun esito
Ambo --> 6;66;
12/07/2025 CA al colpo nr. 5

Estrazione del 21/06/2025
Ambata --> 17;
28/06/2025 BA al colpo nr. 4
Ambo --> 17;41;
28/06/2025 BA al colpo nr. 4
Ambo --> 17;28;
Nessun esito

Estrazione del 06/06/2025
Ambata --> 35;
19/06/2025 CA al colpo nr. 7
Ambo --> 35;59;
Nessun esito
Ambo --> 35;77;
19/06/2025 CA al colpo nr. 7

Estrazione del 06/05/2025
Ambata --> 7;
17/05/2025 BA al colpo nr. 7
22/05/2025 BA al colpo nr. 9
Ambo --> 7;78;
22/05/2025 BA al colpo nr. 9
Ambo --> 7;47;
Nessun esito

Estrazione del 24/04/2025
Ambata --> 87;
08/05/2025 BA al colpo nr. 8
09/05/2025 BA al colpo nr. 9
09/05/2025 CA al colpo nr. 9
10/05/2025 BA al colpo nr. 10
Ambo --> 2;87;
Nessun esito
Ambo --> 43;87;
08/05/2025 BA al colpo nr. 8

Estrazione del 01/04/2025
Ambata --> 46;
11/04/2025 BA al colpo nr. 6
17/04/2025 CA al colpo nr. 9
Ambo --> 46;58;
11/04/2025 BA al colpo nr. 6
Ambo --> 22;46;
11/04/2025 BA al colpo nr. 6

Estrazione del 11/03/2025
Ambata --> 81;
25/03/2025 CA al colpo nr. 8
Ambo --> 69;81;
25/03/2025 CA al colpo nr. 8
Ambo --> 69;81;
25/03/2025 CA al colpo nr. 8

Estrazione del 07/03/2025
Ambata --> 22;
13/03/2025 BA al colpo nr. 3
14/03/2025 BA al colpo nr. 4
15/03/2025 CA al colpo nr. 5
Ambo --> 22;40;
13/03/2025 BA al colpo nr. 3
Ambo --> 22;66;
Nessun esito

 

[giorgio 2]

grazie

 

[matt68]

vista l'uscita del 6 io andrei avanti solo con ambi ba ca

 

[matt68]

questo non è mio ma modificato in modo non professionale

manca la seconda ruota di rilevamento cerca spia solo su ca

e i colpi di gioco vanno impostati a 10 invece lo script continua fino a 20

poi chi può lo sistemerà (io non ci capisco molto per lo meno ho fatto un tentativo

Sub Main()
Dim ruote(10),ruota(10)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10),amb(7)
Dim posta(5)
Dim poste(5)
Dim poste1(5)
posta(1) = 1
poste1(2) = 1

poste(3) = 1
poste(2) = 1



cp = 10

ini = 10570
fin = EstrazioneFin
For n = ini To fin
Messaggio DataEstrazione
SPIA = 88
ng = 0
For z = 1 To 2 '<----ruota di ricerca

For p = 1 To 5



a = Estratto(n,z,p)

If a = SPIA Then


amb(1) = Fuori90(Estratto(n,3,1) + 13)
amb(2) = Fuori90(Estratto(n,8,4) + 77)
amb(3) = Fuori90(Estratto(n,2,4) + 68)


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 2
For y = x + 1 To 3
If amb(X) = amb Then amb = Fuori90(amb + 1)
Next
Next
Wend
End If
Rem fine formula

ruota(1) = 1
ruote(1) = 1
ruote(2) = 2
cont = cont + 1
Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
Scrivi DataEstrazione & " " & FormatSpace(NomeRuota(z),9) & " " & StringaEstratti(n,z),1
ColoreTesto 0 : Scrivi


numeri1(1) = amb(1)
ImpostaGiocata 1,numeri1,ruote,posta,eval(cp)
numeri2(1) = amb(1)
numeri2(2) = amb(2)
ImpostaGiocata 2,numeri2,ruote,poste1,eval(cp)
numeri2(1) = amb(1)
numeri2(2) = amb(3)
ImpostaGiocata 3,numeri2,ruote,poste1,eval(cp)

numeri3(1) = amb(1)
numeri3(2) = amb(2)
numeri3(3) = amb(3)
ImpostaGiocata 4,numeri3,ruote,poste,eval(cp)

Gioca n
End If
Next
Next
Next
Scrivi

ScriviResoconto
ColoreTesto 2

End Sub