'Progetto e script by Salvo50
'Incremento variabile di una qualsiasi estrazione
Option Explicit
Sub Main
Dim A(5),Clp,Caso,Casi,Esq,Col,EsqCol,Nu
Dim Es,Ruota,R1,Ruote(1),Poste(5),Ini
Dim FIn,k,Idestrazione,Num(5)
FIn = EstrazioneFin
Esq = InputBox("Inserisci numero estrazione iniziale",Idestrazione,8450)
R1 = InputBox("Inserisci numero ruota ( 1 - 10 per Nazionale 12)",Ruota,6)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,50))
Clp = CInt(InputBox(" Per quanti colpi vuoi proseguire il gioco? ",,1))
Nu = CInt(InputBox(" Con quale numero incrementare? ",,1))
Ruote(1) = R1
Poste(2) = 0.4
Poste(3) = 0.3
Poste(4) = 0.2
Poste(5) = 0.1
Clp = 1
EsqCol = Esq + Col
If EsqCol > FIn Then EsqCol = FIn
For Es = Esq To EsqCol
Caso = 0
AvanzamentoElab Esq,EsqCol,Es
Caso = 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi ""
A(1) = Estratto(Es,R1,1)
A(2) = Estratto(Es,R1,2)
A(3) = Estratto(Es,R1,3)
A(4) = Estratto(Es,R1,4)
A(5) = Estratto(Es,R1,5)
k = 0
For k = 1 To 90
A(1) = Fuori90(A(1) + Nu) : A(2) = Fuori90(A(2) + Nu) : A(3) = Fuori90(A(3) + Nu)
A(4) = Fuori90(A(4) + Nu) : A(5) = Fuori90(A(5) + Nu)
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"=") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
Scrivi Format2(A(1)) & " " & Format2(A(2)) & " " & Format2(A(3)) & " " & Format2(A(4)) & " " & Format2(A(5)),1
ImpostaGiocata k,A,Ruote,Poste,Clp
Gioca Es
Next
Next
ScriviResoconto
Scrivi Space(50) & "Progetto e script by Salvo50"
Scrivi Space(40) & "Incremento variabile di una qualsiasi estrazione"
End Sub