Novità

SPAZIOSCRIPT

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
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:
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 :)
 
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.
 
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
 
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
 
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
 
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
 
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)
 
Buonasera
Ho provato lo script di Legend anche a me alcune variabili non vengono colorate
buona settimana a tutti
Lavoro eccellente grazie 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...
 
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 :)
 
Dovrebbe essere corretta sia su spaziometria che su spazioscript prendi lo dcript postato da magia nell altro thread e provalo...fammi sapere..ciao
 
Ciao a Tutti!

La trovo comodissima quella barra dove ci sono gli ultimi script eseguiti.
 
Ultima modifica:
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
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto