SUPER LOTTO

Script LORD BYRON di F. Florindi, Script per lottodesk

« Older   Newer »
  Share  
CAT_IMG Posted on 10/7/2013, 17:40

Group:
Fan
Posts:
54

Status:


Attendo vs script in merito

Sub main()
Dim ruota(1),amb(2),lg(5),posta(1),poste(5)
Dim num(10),df(10),dfs(6),dfi(5),nr1(7),nr2(7),nr3(7),nr4(7),nr5(6),sv(6)
posta(1)=1 : poste(2)=2 : poste(3)=1.5 : poste(4)=1 : poste(5)=0.50 : colpo=18 : colpi=40
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(40," ")&"****** BYRON DI A. LONGO ****** ",1
ColoreTesto 0
Scrivi
ColoreTesto 2
Scrivi String(70,"=")&"listato by franco florindi",1
ColoreTesto 0
rs=CInt(InputBox("Quante estrazioni si vogliono analizzare ?","F.Florindi",10))
ini=EstrazioneFin -rs
fine=EstrazioneFin
conta=0
Scrivi
Scrivi String(40," ")&"****** RENDICONTO ****** ",1
Scrivi
Scrivi String(40," ")& DataEstrazione(ini)&" : "& DataEstrazione(fine)
For es=ini To fine
Messaggio es
For r=1 To 11
If r=11 Then r=12
ruota(1)=r
'Numeri estratti
For i=1 To 5
num(i)=Estratto (es-1,r,i)
num(i+5)=Estratto (es,r,i)
Next
'Calcola le differenze dei numeri estratti
h=0
For j=2 To 10
h=h+1
df(h)=Fuori90 ((num(1)+90)-num(j))
Next
df(10)=90
'Calcola le differenze superiori con la relativa somma
h=0:ss=0
For i=1 To 6: j=i+1
h=h+1
dfs(h)=Fuori90 ((df(i)+90)-df(j))
ss=Fuori90 (ss+dfs(i))
Next
'Crea la disposizione dei numeri in un Quadro
For i=1 To 7:nr1(i)=df(i):Next
h=0
For i=2 To 8:h=h+1:nr2(h)=df(i):Next
h=0
For i=3 To 9:h=h+1:nr3(h)=df(i):Next
h=0
For i=4 To 10:h=h+1:nr4(h)=df(i):Next
h=0
For i=5 To 10:h=h+1:nr5(h)=df(i):Next
sc=0
'Somma delle 6 solonne + somma delle somme
For i= 1 To 6
sv(i)=Fuori90(nr1(i)+nr2(i)+nr3(i)+nr4(i)+nr5(i))
sc=Fuori90 (sc+sv(i))
Next
'Differenze inferiori con relativa somma
h=0 : si=0
For i=1 To 5:j=i+1
h=h+1
dfi(h)=Fuori90 ((sv(i)+90)-sv(j))
si=Fuori90 (si+dfi(i))
Next
'Somma incognita
sx=0
For i=7 To 10
sx=Fuori90 (sx+df(i))
Next
'Somma delle differenze sup. + inf.
sd=Fuori90 (ss+si)
'Controlla la presenza di sd
If Posizione (es-1,r,sd)>0 Or Posizione (es,r,sd)>0 Then
'1a Equazione ridotta di BYRON :3a+3b+4c+5d+6e+2g+2h+i=90
a=Fuori90(3*dfs(1))
b=Fuori90(3*dfs(2))
c=Fuori90(4*dfs(3))
d=Fuori90(5*dfs(4))
e=Fuori90(6*dfs(5))
f=Fuori90(4*dfs(6))
g=Fuori90(2*dfi(1))
h=Fuori90(2*dfi(2))
i=Fuori90(1*dfi(3))
se1=Fuori90(a+b+c+d+e+f+g+h+i)
'2a Equazione
a1=Fuori90(3*num(1))
b1=Fuori90(3*num(2))
c1=Fuori90(4*num(3))
d1=Fuori90(5*num(4))
e1=Fuori90(6*num(5))
f1=Fuori90(4*num(6))
g1=Fuori90(2*num(7))
h1=Fuori90(2*num(8))
i1=Fuori90(1*num(9))
se2=Fuori90(a1+b1+c1+d1+e1+f1+g1+h1+i1)
'Elem. differenziale
x=Fuori90 ((2*se1)+se2)
amb(1)=Fuori90 ((si+90)-x)
amb(2)=ss
ab1=Fuori90 ((amb(1)+90)-x):ab2=Diametrale (se1):ab3=Diametrale (se2)
lg(1)=amb(1):lg(2)=amb(2):lg(3)=ab1:lg(4)=ab2:lg(5)=ab3
conta=conta+1
ColoreTesto 1 :Scrivi : Scrivi String (70,"=")&" Caso n°"& conta,1 : ColoreTesto 0
Scrivi DataEstrazione (es-1)&" "& SiglaRuota (r)&" "& StringaEstratti (es-1,r)
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)& Chr (10)&_
"Diff. estratti al n°"& Format2(num(1))&"-->"& StringaNumeri (df)
Scrivi Space (10)&" QUADRO ",1
Scrivi Space(5)& StringaNumeri (dfs)& Space(2)&"<-- Diff. superiori"&" Somma :"& Format2 (ss)
Scrivi String (74,"-")
Scrivi Space (3)& StringaNumeri (nr1)& Chr (10)&_
Space (3)& StringaNumeri (nr2)& Chr (10)&_
Space (3)& StringaNumeri (nr3)& Chr (10)&_
Space (3)& StringaNumeri (nr4)& Chr (10)&_
Space (3)& StringaNumeri (nr5)&" xx"& Chr (10)&_
String (74,"-")& Chr (10)&_
Space (3)& StringaNumeri (sv)& Space(3)&"<-- Somma :"& Format2 (sc) & Chr (10)&_
Space (4)& StringaNumeri (dfi)& Space(5)&"<-- Diff. inferiori"&" Somma :"& Format2 (si)
Scrivi : ColoreTesto 1
Scrivi "Somma delle somme delle prime sei colonne = "& Format2 (sc)
Scrivi "Somma di tutte le Differenze (Ultima esclusa) = "& Format2 (sd)
Scrivi "EQUAZIONE (EQ): 3A+3B+4C+5D+6E+4F+2G+2H+I=90"
Scrivi Format2 (a)&"."& Format2 (b)&"."& Format2 (c)&"."& Format2 (d)&"."& Format2 (e)&"."& Format2 (f)&_
"."& Format2 (g)&"."& Format2 (h)&"."& Format2 (i)
Scrivi "(1a EQ) Applicata alle differenze superiori ed inferiori : "& Format2 (se1)
Scrivi Format2 (a1)&"."& Format2 (b1)&"."& Format2 (c1)&"."& Format2 (d1)&"."& Format2 (e1)&"."& Format2 (f1)&_
"."& Format2 (g1)&"."& Format2 (h1)&"."& Format2 (i1)
Scrivi "(2a EQ) Applicata agli estratti iniziali : "& Format2 (se2)
Scrivi "Elemento ingognito :"& Format2 (x)
ColoreTesto 0
Scrivi
Scrivi "Ambate ----> : "& StringaNumeri(amb)
Scrivi "Lunghetta -> : "& StringaNumeri (lg)
Scrivi
ImpostaGiocata 1,amb,ruota,posta,colpo,1
ImpostaGiocata 2,lg,ruota,poste,colpi,2
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
 
Top
CAT_IMG Posted on 10/7/2013, 18:49

Group:
Administrator
Posts:
8,267
Location:
Pescara

Status:


Lottofortuna...spero tu abbia kiesto il permesso a Florindi per pubblikare un suo script..lui non è molto kontento se lo si pubblika senza avvisarlo..!!! :)
 
Web  Contacts  Top
CAT_IMG Posted on 10/7/2013, 19:53

Group:
Fan
Posts:
54

Status:


L'ho trovato su un altro sito tuttavia avviserò franco
 
Top
2 replies since 10/7/2013, 17:40   860 views
  Share