Sub Main()
Dim ruote(10)
Dim numero1(10)
Dim posta(5)
Dim poste(5)
'posta(1) = 1
poste(2) = 1
'poste(3) = 1
'poste(4) = 1
'poste(5) = 1
rx = CInt(InputBox("Quante estrazioni controllo?",,0))
'cl = InputBox("Inserisci i colpi di gioco",,6)
cl = 0
'co = 0
For es =(EstrazioneFin - rx) To EstrazioneFin
Messaggio DataEstrazione(es)
For r = 1 To 12
'r = r + 1
If r = 11 Then r = 12 End If
'For p = 1 To 5
'-----------------------------------------
ReDim A(5)
A(1) = Estratto(es,r,1)
A(2) = Estratto(es,r,2)
A(3) = Estratto(es,r,3)
A(4) = Estratto(es,r,4)
A(5) = Estratto(es,r,5)
'--------------------------------------------------
mv = MassimoV(A)
'-----------------------------------------
ReDim B(5)
B(1) = Estratto(es,r,1)
B(2) = Estratto(es,r,2)
B(3) = Estratto(es,r,3)
B(4) = Estratto(es,r,4)
B(5) = Estratto(es,r,5)
'----------------------------------------
mv1 = MinimoV(B)
'----------------------------
'xx = Fuori90 ()
'numero1(1) = mv
'numero1(2) = mvx
'mv = Massimo(a,b)
'--------------------------------
'c = mv
OrdinaMatrice,1
'---------------------------------
ruote(1) = r
'ruote(2) = r1
'casi = casi + 1
Scrivi "-------------------------------------------"
ColoreTesto 0
'Scrivi String(68,"-") & " Caso n° " & casi,1
'co = co + 1
ColoreTesto 0
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & ": " & StringaEstratti(es,r) & "",1
ColoreTesto 0
'Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & ": " & StringaEstratti(es,r1) & " - " & Format2(b)
'ColoreTesto 0
'Scrivi "--------------------------------------------"
ColoreTesto 2
Scrivi "numero massimo: " & Format2(mv),1
ColoreTesto 1
Scrivi "numero minimo : " & Format2(mv1),1
'-----------------------------------------------------------
numero1(1) = mv
numero1(2) = mv1
'numero1(3) = 31
'numero1(4) = 55
ImpostaGiocata 1,numero1,ruote,poste,cl
'-----------------------------------------------------------
'ImpostaGiocata 4,numero4,ruote,poste,k,2
'-----------------------------------------------------------
Gioca es
'End If
'End If
'Next
Next
Next
Scrivi
'Scrivi "Casi Rilevati " & CInt(co)
'ScriviResoconto
End Sub
