Novità

PROGRAMMA SPAZIOMETRIA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Crea una cartella PrevRaz

nella DirectoryData di Spaziometria

che contenga il file eseguibile PrevRaz.exe

Poi esegui questo script che dovrebbe creare un archivio aggiornato

ed aprire il programma di Arn.

Codice: 
Option Explicit
Sub Main
  'Prev_Raz_Agg
  'Script By Joe 10/12/2020
  Dim sFile,Riga
  Dim Ini,Fin,Es,R,P
  Ini = 3950 : Fin = EstrazioniArchivio
  sFile = GetDirectoryAppData & "\PrevRaz\Archiviolotto.csv"
  Messaggio("Creazione Archivio")
  Call EliminaFile(sFile)
  For Es = Ini To Fin
  Call AvanzamentoElab(Ini,Fin,Es)
    Riga = DataEstrazione(Es,,,"/")
    For R = 1 To 12 : If R = 11 Then R = 12
      For P = 1 To 5
        Riga = Riga & ";" & Format2(Estratto(Es,R,P))
      Next
    Next
    Call ScriviFile(sFile,Riga)
  Next
  Call CloseFileHandle(sFile)
  Call LanciaFile(GetDirectoryAppData & "\PrevRaz\PrevRaz.exe")
End Sub

:)
 
Dovrebbe essere nella cartella Arn tra i Plug-in.

Sul mio PC è:

"C:\Users\computer\AppData\Roaming\SpazioMetria\Plugin\Arn\PrevRaz"

ma il percorso può variare da installazione ad installazione.

:)
 
  • Like
Reazioni: dbr
buonasera vorrei creare uno script del superenalotto ma non so da dove iniziare , vorrei creare uno script simile a lunghette ritardi o lunghette frequenti usato per milionday o vincicasa pero' applicato al super enalottto avendo ovviamente l archivio aggiornato, e scegliendo una serie di numeri mi deve trovare la lunghetta piu frequente o quella piu ritardataria possibilmente fino a classe 2 sorte 2 in modo da trovare anche ambi e terni ringraziando anticipatamente cordialmente saluto
 
Buonasera,
grazie per questo programma, vorrei cominciare ad usarlo ma non sono molto bravo.
Qualcuno mi potrebbe spiegare se ad esempio è possibile rintracciare un numero uscito nella stessa posizione e sulla stessa ruota 2 volte dopo piu' estrazioni (ad esempio dopo 3 o 4 estrazioni)?
Grazie e buon anno a tutti!
 
Ciao quello che hai scritto può essere interpretato in molti modi differenti.

Ho scritto questo, ma può essere che sia sbagliato.

Codice: 
Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,P,E,DST,Ex
   Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
   DST = 2 'Distanza Estrazioni
   For Es = Ini To Fin
      For R = 1 To 10
         For P = 1 To 5
            E = Estratto(Es,R,P)
            Ex = Es - DST
            If Posizione(Ex,R,E) = P Then
               Scrivi Format2(E) & " " & P & "°",True
               Scrivi DataEstrazione(Ex) & " " & SiglaRuota(R) & " " & StringaEstratti(Ex,R)
               Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R)
               Scrivi String(28,"="),True
            End If
         Next
      Next
   Next
End Sub

:)
 
Ciao a tutti.
Vorrei mi chiariste una cosa per favore, Luigi in primis ma anche altri se possono.
Ho scaricato l'ultima versione, quel piccolo aggiornamento postato proprio da Luigi, la 1.6.36.
Il fatto è che quando lancio l'exe mi si apre subito il programma e in testa c'è scritto 1.6.36, senza avere fatto quindi nessuna installazione.
E' normale faccia così, senza avere installato nulla?
 
Ultima modifica:
joe ha scritto:
Ciao quello che hai scritto può essere interpretato in molti modi differenti.

Ho scritto questo, ma può essere che sia sbagliato.

Codice: 
Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,P,E,DST,Ex
   Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
   DST = 2 'Distanza Estrazioni
   For Es = Ini To Fin
      For R = 1 To 10
         For P = 1 To 5
            E = Estratto(Es,R,P)
            Ex = Es - DST
            If Posizione(Ex,R,E) = P Then
               Scrivi Format2(E) & " " & P & "°",True
               Scrivi DataEstrazione(Ex) & " " & SiglaRuota(R) & " " & StringaEstratti(Ex,R)
               Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R)
               Scrivi String(28,"="),True
            End If
         Next
      Next
   Next
End Sub

:)
Clicca per espandere...
Joe grazie mille per la risposta!
Era quello che cercavo :)

Serve solo una piccola modifica. Se ad esempio voglio lo stesso numero uscito 3 volte (e non 2) con intervallo di 4 estrazioni, quali sono le modifiche da fare?
Grazie ancora e buon anno!
 
molton ha scritto:
Joe grazie mille per la risposta!
Era quello che cercavo :)

Serve solo una piccola modifica. Se ad esempio voglio lo stesso numero uscito 3 volte (e non 2) con intervallo di 4 estrazioni, quali sono le modifiche da fare?
Grazie ancora e buon anno!
Clicca per espandere...

Ciao molton.

Quello che chiedi qui, è tutta un'altra cosa da quello che fa lo script precedente.

Dunque mi stupisce, un pò, che fosse proprio quello che cercavi.

Comunque sia, ho riscritto quel programma sempre sperando sia ...

Codice: 
Option Explicit
Sub Main
  Dim Ini,Fin,Es,Ex,R,P,E
  Dim Periodo,Presenze,I,K,Out
  Ini = EstrazioneFin - 500 : Fin = EstrazioneFin
  Periodo = 4 'Estrazioni
  Presenze = 3
  For Es = Ini To Fin
    AvanzamentoElab Ini,Fin,Es
    Ex = Es - Periodo + 1
    For R = 1 To 10
      For P = 1 To 5
        K = 0
        Out = ""
        E = Estratto(Es,R,P)
        For I = Ex To Es
          If Posizione(I,R,E) = P Then
            K = K + 1
            Out = Out & DataEstrazione(I) & " " & SiglaRuota(R) & " " & StringaEstratti(I,R) & Chr(13)
          End If
        Next
        If K >= Presenze Then
          Scrivi space (3) & Format2(E) & " " & NomeRuota(R) & " " & P & "° Estratto" & Chr(13),True
          Scrivi Out
          Scrivi String(28,"="),True
        End If
      Next
    Next
  Next
End Sub

:)
 
joe ha scritto:
Ciao molton.

Quello che chiedi qui, è tutta un'altra cosa da quello che fa lo script precedente.

Dunque mi stupisce, un pò, che fosse proprio quello che cercavi.

Comunque sia, ho riscritto quel programma sempre sperando sia ...

Codice: 
Option Explicit
Sub Main
  Dim Ini,Fin,Es,Ex,R,P,E
  Dim Periodo,Presenze,I,K,Out
  Ini = EstrazioneFin - 500 : Fin = EstrazioneFin
  Periodo = 4 'Estrazioni
  Presenze = 3
  For Es = Ini To Fin
    AvanzamentoElab Ini,Fin,Es
    Ex = Es - Periodo + 1
    For R = 1 To 10
      For P = 1 To 5
        K = 0
        Out = ""
        E = Estratto(Es,R,P)
        For I = Ex To Es
          If Posizione(I,R,E) = P Then
            K = K + 1
            Out = Out & DataEstrazione(I) & " " & SiglaRuota(R) & " " & StringaEstratti(I,R) & Chr(13)
          End If
        Next
        If K >= Presenze Then
          Scrivi space (3) & Format2(E) & " " & NomeRuota(R) & " " & P & "° Estratto" & Chr(13),True
          Scrivi Out
          Scrivi String(28,"="),True
        End If
      Next
    Next
  Next
End Sub

:)
Clicca per espandere...
Ottimo lavoro Joe!
Grazie per la disponibilità e spero non ti dia troppo fastidio se ogni tanto chiedo charimenti.
 
Provo a riproporre il quesito, spero qualcuno legga:

Ciao a tutti.
Vorrei mi chiariste una cosa per favore, Luigi in primis ma anche altri se possono.
Ho scaricato l'ultima versione, quel piccolo aggiornamento postato proprio da Luigi, la 1.6.36.
Il fatto è che quando lancio l'exe mi si apre subito il programma e in testa c'è scritto 1.6.36, senza avere fatto quindi nessuna installazione.
E' normale faccia così, senza avere installato nulla?
 
Penso che l'eseguibile incorpori in sé il titolo.

Se scarichi l'eseguibile e questo si esegue ed è compatibile,

Se non entra in conflitto con quanto installato precedentemente, viene eseguito per quello che è.

Però questo "vale" solo se il programmatore, dice che "si può fare".

Cioè che in questo eseguibile sono state apportate modifiche e migliorie,

tali da non essere in conflitto, con quanto già installato.

:)
 
joe ha scritto:
Penso che l'eseguibile incorpori in sé il titolo.

Se scarichi l'eseguibile e questo si esegue ed è compatibile,

Se non entra in conflitto con quanto installato precedentemente, viene eseguito per quello che è.

Però questo "vale" solo se il programmatore, dice che "si può fare".

Cioè che in questo eseguibile sono state apportate modifiche e migliorie,

tali da non essere in conflitto, con quanto già installato.

:)
Clicca per espandere...
Il problema è che quando e se lo chiudo, per riaprirlo devo trovare il download scaricato e da lì rilanciare l'eseguibile. perché ovviamente non ho una cartella col la nuova versione.
Ovviamente la versione 1.6.34 è invece installata normalmente.
Non capisco cosa devo fare, se rifare l'installazione con questa nuova versione o lasciar perdere.
 
amanzio ha scritto:
Il problema è che quando e se lo chiudo, per riaprirlo devo trovare il download scaricato e da lì rilanciare l'eseguibile. perché ovviamente non ho una cartella col la nuova versione.
Ovviamente la versione 1.6.34 è invece installata normalmente.
Non capisco cosa devo fare, se rifare l'installazione con questa nuova versione o lasciar perdere.
Clicca per espandere...
ciao , devi semplicemente andare nella cartella dove è installato e sostituire il vecchio eseguibile con quello che hai scaricato.
Dato che si trattava di piccole correzioni non h oritenuto di fare un nuovo setup.
 
LuigiB ha scritto:
ciao , devi semplicemente andare nella cartella dove è installato e sostituire il vecchio eseguibile con quello che hai scaricato.
Dato che si trattava di piccole correzioni non h oritenuto di fare un nuovo setup.
Clicca per espandere...
Ciao Luigi, per sostituire intendi che devo proprio cancellare l'exe della la vecchia versione, oppure semplicemente aggiungere questa nuova e mantenere entrambe nella cartella?
 
LuigiB ha scritto:
devi sostituire i lfile che c'è non devi averne 2
Clicca per espandere...
Luigi ho fatto come mi hai detto, e ho cancellato l'exe 1.6.34.
Ma purtroppo ora il programma non parte più, rimane fermo in stand by con sotto la scritta "Conversione archivio 10 e lotto al nuovo formato".
Ma appunto non ne vuole sapere più di partire.
 
Allego anche l'immagine
amanzio ha scritto:
Luigi ho fatto come mi hai detto, e ho cancellato l'exe 1.6.34.
Ma purtroppo ora il programma non parte più, rimane fermo in stand by con sotto la scritta "Conversione archivio 10 e lotto al nuovo formato".
Ma appunto non ne vuole sapere più di partire.
Clicca per espandere...
Allego anche l'immagine relativa al problema:
 

Allegati

  • img spaziometria.jpg
    img spaziometria.jpg
    168,9 KB · Visite: 10
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto