Novità

Mike o chi capace modifica script grazie

franca46

Advanced Member >PLATINUM PLUS<
Messaggi
2.666
Punti reazione
39
Punti
48
Si grazie,visto ma non inserisce 3 o 4 punti. DEVO CONTARLI uno ad uno i punteggi fatti vedo se riesco a fare il 3 secco hahahahha 😛
no questo no , ma forse ne ho un'altro modificato, appena ho un momentino lo metto, segna anche il 3 , cosi' non fai fatica !!!!:ROFLMAO:
 

Alien.

Advanced Premium Member
Messaggi
21.203
Punti reazione
135
Punti
63




è ma dato che ci siamo si può controllare tutti i numeri (18 numeri) anzichè 2 colonne da 8 numeri ? si possono fare 6/7 punti. con dei filtri vedo se lo faccio secco il 6 ahhaahahaha
 
Ultima modifica:

franca46

Advanced Member >PLATINUM PLUS<
Messaggi
2.666
Punti reazione
39
Punti
48
ciao alien , mi spiace non riesco a trovarlo , ma non calcola i numeri , ricordavo male
è solo un listato di controllo sugli esiti
 

franca46

Advanced Member >PLATINUM PLUS<
Messaggi
2.666
Punti reazione
39
Punti
48
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
 

franca46

Advanced Member >PLATINUM PLUS<
Messaggi
2.666
Punti reazione
39
Punti
48
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
    sabato 18 gennaio 2020
    Bari
    50
    69
    66
    53
    85
    Cagliari
    05
    81
    46
    82
    37
    Firenze
    71
    40
    73
    41
    74
    Genova
    57
    10
    51
    35
    16
    Milano
    73
    28
    87
    15
    88
    Napoli
    22
    77
    89
    19
    41
    Palermo
    14
    09
    04
    03
    34
    Roma
    40
    15
    45
    35
    11
    Torino
    08
    30
    01
    72
    50
    Venezia
    49
    43
    76
    20
    38
    Nazionale
    80
    18
    48
    02
    67

Ultimi Messaggi

Alto