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

LuigiB

Premium Member
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
    martedì 09 agosto 2022
    Bari
    25
    43
    76
    14
    32
    Cagliari
    19
    32
    38
    09
    07
    Firenze
    66
    05
    26
    56
    52
    Genova
    75
    25
    36
    02
    45
    Milano
    13
    30
    76
    05
    18
    Napoli
    43
    38
    60
    80
    19
    Palermo
    52
    73
    75
    15
    82
    Roma
    14
    34
    28
    15
    70
    Torino
    64
    49
    25
    22
    44
    Venezia
    20
    24
    41
    44
    60
    Nazionale
    85
    43
    34
    81
    79
    Estrazione Simbolotto
    Nazionale
    17
    05
    02
    29
    45
Alto