SPAZIOSCRIPT

[salvo50]

Ciao a Tutti!

Quando lancio - Format - gli spazi vuoti tra una riga e l'altra non li elimina.

 

[LuigiB]

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

 

[i legend]

Ciao Luigi è arrivata la versione tre ma non l ho ancora installata,
ecco lo script con le variabili che non si colorano

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




un altro comportamento strano dell allineamento

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

 

[i legend]

Grazie

 

[LuigiB]

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]

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

 

[LuigiB]

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

 

[Master]

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

 

[LuigiB]

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

 

[Rubino]

Ciao LuigiB

ho provato ad inserire un paio di tabelle e funziona bene

grazie

 

[dbr]

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]

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

 

[Mike58]

Versione 1.0.0.3 tutto ok.

Ottimo la gestione del tempo di elaborazione script

Grazie Luigi

 

[LuigiB]

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]

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

 

[LuigiB]

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

 

[salvo50]

Ciao a Tutti!

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

 

[i legend]

Ciao a tutti
luigi stasera faccio le verifiche e ti so dire con certezza.
ciao a tutti.

 

[Master]

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

 Sub Main
 Dim Ini
 For Ini = 1 To EstrazioniArchivioSE
  Call ScriviEstrazioneSE(Ini,True)
 Next
End Sub

Grazie

 

[Enplein]

Ciao Luigi, installato vers. 1.0.3, tutto ok...grazie.

Ciao, Enplein.