Novità

PROGRAMMA SPAZIOMETRIA

joe

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

:)
 

joe

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

gabbo87

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

molton

Super Member >PLATINUM<
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!
 

joe

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

:)
 

amanzio

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

molton

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

:)
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!
 

joe

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

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

:)
 

molton

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

:)
Ottimo lavoro Joe!
Grazie per la disponibilità e spero non ti dia troppo fastidio se ogni tanto chiedo charimenti.
 

amanzio

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

joe

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

:)
 

amanzio

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

:)
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.
 
L

LuigiB

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

amanzio

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

amanzio

Member
devi sostituire i lfile che c'è non devi averne 2
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.
 

amanzio

Member
Allego anche l'immagine
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 relativa al problema:
 

Allegati

  • img spaziometria.jpg
    img spaziometria.jpg
    168,9 KB · Visite: 10

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto