Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
come si dice dalle mie parti "je l'avemo fatta" .. però non è finita .. guarda bene il codice ogni tot righe devi fare i lflush sul file .
 
LuigiB ha scritto:
come si dice dalle mie parti "je l'avemo fatta" .. però non è finita .. guarda bene il codice ogni tot righe devi fare i lflush sul file .
Clicca per espandere...

Ti riferisci a questo carissimo Bastianich? 😜

Codice: 
If nTrovate Mod 1000 = 0 Then

                            Call strBld.SaveToFile(sFileOut, True)
                            strBld.Reset

  End If

Infatti se provo ad utilizzarlo senza... dopo un pò mi dice che il file txt di output è utilizzato da un altro programma e non mi ci fa scrivere sopra... 🙄


Ad ogni modo anche se non da + errore...

nel file txt di output fileprova.txt non mi scrive nulla... 🫤

Codice: 
Dim sFileOut As String
sFileOut = ".\fileprova.txt"
Dim strBld As ClsStringBuilder
Set strBld = New ClsStringBuilder
Dim es As Long
For es = 1 To 1000000

If es Mod 1000 = 0 Then
Call strBld.AddLinea("es " & es)
Call strBld.SaveToFile(sFileOut, True)
strBld.Reset
End If


Next



Scrivi
Scrivi TempoElaborazioneSecondi



End Sub
 
Ultima modifica:
Ciao domandina
Ho riportato uno script da spaziometria a twb
Messaggio indice oltre i limite della matrice
Credo sia questa
[11,4005,14]
Spaziometria la regge benissimo.
 
lotto_tom75 ha scritto:
Ti riferisci a questo carissimo Bastianich? 😜

Codice: 
If nTrovate Mod 1000 = 0 Then

                            Call strBld.SaveToFile(sFileOut, True)
                            strBld.Reset

  End If

Infatti se provo ad utilizzarlo senza... dopo un pò mi dice che il file txt di output è utilizzato da un altro programma e non mi ci fa scrivere sopra... 🙄


Ad ogni modo anche se non da + errore...

nel file txt di output fileprova.txt non mi scrive nulla... 🫤

Codice: 
Dim sFileOut As String
sFileOut = ".\fileprova.txt"
Dim strBld As ClsStringBuilder
Set strBld = New ClsStringBuilder
Dim es As Long
For es = 1 To 1000000

If es Mod 1000 = 0 Then
Call strBld.AddLinea("es " & es)
Call strBld.SaveToFile(sFileOut, True)
strBld.Reset
End If


Next



Scrivi
Scrivi TempoElaborazioneSecondi



End Sub
Clicca per espandere...
prova a scrivere i lpercoro del file out senza .\ , bensi con app.path eventualmente . .
 
LuigiB ha scritto:
prova a scrivere i lpercoro del file out senza .\ , bensi con app.path eventualmente . .
Clicca per espandere...

Benchmark extreme test su 45 mln quasi riuscito :D

nel senso che ho interrotto io perchè pensavo si fosse impallato invece stava continuando e gli mancava solo gli ultimi 5 mln di righe... scritte tutte su file txt da 4 gb ca complessivo in ca 20 min di tempo totale

40.230.600 << fermatomi qui...

Nel complesso straordinario davvero! (y)💪😜 Grandissimo Chief Barbieri 😄
 
Provando le funzioni di statistica...

Codice: 
'script PROVA by tom
Dim sFileOut As String

'Dim frz As STRUCT_FRZ_STATISTICA_TUTTI_GLI_ESITI ' è una variabile udt che contiene il risultato delal statistica

Dim frz2 As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO ' è una variabile udt che contiene il risultato delal statistica

sFileOut = ".\fileprova.txt"
Dim strBld As ClsStringBuilder
Set strBld = New ClsStringBuilder
Dim es As Long
Dim n As Integer

Dim Ritardo As Long

For n = 1 To 90

'Call Statistica(n, EstrazioneIni, EstrazioneFin, frz, 2)

Call StatisticaSingoloEsito(n, EstrazioneIni, EstrazioneFin, 1, frz2, 2)

Scrivi "RUOTA " & NomeRuota(2) & " ra " & frz2.RetValori.Ritardo & " rs " & frz2.retvalori.ritardomax & " incmax " & frz2.retvalori.IncrementoRitMax & " fq " & frz2.RetValori.Presenze
'Call Scrivi(FormatString(CStr(frz.RetValori.Ritardo), "    ", 2), 1, 0)

Next


Scrivi
Scrivi TempoElaborazioneSecondi



End Sub

Dire che è veloce è un eufemismo...
meno di 1 sec per mostrare in output i risultati di tutti i 90 numeri... :eek:
2 secondi per avere quelli di tutte le 10 ruote... :eek:

Ad ogni modo se provo la stessa cosa con frz e con la funzione statistica mi da errore anche solo in fase di stesura del codice... Non riesco in sostanza ad agganciare i valori ritardo, ritardo massimo ecc... come invece riesco a fare per la funzione statisticasingoloesito

why? :unsure:

Inoltre..

provando ad ordinare i risultati tramite ordinamatrice... dopo averli raccolti in una matrice "raccolta"

provandoordinamatrice.jpg



👋🙃
 
Ultima modifica:
Chiedo scusa anticipatamente per la castroneria che sto scrivendo. Si stanno eseguendo dei test di velocità . Ma il continuo ricorso al call funzioni esterne non rallenta?
 
mirapep ha scritto:
Chiedo scusa anticipatamente per la castroneria che sto scrivendo. Si stanno eseguendo dei test di velocità . Ma il continuo ricorso al call funzioni esterne non rallenta?
Clicca per espandere...
bene allora le funzioni le chiamiamo col pensiero cosi fa prima ... tutti i programm isono fattidi routine ...e chiamate alle stesse , tranne i programmi del signor Battistefani :-)
 
lotto_tom75 ha scritto:
Provando le funzioni di statistica...

Codice: 
'script PROVA by tom
Dim sFileOut As String

'Dim frz As STRUCT_FRZ_STATISTICA_TUTTI_GLI_ESITI ' è una variabile udt che contiene il risultato delal statistica

Dim frz2 As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO ' è una variabile udt che contiene il risultato delal statistica

sFileOut = ".\fileprova.txt"
Dim strBld As ClsStringBuilder
Set strBld = New ClsStringBuilder
Dim es As Long
Dim n As Integer

Dim Ritardo As Long

For n = 1 To 90

'Call Statistica(n, EstrazioneIni, EstrazioneFin, frz, 2)

Call StatisticaSingoloEsito(n, EstrazioneIni, EstrazioneFin, 1, frz2, 2)

Scrivi "RUOTA " & NomeRuota(2) & " ra " & frz2.RetValori.Ritardo & " rs " & frz2.retvalori.ritardomax & " incmax " & frz2.retvalori.IncrementoRitMax & " fq " & frz2.RetValori.Presenze
'Call Scrivi(FormatString(CStr(frz.RetValori.Ritardo), "    ", 2), 1, 0)

Next


Scrivi
Scrivi TempoElaborazioneSecondi



End Sub

Dire che è veloce è un eufemismo...
meno di 1 sec per mostrare in output i risultati di tutti i 90 numeri... :eek:
2 secondi per avere quelli di tutte le 10 ruote... :eek:

Ad ogni modo se provo la stessa cosa con frz e con la funzione statistica mi da errore anche solo in fase di stesura del codice... Non riesco in sostanza ad agganciare i valori ritardo, ritardo massimo ecc... come invece riesco a fare per la funzione statisticasingoloesito

why? :unsure:

Inoltre..

provando ad ordinare i risultati tramite ordinamatrice... dopo averli raccolti in una matrice "raccolta"

Vedi l'allegato 2252818



👋🙃
Clicca per espandere...
attualmente quelle 2 funzioni non funzionano , perstasera veidamose le sistemo ..
 
LuigiB ha scritto:
bene allora le funzioni le chiamiamo col pensiero cosi fa prima ... tutti i programm isono fattidi routine ...e chiamate alle stesse , tranne i programmi del signor Battistefani :)
Clicca per espandere...
per rispondere seriamente abbiamo gia dimostrato di quanto si rallenta se le funzoni della dlle le scrivessimo direttamente in twinbasic ..
 
mirapep ha scritto:
Mi riferivo al lavoro di tom. Forse un programma dedicato.............................
Clicca per espandere...
no perche ripeto mettendo direttamente in twinbasic le stesse funzioni è lento come la quaresima senza calcolare che risulta difficile scrivere tutte le funzioni che servono e articolare il progetto ..dai test che dta facendo lottotom mi pare che la velocita sia soddisfacente .. se poi la paragoni agl iscript di spaziometria ancora di piu ..
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 aprile 2026
    Bari
    17
    71
    26
    06
    73
    Cagliari
    35
    72
    04
    61
    78
    Firenze
    22
    30
    46
    57
    81
    Genova
    77
    48
    17
    59
    64
    Milano
    90
    02
    32
    08
    57
    Napoli
    04
    71
    12
    77
    76
    Palermo
    42
    87
    07
    24
    56
    Roma
    32
    67
    03
    44
    38
    Torino
    25
    48
    17
    09
    50
    Venezia
    15
    81
    10
    03
    86
    Nazionale
    76
    20
    38
    59
    80
    Estrazione Simbolotto
    Genova
    28
    04
    02
    41
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto