Mike o chi capace modifica script grazie

[franca46]

ciao alien , mi spiace non riesco a trovarlo , ma non calcola i numeri , ricordavo male
è solo un listato di controllo sugli esiti

 

[Alien.]

ACC.................

 

[franca46]

ciao Alien , ho trovato questo , magari qualcuno riesce a modificarlo , a me non riesce

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

 

[Alien.]

mi da errore !!

 

[franca46]

mi da errore !!

ciao alien scusami era per L8 .

questo è per spaziometria

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