Novità

Script per VinciCasa

ste20fra

Member
Messaggi
75
Punti reazione
24
Punti
8
devi selezionare almeno 12 numeri da far girare nel cruciverba.


per esporatre in excel se lo script è in tabella basta modificare il codice alla fine dello script
creatabella in creatabellaordinabile e da qui si può esportare tutto in excel.
Ok, perfetto... grazie !!
 

salvo14

Senior Member
Messaggi
145
Punti reazione
1
Punti
18
Scusate l'ignoranza ma come si fa a creare un archivio in Spaziometria? sto impazzendo.. Grazie
 

Mike58

Advanced Member >PLATINUM PLUS<
Messaggi
2.062
Punti reazione
67
Punti
48
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<
Messaggi
1.431
Punti reazione
19
Punti
38
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

salvo14

Senior Member
Messaggi
145
Punti reazione
1
Punti
18
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
Messaggi
24.161
Punti reazione
237
Punti
63
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
Messaggi
24.161
Punti reazione
237
Punti
63
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<
Messaggi
2.062
Punti reazione
67
Punti
48
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<
Messaggi
2.062
Punti reazione
67
Punti
48
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<
Messaggi
1.431
Punti reazione
19
Punti
38
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

Member
Messaggi
75
Punti reazione
24
Punti
8
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<
Messaggi
2.062
Punti reazione
67
Punti
48
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

Member
Messaggi
75
Punti reazione
24
Punti
8
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<
Messaggi
2.062
Punti reazione
67
Punti
48
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<
Messaggi
2.062
Punti reazione
67
Punti
48
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

Member
Messaggi
75
Punti reazione
24
Punti
8
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
Messaggi
24.161
Punti reazione
237
Punti
63
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
    giovedì 09 luglio 2020
    Bari
    14
    87
    01
    29
    50
    Cagliari
    09
    81
    57
    28
    36
    Firenze
    26
    46
    59
    33
    17
    Genova
    06
    02
    77
    17
    71
    Milano
    22
    07
    21
    76
    19
    Napoli
    07
    03
    69
    17
    54
    Palermo
    52
    08
    42
    26
    12
    Roma
    68
    09
    47
    69
    26
    Torino
    73
    53
    13
    54
    04
    Venezia
    90
    74
    87
    45
    88
    Nazionale
    79
    12
    62
    72
    56

Ultimi Messaggi

Alto