Sub main()
Dim n(5),ruote(1),nu(5),posta(1)
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",EstrazioneFin-100)
ini=ce
fin=EstrazioneFin
Scrivi "metodo knopfler61 forum IL LOTTO DI SEAN69 ",1
Scrivi String(86,"="),1
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 10
For p=1 To 5
n(p)=Estratto (es,r1,p)
Next
OrdinaMatrice n,-1
so=(n(1)+n(2)+n(3)+n(4)+n(5))
If so>138 And so <226 Then
a=Fuori90(228-n(1)): b=Fuori90(227-n(1))
If Estratto (es,r1,p)=a Or Estratto (es,r1,p)=b Then a=Fuori90(228-n(2)): b=Fuori90(227-n(2))
ruote(1)=r1:posta(1)=1
casi=casi+1:Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ]"& Chr (10)&_
"Somma 1° 2° 3° 4° 5° [ "&Format2(so) &" ]num. magg.->[ "&(n(1))&" ] ambate "&(a)&"//"&(b) ,1
If Estratto (es,r1,p)=a Or Estratto (es,r1,p)=b Then
Scrivi " estratto =ambata <ricalcolo> - "&(a)&""&(b)
End if
Scrivi String(60,"-")&" caso n° "&(casi):co=0
nu(1)=a:nu(2)=b
co=co+1
ImpostaGiocata co,nu,ruote,posta,14
Gioca es
End If
Next :
Next
ScriviResoconto
Scrivi "metodo knopfler61 ",1
End Sub
.
Offline
Web