Novità

SPAZIOSCRIPT

L

LuigiB

Guest
ciao vi ho hinviato un nuovo aggiornamento

dove ho corretto il problema segnalato da Rubino sulla funzione per importare le formazioni

Ho allargato le dimensioni dellle colonne del Browswer (fammi sapere Emplein)

Ho aggiunto la griglia estrazioni

Ho aggiunto le funzioni che mi ha chiesto Mike
ResetTimer
SecondiTrascorsi
TempoTrascorso

rimangono in sospeso le ultime segnalazioni , legend mi devi far vedere l oscrip con le variabili non riconosciute ..
 
Ultima modifica di un moderatore:

i legend

Premium Member
Ciao Luigi è arrivata la versione tre ma non l ho ancora installata,
ecco lo script con le variabili che non si colorano
Codice:
Option Explicit
Sub Main
    Dim idEstr
    Dim Ini,fin:Call ScegliRange(Ini,fin,EstrazioneIni,EstrazioneFin)
    Dim  nSpia :  nspia=Carica(90,"Scegli Numero Spia")
    Dim nPosSpia : nposSpia=Carica(5,"Scegli posizionespia")
    Dim nRuotaSpia : nruotaspia=GetRuota("Seleziona Ruota Spia")

    ReDim  aRuotaVer(0) : Call  ScegliRuote(aRuotaVer)'aRuotaVer(1)=GetRuota("Seleziona Ruota Verifica")
    Dim  nEstrVer : nestrver=Carica(18,"Seleziona Estrazioni di Verifica")
    Dim nCasiSpia : nCasiSpia=Carica(30,"Numero Casi Da Analizzare")
    Dim aCol(5):aCol(1)=RGB(240,255,240)
    rem testo titoli
    SetColorSezione RGB(119,136,153)
    Scrivi "  Range analisi estrazioni:   "&DataEstrazione(Ini)&"    "&DataEstrazione(fin),1
    Scrivi "  Numero Spia:                "&Format2(nspia),1,,,aCol(1)
    Scrivi "  Posizione Spia:             "&nposspia,1,,,aCol(1)
    Scrivi "  Ruota Spia:                 "&NomeRuota(nruotaspia),1,,,aCol(1)
    Scrivi "  Ruota di verifica:          "&StringaRuote(aRuotaVer),1,,,aCol(1)
    Scrivi "  Estrazioni di verifica:     "&nestrver,1,,,aCol(1)
    Scrivi "  Numero Casi Spia:           "& ncasispia
    EndColorSezione
    SetColorSezione RGB(255,255,255)
End Sub
Function Carica(qNumeri,sTesto)
    ReDim aV(qNumeri-1)
    Dim i:For i=LBound(aV) To UBound(aV):aV(i)=i+1:Next
    Carica=ScegliOpzioneMenu(aV,0,sTesto)+1
End Function
Function GetRuota(sTesto)
    Dim aV:av=Array("BARI","CAGLIARI","FIRENZE","GENOVA","MILANO","NAPOLI","PALERMO","ROMA","TORINO","VENEZIA","NAZIONALE")
    GetRuota=ScegliOpzioneMenu(av,0,sTesto)+1
    If GetRuota=11 Then GetRuota=12

End Function



ecco l immagine


provaVariabiliJ.jpg

un altro comportamento strano dell allineamento
Codice:
rem Allinea male
    Dim i
    For i=1 To 100
        If pari(i) Then k=1
        Next
al momento è tutto credo . non vedo l ora di provare la funzione tempo :)
 
L

LuigiB

Guest
ciao Legend la faccenda dell'allineamento l'avevo notata è stata corretta con questa nuova versione,
è meglio fare segnalazioni solo dopo aver istallato l'ultima versione

x magia

la funzione per selezionare c'è gia intendevi dire di metterla piuu a portata di mano ?

per il komposer dato che è un programma esterno chi vuole puo aggiornarlo.

invece va bene la cattura immagini magari quella la metto.
 

i legend

Premium Member
Ciao Luigi :) appena installata l ultima versione,
come hai anticipato hai risolto il problema dell allineamento. pertanto la segnalazione antecedente è nulla :)
ho notato invece che le variabili non vengono colorate, ma forse è solo un mio problema.
Ciao e grazie per il lavorone che stai facendo
 
L

LuigiB

Guest
ciao Legend .. si hai ragione , non è un tuo problema .. non gestiva le dichiarazioni quando la linea
conteneva i due punti.
ora i ltuo script è cosi , tra l'altro sempre grazie alla tua segnalazione e al tuo script mi sono accorto che non colorava verede le righe col commento quando al posto dell'apice si usa la parola chiave Rem

col prossimo aggiornamento si risolve ..


Immagine.png
 

Master

Advanced Member >PLATINUM<
Grazie Luigi
Installato 1.0.03
Griglia estrazioni Superenalotto parte da 1871
Una cosa che a me è utile è il percorso dello script come in spaziometria in fondo alla pagina nella barra gialla
crede che si può inserire? Inteso se è utile anche ad altri

griglia.JPG
 
L

LuigiB

Guest
ciao Msster , si lo posso mettere il percorso dello script.
Riguardo l'archivio superenalotto credo che dipenda dal fatto che ho usato gli archivi messi da Silop con lo storico, la funzione tronca archivio non c'è pero si puo fare uno script per troncare l'archivio oppure prendere l'archivio di spaziometria dopo averlo troncato e copiarlo nella directory dati di spazioscript
 

dbr

Advanced Member >PLATINUM PLUS<
Ciao LuigiB.
di script e programmazione non ne capisco molto ma permettimi l'intrusione
almeno per un saluto e un ringrazziamento per il lavoro che Tu e gli Amici
del forum state facendo.
Attendo con impazzienza che "SpazioScript" venga reso pubblico.
Vi seguo sempre
Renzo (dbr)
 

Master

Advanced Member >PLATINUM<
Buonasera
Ho provato lo script di Legend anche a me alcune variabili non vengono colorate
buona settimana a tutti
Lavoro eccellente grazie LuigiB
 

Mike58

Advanced Member >PLATINUM PLUS<
Versione 1.0.0.3 tutto ok.

Ottimo la gestione del tempo di elaborazione script

Grazie Luigi
 
L

LuigiB

Guest
Ciao Dbr...un saluto anche da me...facciamo un altro po di tesr e poi metto la link per il download...ancofa un po di tempo...
 

i legend

Premium Member
Ciao luigi provato la funzione tempo ed è ok
nella versione 1.0.3 ordinamatriceturbo è da sistemare? Ho letto del problema in spazio metri.
personalmente ho la versione 1.5.92. E non ci sono problemi mi sembra. Mentre in spazio script si.
ciao :)
Buona giornata a tutti :)
 
L

LuigiB

Guest
Dovrebbe essere corretta sia su spaziometria che su spazioscript prendi lo dcript postato da magia nell altro thread e provalo...fammi sapere..ciao
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

La trovo comodissima quella barra dove ci sono gli ultimi script eseguiti.
 
Ultima modifica:

Master

Advanced Member >PLATINUM<
Buongiorno
Ho provato a fare tronca archivio Superenalotto in SpazioM ma la data di partenza è già del 3/12/97
Ho provato a sostituire BasedatiSuperEna con quello di SpazioM ma l'elenco estrazioni di SpazioS parte sempre dall'anno 1871 e termina con l'anno 1924, mentre il Browser estrazioni risulta corretto
Ho fatto uno script che elenca le estrazioni del Superenalotto ed è corretto

metto lo script
Codice:
 Sub Main
 Dim Ini
 For Ini = 1 To EstrazioniArchivioSE
  Call ScriviEstrazioneSE(Ini,True)
 Next
End Sub

Grazie
 

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
Alto