Novità

X Rubino

solare

solare

Advanced Member >PLATINUM<
Ciao, approfittando della tua bravura, vorrei chiederti se puoi, modificare questo listato oppure fare in modo che il risultato delle terzine venga trascritto su un foglio in excel in modo da verificare poi eventuali convergenze.
Mike58 o chi è capace

20-06-2019, 14:20



Ciao, questo listato sommatorio sembra essere molto funzionale soprattutto quando un'ambo è convergente vedasi ultima previsione del 25/5/19 sulla ruota di ba ambo 18-44 sortito nell'estrazioni del 18/6.
essendo che questo listato calcola le terzine per ambo considerando uno alla volta tutti i cinque estratti dando successivamente le terzine da mettere in gioco.
Quello che chiedo io, se possibile avere un quadro previsionale dopo l'analisi di tutti i cinque estratti in modo tale da valutare eventuali convergenze, se presenti. posso dire che avendolo da un po' di mesi ed analizzando le convergenze gli esiti non sono mancati quantomeno per ambetto limitando comunque il gioco di 1 o max 2 ambi convergenti.


'costruttore sommativo di Mike58
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
casi = 0
x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO
ruote(1) = r
' Sotto è possibile cambiare il periodo di ricerca in origine era -140
fin = EstrazioneFin
Ini = fin - 52
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin
If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
For s1 = 1 To 88
For s2 = s1 + 1 To 89
For s3 = s2 + 1 To 90
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
cin(3) = Fuori90(e + s3)
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
Next
End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,r etcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)
ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
End Sub
 
Ultima modifica:
R

Rubino

Guest
primo passettino

tempo di elaborazione 7 minuti e qualche secondo
per tutte e 5 le posizione dei 5 estratti in automatico.

questo è l'esempio di output ( un pezzetto accorpato delle 5 posizioni dei 5 estratti)

Cattura2.GIF
 
Ultima modifica di un moderatore:
R

Rubino

Guest
cosa dovrei fare?

1) output in excel (pigiare bottone per esportare in excel(formato csv)
2) mi devi spiegare bene cosa, perchè non ho capito.

Codice: 
'costruttore sommativo di Mike58
Sub Main()
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
   Dim aa(3),n1(1),n2(1),n3(1)
   Dim cin(10),ruote(10)
   casi = 0
   x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
'''   pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
   visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO
   ruote(1) = r
   ' Sotto E¨ possibile cambiare il periodo di ricerca in origine era -140
   fin = EstrazioneFin
   Ini = fin - 52
   fine = EstrazioneFin
   ReDim atitoli(11)
   atitoli(1) = " ESTRATTO "
   atitoli(2) = " SOMMATIVO "
   atitoli(3) = " PRESENZA SU CASI "
   atitoli(4) = " NUMERO IN GIOCO "
   atitoli(5) = " ESITO "
   atitoli(6) = " RET_ESTRATTI "
   atitoli(7) = " DATA ESTRAZIONE "
   atitoli(8) = " COLPO ESITO "
   atitoli(9) = " NUM. 1 "
   atitoli(10) = " NUM. 2 "
   atitoli(11) = " NUM. 3 "
   Call InitTabella(atitoli,1,,2,3)
   ''''loop 5 posizioni degli estratti
   For pos = 1 To 5
      ReDim num(120000,5)
      es1 = 0 : ES2 = 0
      Messaggio(pos)
      For es = Ini To Fin
         If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
            idd = GetInfoEstrazione(es)
            Call Messaggio("Estratto pos." & pos & "  Sommativo per Ambi " & " casi trovati.." & casi)
            Call AvanzamentoElab(Ini,fin,es)
            Inco = fine - es
            casi = casi + 1
            co = 0
            es1 = es + 1
            es2 = es1 + colpi
            e = Estratto(es,r,pos)
            For s1 = 1 To 88
               For s2 = s1 + 1 To 89
                  For s3 = s2 + 1 To 90
                     co = co + 1
                     cin(1) = Fuori90(e + s1)
                     cin(2) = Fuori90(e + s2)
                     cin(3) = Fuori90(e + s3)
                     ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
                     num(co,1) = s1
                     num(co,2) = s2
                     num(co,3) = s3
                     num(co,4) = num(co,4)
                     If ea > 0 Then
                        num(co,4) = num(co,4) + 1
                     End If
                  Next
               Next
            Next
         End If
      Next
      If pos = 1 Then
      Scrivi : ColoreTesto 0: Scrivi,1
      Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
      Scrivi "Dei 5 estratti nelle 5 posizioni"
      Scrivi "Combinazioni analizzate: " & co,1
      Scrivi "alla " & x & " Estrazione mensile" & " Data estrazione " & idd,0,0     
      Scrivi " -> Colpo in corso..." & Inco,1
      Scrivi
      ColoreTesto 0
      End If
      For i = 1 To visual
         Call OrdinaMatrice(num,- 1,4)
         If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
            ColoreTesto 0
            aa(1) = Fuori90(cin(1) + num(i,1) + 2)
            aa(2) = Fuori90(cin(2) + num(i,2) + 1)
            aa(3) = Fuori90(cin(3) + num(i,3))
            Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
            n1(1) = aa(1)
            n2(1) = aa(2)
            n3(1) = aa(3)
            ReDim avalori(11)
            avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
            avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
            avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
            avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
            avalori(5) = retesito
            avalori(6) = Retestratti
            If retesito = "Ambo" Or retesito = "Terno" Then
               avalori(7) = DataEstrazione(id)
            Else
               avalori(7) = " In corso "
            End If
            If retesito = "Ambo" Or retesito = "Terno" Then
               avalori(8) = retcolpi & "°"
            Else
               avalori(8) = Inco & "° in corso "
            End If
            sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
            sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
            sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
            If sf11 > 0 Then
               avalori(9) = n1(1)
            Else
               avalori(9) = ""
            End If
            If sf12 > 0 Then
               avalori(10) = n2(1)
            Else
               avalori(10) = ""
            End If
            If sf13 > 0 Then
               avalori(11) = n3(1)
            Else
               avalori(11) = ""
            End If
            'End If
            Call AddRigaTabella(avalori,,,1)
         End If
         Call SetColoreCella(2,,1)
         Call SetColoreCella(4,,2)
         Call SetColoreCella(6,,7)
         If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
         If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
         If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
      Next
      Call SetTableWidth("100%")
      '''
   Next
   '''
   Call CreaTabellaOrdinabile(1)
   Scrivi TempoTrascorso
End Sub
 
Ultima modifica di un moderatore:
R

Rubino

Guest
come esempio pigiare il bottone di excel per esportare il prospetto output in excel

mentre iln spaziometria prima si può selezionare qualsiasi colonne per ordinare il contenuto secondo la scelta personale
in forma ascendente o discendente.


Cattura5.GIF
 
Ultima modifica di un moderatore:
R

Rubino

Guest
resto in attesa di conoscere eventualmente le disposizioni per convergenze, che non ho ben capito a cosa ti riferisci di preciso.

ciao
 
Ultima modifica di un moderatore:
solare

solare

Advanced Member >PLATINUM<
Ciao rubino, intanto grazie mille della tua cortesia. Ho provato il listato da te modificato, ho notato che adesso analizza tutte e 5 le posizioni. Perfetto..! Quello che vorrei io è evidenziare tutte le terzine convergenti dove ci siano almeno 2 numeri ripetuti "Ovviamente se presenti". Sempre che sia possibile.
 
R

Rubino

Guest
Ma devo tener conto di solo quelle in corso o anche di quelle che hanno gia' dato?
 
solare

solare

Advanced Member >PLATINUM<
Scusami Rubino, ho notato che elaborando lo script da te modificato mostra la tabella delle terzine es. di elaborazione dell'11 del mese e quindi quella del 25 giugno lasciando tutti i parametri così come impostati si ottengono dei risultati di "Presenza su casi" su CA 3/5, 3/5, 3/5, 4/5 e 4/5 poi man mano che sali e cambi la posizione dell'estratto arriva a es. 4/25. mentre se lasci i stessi parametri ed elabori con il listato non modificato i casi della statistica sempre ultimi 10 casi sono 3/5 4/5 . mentre su questo modificato solo l'elaborazione del 1 estratto è compatibile con il listato originale.
 
R

Rubino

Guest
Coppia di Numeri piu presenti nelle terzine ancora in corso
coppia Nr. 01.59...Presenze..1
coppia Nr. 01.89...Presenze..1
coppia Nr. 02.62...Presenze..1
coppia Nr. 02.71...Presenze..1
coppia Nr. 02.82...Presenze..2
coppia Nr. 11.26...Presenze..1
coppia Nr. 11.48...Presenze..1
coppia Nr. 17.20...Presenze..1
coppia Nr. 17.71...Presenze..1
coppia Nr. 18.69...Presenze..1
coppia Nr. 18.90...Presenze..1
coppia Nr. 20.71...Presenze..1
coppia Nr. 26.48...Presenze..1
coppia Nr. 34.52...Presenze..1
coppia Nr. 34.56...Presenze..1
coppia Nr. 35.38...Presenze..1
coppia Nr. 35.86...Presenze..1
coppia Nr. 38.69...Presenze..1
coppia Nr. 38.71...Presenze..1
coppia Nr. 38.86...Presenze..1
coppia Nr. 52.54...Presenze..1
coppia Nr. 52.55...Presenze..1
coppia Nr. 52.56...Presenze..5
coppia Nr. 52.59...Presenze..1
coppia Nr. 52.62...Presenze..1
coppia Nr. 54.56...Presenze..1
coppia Nr. 55.56...Presenze..1
coppia Nr. 56.59...Presenze..1
coppia Nr. 56.62...Presenze..1
coppia Nr. 59.89...Presenze..1
coppia Nr. 62.69...Presenze..1
coppia Nr. 62.71...Presenze..1
coppia Nr. 62.82...Presenze..1
coppia Nr. 69.71...Presenze..2
coppia Nr. 69.90...Presenze..1
coppia Nr. 71.82...Presenze..1.

queste dovrebbero essere le coppie delle terzine con le relative presenze

bisogna controllarle .
eventualmente se giuste cosa vuoi sapere di questi ambi di terzina sommativa?

ti basta la lista o vuoi qualche altra informazione?
 
Ultima modifica di un moderatore:
R

Rubino

Guest
Codice: 
'costruttore sommativo di Mike58
Sub Main()
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
   Dim aa(3),n1(1),n2(1),n3(1)
   Dim cin(10),ruote(10),coppiacop(8990,2)
   Dim coppia,casi,x,r,colpi,visual,fin,Ini,fine,pos,es1,es2,idd,es,Inco,co,s1,s2,s3,ea,e,w,Classe,colonne,scolonna,j,k,am,i
   casi = 0
   x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
   visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO
   ruote(1) = r
   ' Sotto E¨ possibile cambiare il periodo di ricerca in origine era -140
   fin = EstrazioneFin
   Ini = fin - 52
   fine = EstrazioneFin
   ReDim atitoli(11)
   atitoli(1) = " ESTRATTO "
   atitoli(2) = " SOMMATIVO "
   atitoli(3) = " PRESENZA SU CASI "
   atitoli(4) = " NUMERO IN GIOCO "
   atitoli(5) = " ESITO "
   atitoli(6) = " RET_ESTRATTI "
   atitoli(7) = " DATA ESTRAZIONE "
   atitoli(8) = " COLPO ESITO "
   atitoli(9) = " NUM. 1 "
   atitoli(10) = " NUM. 2 "
   atitoli(11) = " NUM. 3 "
   Call InitTabella(atitoli,1,,2,3)
   ''''loop 5 posizioni degli estratti
   For pos = 1 To 5
      ReDim num(120000,5)
      es1 = 0 : es2 = 0 : casi = 0
      Messaggio(pos)
      For es = Ini To fin
         If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
            idd = GetInfoEstrazione(es)
            Call Messaggio("Estratto pos." & pos & "  Sommativo per Ambi " & " casi trovati.." & casi)
            Call AvanzamentoElab(Ini,fin,es)
            Inco = fine - es
            casi = casi + 1
            co = 0
            es1 = es + 1
            es2 = es1 + colpi
            e = Estratto(es,r,pos)
            For s1 = 1 To 88
               For s2 = s1 + 1 To 89
                  For s3 = s2 + 1 To 90
                     co = co + 1
                     cin(1) = Fuori90(e + s1)
                     cin(2) = Fuori90(e + s2)
                     cin(3) = Fuori90(e + s3)
                     ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
                     num(co,1) = s1
                     num(co,2) = s2
                     num(co,3) = s3
                     num(co,4) = num(co,4)
                     If ea > 0 Then
                        num(co,4) = num(co,4) + 1
                     End If
                  Next
               Next
            Next
         End If
      Next
      If pos = 1 Then
         Scrivi : ColoreTesto 0: Scrivi,1
         Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
         Scrivi "Dei 5 estratti nelle 5 posizioni"
         Scrivi "Combinazioni analizzate: " & co,1
         Scrivi "alla " & x & " Estrazione mensile" & " Data estrazione " & idd,0,0
         Scrivi " -> Colpo in corso..." & Inco,1
         Scrivi
         ColoreTesto 0
      End If
      For i = 1 To visual
         Call OrdinaMatrice(num,- 1,4)
         If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
            ColoreTesto 0
            aa(1) = Fuori90(cin(1) + num(i,1) + 2)
            aa(2) = Fuori90(cin(2) + num(i,2) + 1)
            aa(3) = Fuori90(cin(3) + num(i,3))
            Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
            n1(1) = aa(1)
            n2(1) = aa(2)
            n3(1) = aa(3)
            ReDim avalori(11)
            avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
            avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
            avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
            avalori(4) = StringaNumeri(aa,,1)
            avalori(5) = retesito
            avalori(6) = Retestratti
            If retesito = "Ambo" Or retesito = "Terno" Then
               avalori(7) = DataEstrazione(id)
            Else
               avalori(7) = " In corso "
            End If
            If retesito = "Ambo" Or retesito = "Terno" Then
               avalori(8) = retcolpi & "°"
            Else
               avalori(8) = Inco & "° in corso "
               Call OrdinaMatrice(aa,1)
               Classe = 2
               colonne = SviluppoIntegrale(aa,Classe)
               For k = 1 To UBound(colonne)
                  scolonna = ""
                  ReDim nm(Classe)
                  For j = 1 To Classe
                     scolonna = scolonna & Format2(colonne(k,j)) & " "
                     nm(j) = colonne(k,j)
                  Next
                  am = Format2(nm(1)) & Format2(nm(2))
                  coppiacop(am,1) = Format2(nm(1)) & "." & Format2(nm(2))
                  coppiacop(am,2) = coppiacop(am,2) + 1
               Next
               sf11 = SerieFreqTurbo(fine - Inco,fine,n1,ruote,1)
               sf12 = SerieFreqTurbo(fine - Inco,fine,n2,ruote,1)
               sf13 = SerieFreqTurbo(fine - Inco,fine,n3,ruote,1)
               If sf11 > 0 Then
                  avalori(9) = n1(1)
               Else
                  avalori(9) = ""
               End If
               If sf12 > 0 Then
                  avalori(10) = n2(1)
               Else
                  avalori(10) = ""
               End If
               If sf13 > 0 Then
                  avalori(11) = n3(1)
               Else
                  avalori(11) = ""
               End If
            End If
            Call AddRigaTabella(avalori,,,1)
         End If
         Call SetColoreCella(2,,1)
         Call SetColoreCella(4,,2)
         Call SetColoreCella(6,,7)
         If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
         If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
         If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
      Next
      Call SetTableWidth("100%")
      '''
   Next
   '''
   Call CreaTabellaOrdinabile(1)
   Scrivi "Coppia di Numeri piu presenti nelle terzine ancora in corso",1
   For w = 101 To 8990
      If coppiacop(w,1) <> "" And coppiacop(w,2) > 0 Then
         Scrivi "coppia Nr. " & coppiacop(w,1) & "...Presenze.." & coppiacop(w,2)
      End If
   Next
   Scrivi TempoTrascorso
End Sub
 
Ultima modifica di un moderatore:
solare

solare

Advanced Member >PLATINUM<
Ottimo Rubino, sei mostruosamente bravo………
Grazie infinite della tua grande gentilezza
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 aprile 2024
    Bari
    49
    10
    76
    62
    26
    Cagliari
    42
    80
    16
    39
    65
    Firenze
    58
    22
    11
    86
    40
    Genova
    79
    14
    36
    51
    44
    Milano
    25
    27
    16
    77
    79
    Napoli
    70
    04
    51
    49
    71
    Palermo
    61
    65
    76
    53
    43
    Roma
    70
    86
    68
    80
    47
    Torino
    17
    71
    64
    72
    40
    Venezia
    22
    42
    39
    72
    30
    Nazionale
    83
    37
    81
    57
    78
    Estrazione Simbolotto
    Genova
    10
    14
    28
    18
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto