Novità

Mike o chi capace modifica script grazie

ciao alien , mi spiace non riesco a trovarlo , ma non calcola i numeri , ricordavo male
è solo un listato di controllo sugli esiti
 
ciao Alien , ho trovato questo , magari qualcuno riesce a modificarlo , a me non riesce

Codice:
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

buona domenica
 
mi da errore !!
ciao alien scusami era per L8 .

questo è per spaziometria

Codice:
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

sempre da modificare
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
Indietro
Alto