Novità

Mike o chi capace modifica script grazie

roy

Super Member >PLATINUM<
Codice:
Sub Main()
   Dim som(5,90)
   Dim estr(5)
   Dim T,V,Num(1),Ru(1),aNum(90)
   Dim VetN,VetQ
   Dim Val(5,90)
   SetColorSezione(6)
   T = Array(T,"Caso N°","Algoritmo","Addendi","Presenze su Casi"," % ","Ultima oper","Num Calcolato","VerificaEsito","Colpo","Info Data Id")
   Call InitTabella(T)
   qt = InputBox("Quante estrazioni controllo",,160)
   es = CInt(InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1))
   Rg = InputBox("Quale RUOTA di Gioco ",,1)
   Scrivi "Ricerca Algoritmi migliori con perc% > 90%, su Tutte le Ruote e gioca su Ruota : " & SiglaRuota(rg),1,1,3
   Scrivi "Indice Mensile analizzato : " & es,1
   EndColorSezione
   For r2 = rg To rg
      For r = 1 To 10
         z = 0
         For i = 1 To 5
            For j = 1 To 90
               som(i,j) = 0
               Val(i,j) = True
            Next
         Next
         For i = 1 To 5
            estr(i) = 0
         Next
         valido = False
         For n = EstrazioneFin - qt To EstrazioneFin
            If valido = True Then
               For i = 1 To 5
                  For j = 1 To 5
                     k = Estratto(n,r2,j) - estr(i)
                     If k <= 0 Then
                        k = k + 90
                     End If
                     If Val(i,k) = True Then
                        som(i,k) = som(i,k) + 1
                     End If
                  Next
               Next
               For i = 1 To 5
                  For j = 1 To 5
                     k = Estratto(n,r2,j) - estr(i)
                     If k <= 0 Then
                        k = k + 90
                     End If
                     If Val(i,k) = True Then
                        Val(i,k) = False
                     End If
                  Next
               Next
            End If
            If es = 0 Then m = n + 1 Else m = n End If
            If IndiceMensile(m) = es Then
               z = z + 1
               valido = True
               For i = 1 To 5
                  estr(i) = Estratto(n,r,i)
               Next
               For i = 1 To 5
                  For j = 1 To 90
                     Val(i,j) = True
                  Next
               Next
            End If
         Next
         For i = 1 To 5
            For j = 1 To 90
               zz = Int((z/100)*90)
               's = CStr(eval(i)) + " estratto di " + SiglaRuota(r) + " + " + CStr(eval(j)) + " sulla ruota di "
               s = i & "°" & " Estratto di " & SiglaRuota(r)
               perc = Round(som(i,j)/z*100,2)
               's = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
               If som(i,j) > zz Then
                  If Valido = True Then kk = kk + 1
                  Num(1) = Fuori90(estr(i) + j)
                  Ru(1) = Rg
                  ReDim Preserve TotNum(kk)
                  TotNum(kk) = Num(1)
                  Ind = IndiceMensile(EstrazioneFin)
                  Call VerificaEsito(Num,Ru,EstrazioneFin - Ind + 1,1,Ind,,esito,colpi,es1,id)
                  V = Array(V,kk,s,j,som(i,j) & " su " & z,perc & "%",estr(i) & " + " & j,StringaNumeri(Num),es1,colpi,GetInfoEstrazione(id))
                  Call AddRigaTabella(V)
                  For xx = 1 To 5
                     If perc = 100 Then Call SetColoreCella((xx),2,4)
                     If id = EstrazioneFin Then Call SetColoreCella(10,7,5)
                  Next
               End If
               'End If
            Next
         Next
      Next
   Next
   CreaTabella
   'Scrivi ss
   'Scrivi Ind
   Scrivi "Stringa Numeri ricavati : " & StringaNumeri(TotNum),1,,,,3
   Call NumeriRipetutiRilevatiV(TotNum,VetN,VetQ)
   Scrivi "Numeri Ripetuti         : " & StringaNumeri(VetN),1,,,1,3
   Scrivi "Quantità Convergenti    : " & StringaNumeri(VetQ,,1),1,,,2,3
   Scrivi
   Scrivi "Script By Mike58",1,,,7,3
End Sub
mi servirebbe x il 10 e lotto ,grazie
 

roy

Super Member >PLATINUM<
Grazie Magia ,ma vedendo lo script,non indica + la somma dei numeri estratti al lotto e gli addenti.come mai?
 

roy

Super Member >PLATINUM<
Ciao Magia,grazie prima di tutto x l'aiuto e pazienza ma lo script non si apre e mi esce questa tendina,pensando alla memoria piena di spaziometria ho cancellato diversi script ma con lo stesso risultato
Cattura.PNG ca.PNG
 

franca46

Advanced Member >PLATINUM PLUS<
buon pomeriggio a tutti , io ho questo listato per il 10elotto fatto da sax71 ,tempo fa , se può esservi utile , naturalmente con le modifiche per i numeri da calcolare

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

fatemi sapere se vi funziona

buona serata
 
Ultima modifica:

claudio8

Premium Member
X Roy e tutti
Lascio a voi il controllo e la verifica dei risultati non uso il 10 e lotto da anni.
Questo script è già stato modificato da Mike dall'originale di Danilo o Robica , non ricordo bene chi lo ha fatto, utilizzando un cosrtrutto alquanto macchinoso.
Codice:
Sub Main()
     Dim som(20,90)
     Dim estr(20)
     Dim T,V,Num(01),aNum(90)
     Dim VetN,VetQ,Valido,qt,i_m,sorte,colpi
     Dim Val(20,90)
     SetColorSezione(6)
     T = Array(T,"CasoN°","Algoritmo","Fisso","Presenze"," % ","Ultima oper","Num Calcolato","Verifica dell'Esito","Colpo","Info Data Id")
     Call InitTabella(T)
     qt = InputBox("Quante estrazioni controllo",,30)
     i_m = CInt(InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.","IndiceMese",1))
     Scrivi "Ricerca Algoritmi migliori con perc % > 90 %, al 10eLotto",1,1,3
     Scrivi "Indice Mensile analizzato : " & i_m,1
     ImpostaArchivio10ELotto(1)
     For a = 1 To 15
          If IndiceMensileDL(EstrazioneFinDL - a) = i_m Then
               Scrivi StringaEstrattiDL(EstrazioneFinDL - a) & " del " & DataEstrazioneDL(EstrazioneFinDL - a)
               Exit For
          End If
     Next
     EndColorSezione
     For r = 1 To 1
          z = 0
          For i = 1 To 20
               For j = 1 To 90
                    som(i,j) = 0
                    Val(i,j) = True ' vero
               Next
          Next
          For i = 1 To 20
               estr(i) = 0
          Next
          Valido = False
          For n = EstrazioneFinDL - qt To EstrazioneFinDL
               If Valido = True Then
                    For i = 1 To 20
                         For j = 1 To 20
                              k = EstrattoDL(n,j) - estr(i)
                              If k <= 0 Then
                                   k = k + 90
                              End If
                              If Val(i,k) = True Then
                                   som(i,k) = som(i,k) + 1
                              End If
                         Next
                    Next
                    For i = 1 To 20
                         For j = 1 To 20
                              k = EstrattoDL(n,j) - estr(i)
                              If k <= 0 Then
                                   k = k + 90
                              End If
                              If Val(i,k) = True Then
                                   Val(i,k) = False
                              End If
                         Next
                    Next
               End If
               If i_m = 0 Then
                    m = n + 1
               Else
                    m = n
               End If
               If IndiceMensileDL(m) = i_m Then '1
                    z = z + 1 ' contatore casi
                    Valido = True
                    For i = 1 To 20
                         estr(i) = EstrattoDL(m,i) 'metto gli estratti in "estr"
                    Next
                    For i = 1 To 20
                         For j = 1 To 90
                              Val(i,j) = True
                         Next
                    Next
               End If
          Next
          For i = 1 To 20
               For j = 1 To 90
                    zz = Int((z/100)*90)
                    s = i & "°" & "  Estratto + "
                    perc = Round(som(i,j)/z*100,2)
                    's = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
                    If som(i,j) > zz Then
                         If Valido = True Then kk = kk + 01
                         Num(1) = Fuori90(estr(i) + j)
                         ReDim Preserve TotNum(kk)
                         TotNum(kk) = Num(1)
                         Ind = IndiceMensileDL(EstrazioneFinDL) '= colpi nel verifica esito ????
                         Call VerificaEsitoDL(Num,EstrazioneFinDL - Ind + 1,1,Ind,esito,colpo,es1,id)
                         ' T = Array(T,"CasoN°","Algoritmo","Addendi","Presenze"," % ","Ultima oper","Num Calcolato","VerificaEsito","Colpo","Info Data Id")
                         V = Array(V,kk,s,j,som(i,j) & " su " & z,perc & "%",estr(i) & " + " & j,StringaNumeri(Num,,True),es1,colpo,DataEstrazioneDL(id))
                         Call AddRigaTabella(V)
                         For xx = 1 To 05
                              If perc = 100 Then Call SetColoreCella((xx),02,04)
                              If id = EstrazioneFin Then Call SetColoreCella(10,07,05)
                         Next
                    End If
               Next
          Next
     Next
     CreaTabella
     'Scrivi ss
     'Scrivi Ind
     Scrivi "Stringa Numeri ricavati : " & StringaNumeri(TotNum),1,,,,3
     Call NumeriRipetutiRilevatiV(TotNum,VetN,VetQ)
     Scrivi "Numeri Ripetuti : " & StringaNumeri(VetN,,2),1,,,1,3
     Scrivi "Q.  Convergenti : " & StringaNumeri(VetQ,,2),1,,,2,3
     Scrivi
     Scrivi "Script By Mike58",1,,,7,3
End Sub

Anche l'originale che avete postato non gestisce l'indice mese=0 che comunque non ho approfondito nella correzione.
adesso dà tutte le righe.
saluti
 

claudio8

Premium Member
buon pomeriggio a tutti , io ho questo listato per il 10elotto fatto da sax71 ,tempo fa , se può esservi utile , naturalmente con le modifiche per i numeri da calcolare

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
        ''''''''
         If arc = 2 Then 
         Scrivi " ****** Per 10 e lotto 5min ****** ",1,0,3
         Else
         Scrivi " ****** Per 10 e lotto Serale ****** ",1,0,3
         End If 
        '''''''
         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

fatemi sapere se vi funziona

buona serata
mi sono permesso un if ... end if al titolo già molto carino.
 

roy

Super Member >PLATINUM<
Ciao a tutti,ho provato lo script,non era quello che cercavo,probabilmente non mi sono spiegato bene,volevo (se possibile) che lo script iniziale quando lo esegui le uscite si analizzavano con l'archivio 10 e lotto,cioè il primo di Bari con un addento quante volte è uscito al 10 e lotto(con le percentuali) per le successive(input 3,4,5 e così via),grazie
 

Alien.

Advanced Premium Member
buon pomeriggio a tutti , io ho questo listato per il 10elotto fatto da sax71 ,tempo fa , se può esservi utile , naturalmente con le modifiche per i numeri da calcolare

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

fatemi sapere se vi funziona

buona serata



ma si può inserire la quantità dei numeri presi 3-4 ecc. grazie.


puoi inserire la ricerca unendo i 2 gruppi di numeri? cioè 18 numeri ...grazie.
 
Ultima modifica:

franca46

Advanced Member >PLATINUM PLUS<
sto provando a modificarlo con il metodo di donatella ,
sul programma i numeri indovinati li colora in rosso , qui no
però si vedono chiaramente

Codice:
+---------------------------------------------009703---------------------------------------------+
1    2    3    4    5    6    7    8    9    10   11   12   13   14   15   16   17   18   19   20   Oro 
--------------------------------------------------------------------------------------------------
06   10   11   12   15   18   28   36   46   48   50   54   57   58   59   61   66   75   76   80   06


Estrazione generatrice del pronostico 09703 [132 - 02/11/2019]
G 0001 Numeri in gioco : 01.02.11.55.58.61
V N. [01.02.11.55.58.61                                 ] [02 .. .. .. .. .. .. .. .. .. .. .. .. 55 58 61 .. .. .. .. ] C.      1            09704 [133 - 05/11/2019]
  N. [01.02.11.55.58.61                                 ] [.. 11 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ] C.      2            09705 [134 - 07/11/2019]
  N. [01.02.11.55.58.61                                 ] [01 .. .. .. .. .. .. .. .. .. .. 55 .. .. .. .. .. .. .. .. ] C.      3            09706 [135 - 09/11/2019]
  N. [01.02.11.55.58.61                                 ] [.. .. .. .. .. .. .. .. .. .. .. 55 58 .. .. .. .. .. .. .. ] C.      4            09707 [136 - 12/11/2019]
  N. [01.02.11.55.58.61                                 ] [.. .. .. .. .. .. .. .. .. .. 61 .. .. .. .. .. .. .. .. .. ] C.      5            09708 [137 - 14/11/2019]
V N. [01.02.11.55.58.61                                 ] [02 .. .. .. .. .. .. .. .. .. .. .. .. .. 55 .. 61 .. .. .. ] C.      6            09709 [138 - 16/11/2019]
  N. [01.02.11.55.58.61                                 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ] C.      7 Zero punti 09710 [139 - 19/11/2019]
  N. [01.02.11.55.58.61                                 ] [.. .. .. .. .. .. .. .. .. .. .. 61 .. .. .. .. .. .. .. .. ] C.      8            09711 [140 - 21/11/2019]
  N. [01.02.11.55.58.61                                 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. 61 .. .. .. .. .. .. ] C.      9            09712 [141 - 23/11/2019]
  N. [01.02.11.55.58.61                                 ] [01 .. .. .. .. .. .. .. .. .. .. .. .. 58 .. .. .. .. .. .. ] C.     10            09713 [142 - 26/11/2019]
  N. [01.02.11.55.58.61                                 ] [.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ] C.     11 Zero punti 09714 [143 - 28/11/2019]
  N. [01.02.11.55.58.61                                 ] [02 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ] C.     12            09715 [144 - 30/11/2019]
V N. [01.02.11.55.58.61                                 ] [02 .. .. .. .. .. .. .. .. .. 55 .. .. 61 .. .. .. .. .. .. ] C.     13            09716 [145 - 03/12/2019]
Interrotta per raggiunta durata
 

Alien.

Advanced Premium Member
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 ?
 

roy

Super Member >PLATINUM<
grazie Magia va bene così,manca solo input dei colpi da giocare,io non riesco a trovare dove imporre,grazie

ps. ho notato che non esce la nuova giocata....e se possibile inserire il numero somma da giocare,grazie
 
Ultima modifica:

Alien.

Advanced Premium Member
tenor.gif




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

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto