Novità

Script per VinciCasa

salvo14 ha scritto:
Scusate l'ignoranza ma come si fa a creare un archivio in Spaziometria? sto impazzendo.. Grazie
Clicca per espandere...

Salvo14, se utilizzi il 1° script è scarichi le estrazioni dal sito di silop, verrà aperto un file di testo in blocconote e questo lo salvi nella cartella di spaziometria.
percorso:
BaseDati menù a tendina
apri directory dati
ed incolli il blocco note salvandolo con nome.
*** meglio salvarlo con il mio nome "Archiviovincicasa2" **** cosi non cambi poi il nome nei miei script.

prova
 
Ciao Mike58
Prima di tutto ti devo ringrazziare funziona tutto archivio e script.
Unico problemino lo script per le decine ma di sicuro sbaglio Io
qualcosa anche perchè lo script non mi da nessun errore
ti posto la schermata cosi forse e più comprensibile.
non capisco perchè mi da "Archivio Lotto" su imposta range
mentre mi segnala 1085 estr. totali (quelle del vinci casa)
lancio lo script e il programma si blocca
dove sbaglio ????

dbr (Renzo)
 

Allegati

  • Decine.JPG
    Decine.JPG
    113 KB · Visite: 17
Mike58 ha scritto:
Salvo14, se utilizzi il 1° script è scarichi le estrazioni dal sito di silop, verrà aperto un file di testo in blocconote e questo lo salvi nella cartella di spaziometria. percorso: BaseDati menù a tendina apri directory dati ed incolli il blocco note salvandolo con nome. *** meglio salvarlo con il mio nome "Archiviovincicasa2" **** cosi non cambi poi il nome nei miei script. prova
Clicca per espandere...

Grazie ho risolto, sei stato gentilissimo.
 
Mike58 ha scritto:
Ciao dbr, benissimo che lo script per lo scarico estrazioni funziona, a me l'antivirus kaspersky lo blocca, ma lo avevo postato in quanto su altro pc senza il citato antivirus scarica normalmente.

Comincio a postare uno script per il tabellone analitico dei numeri.

Codice: 
Sub Main
   Dim Nu(5),Cad(5),aN(5),Nu2(1),Nn2,Rsl(5)
   Dim Sfile,T,V
   Sfile = GetDirectoryAppData & "archiviovincicasa2.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%")
   CreaTabella
   Scrivi "Script By Mike58",1,1,,1,3
End Sub

Attenzione a mettere il vostro percorso archivio il mio come si evince e in questa riga
Sfile = GetDirectoryAppData & "archiviovincicasa2.txt"
con il nome che io ho dato all'archivio, voi dovete richiamare e modificare la riga immettendo il vostro nome archivio e nella directory del programma.

ciao
Clicca per espandere...


CIAO,SCUSA ci deve essere un errore mi da archivio lotto ho messo 100 estrazioni,va a vanti e mi blocca tutto
 
Per lo script pari e dispari ,puoi inserire quale sono le formule più frequenti e quelle più in ritardo in 100 concorsi.
cioè PD 23=2PARI E 3DISPARI ,FORMULA 23 =FREQUENZE 38 - FORMULA 14 =FREQUENZE 12 ECC. ,GRAZIE.
 
dbr ha scritto:
Ciao Mike58
Prima di tutto ti devo ringrazziare funziona tutto archivio e script.
Unico problemino lo script per le decine ma di sicuro sbaglio Io
qualcosa anche perchè lo script non mi da nessun errore
ti posto la schermata cosi forse e più comprensibile.
non capisco perchè mi da "Archivio Lotto" su imposta range
mentre mi segnala 1085 estr. totali (quelle del vinci casa)
lancio lo script e il programma si blocca
dove sbaglio ????

dbr (Renzo)
Clicca per espandere...

Ciao Renzo, nella schermata di scegli Range rimane la dicitura di "Archivio lotto" ma l'archivio allacciato è sempre il file di testo corretto, mentre per l'errore non saprei dirti.
Vedi se c'è errore nella riga di apribasedati forse mi sono rimaste i 55 numeri di millionday portali a 40, oppure fai meno estrazioni.(su questo pc non ho tutto l'archivio scaricato)
 
Alien. ha scritto:
Per lo script pari e dispari ,puoi inserire quale sono le formule più frequenti e quelle più in ritardo in 100 concorsi.
cioè PD 23=2PARI E 3DISPARI ,FORMULA 23 =FREQUENZE 38 - FORMULA 14 =FREQUENZE 12 ECC. ,GRAZIE.
Clicca per espandere...
Alien su questo script i totali se scorri tutta la schermata ci sono.
 
Ciao Mike58.
Risolto problema script "decine"
modificando il testo e inserendo 80 come estrazioni controllate
era tarato a 10.

'controllo = InputBox("Quante Estrazioni Controllo",,80)

naturalmente il numero di estrazioni da controllare può variare a scelta
secondo le proprie esigenze ma ho notato più alto è il numero più
rallenta l'esecuzione e a volte si blocca.
Per il momento è tutto buon Week end a Tutti.

dbr (Renzo)
 
Ciao Mike58... poichè non l'ho trovato in giro in altri thread, volevo avere se era possibile uno script per analizzare le frequenze di ambi, terne e quaterne, possibilmente con un codice aperto, nel senso di poter introdurre a propria scelta i numeri da analizzare: esempio, indico 2 numeri e voglio sapere quanti ambi hanno prodotto nel FT delle estrazioni, e così via con 3 e/o 4 numeri per i terni e quaterne...
Ti ringrazio anticipatamente per tutto...
Saluti,
Francesco
 
Ecco che il Verificatore fa al caso richiesto.
Codice: 
Sub Main
   Dim L,T,V,sFile
  sFile = GetDirectoryAppData & "Archiviovincicasa2.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,5,",",40)
   Ini = 1
   fin = EstrazioniArchivioFT
   'nk = 0
   Tot = fin - Ini + 1

   'r = InputBox("Quale ruota",,1)
   s = InputBox("Quale Sorte di Verifica",,2)
   ResetTimer
   'ReDim Ru(0)
   'ScegliRuote(Ru)
   'Ru(1) = r
   so = NomeSorte(s)
   'L = Array(0,18,19,20,43,53)
   Call ScegliNumeri(L)
   T = Array(T,"Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneFT(L,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica..........................................................................."
   For es = Ini To fin
      Call VerificaEsitoFT(L,es,s,1,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         Scrivi FormatSpace(k,4) & vbTab,0,0
        
         If k = 1 Then Scrivi Space(6) & GetInfoEstrazioneFT(es) & vbTab,0,0
         If k > 1 Then Scrivi Space(5) & GetInfoEstrazioneFT(es) & vbTab,0,0
         '...............................
         If esito = "Ambo" Then k2 = k2 + 1
         If esito = "Terno"  Then k3 = k3 + 1
         If esito = "Quaterna" Then k4 = k4 + 1
         If esito = "Cinquina" Then k5 = k5 + 1
         '........................................
         Scrivi estr & vbTab & vbTab & FormatSpace(fin - id,4) & " > Esrtazioni Trascorse < " & " Elenco Ritardi ... " & ess(k) & vbTab,0,0
         Scrivi esito

      End If
   Next
   Scrivi String(130,".")
   Scrivi
   Scrivi "Ambi............... " & k2
   Scrivi "Terni.............. " & k3
   Scrivi "Quaterne........... " & k4
   Scrivi "Cinquine........... " & k5
   Scrivi
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

Ciao
 
Mike58 ha scritto:
Ecco che il Verificatore fa al caso richiesto.
Codice: 
Sub Main
   Dim L,T,V,sFile
  sFile = GetDirectoryAppData & "Archiviovincicasa2.txt"
   'sfile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,5,",",40)
   Ini = 1
   fin = EstrazioniArchivioFT
   'nk = 0
   Tot = fin - Ini + 1

   'r = InputBox("Quale ruota",,1)
   s = InputBox("Quale Sorte di Verifica",,2)
   ResetTimer
   'ReDim Ru(0)
   'ScegliRuote(Ru)
   'Ru(1) = r
   so = NomeSorte(s)
   'L = Array(0,18,19,20,43,53)
   Call ScegliNumeri(L)
   T = Array(T,"Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneFT(L,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica..........................................................................."
   For es = Ini To fin
      Call VerificaEsitoFT(L,es,s,1,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         Scrivi FormatSpace(k,4) & vbTab,0,0
       
         If k = 1 Then Scrivi Space(6) & GetInfoEstrazioneFT(es) & vbTab,0,0
         If k > 1 Then Scrivi Space(5) & GetInfoEstrazioneFT(es) & vbTab,0,0
         '...............................
         If esito = "Ambo" Then k2 = k2 + 1
         If esito = "Terno"  Then k3 = k3 + 1
         If esito = "Quaterna" Then k4 = k4 + 1
         If esito = "Cinquina" Then k5 = k5 + 1
         '........................................
         Scrivi estr & vbTab & vbTab & FormatSpace(fin - id,4) & " > Esrtazioni Trascorse < " & " Elenco Ritardi ... " & ess(k) & vbTab,0,0
         Scrivi esito

      End If
   Next
   Scrivi String(130,".")
   Scrivi
   Scrivi "Ambi............... " & k2
   Scrivi "Terni.............. " & k3
   Scrivi "Quaterne........... " & k4
   Scrivi "Cinquine........... " & k5
   Scrivi
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

Ciao
Clicca per espandere...

Ti ringrazio... però provando a lanciare lo script mi da 2 tipi di errore...

il primo è questo:
1580553142335.png
inerente il file di testo, che ha sempre funzionato con tutti gli altri script, mentre con questo no;

mentre l'altro errore è questo:
1580553271826.png
che non so cosa voglia dire....

Non so se hai soluzioni in merito....
 
Non Saprei, se il tuo file di testo funziona con gli altri script vuole dire che il file non contiene colonne e righe anomale.
Io non avendo l'archivio completo su questo pc ne uso uno con circa 200 estrazioni e lo script funziona.
Prova a mettere l'inizio anziché 1 cosi:
ini = estrazioniarchivioFT -200
poi assicurati che il carattere separatore sia Virgola
 
Scaricato intero archivio e funziona anche con ini = 1
per la partenza del mese
No Partire dalla 1056
ini = 1056
Se non ti funziona hai corrotto l'archivio
 
1580558518255.png

Perdonatemi... Mike58, o anche qualcun'alro: potreste spiegarmi per cortesia come dovrei interpretare questo tabellone analitico ??? La sezione che vorrei approfondire ha inizio dalla colonna subito dopo quella riempita di giallo...
Grazie a tutti per le delucidazioni....
Ciao !!
 
Mike58 ha scritto:
Alien su questo script i totali se scorri tutta la schermata ci sono.
Clicca per espandere...


SI SCUSAMI MIKE non vorrei abusare della tua pazienza si ci sono tutti avevo già visto ma il mio discorso è un po diverso le formule pari e dispari sono:
322341140550
le frequenze:
per 100 cc

383016132

che uniti fanno :

322341145formule PD
383016132FREQUENZE IN 100 CC

questo ti è possibile farlo ? grazie. Sorry
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 ottobre 2025
    Bari
    43
    31
    77
    89
    85
    Cagliari
    50
    30
    77
    43
    53
    Firenze
    23
    53
    28
    11
    72
    Genova
    14
    86
    37
    22
    68
    Milano
    62
    14
    19
    48
    26
    Napoli
    46
    56
    42
    13
    77
    Palermo
    44
    71
    53
    73
    74
    Roma
    24
    56
    90
    57
    29
    Torino
    72
    02
    29
    12
    21
    Venezia
    10
    64
    37
    65
    22
    Nazionale
    69
    39
    08
    04
    61
    Estrazione Simbolotto
    09
    15
    20
    32
    42
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto