NUOVO AMBIENTE SCRIPT AREA TECNICA

Rookie · 7 Febbraio 2023

LuigiB ha scritto:
sono tropppo stanco per vedere le altre cose oggi ho avuto da fare tutto il giorno pensate un po per uno script che mi serve al lavoro .. ad un cert punto lo volevo scrivere in TwinBasic ..
se n parlerà domani per i problemi che mi avete dettosull'ordinamento della tabella.

A domani allora e buona serata in relax senza le tossine da troppe sigarette e frenetico coding

(anche se dubito per il primo tipo di tossine)!

giomi · 7 Febbraio 2023

bodrusG
provato 244 , evidenzia errore , ma funziona tutto il resto .

giomi · 7 Febbraio 2023

ciao, chi puo dargli un occhio , dove sbaglio
usato function di i legend grazie

Codice:

Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE

ReDim Usciti(90, 11) As Variant
Dim Totale As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As Long
Dim Ruo As Long
Dim Pos As Long
Dim Estr As Long
Dim Tutti As Long
Totale = 90 * 11 ' 10 Ruote + Nazionale
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
DataEstrazione(Fin), True)
Call Scrivi()
Call Scrivi(String(178, "-"), True)
   For Es = Fin To Ini Step -01
      Call Messaggio(CStr(Es))
      Riga = formatspace(Fin - Es, 3) & " "
      For Ruo = 01 To 11
         For Pos = 01 To 05
            Estr = Estratto(Es, Ruo, Pos)
            If Usciti(Estr, Ruo) = "" Then
               Riga = Riga & format2(Estr) & " "
               Usciti(Estr, Ruo) = Estr
               Tutti = Tutti + 01
            Else
               Riga = Riga & "-- "
            End If
         Next
         Riga = Riga & " "
      Next
      Call Scrivi(CStr(Riga), True)
      If Tutti = Totale Then Es = 01
   Next
   Call Scrivi(String(178, "-"), True)
 
End Sub

Function format2(N As Variant) As String
 If Len(N) < 2 Then N = "0" & N
 Return N
 End Function
 Function formatspace(n As Variant, nCHar As Long) As String
     Dim C  As Integer, temp As String
    temp = n
    C = Len(n)
 If C < nCHar Then temp = Space(nCHar - C) & n
     Return temp
 End Function

End Module

grazie

happy · 7 Febbraio 2023

Ciao.
Mi sto esercitando, ho scritto delle funzioni ma vengono sottolineate in arancione.
Qualcuno sa dirmi cosa indica la sottolineatura arancione ?

Le funzioni cmq funzionano restituendo risultati corretti.
Grazie

giomi · 8 Febbraio 2023

Xeroxs ha scritto:
Mannaggia in questa ultima versione il tuo bellissimo script non funziona mi da un errore ma non so come interpretarlo o correggerlo.

Vedi l'allegato 2252879

in attesa di i legend ,
lo script funzia , devi sostituire la linea con questa ReDim aE(5) As Variant

happy · 8 Febbraio 2023

happy ha scritto:
Ciao.
Mi sto esercitando, ho scritto delle funzioni ma vengono sottolineate in arancione.
Qualcuno sa dirmi cosa indica la sottolineatura arancione ?
Le funzioni cmq funzionano restituendo risultati corretti.
Grazie
Vedi l'allegato 2252916

Ho risolto in questo modo:

happy · 8 Febbraio 2023

giomi ha scritto:

ciao, chi puo dargli un occhio , dove sbaglio
usato function di i legend grazie

Codice:

Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE

ReDim Usciti(90, 11) As Variant
Dim Totale As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As Long
Dim Ruo As Long
Dim Pos As Long
Dim Estr As Long
Dim Tutti As Long
Totale = 90 * 11 ' 10 Ruote + Nazionale
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
DataEstrazione(Fin), True)
Call Scrivi()
Call Scrivi(String(178, "-"), True)
   For Es = Fin To Ini Step -01
      Call Messaggio(CStr(Es))
      Riga = formatspace(Fin - Es, 3) & " "
      For Ruo = 01 To 11
         For Pos = 01 To 05
            Estr = Estratto(Es, Ruo, Pos)
            If Usciti(Estr, Ruo) = "" Then
               Riga = Riga & format2(Estr) & " "
               Usciti(Estr, Ruo) = Estr
               Tutti = Tutti + 01
            Else
               Riga = Riga & "-- "
            End If
         Next
         Riga = Riga & " "
      Next
      Call Scrivi(CStr(Riga), True)
      If Tutti = Totale Then Es = 01
   Next
   Call Scrivi(String(178, "-"), True)
 
End Sub

Function format2(N As Variant) As String
 If Len(N) < 2 Then N = "0" & N
 Return N
 End Function
 Function formatspace(n As Variant, nCHar As Long) As String
     Dim C  As Integer, temp As String
    temp = n
    C = Len(n)
 If C < nCHar Then temp = Space(nCHar - C) & n
     Return temp
 End Function

End Module

grazie

Ciao Giomi, cosi pare funzionare.

Codice:

Module MyScript

  
    Public Sub MyScriptRoutine()
        ' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
        ' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
      

Dim M(90, 11) As Variant
Dim Tot As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String
Dim R As Long
Dim P As Long
Dim E As Long
Dim T As Long
Tot = 90 * 11 ' 11 Ruote
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & DataEstrazione(Fin), True)
Call Scrivi()
Call Scrivi(String(178, "-"), True)
 
 
   For Es = Fin To Ini Step -01
      Call Messaggio(CStr(Es))
      Riga = FormatString((Fin - Es), "00", 2) & "  "
    
     For R = 1 To 11
    
         For P = 01 To 05
            E = Estratto(Es, R, P)
            If M(E, R) = "" Then
               Riga = Riga & FormatString((E), "--", 2) & " "
               M(E, R) = E
               T = T + 01
            Else
               Riga = Riga & "-- "
            End If
         Next
         Riga = Riga & " "
      Next
      Call Scrivi(CStr(Riga), True)
      If T = Tot Then Es = 01
   Next
   Call Scrivi(String(178, "-"), True)


 End Sub
  
    
End Module

i legend · 8 Febbraio 2023

giomi ha scritto:

ciao, chi puo dargli un occhio , dove sbaglio
usato function di i legend grazie

Codice:

Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE

ReDim Usciti(90, 11) As Variant
Dim Totale As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As Long
Dim Ruo As Long
Dim Pos As Long
Dim Estr As Long
Dim Tutti As Long
Totale = 90 * 11 ' 10 Ruote + Nazionale
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & _
DataEstrazione(Fin), True)
Call Scrivi()
Call Scrivi(String(178, "-"), True)
   For Es = Fin To Ini Step -01
      Call Messaggio(CStr(Es))
      Riga = formatspace(Fin - Es, 3) & " "
      For Ruo = 01 To 11
         For Pos = 01 To 05
            Estr = Estratto(Es, Ruo, Pos)
            If Usciti(Estr, Ruo) = "" Then
               Riga = Riga & format2(Estr) & " "
               Usciti(Estr, Ruo) = Estr
               Tutti = Tutti + 01
            Else
               Riga = Riga & "-- "
            End If
         Next
         Riga = Riga & " "
      Next
      Call Scrivi(CStr(Riga), True)
      If Tutti = Totale Then Es = 01
   Next
   Call Scrivi(String(178, "-"), True)
 
End Sub

Function format2(N As Variant) As String
 If Len(N) < 2 Then N = "0" & N
 Return N
 End Function
 Function formatspace(n As Variant, nCHar As Long) As String
     Dim C  As Integer, temp As String
    temp = n
    C = Len(n)
 If C < nCHar Then temp = Space(nCHar - C) & n
     Return temp
 End Function

End Module

grazie

Grande giomi sarebbe stato il mio prossimo script. .
Luigi ha detto che quelle funzioni le ha già implementate. Forse sono sbagliate. In mattinata gli so un occhio.

i legend · 8 Febbraio 2023

Bion giorno a tutti

mirapep · 8 Febbraio 2023

happy ha scritto:

Ciao Giomi, cosi pare funzionare.

Vedi l'allegato 2252922

Codice:

Module MyScript

 
    Public Sub MyScriptRoutine()
        ' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
        ' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
 

Dim M(90, 11) As Variant
Dim Tot As Long
Dim Ini As Long
Dim Fin As Long
Dim Es As Long
Dim Riga As String
Dim R As Long
Dim P As Long
Dim E As Long
Dim T As Long
Tot = 90 * 11 ' 11 Ruote
Ini = EstrazioneIni
Fin = EstrazioneFin 'Estrazione alla quale viene valutato il tabellone
Call Scrivi("Tabellone analitico calcolato all'estrazione del " & DataEstrazione(Fin), True)
Call Scrivi()
Call Scrivi(String(178, "-"), True)
 
 
   For Es = Fin To Ini Step -01
      Call Messaggio(CStr(Es))
      Riga = FormatString((Fin - Es), "00", 2) & "  "
 
     For R = 1 To 11
 
         For P = 01 To 05
            E = Estratto(Es, R, P)
            If M(E, R) = "" Then
               Riga = Riga & FormatString((E), "--", 2) & " "
               M(E, R) = E
               T = T + 01
            Else
               Riga = Riga & "-- "
            End If
         Next
         Riga = Riga & " "
      Next
      Call Scrivi(CStr(Riga), True)
      If T = Tot Then Es = 01
   Next
   Call Scrivi(String(178, "-"), True)


 End Sub
 
 
End Module

Buongiorno,
happy ho provato il codice ma il tabellone non è allineato, sapresti dirmi perchè

Ho risolto impostando su piccolo la dimensione dei caratteri in chrome

La dimensione del carattere si potrebbe anche determinare da

Sub Scrivi(Optional ByVal sText As String = "", Optional Grassetto As Boolean = False, Optional ACapo As Boolean = True, Optional HighlightColor As Long = -1, Optional TextColor As Long = 0, Optional Dimensione As Integer = 100, Optional sFontName As String = "Courier New", Optional bSottolineato As Boolean = False, Optional bBarrato As Boolean = False, Optional bItalic As Boolean = False)

scrive nell'output html il testo voluto applicando la formatttazione voluta , tutti i parametri sono opzionali

genios · 8 Febbraio 2023

Sono rimasto un po' indietro facendo girare lo script mi apre l' archivio ma eseguendo mi da questo errore dove sbaglio ?

giomi · 8 Febbraio 2023

grazie happy,
gia capisco poco di giorno , immaginati di notte .
e' meglio che vada a dormire ,
adesso , se saro sveglio metto l' intestazione ,
graazie

LuigiB · 8 Febbraio 2023

nuovo aggiornamento , dovrei aver risolto i problemi segnalati.
PEr il signor Motta ancora uan volta ho esaudito i suoi desideri .. tra un po mi chiamerai fata turchina..

registrae la dll , se si mette in un altro percorso rispettoa prima pulire i lregistro

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

mirapep · 8 Febbraio 2023

Ciao Luigi, grazie.
Invece, per quanto riguarda twin restare alla 237 o aggiornare?

LuigiB · 8 Febbraio 2023

si puo passare all'ultima versioen diponibile , dovrebeb essere 244

Rookie · 8 Febbraio 2023

Ciao Luigi, con la beta244... che esegue con successo la build ma... da' (a me) due avvisi che solo Wayne puo' capire... e l'eseguibile non parte! Forse bisogna provare con quache beta meno attuale...

p.s. forse permane qualcosa con stringhe UNICODE, dato che la mia tastiera e' specifica per ENG (inglese) ma windows e' localizzato per la Germania. Fatemi sapere se ottenete lo stesso errore con windows ITA e tastiera italiana...

giomi · 8 Febbraio 2023

lotto_tom75 · 8 Febbraio 2023

LuigiB ha scritto:
nuovo aggiornamento , dovrei aver risolto i problemi segnalati.
PEr il signor Motta ancora uan volta ho esaudito i suoi desideri .. tra un po mi chiamerai fata turchina..

registrae la dll , se si mette in un altro percorso rispettoa prima pulire i lregistro

DDLLScript_per_utenti

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Non ho parole fata turchina Luigia

tabella input numeri impeccabile...

e sopratutto... hai risolto anche i problemi di ordinamento tabella...

testato con v.237

range di analisi Id : 1 07/01/1871 Indice Annuale : 1 - Id : 10196 07/02/2023 Indice Annuale : 16
ruote analizzate n. 01.02.03.04.05.06.07.08.09.10.11
gruppo base utilizzato 02.05.06.10.13.16.23.35.38.39.46.50.51.55.56.60.65.73.74.82.83.86 classe 22
sorte di ricerca 4
classe di sviluppo 20
colonne sviluppate 231

413 < tempo in secondi impiegato compreso ordinamento in tabella per ra decrescente : spaziale!

Rookie · 8 Febbraio 2023

lotto_tom75 ha scritto:
Non ho parole fata turchina Luigia

tabella input numeri impeccabile...

e sopratutto... hai risolto anche i problemi di ordinamento tabella...

testato con v.237

range di analisi Id : 1 07/01/1871 Indice Annuale : 1 - Id : 10196 07/02/2023 Indice Annuale : 16
ruote analizzate n. 01.02.03.04.05.06.07.08.09.10.11
gruppo base utilizzato 02.05.06.10.13.16.23.35.38.39.46.50.51.55.56.60.65.73.74.82.83.86 classe 22
sorte di ricerca 4
classe di sviluppo 20
colonne sviluppate 231

413 < tempo in secondi impiegato compreso ordinamento in tabella per ra decrescente : spaziale!

Quindi per ora usate la beta237... , grazie Tom!

Xeroxs · 8 Febbraio 2023

lotto_tom75 ha scritto:
Ciao, io ogni volta devo rimuovere dal vecchio progetto il flag alla dllgiochi e rimetterlo dopo aver chiuso e riaperto il progetto stesso...

Comunque con la nuova release funziona benissimo anche il cambio browser! Top!

ricordo che solo con firefox la struttura tabellare si vede correttamente sviluppata in verticale.
Con gli altri browsers va in orizzontale.. e non è per nulla pratica... a meno di non copiarla su excel.

Codice:

Call ImpostaBrowser("C:\Program Files\Mozilla Firefox\firefox.exe")

Ciao lotto_tom75

volevo chiederti come imposti il browser mozzilla a me non lo apre solo con il call mi da errore

NUOVO AMBIENTE SCRIPT AREA TECNICA

Advanced Member >PLATINUM PLUS<

Banned

Allegati

Banned

Super member

Banned

Super member

Super member

Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Banned

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Banned

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<