Novità

Per tutti gli scripters

Grazie alien . Per l informazione.
Sto provando a leggere gli archivi qualsiasi esso sia. ...
Un passo per volta:)
 
claudio8;n1950119 ha scritto:
al post n° 10 trovi il file XClaudio.txt cliccaci sopra e scaricherai il file testo. Abbi cura di inserirlo nel percorso specificata dallo script alla riga :
Codice:
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)
chiaramente, rinominandolo con PENSY0.txt......attento "pensyio" con lo zero finale.....
Saluti

Perdonami ma non riesco ad iserire l'archivio su spaziometria ....lo trovo un po complicato....
 
Ultima modifica:
x ALIEN
Apri spaziometria, vai su Base Dati, nella finestra che si apre clicca su Apri directory dati e ti apparirà la cartella che vedi a dx nella foto.
Controlla se esiste la cartella "ArchivioPensy".
-Se esiste aprila ed incollaci dentro il file che hai scaricato XClaudio.txt che avrai rinominato con PENSY0.txt.
-Se non esiste creala ed incollaci dentro il file che hai scaricato XClaudio.txt che avrai rinominato con PENSY0.txt.
Dopo l'incollaggio, apri la cartella PENSY0.txt. clccandoci sopra.
Nella intestazione della cartella "ArchivioPensy" e controlla l'esistenza del file appena incollato (PENSY0.txt.)
1a opzione - In alto finestra troverai scritto il percorso da inserire nello script.
2a opzione -evidenzia il file PENSY0.txt. , clicca cul tasto dx del mouse e vai in Proprietà, nella scheda Generale troverai la dicitura percorso..., evidenzialo e copialo nelllo script, aggiungendo uno " \PENSY0.txt. "
Non saprei come altro spiegarti i passaggi da effettuare. Se hai difficoltà posta lo screenshot della tua "Apri directory dati".

ALIEN.JPG
 
Ultima modifica:
Immagine1.jpgFasce somme
Immagine2.jpg
Facia 1-24;25-49
Immagine3.jpg
PariDispari
Immagine4.jpg
Se qualcuno puo controllare le statistiche mi potrebbe dire se sono corrette?
se si
intanto comincio a postare questa parte dello script.
Ciao se non ho conferme non posso e non voglio postare qualcosa di errato
Ciao:)
 
Ho cancellato gli script vecchi perché restituì vano statistiche errate o quanto meno diverse da quelle attuali.

X alien
Hai riportato un post con uno dei vecchi script potresti cancellarlo perfavore è sbagliato:)
Come avevo detto era un test:)
 
claudio8;n1950345 ha scritto:
x ALIEN
Apri spaziometria, vai su Base Dati, nella finestra che si apre clicca su Apri directory dati e ti apparirà la cartella che vedi a dx nella foto.
Controlla se esiste la cartella "ArchivioPensy".
-Se esiste aprila ed incollaci dentro il file che hai scaricato XClaudio.txt che avrai rinominato con PENSY0.txt.
-Se non esiste creala ed incollaci dentro il file che hai scaricato XClaudio.txt che avrai rinominato con PENSY0.txt.
Dopo l'incollaggio, apri la cartella PENSY0.txt. clccandoci sopra.
Nella intestazione della cartella "ArchivioPensy" e controlla l'esistenza del file appena incollato (PENSY0.txt.)
1a opzione - In alto finestra troverai scritto il percorso da inserire nello script.
2a opzione -evidenzia il file PENSY0.txt. , clicca cul tasto dx del mouse e vai in Proprietà, nella scheda Generale troverai la dicitura percorso..., evidenzialo e copialo nelllo script, aggiungendo uno " \PENSY0.txt. "
Non saprei come altro spiegarti i passaggi da effettuare. Se hai difficoltà posta lo screenshot della tua "Apri directory dati".


acc.....ciao ho copiato l'archivio poi vado sulla cartella PENSY0 ma la dicitura incolla non è attiva.......!!! ma se vado su un foglio di excel mi incolla l'archivio...
' dove erro? grazie.
 
i legend;n1950820 ha scritto:
Ciao alien pag 4 post 54
Grazie:)


Ciao legend iper impegnatissimo con la tua nuova mission ;) cerco di beccarti qui per chiederti una cosa riguardo lo script scopadelico :) Come posso modificare da codice la data iniziale di analisi (portandola ad esempio al 8/7/1939) senza dover tutte le volte cambiare quella di default (7/1/1871) tramite apposita levetta? ;) Grazie mille grandissimo
 
Ultima modifica:
x ALIEN
Apri spaziometria, vai su Base Dati, nella finestra che si apre clicca su Apri directory dati e ti apparirà la cartella che vedi a dx nella foto.

ALIEN.JPG


Se hai difficoltà posta lo screenshot della tua " Directory dati" questa riportata a dx.

Nb: qualsiasi file .txt può essere aperto con excel.
 
Ultima modifica:
X alien pag 4 post 54 grazie:)
Ciao tom impegnato ma senza riscontro
Sono incasinato speriamo passi presto.
Allora nella sub main c'è la riga
If scegliRange (inizio fine) Then
Togli l if e End if
Inizio= concorso
Fine = EstrazioneFin
Così dovrebbe andare prova e fammi sapere
Ciao:)
 
i legend;n1950846 ha scritto:
X alien pag 4 post 54 grazie:)
Ciao tom impegnato ma senza riscontro
Sono incasinato speriamo passi presto.
Allora nella sub main c'è la riga
If scegliRange (inizio fine) Then
Togli l if e End if
Inizio= concorso
Fine = EstrazioneFin
Così dovrebbe andare prova e fammi sapere
Ciao:)



Ho provato a fare quanto mi hai detto carissimo:

"... If scegliRange (inizio, fine) Then
Togli l if e End if
Inizio= concorso
Fine = EstrazioneFin ..."

Ma nisba :( :)

Se volessi mettere come inizio la data 8/7/1939 come dovrei fare?

Ho provato a sostituire inizio con vari valori tra cui anche il num. del concorso corrispondente: 03575 ma nulla...

Coraggio... legend anche se al momento sei incasinato... come disse il famoso Eraclito "panta rei" ;) 'notte big
 
Ultima modifica:
i legend;n1950376 ha scritto:
Fasce somme

Facia 1-24;25-49

PariDispari

Se qualcuno puo controllare le statistiche mi potrebbe dire se sono corrette?
se si
intanto comincio a postare questa parte dello script.
Ciao se non ho conferme non posso e non voglio postare qualcosa di errato
Ciao:)
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 832"]
[TR]
[TD]
LOGOSILOP.gif
[/TD]
[/TR]
[TR]
[TD]ho aggiornato SPMT vers. 1.5.74 e relativo plug in SVP vers. 1.0.53[/TD]
[/TR]
[TR]
[TD]Ciao i legend ,[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]con un po di fatica e con l'aiuto di appassionati come me,[/TD]
[/TR]
[TR]
[TD]sono riuscito a ricostruire il mio vecchio archivio (ancora da rivedere bene)[/TD]
[/TR]
[TR]
[TD]e ad elaborare alcune tabelle per confrontare con le tue.[/TD]
[/TR]
[TR]
[TD]Di seguito ti allego la tabella delle SOMME della lotteria UK49's :
====================================================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 317"]
[TR]
[TD]inizio[/TD]
[TD="align: right"]01/06/2005[/TD]
[TD] [/TD]
[TD="colspan: 2"]paese : UK49's [/TD]
[/TR]
[TR]
[TD]fine[/TD]
[TD="align: right"]04/01/2016[/TD]
[TD] [/TD]
[TD="colspan: 2"]SOMME 14 fasce[/TD]
[/TR]
[TR]
[TD]Fascia[/TD]
[TD]Codici[/TD]
[TD]Rit.Att[/TD]
[TD]Rit.Sto[/TD]
[TD]Freq[/TD]
[/TR]
[TR]
[TD] 21_74[/TD]
[TD]1[/TD]
[TD]36[/TD]
[TD]473[/TD]
[TD]76[/TD]
[/TR]
[TR]
[TD]75_100[/TD]
[TD]2[/TD]
[TD]13[/TD]
[TD]105[/TD]
[TD]402[/TD]
[/TR]
[TR]
[TD] 101_110[/TD]
[TD]3[/TD]
[TD]8[/TD]
[TD]103[/TD]
[TD]414[/TD]
[/TR]
[TR]
[TD] 111_120[/TD]
[TD]4[/TD]
[TD]32[/TD]
[TD]133[/TD]
[TD]541[/TD]
[/TR]
[TR]
[TD]121_130[/TD]
[TD]5[/TD]
[TD]4[/TD]
[TD]80[/TD]
[TD]676[/TD]
[/TR]
[TR]
[TD]131_140[/TD]
[TD]6[/TD]
[TD]16[/TD]
[TD]68[/TD]
[TD]895[/TD]
[/TR]
[TR]
[TD]141_150[/TD]
[TD]7[/TD]
[TD]21[/TD]
[TD]46[/TD]
[TD]875[/TD]
[/TR]
[TR]
[TD]151_160[/TD]
[TD]8[/TD]
[TD]2[/TD]
[TD]52[/TD]
[TD]860[/TD]
[/TR]
[TR]
[TD]161_170[/TD]
[TD]9[/TD]
[TD]0[/TD]
[TD]58[/TD]
[TD]852[/TD]
[/TR]
[TR]
[TD]171_180[/TD]
[TD]10[/TD]
[TD]7[/TD]
[TD]65[/TD]
[TD]674[/TD]
[/TR]
[TR]
[TD]181_190[/TD]
[TD]11[/TD]
[TD]41[/TD]
[TD]91[/TD]
[TD]530[/TD]
[/TR]
[TR]
[TD]191_200[/TD]
[TD]12[/TD]
[TD]3[/TD]
[TD]172[/TD]
[TD]385[/TD]
[/TR]
[TR]
[TD]201_210[/TD]
[TD]13[/TD]
[TD]1[/TD]
[TD]208[/TD]
[TD]265[/TD]
[/TR]
[TR]
[TD]211_279[/TD]
[TD]14[/TD]
[TD]15[/TD]
[TD]226[/TD]
[TD]240[/TD]
[/TR]
[/TABLE]
====================================================== [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 832"]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]Il periodo temporale (le date) inizio e fine sono uguali alle tue[/TD]
[/TR]
[TR]
[TD]mentre gli indici delle estrazioni sono diversi[/TD]
[/TR]
[TR]
[TD]e risultati sono QUASI UGUALI[/TD]
[/TR]
[TR]
[TD]eccetto le frequenze.[/TD]
[/TR]
[TR]
[TD]Se mi dici con quale archivio hai fatto le elaborazioni o lo alleghi qui,[/TD]
[/TR]
[TR]
[TD]in modo di adeguarmi alle tue risultanze.[/TD]
[/TR]
[TR]
[TD]Anche per le altre Tabelle che già hai fatto.[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]Speriamo che anche altri appassionati dell'estero ti rispondono per il confronto dati,
perché nei prossimi giorni sono in viaggio.[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]
stickman.gif
[/TD]
[/TR]
[TR]
[TD]Buona notte a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD]Silop ;) ;) ;)[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
 
Ciao Silop grazie
Ho scritto una piccola funzione per calcolare la somma estratti
allora ho utilizzato l achivio di magia
se non sbaglio era aggiornato all estrazione 10600
se non l hai cestinato
prova a lanciare questo piccolo script con entrambi gli archivi
metti le stesse date.
vengono scritte i concorsi e le somme
poi visto che con excel sei un mago
magari fai un confronto delle date se ce ne sono di diverse abbiamo trovato le estrazioni incriminate
se( E(a1=c1,b1=d1);"Vero";"Falso")
se ci sono dei falsi nella colonna siamo a cavallo per correggere gli archivi

Buon Viaggio;)
domanda stupida le regole le somme i pari e dispari valgono per tutti i giochi?
vorrei provare a fare uno script unico valido per tutte le lotterie che sono ammesse ed autorizzate,
se sappamo il numero massimo dei numeri e la classe magari insieme riusciamo a fare un bello script

Ciao:)

Codice:
Option Explicit
Sub Main
    Dim sFileArchivio
    Dim idestr,Count
    Dim Inizio,Fine,Classe
    Dim iSom,sMin,sMax,Rit,RitMax,Freq
    Dim aTitoli
    sMin = 131
    sMax = 140
    Classe=6
    sFileArchivio = GetDirectoryAppData & "Archivio LottoUK\Lotto UK 49's.txt"
    If ApriBaseDatiFT(sFileArchivio,7,",",49) Then
        Inizio = 2927
        Fine = 10600
Count=0
        For idestr = Inizio To Fine
            iSom= SommaEstrattiLE(idestr,Classe)
            
            If iSom>=sMin And iSom<=sMax Then
            Count=Count+1
            Scrivi idestr&";"&iSom
            End If
        Next
               ' Scrivi Count
    End If
End Sub
Function SommaEstrattiLE(idestr,Classe)
    Dim p,som
    som = 0
    For p = 1 To Classe
        som = som + EstrattoFT(idestr,p)
    Next
    SommaEstrattiLE = som
End Function
 
Ultima modifica:
Tom nella
sub main
io ho scritto 3950 tu devi mettere il numero di concorso che ti serve
Codice:
If bOk Then
     [COLOR=#FF0000] '  If ScegliRange(Inizio,Fine) Then  qui metto l apice
inizio=3950 ' questa data corrisponde al 14/09/1946 ovviamente il tuo id è minore
Fine=estrazionefin[/COLOR]
il resto è tutto uguale
            Sorte = ScegliEsito
            Call ScegliRuote(aRuote,Nothing)
            ' decido il filtro in base al valore degli incrementi
            idFiltro = GetIdFiltro
            ' decido di filtrare in base al numero degli incrementi
            qIncr = GetQuantiIncrementi
            If(Fine > Inizio) And UBound(aRuote) > 0 And Sorte > 0 And idFiltro > - 1 Then
                Scrivi FormatSpace("Archivio : " & Iif(sFile <> "",sFile,"Archivio lotto"),75),True,True,RGB(25,89,76),vbWhite
                Select Case ScegliTipoSviluppo

                ' qui ce il codice delle sub
io non l ho scritto per brevita cambia solo le righe in rosso
                End Select
            End If
     [COLOR=#FF0000]  ' End If qui metto l 'apice[/COLOR]
    End If
Fammi sapere
 
Ultima modifica:
A quanto pare questo script interesse solo a me e a silop , purtroppo non ci sono riscontri , mi fermo qui.

X alien
Alien post 55 quello script era un test. Perfavore cancellalo. Grazie.

Se vogliamo fare una cosa tutti insieme possiamo vedere di fare uno script unico che prenda in considerazioni tutti i giochi esteri legalmente riconosciuti.cerco di capirci questo alcova.
Ciao.
 
legend non dire così ti ho fornito anche alcuni dati di quote ci sono io cè alien.e finiamola con sta faccenda del legale o no legale.quì ci sono tutte persone maggiorenni e vaccinate ognuno poi se lo farai se lo gestirà come vuole.cribbio con tutti i problemi che abbiamo in italia stiamo qui a porci la domanda se pubblicare uno script sui giochi è legale o no ma non facciamo ridere i polli per favore!
 
Ciao arCor , quando voglio ridere vado al cinema,e, guardo una commedia.
Ad alien e filotto interessa pensil venia non uk.
Nessuno ci gioca infatti ne è dimostrazione che nessuno è sicuro di avere un archivio corretto.
Ora :
ho proposto di fare con l aiuto di voi tutti uno script che ingloba tutte le lotterie estere legali quindi uno script utilizzabile .
Io non gioco lo farei pEr stimolare le celluline grigie.
È molto più interessante fare uno script che funzioni per più lotterie che per una singola.
Se ti ho fatto ridere ti assicuro che non era voluto.
Ciao fatemi sapere.:)
sono qui per passare il mio tempo con le persone che considero amici, non entro in polemica.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
Indietro
Alto