Ruota di Venezia - Decina 31-39

[Giulio Pedrinelli]

Ciao a tutti;

Nell'estrazione del 4/7/2026 su Venezia sono usciti i numeri 35-36-37 appartenti alla decina dal 31 al 39.

Quindi in questo caso gli ambi si calcolano:

A) 4° Estratto di GE + 87
B) 1° Estratto di NA + 75

C) 3° Estratto di VE + 87
D) 2° Estratto di BA + 54

Da giocare sulle ruote di Na-Pa-Ro-ToVe per 13 estrazioni.
La previsione in gioco:

sab 04.07.2026 [10886]
G 1: A 80.46 Na Pa Ro To Ve 0/13
n.i. (13 colpi)
G 2: A 34.35 Na Pa Ro To Ve 0/13
n.i. (13 colpi)

Quindi di seguito lo script.

Sub Main()
'
Dim ruote(10),ruota(10),n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n19,n15,x1,x2,x3,x4,x5,x6,r2
Dim poste(10),poste1(5),poste2(5),poste3(5),posta(5),nu2(4),es,r1,Ini,fin,k,ok,casi
poste(1) = 0
poste(2) = 1
fin = EstrazioneFin
Ini = 6877
For es = Ini To fin

n0 = 0
n15 = 1 ' Unica riga da correggere !!
AvanzamentoElab Ini,fin,es
r1 = 6
r2 = 7
r3 = 8
r4 = 9
r5 = 10
n1 = Estratto(es,r5,1)
n2 = Estratto(es,r5,2)
n3 = Estratto(es,r5,3)
n4 = Estratto(es,r5,4)
n5 = Estratto(es,r5,5)
If n1 >= 31 And n1 <= 39 Then n0 = n0 + 1
If n2 >= 31 And n2 <= 39 Then n0 = n0 + 1
If n3 >= 31 And n3 <= 39 Then n0 = n0 + 1
If n4 >= 31 And n4 <= 39 Then n0 = n0 + 1
If n5 >= 31 And n5 <= 39 Then n0 = n0 + 1

If n0 >= 3 Then

ok = 0

x1 = Fuori90(Estratto(es,4,3) + 87)
x2 = Fuori90(Estratto(es,10,3) + 87)
x3 = Fuori90(Estratto(es,6,1) + 75)
x4 = Fuori90(Estratto(es,1,2) + 54)
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1)
Scrivi
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruota(4) = r4
ruota(5) = r5
k = 13
nu2(1) = x1
nu2(2) = x3
ImpostaGiocata 1,nu2,ruota,poste,k
nu2(1) = x2
nu2(2) = x4
ImpostaGiocata 2,nu2,ruota,poste,k
Gioca es
End If
Next
Scrivi
Scrivi String(75,"=")
Scrivi "CASI REALI RILEVATI = " & casi
Scrivi "Giocate impostate = " & casi * 2
Scrivi String(75,"=")
Scrivi
ScriviResoconto
End Sub