Sub Main()
Dim ruota(1),ruote(10),num1(2),posta(10),poste(2)
posta(1) = 1
posta(6) = 1
posta(10) = 1
poste(2) = 2
ce = InputBox(" quante estrazione vuoi controllare? ","estrazione",100)
k = InputBox("per quanti colpi?","colpi di gioco",13)
ini = EstrazioneFin - ce
fin = EstrazioneFin
ruota(1) = 1 '<------- ruota di calcolo
'ruote(1) = 1
ruote(2) = 11
r1 = ruota(1)
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For p1 = 1 To 5
If p1 = 5 Then
a = Estratto(es,r1,5)
b = Estratto(es,r1,1)
Else
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p1 + 1)
End If
If(a) = 1 Or(a) = 2 Or(a) = 3 Or(a) = 4 Or(a) = 5 Or(a) = 6 Or(a) = 7 Or(a) = 8 Or(a) = 9 Then
casi = casi + 1
Scrivi String(80,"=") & " by Coconut",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " & Format2(Posizione(es,r1,a)) & "^ pos."
Scrivi " " & "[ " & Format2(b) & " ] In " & Format2(Posizione(es,r1,b)) & "^ pos."
Scrivi String(80,"-") & " caso n°" & casi
n1 = Fuori90(b + 90 - a)
n2 = Vert(n1)
num1(1) = n1
num1(2) = n2
ra1 = SerieRitardo(ini,es,num1,ruota,1)
ColoreTesto 2
Scrivi "Ritardo x Ambata sulla Ruota di " & SiglaRuota(r1) & " = " & Format2(ra1)
ColoreTesto 0
ImpostaGiocata 1,num1,ruota,posta,k,1
ImpostaGiocata 2,num1,ruote,poste,k
Gioca es
End If
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Giochino su bari by Coconut",1
Scrivi String(45,32) & "Listato by Adelino",1
ColoreTesto 0
End Sub
