Novità

LORD BYRON cancellato

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
quote:Originally posted by daimon1975

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

daimon1975
Clicca per espandere...


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.
:D:D:D:D:D:D

m'ero dimenticato di inserire gli smiles
 
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
 
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
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 03 novembre 2026
    Bari
    60
    81
    39
    27
    89
    Cagliari
    49
    40
    60
    34
    57
    Firenze
    33
    90
    53
    40
    10
    Genova
    18
    81
    28
    44
    52
    Milano
    12
    50
    54
    43
    81
    Napoli
    74
    79
    42
    24
    17
    Palermo
    51
    31
    10
    90
    62
    Roma
    23
    27
    40
    65
    28
    Torino
    89
    44
    69
    04
    21
    Venezia
    19
    33
    78
    37
    59
    Nazionale
    01
    56
    18
    50
    68
    Estrazione Simbolotto
    Torino
    45
    09
    18
    28
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto