Novità

Script per VinciCasa

Mike58

Advanced Member >PLATINUM PLUS<
Scusate l'ignoranza ma come si fa a creare un archivio in Spaziometria? sto impazzendo.. Grazie

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
 

dbr

Advanced Member >PLATINUM PLUS<
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

salvo14

Super Member >GOLD<
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

Grazie ho risolto, sei stato gentilissimo.
 

Alien.

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


CIAO,SCUSA ci deve essere un errore mi da archivio lotto ho messo 100 estrazioni,va a vanti e mi blocca tutto
 

Alien.

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

Mike58

Advanced Member >PLATINUM PLUS<
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)

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)
 

Mike58

Advanced Member >PLATINUM PLUS<
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.
Alien su questo script i totali se scorri tutta la schermata ci sono.
 

dbr

Advanced Member >PLATINUM PLUS<
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)
 

ste20fra

Senior Member
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

ste20fra

Senior Member
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

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....
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

ste20fra

Senior Member
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 !!
 

Alien.

Advanced Premium Member
Alien su questo script i totali se scorri tutta la schermata ci sono.


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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto