NUOVO AMBIENTE SCRIPT AREA TECNICA

[giomi]

il percorso archivio e' esatto .
credo un problema connessione .
per lo scarico utilizza ancora IE ' ?
se puo' essere utile la cartella temp e' vuota

 

[mirapep]

Grazie Luigi, un pò a fatica ma funziona tutto

 

[lotto_tom75]

Luì perchè spesso ad ogni nuova release... della dll i vecchi progetti non si aprono se lanciati in RUN anche se magari si compilano invece senza errori?

 

[Rookie]

per questo devi ringraziare Rookie che ci ha fatto scoprire TwinBasic

Devo dire pero' che il 99.44% del merito e' tuo per aver ri-strutturato e reso indipendente (da ogni dipendenza da altre applicazioni) la dll che fa' tutto o quasi tutto, il lavoro sporco e pesante, il restante 0.55% va ai Beta Testers della stessa (in primis Tom and The Legenday in misura paritetica, in subordine...altri) e' lo 0.01% a completamento del 100%, andrebbe a me per aver discusso con te di una "cosa" che sembrava improponibile oltre che impossibile e invece... con caparpieta' e voler andare oltre ogni ostacolo da parte tua, siamo qui...ormai con le vele spiegate verso l'oggettivazione concreta di un applicazione che puo' avere ulteriori e interessanti sviluppi. Complimenti a voi tre!!! Io aspetto la "release candidate di tB"... fino ad allora studiero' come sfruttare tB per i miei lavori in ambito UX e UI...

p.s. complimenti doverosi anche a Wayne Phillips... ottimo architetto e realizzatore di un progetto notevolmente complesso...

 

[Rookie]

se non altro posso dire che sto in contato con il prncipale responsabile il mitico Wayine Philps ..

Vedi l'allegato 2252870

Ormai la tua fama ha varcato gli italici confini! Mai porre limiti alla provvidenza...!!!

 

[Xeroxs]

Luì perchè spesso ad ogni nuova release... della dll i vecchi progetti non si aprono se lanciati in RUN anche se magari si compilano invece senza errori?

Ciao,

Penso che se abbiamo salvato i progetti con le altre versioni ci portiamo dietro anche i non aggiornamenti fatti successivamente infatti salvando nell'ultimo è tutto ok, almeno per me.

 

[Xeroxs]

Ciao, a me l'aggiornamento funziona.

 

[lotto_tom75]

Ciao,

Penso che se abbiamo salvato i progetti con le altre versioni ci portiamo dietro anche i non aggiornamenti fatti successivamente infatti salvando nell'ultimo è tutto ok, almeno per me.

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.

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

 

[Xeroxs]

ciao ho fatto lo script che oggi mi stava facendo girare gli occhi nelle orbite .
lo script non so se fa i conti giusti sarebbe da controllare
tutto in html perchè non ho ancora scaricato l ultimo aggiornamento
se si porta in un foglio di lavoro il simbolo di split è "|"
in pratica per ogni ruota viene calcolato la presenze degli ambi distribuiti nei mesi
RIPETO DA VERIFICARE , il linguaggio è nuovo per me

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
' script da verificare '

Dim aCp  As Variant
Dim e1 As Long, e2 As Long
ReDim aStat(11, 4005, 14) As Variant
ReDim aE(5) As Long
Dim idEstr As Long, R As Long, Ru As Long, p1 As Long, p2 As Long
Dim idCol As Long, idMese As Long, sum As Long, s As String, pres As Long
   
     caricaId aCp
   
 
        For idEstr = EstrazioneIni To EstrazioneFin
        idMese = Mese(DataEstrazione(idEstr))
        For R = 1 To 11
             GetArrayNumeriRuota idEstr, R, aE
            If aE(1) > 0 Then
            Ordina(aE)
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                idCol = CLng(aCp(aE(p1), aE(p2)))
                aStat(R, idCol, 1) = format2(aE(p1)) & "-" & format2(aE(p2))
                aStat(R, idCol, 2) = R'SiglaRuota(R)
                aStat(R, idCol, idMese + 2) = aStat(R, idCol, idMese + 2) + 1
                Next
            Next
   
            End If
        Next
    Next
    Scrivi "AMBI |RU|GEN|FEB|MAR|APR|MAG|GIU|LUG|AGO|SET|OTT|NOV|DIC|ToT", 1, , RGB(238, 237, 242)
    For R = 1 To 11
        For idCol = 1 To 4005
            s = aStat(R, idCol, 1) & "|" & SiglaRuota(aStat(R, idCol, 2)) & "|"
           sum = 0
           For idMese = 3 To UBound(aStat, 3)
               pres = CLng(aStat(R, idCol, idMese))
               sum = sum + pres
               s = s & formatspace(pres, 3) & "|"
           Next
           Scrivi s & " " & sum
        Next
    Next
 
    Scrivi TempoElaborazioneSecondi
End Sub

Function Mese(sData As Variant) As Long
Return Month(sData)
End Function
Sub caricaId(aCp As Variant)
ReDim aCp(89, 90) As Variant
    Dim e1 As Long, e2 As Long, k As Long
    k = 0
    For e1 = 1 To 89
        For e2 = e1 + 1 To 90
            k = k + 1
            aCp(e1, e2) = k
        Next
    Next
End Sub
Function Ordina(aE As Variant, Optional Verso As Long = 1) As Variant
    Dim i As Variant, j As Variant, temp As Variant
    If Verso = 1 Then
        For i = 1 To UBound(aE) - 1
            For j = i + 1 To UBound(aE)
                If aE(i) > aE(j) Then
                    temp = aE(j)
                    aE(j) = aE(i)
                    aE(i) = temp
                End If
            Next
        Next
    Else
        For i = 1 To UBound(aE) - 1
            For j = i + 1 To UBound(aE)
                If aE(i) < aE(j) Then
                    temp = aE(i)
                    aE(i) = aE(j)
                    aE(j) = temp
                End If
            Next
        Next
    End If
    Return aE
End Function
 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

ditemi come va il confronto con spaziometria

senza usare le nuove funzioni ( quelle super turbo) è piu veloce circa 6 volte
lo script non è ottimizzato ovviamente , le finizze verranno con la pratica

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

 

[happy]

Registrato ultima DLL, con twinBasic (IDE BETA 237) funzionano l'aggiornamento delle estrazioni e la compilazione degli eseguibili.

 

[i legend]

Ciao xerox non ho ancora aggiornato.
Appena mi è possibile scarico l ultima dll e vedo cosa non va.
Ieri funzionava. Non se se i risultati erano esatti ma almeno scriveva.😄

 

[lotto_tom75]

Con la nuova dll non mi funzia più l'ordinamento per colonna nella tabella...

    ReDim aValori(6) As Variant

         aValori(1) = StringaNumeri(aretcol)
         aValori(2) = NomeRuota(ru)
         aValori(3) = int(frz.RetValori.Ritardo)
         aValori(4) = int(frz.RetValori.RitardoMax)
         aValori(5) = int(frz.RetValori.IncrementoRitMax)
         aValori(6) = int(frz.RetValori.Presenze)
      
         Call AddRigaTabella(aValori)
      
Loop
End If
      
      Next ' x ruote      

Call CreaTabella(3)   'con la precedente dll la tabella in questo caso veniva correttamente ordinata per ritardo decrescente... adesso il valore sembra venire invece consderato sempre come stringa... e quindi ordinato in modo anomalo...

es. di output con ordinamento anomalo per ritardo decrescente...
come si nota i valori vengono ordinati secondo la sequenza da sx a dx come fossero una stringa...

 

[mirapep]

Ma aretcol non è dichiarata

 

[lotto_tom75]

Ma aretcol non è dichiarata

no mirapep ho riportato solo il pezzo del code con il problema non tutto in questo caso...

Adesso lo riporto per intero...

Ribadisco: purtroppo è da capire perchè non funziona + l'ordinamento in tabella per la colonna voluta...

'script by tom come esempio sviluppo integrale con analisi statistica senza limite di classe a partire da qualsivoglia gruppo base iniziale e su ruote separate volute con  ordinamento dei risultati finali in tabella


'Call ImpostaBrowser("C:\Program Files\Google\Chrome\Application\chrome.exe")
Call ImpostaBrowser("C:\Program Files\Mozilla Firefox\firefox.exe")
'""C:\Program Files\Mozilla Firefox\firefox.exe""
Dim frz2 As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO ' è una variabile udt che contiene il risultato delal statistica
Dim strBld As ClsStringBuilder
Set strBld = New ClsStringBuilder
Dim es As Long
Dim n As Integer
Dim Ritardo As Long
Dim r As Integer
'Dim av() As String
ReDim aTitoli(6) As String ' titoli tabella
Dim k As Long ' controllo cicli
Dim rt As Integer ' ruota
Dim idEstr As Long 'estrazione inizio analisi
idEstr = EstrazioneFin
Scrivi "Elaborazione con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi
' preimposto i titoli delle colonne
aTitoli(1) = "Numero"
aTitoli(2) = "Ruota"
aTitoli(3) = "Ritardo"
aTitoli(4) = "RitardoMax"
aTitoli(5) = "Incmax"
aTitoli(6) = "Freq"
' inizializzo la tabella
Call InitTabella(aTitoli)
ReDim anumeri(0) As Long
ScegliNumeri(anumeri)
'Dim anum() As Variant
'anum = Array(0, 1, 2, 3, 4, 5)
Dim frz As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
Dim colonnesviluppate As Long
ReDim aretcol(90) As Long
Dim classe As Long
ReDim aValori(6) As Variant
classe = InputBox("classe",,3)
Dim sorte As Long
sorte = InputBox("sorte",,2)
ReDim aruote(0) As Long
aruote = ScegliRuote()
'colonnesviluppate = InitSviluppoIntegrale(anumeri, classe)
Scrivi "RUOTE SCELTE " & StringaNumeri(aruote)
Dim c As Long
Dim ru As Long
For c = 1 To UBound(aruote)
   ru = aruote(c)
   Scrivi
   Scrivi "RUOTA " & ru
   Scrivi
   colonnesviluppate = InitSviluppoIntegrale(anumeri,classe)
   Scrivi "COLONNE SVILUPPATE " & colonnesviluppate
   Scrivi
   If colonnesviluppate > 0 Then
      Do While GetCombSviluppo(aretcol) = True
         'Scrivi StringaNumeri(aretcol)
         StatisticaSingoloEsito(aretcol,EstrazioneIni,EstrazioneFin,sorte,frz,ru)
         Scrivi NomeRuota(ru) & " formaz. " & StringaNumeri(aretcol) & " ra " & frz.RetValori.Ritardo & " rs " & frz.RetValori.RitardoMax & " incmax " & frz.RetValori.IncrementoRitMax & " frq " & frz.RetValori.Presenze
         'Next 'x ruote
         ' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
         ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
         aValori(1) = StringaNumeri(aretcol) ' numero
         aValori(2) = NomeRuota(ru) ' nome ruota
         aValori(3) = Int(frz.RetValori.Ritardo) ' valore del ritardo di quel numero su quella ruota
         aValori(4) = Int(frz.RetValori.RitardoMax)
         aValori(5) = Int(frz.RetValori.IncrementoRitMax)
         aValori(6) = Int(frz.RetValori.Presenze)
         Call AddRigaTabella(aValori)
      Loop
   End If
Next ' x ruote
' Next ' x r
Call CreaTabella(3) ' alimenta dall'alto in basso
'in firefox si visulizza l'output tabellare correttamente! Con gli altri browser no solo in orizzontale...
Scrivi
Scrivi TempoElaborazioneSecondi

 

[lotto_tom75]

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

Anche a me esattamente come a xeroxs con la nuova dll da questo errore quando eseguo ex novo lo script di legend

 

[Rookie]

Anche a me esattamente come a xeroxs con la nuova dll da questo errore quando eseguo ex novo lo script di legend

Sembrerebbe un conflitto di tipo, si aspetta un tipo variant o un tipo a questo assegnabile, per esempio: tb assegna normalmente senza errori a una variabile di tipo variant un tipo long ma da' errore se si forza con un tipo byte o intero...

p.s. L'arte del Debugging e' la via piu' sicura per avviarsi nel percorso che porta alla Programmazione...

 

[giomi]

bodrusG
in merito ai problema aggiornamento estrazioni ,
penso che il problema sia avendo W7 con IE , non riconosca il sito , per la TLS .
infatti anche con spazio , fallisce ,
rimediero usando i listati postati in precedenza o quelli postati per I Legend .
grazie

 

[LuigiB]

bodrusG
in merito ai problema aggiornamento estrazioni ,
penso che il problema sia avendo W7 con IE , non riconosca il sito , per la TLS .
infatti anche con spazio , fallisce ,
rimediero usando i listati postati in precedenza o quelli postati per I Legend .
grazie

c'è un api d windows , urlodownloadtofile che ovviamente usa le impostazioni di sistema.

 

[LuigiB]

wayne .. forse batman ... ci informa che si puo scaricare la version 244 non ci dovrebbe essere piu il problema della label

 

[LuigiB]

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.