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

Ultimi Messaggi

Alto