Primi 2 numeri Bari - 3 estrazioni

[Giulio Pedrinelli]

Ciao a tutti;

Sto lavorando ad un nuovo metodo con i numeri spia su Bari relativo agli ultimi 14 casi.
La percentuale di successo con una cinquina su Bari per 3 estrazioni varia fra 12 su 14 e 10 su 14.
Come lavoro sono più o meno a metà, alcuni numeri li ho scartati, avevano dei valori massimi troppo bassi.
La data d’inizio è il 2025, dipende dai numeri e la fine è 20/06/2026.

 

[oracolotto]

Buonasera G.Pedrinelli, confido molto sui tuoi lavori (script/metodi).

Attendo la conclusione.

Grazie!

 

[Giulio Pedrinelli]

Ciao a tutti;

lo script calcola gli abbinamenti per i primi due estratti di Bari, in questa estrazione c'è solo il numero 46 come primo estratto.
Comunque ho bisogno che qualcuno più esperto di me ci dia un occhiata:

Sub Main()

ini = 10432 ' 02/05/2024
fin = EstrazioneFin
colpi = 3

Dim ruota(1), poste(3)
Dim c1(5), c2(5)

ruota(1) = 1 ' Bari
poste(2) = 1
poste(3) = 1

For es = ini To fin

Call AvanzamentoElab(ini, fin, es)

n1 = Estratto(es, 1, 1) ' 1° estratto Bari
n2 = Estratto(es, 1, 2) ' 2° estratto Bari

If InTabella(n1) And InTabella(n2) Then

Call CreaCinquina(es, n1, c1)
Call CreaCinquina(es, n2, c2)

Scrivi "Caso: " & DataEstrazione(es) & _
" - BA primi due estratti: " & n1 & "." & n2

ImpostaGiocata 1, c1, ruota, poste, colpi, 5
ImpostaGiocata 2, c2, ruota, poste, colpi, 5

Gioca es, 1

End If

If ScriptInterrotto Then Exit For
Next

ScriviResoconto

End Sub


Function F90
n = n Mod 90
If n = 0 Then n = 90
F90 = n
End Function


Function InTabella
Select Case n
Case 1,11,12,13,15,16,18,19,22,23,25,31,34,35,36,46,50,55,58,59,61,65,66,68,71,74,79,82,83,86,87,89
InTabella = True
Case Else
InTabella = False
End Select
End Function


Sub CreaCinquina(es, num, c)

Select Case num

Case 1
c(1)=F90(Estratto(es,4,1)+53)
c(2)=F90(Estratto(es,12,1)+52)
c(3)=F90(Estratto(es,12,3)+25)
c(4)=F90(Estratto(es,4,4)+27)
c(5)=F90(Estratto(es,4,3)+30)

Case 11
c(1)=F90(Estratto(es,10,1)+30)
c(2)=F90(Estratto(es,1,3)+80)
c(3)=F90(Estratto(es,7,5)+89)
c(4)=F90(Estratto(es,2,3)+4)
c(5)=F90(Estratto(es,10,2)+41)

Case 12
c(1)=F90(Estratto(es,7,3)+64)
c(2)=F90(Estratto(es,6,3)+34)
c(3)=F90(Estratto(es,5,5)+5)
c(4)=F90(Estratto(es,10,1)+22)
c(5)=num

Case 13
c(1)=F90(Estratto(es,4,3)+74)
c(2)=F90(Estratto(es,9,3)+54)
c(3)=F90(Estratto(es,3,4)+76)
c(4)=F90(Estratto(es,10,2)+3)
c(5)=F90(Estratto(es,12,1)+6)

Case 15
c(1)=F90(Estratto(es,8,1)+20)
c(2)=F90(Estratto(es,3,5)+58)
c(3)=F90(Estratto(es,6,1)+12)
c(4)=F90(Estratto(es,6,2)+15)
c(5)=F90(Estratto(es,3,4)+31)

Case 16
c(1)=F90(Estratto(es,7,3)+15)
c(2)=F90(Estratto(es,8,3)+49)
c(3)=F90(Estratto(es,8,2)+37)
c(4)=F90(Estratto(es,5,1)+1)
c(5)=F90(Estratto(es,5,5)+2)

Case 18
c(1)=F90(Estratto(es,4,5)+59)
c(2)=F90(Estratto(es,2,5)+42)
c(3)=F90(Estratto(es,12,5)+3)
c(4)=F90(Estratto(es,1,4)+60)
c(5)=F90(Estratto(es,8,3)+77)

Case 19
c(1)=F90(Estratto(es,6,3)+18)
c(2)=F90(Estratto(es,2,5)+48)
c(3)=F90(Estratto(es,4,4)+17)
c(4)=F90(Estratto(es,10,4)+19)
c(5)=F90(Estratto(es,4,5)+38)

Case 22
c(1)=F90(Estratto(es,12,4)+78)
c(2)=F90(Estratto(es,4,5)+22)
c(3)=F90(Estratto(es,12,2)+32)
c(4)=F90(Estratto(es,9,1)+36)
c(5)=num

Case 23
c(1)=F90(Estratto(es,3,5)+46)
c(2)=F90(Estratto(es,9,1)+89)
c(3)=F90(Estratto(es,1,2)+4)
c(4)=F90(Estratto(es,9,5)+7)
c(5)=F90(Estratto(es,7,3)+46)

Case 25
c(1)=F90(Estratto(es,6,3)+29)
c(2)=F90(Estratto(es,8,5)+23)
c(3)=F90(Estratto(es,2,3)+29)
c(4)=F90(Estratto(es,12,4)+40)
c(5)=F90(Estratto(es,1,5)+64)

Case Else
c(1)=F90(num)
c(2)=F90(num)
c(3)=F90(num)
c(4)=F90(num)
c(5)=F90(num)

End Select

End Sub

Mi esce solo l'elenco dei due capogioco.