Sub main()
'Rif. 0902_23d5 Ro x Lones la TERNA migliore giocata singola
' versione per L8+ 5.2 e successive
Dim ruote(1),numeri1(3) , nu(10),stat(120,4), posta(3)
posta(1)=1
ruote(1)=2
y1=1 'sorte di interruzione
k=10 'colpi di gioco
'-----------------------------------
For i= 1 To 120 : stat(i,1)=i: Next
For i= 1 To 8
For y= i+1 To 9
For x = y+1 To 10
ng=ng+1
stat(ng,2)=" [nu"&formatspace(i,2,1)&" & nu"&formatspace(y,2,1)&" & nu"&formatspace(x,2,1)&"]"
Next
Next
Next
'-----------------------------------
For n=EstrazioneFin-500 To EstrazioneFin
If Indicemensile (n)=1 Then
estr=Estr+1
Messaggio "Elaboro la n° - "&CInt(n)
nu(1)=Fuori90(Estratto(n,1,3)+Estratto(n,6,5)+5)
nu(2)=Fuori90(Estratto(n,1,4)+Estratto(n,7,3)+58)
nu(3)=Fuori90(Estratto(n,1,4)+Estratto(n,9,2)+61)
nu(4)=Fuori90(Estratto(n,1,5)+Estratto(n,10,2)+53)
nu(5)=Fuori90(Estratto(n,2,1)+Estratto(n,3,3)+60)
nu(6)=Fuori90(Estratto(n,5,4)+Estratto(n,6,1)+65)
nu(7)=Fuori90(Estratto(n,5,3)+Estratto(n,9,2)+24)
nu(8)=Fuori90(Estratto(n,5,1)+Estratto(n,10,3)+89)
nu(9)=Fuori90(Estratto(n,6,1)+Estratto(n,6,4)+10)
nu(10)=Fuori90(Estratto(n,7,1)+Estratto(n,10,4)+54)
'-------------------------------------------------------
scrivi: Scrivi String(80,"=")
Scrivi DataEstrazione(n)& " Numeri da abbinare in terne "& StringaNumeri(nu)&chr(10),1
'-------------------------------------------------------------imposto le giocate
ng=0
For i= 1 To 8
For y= i+1 To 9
For x= y+1 To 10
ng=ng+1
numeri1(1)=nu(i)
numeri1(2)=nu(y)
numeri1(3)=nu(x)
ImpostaGiocata 1,numeri1,ruote,posta,k,y1
Scrivi "G "& ng
Gioca n
If Esito(1)>0 Then stat(ng,3)=stat(ng,3)+1: stat(ng,4)=stat(ng,4)+Esito(1)
Next
Next
Next
End If
Next
Scrivi Chr(10)&String(80,"=") :coloretesto 2
Scrivi Chr(10)& " LE 10 GIOCATE MIGLIORI SULL'ESITO +"&chr(10),1
ColoreTesto 0
Scrivi "Giocata - Elementi -------- Freq + /Tot---MEDIA COLPI",1
OrdinaMatrice stat,-1,3
For i= 1 To 15 '<======= PER VEDERNE DI PIU' sostituire 35 con un num <121
Scrivi Space(2)& "G: "& FormatSpace(stat(i,1),3,1)& Space(2)&_
FormatSpace(stat(i,2),9,1)&space(5)& FormatSpace(stat(i,3),5,1)&"/"&estr&_
Space(10)& Round((stat(i,4)/stat(i,3)),2)
Next
ScriviResoconto
End Sub
