Novità

Mike o chi capace modifica script grazie

roy

Super Member >PLATINUM<
Messaggi
328
Punti reazione
7
Punti
18
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<
Messaggi
328
Punti reazione
7
Punti
18
Grazie Magia ,ma vedendo lo script,non indica + la somma dei numeri estratti al lotto e gli addenti.come mai?
 

Bubblegum

Junior Member
Messaggi
15
Punti reazione
0
Punti
1
Ciao , al primo script se imposto l'ultima estrazione del mese con lo 0 non mi da alcun risultato , anche a voi succede ? Grazie
 

roy

Super Member >PLATINUM<
Messaggi
328
Punti reazione
7
Punti
18
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
 

magia

Super Member >PLATINUM<
Messaggi
493
Punti reazione
16
Punti
18
Buongiorno,
Salutando tutti ,
Ciao , al primo script se imposto l'ultima estrazione del mese con lo 0 non mi da alcun risultato , anche a voi succede ? Grazie
la causa e' da imputare al listato ,
e' stato fatto per il Lotto ,e' spesso l' adattamento ad altri giochi ,
puo causare problemi , come quello da lei evidenziato .

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
Vedi l'allegato 2191432
Vale anche qui lo stesso discorso fatto in precedenza .
In questo caso , crediamo che la causa sia nella creazione della tabella ,
cioe' l' aggiunta di righe
Chiamiamo in causa e confidiamo in LuigiB , Mike58 , Joe91 , Beppignello , druid ,
Ilegend , Claudio8 , Rubino , Salvo50 . Druid , Moro_80 , Master ed altri
per un aiuto .
 

roy

Super Member >PLATINUM<
Messaggi
328
Punti reazione
7
Punti
18
Grazie,qualche altro bravo scripter altruista e volenteroso?
 

franca46

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

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

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

magia

Super Member >PLATINUM<
Messaggi
493
Punti reazione
16
Punti
18
Buongiorno ,
salutando gli intervenuti .
Abbiamo eliminato i listati errati .
Postiamo il listato modificato .

Option Explicit
'Mike o chi capace modifica script grazie di roy
'https://forum.lottoced.com/threads/mike-o-chi-capace-modifica-script-grazie.2191168/#post-2204388
Sub Main()
Dim qt,es,Rg,a
Dim r2,r,z,i,j,Valido,k,m,n,zz,s,perc,kk
Dim Ind,esito,colpi,es1,id,xx
Dim som(05,90)
Dim estr(05)
Dim T,V,Num(01),Ru(01),aNum(90)
Dim VetN,VetQ
Dim Val(05,90)
Call SetColorSezione(vbCyan)
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)
Call Scrivi("Ricerca Algoritmi migliori con perc % >=90 %, al 10eLotto",True)
Call Scrivi("Indice Mensile analizzato : " & es,True)
Call EndColorSezione()
For r2 = 01 To 10
For r = 01 To 10
z = 00
For i = 01 To 05
For j = 01 To 90
som(i,j) = 00
Val(i,j) = True
Next
Next
For i = 01 To 05
estr(i) = 00
Next
Valido = False
For n = EstrazioneFin - qt To EstrazioneFin
If Valido = True Then
For i = 01 To 05
For j = 01 To 05
k = Estratto(n,r2,j) - estr(i)
If k <= 00 Then
k = k + 90
End If
If Val(i,k) = True Then
som(i,k) = som(i,k) + 01
End If
Next
Next
For i = 01 To 05
For j = 01 To 05
k = Estratto(n,r2,j) - estr(i)
If k <= 00 Then
k = k + 90
End If
If Val(i,k) = True Then
Val(i,k) = False
End If
Next
Next
End If
If es = 00 Then m = n + 01 Else m = n End If
If IndiceMensile(m) = es Then
z = z + 01
Valido = True
For i = 01 To 05
estr(i) = Estratto(n,r,i)
Next
For i = 01 To 05
For j = 01 To 90
Val(i,j) = True
Next
Next
End If
Next
For i = 01 To 05
For j = 01 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,02)
' 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(01) = Fuori90(estr(i) + j)
Ru(01) = Rg
ReDim Preserve TotNum(kk)
TotNum(kk) = Num(01)
Ind = IndiceMensileDL(EstrazioneFinDL)
Call VerificaEsitoDL(Num,EstrazioneFinDL - Ind + 01,AMBATA_,Ind,esito,colpi,es1,id)
V = Array(V,kk,s,j,som(i,j) & " su " & z,perc & "%",estr(i) & " + " & j,StringaNumeri(Num,,True),es1,colpi,GetInfoEstrazioneDL(id))
Call AddRigaTabella(V)
For xx = 01 To 05
If perc = 100 Then Call SetColoreCella((xx),vbGreen,vbBlack)
If id = EstrazioneFinDL Then Call SetColoreCella(10,vbMagenta,vbWhite)
Next
End If
Next
Next
Next
Next
Call CreaTabella(04)
' Call Scrivi (ss,True)
' Call Scrivi (Ind,True)
Call Scrivi("Stringa Numeri ricavati : " & StringaNumeri(TotNum,,True),True,,,,03)
Call NumeriRipetutiRilevatiV(TotNum,VetN,VetQ)
Call Scrivi("Numeri Ripetuti : " & StringaNumeri(VetN,,True),True,,,vbBlue,03)
Call Scrivi("Quantità Convergenti : " & StringaNumeri(VetQ,,True),True,,,vbRed,03)
Call Scrivi()
Call Scrivi("Script By Mike58",True,,,vbMagenta,03)
End Sub

Controllare Sempre .
Salvo Errori ed Omissis .
 

Alien.

Advanced Premium Member
Messaggi
20.471
Punti reazione
113
Punti
63
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<
Messaggi
2.625
Punti reazione
31
Punti
48
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
Messaggi
20.471
Punti reazione
113
Punti
63
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<
Messaggi
328
Punti reazione
7
Punti
18
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:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90

Ultimi Messaggi

Alto