LORD BYRON cancellato

[esselotto]

e che non risponde nessuno?
Sono finiti i lord byron.?

tre script tre byron diversi.....

[?][?][?]

 

[daimon1975]

Ciao, dammi il tempo di tornare a casa e cercherò di spiegarti il tutto...

daimon1975

 

[esselotto]

quote:Originally posted by daimon1975

Ciao, dammi il tempo di tornare a casa e cercherò di spiegarti il tutto...

daimon1975

ah Dai_monnnnnd'..... che te sei perso er Traaame
oh le chiavi de casa tuaaaa...
Fai con calma... Nun te preoccupà, piu de tanto....
tanto i numeri non scappano...........

A darli semmo' boni tutti.... A pigliarli è il difficile....


oh hai trovato er Trafficooooooo.


m'ero dimenticato di inserire gli smiles

 

[daimon1975]

Per una ruota...

Sub main()
Dim ruota(1),ruote(1),numeri(2),posta(10),poste(2),n1(1),n2(1)
posta(1)=1 : posta(2)=1 : colpi=9 : poste(1)=0 : poste(2)=1
iniziale=EstrazioneFin-600
finale=EstrazioneFin
conta=0
For estraz=iniziale To finale
Messaggio estraz
For r=1 To 11
If r=11 Then r=12
ruota(1)=r : ruote(1)=11
Equazione1=90 ' Serve solo come promeria...
Equazione3=90 ' Serve solo come promeria...
a1=Estratto(estraz-1,r,1)
a2=Estratto(estraz-1,r,2)
a3=Estratto(estraz-1,r,3)
a4=Estratto(estraz-1,r,4)
a5=Estratto(estraz-1,r,5)
b1=Estratto(estraz,r,1)
b2=Estratto(estraz,r,2)
b3=Estratto(estraz,r,3)
b4=Estratto(estraz,r,4)
b5=Estratto(estraz,r,5)
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 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
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)
numeri(1)=xx : n1(1)=xx
s7=Fuori90(b2+b3+b4+b5+xx)
If s6<s7 Then ds6=(90+s6)-s7 Else ds6=s6-s7
yy=Fuori90(a1+s7)
zz=Fuori90(yy+ss)
If zz=90 Then
conta=conta+1
sp1=Fuori90(s7+s6)
kk=90-sp1 : numeri(2)=kk : n2(1)=kk
sfa=SerieRitardo(1,estraz,numeri,ruota,2)
sf1=SerieRitardo (estraz-200,estraz,n1,ruota,1) : sf2=SerieRitardo (estraz-200,estraz,n2,ruota,1)
ColoreTesto 4 :Scrivi : Scrivi String (70,"=")&" Caso n°"& conta,1 : ColoreTesto 0
Scrivi DataEstrazione (estraz-1)&" "& SiglaRuota (r)&" "& StringaEstratti (estraz-1,r)
Scrivi DataEstrazione (estraz)&" "& SiglaRuota (r)&" "& StringaEstratti (estraz,r)
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
Scrivi "Somma di tutte le Differenze (Ultima esclusa) = "& sd : ColoreTesto 0
Scrivi
Scrivi "PRIMA EQUAZIONE..... "& Format2(a1)&" + "& Format2(b1)&" + "& Format2(b5)&" = "& Format2(Equazione1)&" (ok!!)"
Scrivi
ColoreTesto 2
Scrivi "Primo Futuro Estratto = "& Format2(xx)
ColoreTesto 0
Scrivi
Scrivi "TERZA EQUAZIONE..... "& Format2(b2)&" + "& Format2(b3)&" + "& Format2(b4)&" = "& Format2(Equazione3)&" (ok!!)"
Scrivi
Scrivi "Somma sest

 

[daimon1975]

Per due ruote...

Sub main()
Dim ruota(2),ruote(1),numeri(2),posta(10),poste(2),r(2),n1(1),n2(1)
posta(1)=1 : posta(2)=1 : poste(1)=0 : poste(2)=1 : colpi=18
iniziale=EstrazioneFin-700
finale=EstrazioneFin
conta=0
For estraz=iniziale To finale
Messaggio estraz
For i=1 To 10
For j=i+1 To 11
If j=11 Then j=12
r(1)=i
r(2)=j
ruote(1)=11
ruota(1)=r(1)
ruota(2)=r(2)
Equazione1=90 ' Serve solo come promeria...
Equazione3=90 ' Serve solo come promeria...
a1=Estratto(estraz,r(1),1)
a2=Estratto(estraz,r(1),2)
a3=Estratto(estraz,r(1),3)
a4=Estratto(estraz,r(1),4)
a5=Estratto(estraz,r(1),5)
b1=Estratto(estraz,r(2),1)
b2=Estratto(estraz,r(2),2)
b3=Estratto(estraz,r(2),3)
b4=Estratto(estraz,r(2),4)
b5=Estratto(estraz,r(2),5)
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 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
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)
numeri(1)=xx : n1(1)=xx
s7=Fuori90(b2+b3+b4+b5+xx)
If s6<s7 Then ds6=(90+s6)-s7 Else ds6=s6-s7
yy=Fuori90(a1+s7)
zz=Fuori90(yy+ss)
If zz=90 Then
conta=conta+1
sp1=Fuori90(s7+s6)
kk=90-sp1 : numeri(2)=kk : n2(1)=kk
sfa=SerieRitardo(1,estraz,numeri,ruota,2)
sf1=SerieRitardo (estraz-200,estraz,n1,ruota,1) : sf2=SerieRitardo (estraz-200,estraz,n2,ruota,1)
ColoreTesto 4 :Scrivi : Scrivi String (70,"=")&" Caso n°"& conta,1 : ColoreTesto 0
Scrivi DataEstrazione (estraz-1)&" "& SiglaRuota (r(1))&" "& StringaEstratti (estraz,r(1))
Scrivi DataEstrazione (estraz)&" "& SiglaRuota (r(2))&" "& StringaEstratti (estraz,r(2))
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
Scrivi "Somma di tutte le Differenze (Ultima esclusa) = "& sd : ColoreTesto 0
Scrivi
Scrivi "PRIMA EQUAZIONE..... "& Format2(a1)&" + "& Format2(b1)&" + "& Format2(b5)&" = "& Format2(Equazione1)&" (ok!!)"
Scrivi
ColoreTesto 2
Scrivi "Primo Futuro Estratto = "& Format2(xx)
ColoreTesto 0
Scrivi
Scrivi "TERZA EQUAZIONE..... "& Format2(b2)&" + "& Format2(b