Per althas ti ho inserito un input box per cercare a tuo piacere le estrazioni di riferimento
per i calcoli,con questo listato modificandolo a tuo piacimento puoi fare tutte le ricerche che
reputi buone,ma se accetti un consiglio non giocarle ,quelle di altri utenti che si trovano
su questo forum sono piu attendibili.
(ringrazio vivamente RAmco per le varie implementazione che ci mette a disposizione)
'Ramco it142 x Daimon1975 (Cabala di LORD BYRON)
Sub main()
Dim rt(2),nu(2),pt(10),ptt(2),n1(1),n2(1)
pt(1)=1 : pt(6)=1 : pt(10)=1
ptt(2)=1
clp=12
x1=CInt(InputBox(" estrazione retroattiva ","1^ ruota",2))
x2=CInt(InputBox("estrazione retroattiva ","2^ ruota",0))
ce=CInt(InputBox("quante estrazione vuoi controllare ?",,200))
ini=EstrazioneFin-ce
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r1=1 To 12
If r1=11 Then r1=12
For r2=1 To 12
If r2=11 Then r2=12
If r1<>r2 Then
rt(1)=r1
rt(2)=r2
a1=Estratto (es-x1,r1,1) : a2=Estratto (es-x1,r1,2) : a3=Estratto (es-x1,r1,3) : a4=Estratto (es-x1,r1,4) : a5=Estratto (es-x1,r1,5)
b1=Estratto (es-x2,r2,1) : b2=Estratto (es-x2,r2,2) : b3=Estratto (es-x2,r2,3) : b4=Estratto (es-x2,r2,4) : b5=Estratto (es-x2,r2,5)
If a1<a2 Then d1=(90+a1)-a2 Else d1=a1-a2
If a2<a3 Then d2=(90+a2)-a3 Else d2=a2-a3
If a3<a4 Then d3=(90+a3)-a4 Else d3=a3-a4
If a4<a5 Then d4=(90+a4)-a5 Else d4=a4-a5
If a5<b1 Then d5=(90+a5)-b1 Else d5=a5-b1
If b1<b2 Then d6=(90+b1)-b2 Else d6=b1-b2
s1=Fuori90 (a1+a2+a3+a4+a5) : s2=Fuori90 (a2+a3+a4+a5+b1) : s3=Fuori90 (a3+a4+a5+b1+b2)
s4=Fuori90 (a4+a5+b1+b2+b3) : s5=Fuori90 (a5+b1+b2+b3+b4) : s6=Fuori90 (b1+b2+b3+b4+b5)
If s1<s2 Then ds1=(90+s1)-s2 Else ds1=s1-s2
If s2<s3 Then ds2=(90+s2)-s3 Else ds2=s2-s3
If s3<s4 Then ds3=(90+s3)-s4 Else ds3=s3-s4
If s4<s5 Then ds4=(90+s4)-s5 Else ds4=s4-s5
If s5<s6 Then ds5=(90+s5)-s6 Else ds5=s5-s6
ss=Fuori90 (s1+s2+s3+s4+s5+s6) : sd=Fuori90 (d1+d2+d3+d4+d5+d6+ds1+ds2+ds3+ds4+ds5)
If (ss+sd)=90 Then
xx=Fuori90 (b1+sd) : nu(1)=xx : n1(1)=xx
s7=Fuori90 (b2+b3+b4+b5+xx)
If s6<s7 Then ds6=(90+s6)-s7 Else ds6=s6-s7
jy=Fuori90 (a1+s7)
If jy=sd And (jy+ss)=90 Then
co=co+1
sp1=Fuori90 (s7+s6)
kk=90-sp1 : nu(2)=kk : n2(1)=kk
sf1=SerieRitardo (es-200,es,n1,rt,1) : sf2=SerieRitardo (es-200,es,n2,rt,1)
sfa=SerieRitardo (1,es,nu,rt,2)
ColoreTesto 4 :Scrivi : Scrivi String (70,"=")&" Caso n°"& co,1 : ColoreTesto 0
Scrivi DataEstrazione (es-x1)&" "& SiglaRuota (r1)&" "& StringaEstratti (es-x1,r1)
Scrivi DataEstrazione (es-x2)&" "& SiglaRuota (r2)&" "& StringaEstratti (es-x2,r2)
Scrivi Space (10)&" SCHEMA ",1
Scrivi Space(3)& Format2(d1)& Space(4)& Format2(d2)& Space(4)& Format2(d3)& Space(4)& Format2(d4)&_
Space(4)& Format2(d5)& Space(4)& Format2(d6)& Space(4)&"<-- Diff."
Scrivi String (74,"-")
Scrivi Format2(a1)& Space(4)& Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)&_
Format2(a5)& Space(4)& Format2(b1)& Space(4)& Format2(b2)
Scrivi Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)& Format2(a5)& Space(4)&_
Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)
Scrivi Format2(a3)& Space(4)& Format2(a4)& Space(4)& Format2(a5)& Space(4)& Format2(b1)& Space(4)&_
Format2(b2)& Space(4)& Format2(b3)& Space(4)& Format2(b4)
Scrivi Format2(a4)& Space(4)& Format2(a5)& Space(4)& Format2(b1)& Space(4)& Format2(b2)& Space(4)&_
Format2(b3)& Space(4)& Format2(b4)& Space(4)& Format2(b5)
Scrivi Format2(a5)& Space(4)& Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)& Space(4)&_
Format2(b4)& Space(4)& Format2(b5)& Space(3)&"("& Format2(xx)&")"
Scrivi String (74,"-")
Scrivi Format2(s1)& Space(4)& Format2(s2)& Space(4)& Format2(s3)& Space(4)& Format2(s4)& Space(4)&_
Format2(s5)& Space(4)& Format2(s6)& Space(3)&"("& Format2(s7)&")"& Space(4)&"<-- Som.Col."
Scrivi
Scrivi Space(3)& Format2(ds1)& Space(4)& Format2(ds2)& Space(4)& Format2(ds3)& Space(4)& Format2(ds4)&_
Space(4)& Format2(ds5)& Space(3)&"("& Format2(ds6)&")"& Space(4)&"<-- Diff.Somme"
Scrivi : ColoreTesto 1
Scrivi "Somma delle somme delle prime sei colonne "& ss
Scrivi "Somma di tutte le Differenze (Ultima esclusa)"& sd : ColoreTesto 0
Scrivi : Scrivi "PRIMA EQUAZIONE..... "& Format2(ss)&" + "& Format2(sd)&" = 90 (ok!!)"
ColoreTesto 2
Scrivi "Primo Futuro Estratto[1^estratto della 2^es.+ Som.Diff.]("& b1&"+"&sd&") = "& Format2(xx)
ColoreTesto 0
Scrivi "1^estratto della 1^es. "& a1 &" +(settima somma "& s7 &")= "& Format2(jy)&" Jolly uguale Som.Diff."
Scrivi "2°/TERZA EQUAZIONE..... "& Format2(jy)&" + "& Format2(ss)&" = 90(Jolly+Som.6 col.)(ok!!)"
Scrivi "Somma sesta e settima colonna ("& s6&"+"&s7&") = "&sp1
ColoreTesto 2
Scrivi "Ricaviamo il Secondo Futuro, complementandolo a 90 [90-"&sp1&"] = "& Format2(kk)
ColoreTesto 0
Scrivi "Primo Numero in gioco "& Format2(xx)&" <-- rit. in ruota "& sf1
Scrivi "Secondo Numero in gioco "& Format2(kk)&" <-- rit. in ruota "& sf2
Scrivi "L'Ambo formato dai due elementi ritarda in ruota da "& sfa &" estrazioni"
ImpostaGiocata 1,nu,rt,pt,clp
ImpostaGiocata 2,nu,rt,ptt,clp
Gioca es
End If
End If
End If
Next
Next
Next
ScriviResoconto
End Sub