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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto