Novità

Generatore di numeri personalizzati, chi mi aiuta?

80Sete

80Sete

Advanced Member >PLATINUM PLUS<
Grazie Salvo50 e Mike58 ho appena risolto eliminando il ,1 è vero ho la versione 6,31 perchè, pur mettendo in pausa l'antivirus, non riesco a scaricarlo completamente, allora ho rinunciato da tempo....e resto su questa versione. Anch'io sarei interessato sulla scelta di soli nr Pari o Dispari, ho lasciato il Lotto da tempo, mentre ora faccio ricerche su altre Lotterie, intanto questo script mi è utile. Grazie ancora e buona serata a voi.(y)
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Provate cosi, purtroppo senza nessun dato statistico o archivio a cui far riferimento lo script è fine a se stesso.

Codice: 
Sub Main()
   Dim Nu
   Scrivi " **** Numeri casuali per il VINCICASA **** ",1,1,3,1,4
   Scrivi
   Classe = InputBox("QUALE CLASSE DI SVILUPPO","Mike58",5)
   comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
   Nu = Array(0,1,3,6,9,10,12,15,18,20,21,25,26,27,28,30,32,34,36,39,40)' array contenitore Numeri lo zero ci deve essere
   For kk = 1 To UBound(Nu)
   If pari(Nu(kk)) Then rigo = rigo & GetTestoHtml(Nu(kk),1,2,,,3) & " "
   If dispari(Nu(kk)) Then rigo = rigo & GetTestoHtml(Nu(kk),1,1,,,3) & " "
   Next
   'Scrivi "Numeri selezionati... " & StringaNumeri(Nu)
   Scrivi "Numeri selezionati... " & rigo,1
   Scrivi
   Dim k
   col = Array(15,21,33,35,40) ' colonna vincente x verifica
   For k = 1 To comb
      par = 0
      ReDim Num(1)
      Num(1) = Nu
      Call GetColonnaCasuale(Classe,Num,Nu)
      pt = PuntiSuArray(col,Num,1)
      Scrivi "Combinazione casuale...." & Format2(k) & "  :  ",1,0,,1,3
      For p = 1 To Classe
         If pari(Num(p)) Then par = par + 1
         dis = Classe - par
         If pari(Num(p)) Then riga = riga & GetTestoHtml(Format2(Num(p)),1,2,,3) & " "
         If dispari(Num(p)) Then riga = riga & GetTestoHtml(Format2(Num(p)),1,1,,3) & " "
      Next
      Scrivi riga & vbTab & " P/D " & par & "-" & dis,1,0
      'Scrivi StringaNumeri(Num,,True),1,0,,2,3
      Scrivi vbTab & pt & " - Punti su Colonna Vincente : " & StringaNumeri(col,,1),1
      par = 0
      riga = ""
      rigo = ""
   Next
End Sub
 
80Sete

80Sete

Advanced Member >PLATINUM PLUS<
Grazie terrò in archivio anche questo....e continuerò a cercare e aspettare il momento giusto.
 
S

ste20fra

Senior Member
Mi fa piacere rivedere il buon Mike58 proporre le soluzioni script richieste: qualche tempo fa mi aiutò molto nelle varie richieste di script !!!

Per i nuovi, se può esservi di aiuto, nella sezione del Millionday si trovano molti script utili, ovviamente da adeguare al gioco del Vincicasa (il MD estrae la cinquina su 55 numeri, il VC su 40)
 
G

Gabrieleno90

Member
@ste20fra @Mike58 Grazie mille per la mano che state dando hai nuovi, ma se posso ancora chiedere senza disturbarvi, anche perché ho perso una cinquina di vincicasa l'altro giorno, dove trovo dei script buoni, riesci a linkarmeli? (a tempo perso), ma sopratutto conosci qualche guida o un tutorial come usare per bene il programma?
 
G

Gabrieleno90

Member
Mike58 ha scritto:
Provate cosi, purtroppo senza nessun dato statistico o archivio a cui far riferimento lo script è fine a se stesso.

Codice: 
Sub Main()
   Dim Nu
   Scrivi " **** Numeri casuali per il VINCICASA **** ",1,1,3,1,4
   Scrivi
   Classe = InputBox("QUALE CLASSE DI SVILUPPO","Mike58",5)
   comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
   Nu = Array(0,1,3,6,9,10,12,15,18,20,21,25,26,27,28,30,32,34,36,39,40)' array contenitore Numeri lo zero ci deve essere
   For kk = 1 To UBound(Nu)
   If pari(Nu(kk)) Then rigo = rigo & GetTestoHtml(Nu(kk),1,2,,,3) & " "
   If dispari(Nu(kk)) Then rigo = rigo & GetTestoHtml(Nu(kk),1,1,,,3) & " "
   Next
   'Scrivi "Numeri selezionati... " & StringaNumeri(Nu)
   Scrivi "Numeri selezionati... " & rigo,1
   Scrivi
   Dim k
   col = Array(15,21,33,35,40) ' colonna vincente x verifica
   For k = 1 To comb
      par = 0
      ReDim Num(1)
      Num(1) = Nu
      Call GetColonnaCasuale(Classe,Num,Nu)
      pt = PuntiSuArray(col,Num,1)
      Scrivi "Combinazione casuale...." & Format2(k) & "  :  ",1,0,,1,3
      For p = 1 To Classe
         If pari(Num(p)) Then par = par + 1
         dis = Classe - par
         If pari(Num(p)) Then riga = riga & GetTestoHtml(Format2(Num(p)),1,2,,3) & " "
         If dispari(Num(p)) Then riga = riga & GetTestoHtml(Format2(Num(p)),1,1,,3) & " "
      Next
      Scrivi riga & vbTab & " P/D " & par & "-" & dis,1,0
      'Scrivi StringaNumeri(Num,,True),1,0,,2,3
      Scrivi vbTab & pt & " - Punti su Colonna Vincente : " & StringaNumeri(col,,1),1
      par = 0
      riga = ""
      rigo = ""
   Next
End Sub
Clicca per espandere...
Come si può far in un modo statistico? Nel senso, devo caricare tutte le estrazioni? Come ho detto su, c'e qualche guida?
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Gabrieleno90.
Guide, tutorial circa spaziometria, vbscript non ne esistono in modo generico, ma esistono tantissime discussioni di vario genere che possono aiutare allo scopo.

Io mi diletto nel fare script con il vbscript che nel programma spaziometria c'è un Help con la spiegazione dei vari codici e con tantissimi script nella cartela Test che spiegano ogni codice e sviluppano la tipologia di codice usato.

Poi l'area DownLoad è piena di script per varie problematiche riguardante lotto e lotterie varie tra cui anche una sezione MillionDay (come dice Ste20Fra) nel quale è possibile adattare script anche per il Vincicasa allacciando un archivio esterno per tale lotteria.

Altro non saprei dirti.

Ciao
 
G

Gabrieleno90

Member
Buongiorno, ti ringrazio molto per quello che fai, come ti ho detto, non voglio disturbarti, rispondi quando puoi ok?
Sto seguendo Nikor su vincicasa, e per pura diffidenza mi sono perso una cinquina, ti volevo chiedere, dove trovo questi calcoli?
Decine Naturali vincicasa etcc

Saluti Gabriele
 

Allegati

  • WhatsApp Image 2021-02-09 at 01.20.55.jpeg
    WhatsApp Image 2021-02-09 at 01.20.55.jpeg
    64,4 KB · Visite: 4
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Ci provo a darti ulteriore aiuto ma è complicato.
1 devi avere un archivio esterno aggiornato in formato TXT
2 mettere archivio nella cartella directory
3 elaborare lo script

fatto questo puoi elaborare script statistici in questo caso Tabellone Analitico Vincicasa.

Codice: 
Sub Main
   Dim Nu(5),Cad(5),aN(5),Nu2(1),Nn2,Rsl(5)
   Dim Sfile,T,V
   Sfile = GetDirectoryAppData & "VinciCasa.txt"
   Call ApriBaseDatiFT(Sfile,5,",",40)
   Ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "********* Lotteria VinciCasa ********* Estratti ********************* Caduti ******************* ",1,,,1,2
   T = Array(T,"Data info","Estratti","I","II","III","IV","V","Liv","Rit","RitSncLiv","C1","C2","C3","C4","C5","LivCad","CadProgress","EsitiFin","RsL / Rit","PresTeoF2","Att2")
   Call InitTabella(T)
   For es = fin To Ini Step - 1
      kk = 0
      For p = 1 To 5
         Nu(p) = EstrattoFT(es,p)
         Cad(p) = EstrattoFT(es,p)
         aN(p) = EstrattoFT(es,p)
         If EstrattoFrequenzaFT(Nu(p),es,fin) > 1 Then Nu(p) = "-"
         If EstrattoFrequenzaFT(Cad(p),es,fin) = 1 Then Cad(p) = "-"
         If EstrattoFrequenzaFT(Nu(p),es,fin) = 1 Then k = k + 1
         If Cad(p) <> "-" Then kk = kk + 1
         If EstrattoFrequenzaFT(Nu(p),es,fin) = 1 Then kkk = kkk + 1
      Next
      rit = SerieRitardoFT(Ini,fin,aN,1)
      ess = fin - es
      Call VerificaEsitoFT(aN,fin,1,,,,est)
      '............. Ritado di Livello .............................
      Mem2 = 0
      rslA = es'fin - rit
      Nn2 = Split("0." & StringaEstrattiFT(rslA),".")
      For p1 = 1 To 5
         Nu2(1) = Nn2(p1)
         rit2 = SerieRitardoFT(rsla + 1,fin,Nu2,1)'mio rdl
         spA = SeriePrimaFT(rslA + 1,fin,Nu2,1)
         If Mem2 <= spA Then Mem2 = spA
         If Mem2 = rit2 Then Mem2 = rit2
      Next
      If k < 5 Then RslA = fin - Mem2
      If k = 5 Then RslA = rit
      If k < 5 Then Rit2 = fin - Mem2
      If k = 5 Then Rit2 = rit
      presTeo = Round((5*1) *(10/11) ^ ess,4)
     ' Att2 = Round((k/(k + presteo)),3)
     Att2 = Round((Dividi(k,k + PresTeo)),3)
      '---------------------------------------------------------------
      att = Round(Dividi(RslA,ess),2)
      decd = 55 - kkk
      If k > 0 Then
         V = Array(V,GetInfoEstrazioneFT(es),StringaEstrattiFT(es),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),k,ess,RslA,Cad(1),Cad(2),Cad(3),Cad(4),Cad(5),kk,kkk,est,att,PresTeo,Att2)
         Call AddRigaTabella(V)
      End If
      For x = 3 To 7
         Call SetColoreCella((x),6,0)
      Next
      Call SetColoreCella(8,4,0)
      For xx = 11 To 15
         Call SetColoreCella((xx),6,0)
      Next
      If V(9) > 0 And V(10) = 0 Then Call SetColoreCella(18,2,4)
      k = 0
      kk = 0
   Next
   Call SetTableWidth("100%")
   CreaTabellaOrdinabile
   Scrivi "Script By Mike58",1,1,,1,3
End Sub
 

Allegati

  • VinciCasa.txt
    42,9 KB · Visite: 15
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Gabrieleno90 ha scritto:
Buongiorno, ti ringrazio molto per quello che fai, come ti ho detto, non voglio disturbarti, rispondi quando puoi ok?
Sto seguendo Nikor su vincicasa, e per pura diffidenza mi sono perso una cinquina, ti volevo chiedere, dove trovo questi calcoli?
Decine Naturali vincicasa etcc

Saluti Gabriele
Clicca per espandere...
Quei dati vanno rielaborati ad oc allacciando l'archivio che ti ho fornito in formato txt e far interagire i vari codici allo scopo.
 
G

Gabrieleno90

Member
Mike58 ha scritto:
Ci provo a darti ulteriore aiuto ma è complicato.
1 devi avere un archivio esterno aggiornato in formato TXT
2 mettere archivio nella cartella directory
3 elaborare lo script

fatto questo puoi elaborare script statistici in questo caso Tabellone Analitico Vincicasa.

Codice: 
Sub Main
   Dim Nu(5),Cad(5),aN(5),Nu2(1),Nn2,Rsl(5)
   Dim Sfile,T,V
   Sfile = GetDirectoryAppData & "VinciCasa.txt"
   Call ApriBaseDatiFT(Sfile,5,",",40)
   Ini = 1
   fin = EstrazioniArchivioFT
   Scrivi "********* Lotteria VinciCasa ********* Estratti ********************* Caduti ******************* ",1,,,1,2
   T = Array(T,"Data info","Estratti","I","II","III","IV","V","Liv","Rit","RitSncLiv","C1","C2","C3","C4","C5","LivCad","CadProgress","EsitiFin","RsL / Rit","PresTeoF2","Att2")
   Call InitTabella(T)
   For es = fin To Ini Step - 1
      kk = 0
      For p = 1 To 5
         Nu(p) = EstrattoFT(es,p)
         Cad(p) = EstrattoFT(es,p)
         aN(p) = EstrattoFT(es,p)
         If EstrattoFrequenzaFT(Nu(p),es,fin) > 1 Then Nu(p) = "-"
         If EstrattoFrequenzaFT(Cad(p),es,fin) = 1 Then Cad(p) = "-"
         If EstrattoFrequenzaFT(Nu(p),es,fin) = 1 Then k = k + 1
         If Cad(p) <> "-" Then kk = kk + 1
         If EstrattoFrequenzaFT(Nu(p),es,fin) = 1 Then kkk = kkk + 1
      Next
      rit = SerieRitardoFT(Ini,fin,aN,1)
      ess = fin - es
      Call VerificaEsitoFT(aN,fin,1,,,,est)
      '............. Ritado di Livello .............................
      Mem2 = 0
      rslA = es'fin - rit
      Nn2 = Split("0." & StringaEstrattiFT(rslA),".")
      For p1 = 1 To 5
         Nu2(1) = Nn2(p1)
         rit2 = SerieRitardoFT(rsla + 1,fin,Nu2,1)'mio rdl
         spA = SeriePrimaFT(rslA + 1,fin,Nu2,1)
         If Mem2 <= spA Then Mem2 = spA
         If Mem2 = rit2 Then Mem2 = rit2
      Next
      If k < 5 Then RslA = fin - Mem2
      If k = 5 Then RslA = rit
      If k < 5 Then Rit2 = fin - Mem2
      If k = 5 Then Rit2 = rit
      presTeo = Round((5*1) *(10/11) ^ ess,4)
     ' Att2 = Round((k/(k + presteo)),3)
     Att2 = Round((Dividi(k,k + PresTeo)),3)
      '---------------------------------------------------------------
      att = Round(Dividi(RslA,ess),2)
      decd = 55 - kkk
      If k > 0 Then
         V = Array(V,GetInfoEstrazioneFT(es),StringaEstrattiFT(es),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),k,ess,RslA,Cad(1),Cad(2),Cad(3),Cad(4),Cad(5),kk,kkk,est,att,PresTeo,Att2)
         Call AddRigaTabella(V)
      End If
      For x = 3 To 7
         Call SetColoreCella((x),6,0)
      Next
      Call SetColoreCella(8,4,0)
      For xx = 11 To 15
         Call SetColoreCella((xx),6,0)
      Next
      If V(9) > 0 And V(10) = 0 Then Call SetColoreCella(18,2,4)
      k = 0
      kk = 0
   Next
   Call SetTableWidth("100%")
   CreaTabellaOrdinabile
   Scrivi "Script By Mike58",1,1,,1,3
End Sub
Clicca per espandere...
Ottimo, grazie. Ora dal cellulare mi guardo la sezione download..
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<


Codice: 
Sub Main
   Dim Nu(20),aN(5),sFile,T,V
   sFile = GetDirectoryAppData & "vincicasa.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,5,",",40)
   'controllo = InputBox("Quante Estrazioni Controllo",,10)
   Ini = 1
   fin = EstrazioniArchivioFT
   Call ScegliRange(ini,fin,Ini,EstrazioniArchivioFT)
   'dett = InputBox("Vuoi vedere il dettaglio","Si No","S")
   ResetTimer
   T = Array(T,"Giocata N","Lunghetta","RIT1","RIT2","RIT3","RIT4","RIT5","Verifica Fin","Fre x 1","Fre x 2","Fre x 3","Fre x 4","Fre x 5")
   Call InitTabella(T)
   pto = 0
   pt1 = 0
   pt2 = 0
   pt3 = 0
   pt4 = 0
   pt5 = 0
   For x = 1 To 4
      '-------inserimento lunghette ----------------------------
      Nu(1) = Array(0,1,2,3,4,5,6,7,8,9,10)
      Nu(2) = Array(0,11,12,13,14,15,16,17,18,19,20)
      Nu(3) = Array(0,21,22,23,24,25,26,27,28,29,30)
      Nu(4) = Array(0,31,32,33,34,35,36,37,38,39,40)
      '--- fine inserimento ------------------------------
      qn = UBound(Nu(x))
      'For es = Ini To fin
      Call Messaggio("Tempo Trascorso : " & TempoTrascorso & "   < decina > " & x)
      Call AvanzamentoElab(Ini,fin,es)
      'For p = 1 To 5
      'aN(p) = EstrattoFT(es,p)
      pt = SerieFreqFT(es,es,Nu(x),1)
      ptt = SerieFreqFT(Ini,fin,Nu(x),1)
      ptt2 = SerieFreqFT(Ini,fin,Nu(x),2)
      ptt3 = SerieFreqFT(Ini,fin,Nu(x),3)
      ptt4 = SerieFreqFT(Ini,fin,Nu(x),4)
      ptt5 = SerieFreqFT(Ini,fin,Nu(x),5)
      'Next
      pto = SerieRitardoFT(Ini,fin,Nu(x),1)
      pt1 = SerieRitardoFT(Ini,fin,Nu(x),2)
      pt2 = SerieRitardoFT(Ini,fin,Nu(x),3)
      pt3 = SerieRitardoFT(Ini,fin,Nu(x),4)
      pt4 = SerieRitardoFT(Ini,fin,Nu(x),5)
      Call VerificaEsitoFT(Nu(x),es,1,1,,,es1)
      'If dett = "S" Then
      'Scrivi GetInfoEstrazioneFT(es) & vbTab & StringaEstrattiFT(es) & vbTab & pt & vbTab & es1
      'End If
      'Next
      Call VerificaEsitoFT(Nu(x),fin,1,1,,,es2)
      'Call Scrivi("......................... " & es1)
      'Scrivi
      V = Array(V,x & " - " & qn,StringaNumeri(Nu(x),,1),pto,pt1,pt2,pt3,pt4,es2,ptt,ptt2,ptt3,ptt4,ptt5)
      Call AddRigaTabella(V)
      If pt2 > 0 Then Call SetColoreCella(5,,2)
      If pt3 > 0 Then Call SetColoreCella(6,,2)
      pto = 0
      pt1 = 0
      pt2 = 0
      pt3 = 0
      pt4 = 0
      pt5 = 0
   Next
   Scrivi "Riepilogo Finale",1,,,,3,,1
   CreaTabella
   Scrivi "Tempo di Elaborazione : " & TempoTrascorso
End Sub
 
G

Gabrieleno90

Member
Mike58 ha scritto:


Codice: 
Sub Main
   Dim Nu(20),aN(5),sFile,T,V
   sFile = GetDirectoryAppData & "vincicasa.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,5,",",40)
   'controllo = InputBox("Quante Estrazioni Controllo",,10)
   Ini = 1
   fin = EstrazioniArchivioFT
   Call ScegliRange(ini,fin,Ini,EstrazioniArchivioFT)
   'dett = InputBox("Vuoi vedere il dettaglio","Si No","S")
   ResetTimer
   T = Array(T,"Giocata N","Lunghetta","RIT1","RIT2","RIT3","RIT4","RIT5","Verifica Fin","Fre x 1","Fre x 2","Fre x 3","Fre x 4","Fre x 5")
   Call InitTabella(T)
   pto = 0
   pt1 = 0
   pt2 = 0
   pt3 = 0
   pt4 = 0
   pt5 = 0
   For x = 1 To 4
      '-------inserimento lunghette ----------------------------
      Nu(1) = Array(0,1,2,3,4,5,6,7,8,9,10)
      Nu(2) = Array(0,11,12,13,14,15,16,17,18,19,20)
      Nu(3) = Array(0,21,22,23,24,25,26,27,28,29,30)
      Nu(4) = Array(0,31,32,33,34,35,36,37,38,39,40)
      '--- fine inserimento ------------------------------
      qn = UBound(Nu(x))
      'For es = Ini To fin
      Call Messaggio("Tempo Trascorso : " & TempoTrascorso & "   < decina > " & x)
      Call AvanzamentoElab(Ini,fin,es)
      'For p = 1 To 5
      'aN(p) = EstrattoFT(es,p)
      pt = SerieFreqFT(es,es,Nu(x),1)
      ptt = SerieFreqFT(Ini,fin,Nu(x),1)
      ptt2 = SerieFreqFT(Ini,fin,Nu(x),2)
      ptt3 = SerieFreqFT(Ini,fin,Nu(x),3)
      ptt4 = SerieFreqFT(Ini,fin,Nu(x),4)
      ptt5 = SerieFreqFT(Ini,fin,Nu(x),5)
      'Next
      pto = SerieRitardoFT(Ini,fin,Nu(x),1)
      pt1 = SerieRitardoFT(Ini,fin,Nu(x),2)
      pt2 = SerieRitardoFT(Ini,fin,Nu(x),3)
      pt3 = SerieRitardoFT(Ini,fin,Nu(x),4)
      pt4 = SerieRitardoFT(Ini,fin,Nu(x),5)
      Call VerificaEsitoFT(Nu(x),es,1,1,,,es1)
      'If dett = "S" Then
      'Scrivi GetInfoEstrazioneFT(es) & vbTab & StringaEstrattiFT(es) & vbTab & pt & vbTab & es1
      'End If
      'Next
      Call VerificaEsitoFT(Nu(x),fin,1,1,,,es2)
      'Call Scrivi("......................... " & es1)
      'Scrivi
      V = Array(V,x & " - " & qn,StringaNumeri(Nu(x),,1),pto,pt1,pt2,pt3,pt4,es2,ptt,ptt2,ptt3,ptt4,ptt5)
      Call AddRigaTabella(V)
      If pt2 > 0 Then Call SetColoreCella(5,,2)
      If pt3 > 0 Then Call SetColoreCella(6,,2)
      pto = 0
      pt1 = 0
      pt2 = 0
      pt3 = 0
      pt4 = 0
      pt5 = 0
   Next
   Scrivi "Riepilogo Finale",1,,,,3,,1
   CreaTabella
   Scrivi "Tempo di Elaborazione : " & TempoTrascorso
End Sub
Clicca per espandere...
Ciao Grazie mille, qua non ho capito, mi sta dando le estrazioni del lotto apposto di VinciCasa, come mai se posso chiedere?
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Imposibile ci sono i codici FT (File di testo) e poi devi aver salvato l'archivio Vincicasa in formato txt che ti ho allegato nella directory di spaziometria come ti ho consigliato.
sFile = GetDirectoryAppData & "vincicasa.txt"
senza questo non può funzionare.
 
G

Gabrieleno90

Member
Gabrieleno90 ha scritto:
Buongiorno, ti ringrazio molto per quello che fai, come ti ho detto, non voglio disturbarti, rispondi quando puoi ok?
Sto seguendo Nikor su vincicasa, e per pura diffidenza mi sono perso una cinquina, ti volevo chiedere, dove trovo questi calcoli?
Decine Naturali vincicasa etcc

Saluti Gabriele
Clicca per espandere...
Stavo guardando e rileggendo i post e i script che mi hai scritto, ma ho notato una cosa, ma i Decine Naturali che usa Nikor, e uno script?
Perché da quello che ho letto queste Decine sono molto utili per Vincicasa e soprattutto in passato hanno azzeccato anche cinquine, giusto?
 

Allegati

  • AG-dec-nat-04-02.jpg
    AG-dec-nat-04-02.jpg
    64,4 KB · Visite: 2
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Grabriele,no90,circa la videata di Nikor sicuramente sarà meno aggiornata della mia e quindi i dati non sono identici.
Poi per la fonte devi chiedere a lui.
Io ti ho messo a disposizione quello che era la tua richiesta, da adesso devi continuare in proprio.

Io mi cimento in un dato progetto di costrutto scriptico ma il resto poi i miei interessi sono altri.

Ciao
 
Alien.

Alien.

Advanced Premium Member
Ottimo #34
si potrebbe inserire l'archivio superenalotto e 10elotto?
ed anche negli altri script poi i numeri li inserisco da me? grazie.



a39fa8a32fabedcabf8b751aca35d818.gif
 
Alien.

Alien.

Advanced Premium Member
Ma veramente chiedevo semplicemente di cambiare l'archivio degli script sopra.
Se vado il altre sezione come faccio a specificare che voglio quello che ho detto sopra ?
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto