| Sperando di fare cosa gradita allego script del metodo in oggetto:
Sub main()
Dim ruote(1),ruota(1),poste(1),posta(2)
Dim lg(3),amb(2),nr(5),np(24),sp(22),nr1(90),nr2(90)
'-------------------------------------------------------------------------------------------------------------------------
sp(1)=4: sp(2)=6:sp(3)=9:sp(4)=12:sp(5)=15:sp(6)=18:sp(7)=21:sp(8)=26:sp(9)=30:sp(10)=34:sp(11)=39
sp(12)=42: sp(13)=45:sp(14)=50:sp(15)=56:sp(16)=60:sp(17)=64:sp(18)=69:sp(19)=72:sp(20)=76:sp(21)=81:sp(22)=86
nr1(4)=3 : nr2(4)=5 :nr1(6)=5 : nr2(6)=7 :nr1(9)=7 : nr2(9)=11 :nr1(12)=11 : nr2(12)=13 :nr1(15)=13 : nr2(15)=17
nr1(18)=17 : nr2(18)=19 :nr1(21)=19 : nr2(21)=23 :nr1(26)=23 : nr2(26)=29 :nr1(30)=29 : nr2(30)=31 :nr1(34)=31 : nr2(34)=37
nr1(39)=37 : nr2(39)=41 :nr1(42)=41 : nr2(42)=43 :nr1(45)=43 : nr2(45)=47 :nr1(50)=47 : nr2(50)=53 :nr1(56)=53 : nr2(56)=59
nr1(60)=59 : nr2(60)=61 :nr1(64)=61 : nr2(64)=67 :nr1(69)=67 : nr2(69)=71 :nr1(72)=71 : nr2(72)=73 :nr1(76)=73 : nr2(76)=79
nr1(81)=79 : nr2(81)=83 :nr1(86)=83 : nr2(86)=89
'---------------------------------------------------------------------------------------------------------------------------
poste(1)=1 : posta(2)=1
'Matrice Numeri Primi
k=0
For i=2 To 90
If Primo (i)=True Then k=k+1: np(k)=i
Next
'considero le ultime 100 estrazioni
rs=InputBox("Quante estrazioni vuoi controllare?","f.florindi",100)
ini=EstrazioneFin -rs
fin=EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(20," ")&"****** Listato da Franco Florindi X Pasquale Robbe ****** ",1
Scrivi String(40," ")&" CON I TRIANGOLI ",1
Scrivi String(42," ")&"****** SFERICI NP ****** ",1
Scrivi
ColoreTesto 0
Scrivi String(40," ")&"****** Rendiconto ****** ",1
Scrivi String(40," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'------------------------------------------------------------
t=0 'inizializza la variabile delle giocate.
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 11
If r=11 Then r=12
co=0 : Erase nr
For p = 1 To 5 : For j=1 To 24
If np(j) = Estratto (es,r,p) Then co=co+1 : nr(co)=np(j)
Next : Next
If co=3 Then
sa=Fuori90 (nr(1)+nr(2)+nr(3))
For i=1 To 22
If sp(i)=sa Then
amb(1)=nr1(sa) : amb(2)=nr2(sa)
sx=Fuori90 (amb(1)+amb(2))
If Cadenza(sx)=>5 Then ab=Fuori90 (sx+5) Else ab=Fuori90 ((sx+90)-5)
lg(1)=ab: lg(2)=amb(1) : lg(3)=amb(2)
ruote (1)=r : ruota (1)=11
t=t+1
Scrivi
Scrivi "------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "& StringaEstratti(es,r)&" : "& SiglaRuota(r) & " " & StringaNumeri (nr)&" Som. perf. "&_
Format2 (sa)&" = "& Format2 (nr1(sa))&"-"& Format2 (nr2(sa)),1
Scrivi "--------------------------------------------Giocata n°"& Format2 (t)
ImpostaGiocata 1,amb,ruote,poste,12,1
ImpostaGiocata 2,lg,ruote,posta,12,2
ImpostaGiocata 3,lg,ruota,posta,12,2
Gioca es
Scrivi String (50,"-")
End If
Next
End If
Next : Next
ScriviResoconto 1
ScriviResoconto
End Sub
|
