| LOTTO EVOLUTION 4 (di Adriano Scaravetti) postato da mas
Caro XXX (mas), ti facilito un po' il compito mandantoti questo script che analizza i 10 Numeri in L8+
Sub main()
Scrivi "Analisi 10 Numeri Orologio" Scrivi "__________________________ by ScaraLab"
Dim nm(1), nn(2), num(10), nume(10), rut(1), rrtt(2) fin=EstrazioneFin
ni=InputBox("Inserisci i numeri da analizzare ","") ni="0."&ni nu=Split(ni,".") EliminaRipetuti nu nni=UBound(nu)
For j=1 To nni num(j)=nu(j) Next
Scrivi Scrivi " I 10 Numeri nalizzati sono: "& StringaNumeri(num),1 Scrivi " Alla data del "&dataestrazione(fin)&" ["&fin&"]" Scrivi
For j=1 To 10 nume(j)=num(j) Next
OrdinaMatrice nume,1 Scrivi StringaNumeri(num)&" in ordine crescente: "&StringaNumeri(nume),1 Scrivi " Orologio dei 10 numeri:"
Scrivi " "&format2(num(5))&" "&format2(num(6))&" "&format2(nume(5))&" "&format2(nume(6)) Scrivi " "&format2(num(4))&" "&format2(num(7))&" "&format2(nume(4))&" "&format2(nume(7)) Scrivi " "&format2(num(3))&" "&format2(num(8))&" "&format2(nume(3))&" "&format2(nume(8)) Scrivi " "&format2(num(2))&" "&format2(num(9))&" "&format2(nume(2))&" "&format2(nume(9)) Scrivi " "&format2(num(1))&" "&format2(num(10))&" "&format2(nume(1))&" "&format2(nume(10)) Scrivi
For j=1 To 10 nm(1)=num(j) : Scrivi " Numero: "&format2(nm(1)) For rr=1 To 12 If rr=11 Then rr=12 rut(1)=rr fr1=SerieFreq(fin-215,fin,nm,rut,1) : fr2=SerieRitardo(fin-215,fin,nm,rut,1) Scrivi" -> Ruota: "&Formatspace(NomeRuota(rr),12)&" Presenze in 216 estr. "&format2(fr1)&_ " Ritardo estr. "&format2(fr2) Next Next Scrivi
rrtt(1)=11 : rrtt(2)=12 For j=1 To 9 For jj=j+1 To 10 nn(1)=num(j) : nn(2)=num(jj) fr1=SerieFreq(fin-11,fin,nn,rrtt,2) : fr2=SerieFreq(fin-23,fin-12,nn,rrtt,2) fr3=SerieFreq(fin-35,fin-24,nn,rrtt,2) : fr4=SerieFreq(fin-47,fin-36,nn,rrtt,2) Scrivi " Ambo: "&format2(nn(1))&"."&format2(nn(2))&" Pres 0-11 estr. "&format2(fr1)&_ " Pres 23-12 estr. "&format2(fr2)&" Pres 35-24 estr. "&format2(fr3)&_ " Pres 47-36 estr. "&format2(fr3) Next Next Scrivi
For rr=1 To 12 If rr=11 Then rr=12 rut(1)=rr fr1=SerieFreq(fin-400,fin,num,rut,2) : fr2=SerieRitardo(fin-400,fin,num,rut,2) Scrivi" I 10 Numeri -> Ruota: "&Formatspace(NomeRuota(rr),12)&" Presenze per ambo in 400 estr. "&format2(fr1)&_ " Ritardo per ambo estr. "&format2(fr2) Next Scrivi
End Sub
Attenzione agli a capo delle righe dello script.
Buona fortuna.
A
Gli spazi dentro gli apici delle seguenti righe vanno allargati per formare l-orologio>
Scrivi " "&format2(num(5))&" "&format2(num(6))&" "&format2(nume(5))&" "&format2(nume(6)) Scrivi " "&format2(num(4))&" "&format2(num(7))&" "&format2(nume(4))&" "&format2(nume(7)) Scrivi " "&format2(num(3))&" "&format2(num(8))&" "&format2(nume(3))&" "&format2(nume(8)) Scrivi " "&format2(num(2))&" "&format2(num(9))&" "&format2(nume(2))&" "&format2(nume(9)) Scrivi " "&format2(num(1))&" "&format2(num(10))&" "&format2(nume(1))&" "&format2(nume(10))
mas
|