Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub main()
Dim numeri(10), gg(10),rc(20)
ini= 9600
fin=EstrazioneFin
casi=0
colpi=12
For n=ini To fin
If IndiceMensile(n+1)= 1 Then
casi=casi+1
numeri(1)=Fuori90(Estratto(n,1,1)*0.8)
numeri(2)=Fuori90(Estratto(n,2,1)*0.6)
numeri(3)=Fuori90(Estratto(n,3,1)*0.3)
numeri(4)=Fuori90(Estratto(n,4,1)*0.1)
numeri(5)=Fuori90(Estratto(n,5,1)*0.11)
numeri(6)=Fuori90(Estratto(n,6,1)*0.15)
numeri(7)=Fuori90(Estratto(n,7,1)*0.2)
numeri(8)=Fuori90(Estratto(n,8,1)*0.1)
numeri(9)=Fuori90(Estratto(n,9,1)*0.12)
numeri(10)=Fuori90(Estratto(n,10,1)*0.6)
For i=1 To 10
If numeri(i)=0 Then numeri(i)=90
Next
nn=0
If NumeriRipetuti(numeri) Then
nn=1
While NumeriRipetuti(numeri)
For i=1 To 9
For y= i+1 To 10
If numeri(i)=numeri(y) Then numeri(y)=Vert(numeri(y))'Fuori90(numeri(y)+89)
Next
Next
Wend
End If
OrdinaMatrice numeri,1 ' cosi mette in numeri in ordine crescente
Scrivi : Scrivi String (55,"=")
If nn=1 Then Scrivi "Erano presenti numeri ripetuti, è stato fatto il -1",1
ColoreTesto 1
Scrivi n&" "& DataEstrazione(n)&" Numeri in gioco per il mese: "& StringaNumeri(numeri),1
Scrivi : ColoreTesto 0
ess=n+colpi
If ess>fin Then ess=fin
For x=n+1 To ess
co=0
For r= 1 To 10
For p= 1 To 2
co=co+1
a=Estratto(x,r,p)
rc(co)=a
Next
Next
OrdinaMatrice (rc) 'solo x controllo
'Scrivi x&" "& StringaNumeri (rc)'solo x controllo questo con ripetuti
If NumeriRipetuti(rc) Then
c=0
While NumeriRipetuti(rc)
c=c+1
For i=1 To 19
For y= i+1 To 20
If rc(i)=rc(y) Then rc(y)=Estratto(x,c,3)
Next
Next
Wend
End If
OrdinaMatrice (rc) 'solo x controllo
Scrivi x&" "& StringaNumeri (rc)'solo x controllo senza i ripetuti e sostituiti...
'metti apice sopra se non vuoi vedere la ventina...
cont=0
For i=1 To 20
For j=1 To 10
If rc(i)=numeri(j) Then
cont=cont+1
End If
Next
Next
If cont=0 Then Scrivi "Punti Zero al "& (x-n)&"° colpo" : c1=c1+1
If cont=4 Then Scrivi "Punti Quattro al "& (x-n)&"° colpo" : c2=c2+1
If cont=5 Then Scrivi "Punti Cinque al "& (x-n)&"° colpo" : c3=c3+1
If cont=6 Then Scrivi "Punti Sei al "& (x-n)&"° colpo" : c4=c4+1
If cont=7 Then Scrivi "Punti Sette al "& (x-n)&"° colpo" : c5=c5+1
If cont=8 Then Scrivi "Punti Otto al "& (x-n)&"° colpo" : c6=c6+1
If cont=9 Then Scrivi "Punti Nove al "& (x-n)&"° colpo" : c7=c7+1
If cont=10 Then Scrivi"Punti Dieci al "& (x-n)&"° colpo" : c8=c8+1
Next
End If
Next
Scrivi : Scrivi " RESOCONTO TOTALE ",1
Scrivi " Periodo dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin)
Scrivi "------------------" : ColoreTesto 0
Scrivi " CASI ANALIZZATI : "& casi
Scrivi "------------------" : Scrivi : ColoreTesto 2
Scrivi FormatSpace (" ZERO",10)&": "&c1,1
Scrivi FormatSpace (" QUATTRO",10)&": "&c2,1
Scrivi FormatSpace (" CINQUE",10)&": "&c3,1
Scrivi FormatSpace (" SEI",10)&": "&c4,1
Scrivi FormatSpace (" SETTE",10)&": "&c5,1
Scrivi FormatSpace (" OTTO",10)&": "&c6,1
Scrivi FormatSpace (" NOVE",10)&": "&c7,1
Scrivi FormatSpace (" DIECI",10)&": "&c8,1
End Sub
ciao alien scusami era per L8 .mi da errore !!
Sub Main
Scrivi " 10ELOTTO di sax71 ",1 ' - http://forum.lottoced.com/f12/10elotto-107240/ -
Dim nu(10),nu1(10)
arc = 1'InputBox(" [ 1 ]=Archivio 10L8 classico - [ 2 ]=Archivio 10L8 5minuti",,1)
ImpostaArchivio10ELotto(arc)
esc = InputBox(" Quante Estrazioni Controllo ? "," NUMERO ESTRAZIONI ",150)
im = CInt(InputBox("Qual'è l'indice mensile ?","Indice Mensile",1))
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - esc
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = im Then
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & " ",1,0,6
Scrivi " ****** Per 10 e lotto 5min ******** ",1,0,3
Scrivi "Controllo dalla " & Format2(im) & "° Estrazione mensile",1,0,7
Scrivi " totali estrazioni " &(fin - Ini) & " ",1,- 1,4
Scrivi
a1 = EstrattoDL(es,1)'1° Esratto 10eLotto
a2 = EstrattoDL(es,2)'2° Esratto 10eLotto
a3 = EstrattoDL(es,3)'3° Esratto 10eLotto
a4 = EstrattoDL(es,4)'4° Esratto 10eLotto
a5 = EstrattoDL(es,5)'5° Esratto 10eLotto
a6 = EstrattoDL(es,6)'6° Esratto 10eLotto
a7 = EstrattoDL(es,7)'7° Esratto 10eLotto
a8 = EstrattoDL(es,8)'8° Esratto 10eLotto
a9 = EstrattoDL(es,9)'9° Esratto 10eLotto
a10 = EstrattoDL(es,10)'10° Esratto 10eLotto
a11 = EstrattoDL(es,11)'11° Esratto 10eLotto
a12 = EstrattoDL(es,12)'12° Esratto 10eLotto
a13 = EstrattoDL(es,13)'13° Esratto 10eLotto
a14 = EstrattoDL(es,14)'14° Esratto 10eLotto
a15 = EstrattoDL(es,15)'15° Esratto 10eLotto
a16 = EstrattoDL(es,16)'16° Esratto 10eLotto
a17 = EstrattoDL(es,17)'17° Esratto 10eLotto
a18 = EstrattoDL(es,18)'18° Esratto 10eLotto
a19 = EstrattoDL(es,19)'19° Esratto 10eLotto
a20 = EstrattoDL(es,20)'20° Esratto 10eLotto
Scrivi ScriviEstrazioneDL(es) & ""
nu(1) = Fuori90(a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15 + a16 + a17 + a18 + a19 + a20)
nu(2) = Fuori90(a1 + a2 + a3) 'la somma dei primi 3 estratti
nu(3) = Fuori90(a18 + a19 + a20) 'e degli ultimi 3 estratti;
nu(4) = Fuori90(a9 + a10 + a11 + a12) 'la somma degli estratti centrali, ovvero 9°, 10°, 11° e 12° estratto,
nu(5) = ComplAdX(Fuori90(a9 + a10 + a11 + a12))'e di tale somma ricaveremo anche il complemento (differenza) a 90;
nu(6) = Fuori90((a1 + a20) + 1) 'la somma degli estremi, vale a dire 1° e 20° estratto,e di tale numero prenderemo i due elementi distanti una unità (ovvero a +1
nu(7) = Fuori90((a1 + a20) - 1) 'e di tale numero prenderemo i due elementi distanti una unità (ovvero a +1 e -1);
nu(8) = Fuori90((a1 + a10) + 30) 'la somma dei simmetrici, vale a dire 1° e 10° estratto ;
'EliminaRipetuti nu
ImpostaGiocataDL 1,nu,1,13
nu1(1) = Fuori90((a1 + a10) - 30) 'di questi due valori ricavati prenderemo in esame i due numeri distanti 30 unità (simmetrici);
nu1(2) = Fuori90((a11 + a20) + 30) 'la somma dei simmetrici, vale a dire 11° e 20° estratto;
nu1(3) = Fuori90((a11 + a20) - 30) 'di questi due valori ricavati prenderemo in esame i due numeri distanti 30 unità (simmetrici);
nu1(4) = Figura(a1) & Figura(a11) 'abbinamento delle figure speculari, ovvero figura del 1° e dell’11° estratto e
nu1(5) = Figura(a10) & Figura(a20)' del 10° e del 20° estratto;
nu1(6) = Fuori90(a5 + a15) 'la somma dei medi, cioè il 5° ed il 15° estratto;
nu1(7) = Fuori90(a6 + a15)'la somma degli incroci, ovvero 6° e 15° estratto
nu1(8) = Fuori90(a11 + a16) ' ed 11° e 16° estratto.
EliminaRipetuti nu1
ImpostaGiocataDL 2,nu1,1,13
GiocaDL es
End If
Next
Scrivi
Scrivi"----------------------------------- Dettaglio ultime 10 giocate ---------------------------------"
ScriviResocontoDL(True)
End Sub