Sub Main()
Scrivi " SCRIPT BY BLACKMORE E MIKE58 ",1
Dim ruote(10)
Dim n(10),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2)
Dim ambo10(2),ambo11(2),ambo12(2),ambo13(2),terzina(3),poste(2)
poste(2) = 1
k = 10
Ini = EstrazioneFin
fin = EstrazioneFin
ReDim at(5)
at(1) = "Ruota"
at(2) = "Numeri"
at(3) = "Rit,Att"
at(4) = "Rit.sto"
at(5) = "Perc%"
Call InitTabella(at,1,,3,5)
For es = Ini To fin
For r = 1 To 10
For x = 0 To 8
ruote(1) = r
n(1) = x*10
n(2) = n(1) + 1
n(3) = n(1) + 2
n(4) = n(1) + 3
n(5) = n(1) + 4
n(6) = n(1) + 5
n(7) = n(1) + 6
n(8) = n(1) + 7
n(9) = n(1) + 8
n(10) = n(1) + 9
If n(1) = 0 Then n(1) = 90
ra = SerieRitardo(EstrazioneIni,EstrazioneFin,n,ruote,2)
rs = SerieStorico(EstrazioneIni,EstrazioneFin,n,ruote,2)
perc =(ra/rs)*100
OrdinaMatrice n,1,1
ReDim av(5)
av(1) = SiglaRuota(r)
av(2) = StringaNumeri(n,,True)
av(3) = ra
av(4) = rs
av(5) = Round(perc,2) & "%"
Call AddRigaTabella(av,,,3)
If perc > 90 Then Call SetColoreCella(5,2,0)
ruote(1) = r
If perc > 90 Then
ambo2(1) = n(3)
ambo2(2) = n(5)
ImpostaGiocata 1,ambo2,ruote,poste,k,2
ambo3(1) = n(3)
ambo3(2) = n(7)
ImpostaGiocata 2,ambo3,ruote,poste,k,2
ambo4(1) = n(3)
ambo4(2) = n(8)
ImpostaGiocata 3,ambo4,ruote,poste,k,2
ambo5(1) = n(3)
ambo5(2) = n(10)
ImpostaGiocata 4,ambo5,ruote,poste,k,2
ambo6(1) = n(6)
ambo6(2) = n(2)
ImpostaGiocata 5,ambo6,ruote,poste,k,2
ambo7(1) = n(6)
ambo7(2) = n(4)
ImpostaGiocata 6,ambo7,ruote,poste,k,2
ambo8(1) = n(6)
ambo8(2) = n(8)
ImpostaGiocata 7,ambo8,ruote,poste,k,2
ambo9(1) = n(6)
ambo9(2) = n(10)
ImpostaGiocata 8,ambo9,ruote,poste,k,2
ambo10(1) = n(9)
ambo10(2) = n(2)
ImpostaGiocata 9,ambo10,ruote,poste,k,2
ambo11(1) = n(9)
ambo11(2) = n(4)
ImpostaGiocata 10,ambo11,ruote,poste,k,2
ambo12(1) = n(9)
ambo12(2) = n(5)
ImpostaGiocata 11,ambo12,ruote,poste,k,2
ambo13(1) = n(9)
ambo13(2) = n(7)
ImpostaGiocata 12,ambo13,ruote,poste,k,2
terzina(1) = n(3)
terzina(2) = n(6)
terzina(3) = n(9)
ImpostaGiocata 13,terzina,ruote,poste,k,2
Gioca es,1
End If
Next
Next
Next
Scrivi
Call CreaTabella(3)
End Sub