Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
LuigiB ha scritto:
legend hai una propenisone ad usare le variabili variant e a scrivere da solo funzioni che gia ci sono...
Clicca per espandere...
allora le funzioni non le ho trovate :(
come avrei dovuto dichiarare le variabili
ad esempio la matrice a(89,90) come la dichiaro correttamente e la passo alla sub?


xTom pt1.png
aV(3)
aV(0)="1.2.3.4.5"
aV(1)="1|2|3|4|5"
aV(2)="1$2$3$3$5"
a(0)="."
a(1)="|"
a(2)="$"
For i = 0 To UBound(aV)
Dim aE As Variant = Split(aV(i), a(i))
s = ""
For j = 0 To UBound(aE)
s = s & aE(j) & "^"
Next
scrivi s
Next

a me funzia splitta tutti i caratteri, poi magari tu utilizzi separatori diversi da questi e ti da errore
fammi sapere
 
i legend ha scritto:
allora le funzioni non le ho trovate :(
come avrei dovuto dichiarare le variabili
ad esempio la matrice a(89,90) come la dichiaro correttamente e la passo alla sub?


xTom Vedi l'allegato 2252837
aV(3)
aV(0)="1.2.3.4.5"
aV(1)="1|2|3|4|5"
aV(2)="1$2$3$3$5"
a(0)="."
a(1)="|"
a(2)="$"
For i = 0 To UBound(aV)
Dim aE As Variant = Split(aV(i), a(i))
s = ""
For j = 0 To UBound(aE)
s = s & aE(j) & "^"
Next
scrivi s
Next

a me funzia splitta tutti i caratteri, poi magari tu utilizzi separatori diversi da questi e ti da errore
fammi sapere
Clicca per espandere...


15
1^2^3^4^5^
1^2^3^4^5^
1^2^3^3^5^
^

Split così funziona
Credo anche splitXX

👌👍

'Notte 👋🙂
 
Good morning :)
Ho notato facendo delle prove che il formato tabellare che in edge e in chrome si legge erroneamente per orizzontale in firefox invece viene correttamente visualizzato! Grande volpe di fuoco! 🦊🔥💪 Quindi mi domandavo se fosse possibile cambiare il browser di uscita per tweenbasic o addirittura per un solo script di tweenbasic senza doverlo per forza impostare come nuovo browser predefinito di windows... E' possibile? Se si... come???

visualizzazionetabellarecorrettainfirefox.jpg

Un'altra piccola... question...

sto provando a utilizzare la funzione sviluppointegrale... ma continua a dirmi errore non specificato se eseguo questo code...

Codice: 
Dim anumeri() As Long
anumeri = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
Dim c As Integer
For c = 0 To UBound(anumeri)
Scrivi anumeri(c)
Next
Dim colonnesviluppate As Double
SviluppoIntegrale(anumeri, 2, colonnesviluppate)

why? :rolleyes:


👋:)
 
Ultima modifica:
lotto_tom75 ha scritto:
Good morning :)
Ho notato facendo delle prove che il formato tabellare che in edge e in chrome si legge erroneamente per orizzontale in firefox invece viene correttamente visualizzato! Grande volpe di fuoco! 🦊🔥💪 Quindi mi domandavo se fosse possibile cambiare il browser di uscita per tweenbasic o addirittura per un solo script di tweenbasic senza doverlo per forza impostare come nuovo browser predefinito di windows... E' possibile? Se si... come???

Vedi l'allegato 2252865

Un'altra piccola... question...

sto provando a utilizzare la funzione sviluppointegrale... ma continua a dirmi errore non specificato se eseguo questo code...

Codice: 
Dim anumeri() As Long
anumeri = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
Dim c As Integer
For c = 0 To UBound(anumeri)
Scrivi anumeri(c)
Next
Dim colonnesviluppate As Double
SviluppoIntegrale(anumeri, 2, colonnesviluppate)

why? :rolleyes:


👋:)
Clicca per espandere...

Ciao non comprendo la dichiarazione di colonnesviluppate
 
mirapep ha scritto:
Ciao non comprendo la dichiarazione di colonnesviluppate
Clicca per espandere...

Ciao mirapep, io mi sono riferito all'help dell'ultima distribuzione dll riguardo la voce sviluppointegrale:

SviluppoIntegrale
SviluppoIntegrale(aNumeri() As Long, Classe As Long, Optional ByRef nRetIntegrali As Double = 0, Optional bTornaCollectionColonne As Boolean = False) As Variant

al posto di nRetIntegrali le ho chiamate colonnesviluppate

:)
 
ciao attualmente per sviluppare il sistema dovete fare InitSviluppo , quelal funziona quell'altra avro fatto qualche cazzata io che poi guardero.
 
cancellato xchè risolto... :D
non avevo dichiarato correttamente aretcol
ReDim aretcol(90) As Long

Così funziona...

Codice: 
ReDim anumeri(3) As Long
 
anumeri(1) = 1
 anumeri(2) = 2
 anumeri(3) = 3

Dim colonnesviluppate As Long
ReDim aretcol(90) As Long
Dim classe As Long
classe = inputbox("classe",,3)
colonnesviluppate = InitSviluppoIntegrale(anumeri, classe)
Scrivi "COLONNE SVILUPPATE " & colonnesviluppate
If colonnesviluppate > 0 Then

Do While GetCombSviluppo(aretcol) = True
Scrivi StringaNumeri(aretcol)
Loop
End If
Scrivi
Scrivi TempoElaborazioneSecondi


Però se considerò un array caricato... in questo altro modo... continua a darmi errore...

Codice: 
anumeri = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)

Dim colonnesviluppate As Long
ReDim aretcol(90) As Long
Dim classe As Long
classe = 3
colonnesviluppate = InitSviluppoIntegrale(anumeri, classe)
Scrivi "COLONNE SVILUPPATE " & colonnesviluppate
If colonnesviluppate > 0 Then

Do While GetCombSviluppo(aretcol) = True
Scrivi StringaNumeri(aretcol)
Loop
End If
Scrivi
Scrivi TempoElaborazioneSecondi


Anche così funziona alla grande...

Codice: 
ReDim anumeri(0) As Long
ScegliNumeri(anumeri)

Dim colonnesviluppate As Long
ReDim aretcol(90) As Long
Dim classe As Long
classe = 3
colonnesviluppate = InitSviluppoIntegrale(anumeri, classe)
Scrivi "COLONNE SVILUPPATE " & colonnesviluppate
If colonnesviluppate > 0 Then

Do While GetCombSviluppo(aretcol) = True
Scrivi StringaNumeri(aretcol)
Loop
End If
Scrivi
Scrivi TempoElaborazioneSecondi


A proposito della funzione sceglinumeri se fosse possibile la farei + simile possibile a quella top presente in spaziometria con la possibilità sopratutto di copiare e incollare il gruppo numerico base voluto anzichè doverlo selezionare e importare un singolo elemento alla volta...

Mi sono accorto che il nuovo motore di sviluppo integrale che hai implementato in tween basic Luigi non ha il limite di classe presente nell'altro di spazio!!! WOW!!! strepitoso!!! :eek:👍👍👍👍👍
 
Ultima modifica:
nuovo aggiornamento

riregistrare la dll

c'è un esempio dello sviluppo che non funzionava , l'aggioramento delel estrazioni , la possibilità di impostare un browser specifico per aprire l'output.

www.mediafire.com

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
 
LuigiB ha scritto:
scusi Bistefani , l'ha gia provata la funzione scegli numeri ?
Clicca per espandere...

Si :D top! 👍

in effetti la possibilità del copia incolla c'è già :) notato solo adesso... solo che aggiungerei anche la possibilità di invertire i selezionati... e i flag x selezionare per righe e colonne come è appunto possibile fare in spazio sempre che non sia un lavorone per lei dottor Barbieri ;)
 
LuigiB ha scritto:
non so se capita pure a voi ma io non riesco a compilare gli eseguibili , da un errore inspiegabile ..
Clicca per espandere...

io per adesso testo in ambiente di debug con il run e basta comunque se vuoi provo anche i relativi exe

sempre nell'ottica di benchmark test...

ho provato a sviluppare le relative formazioni integrali in classe 86 by 90 con step riduzionale proibitivo... di valore 4
e infatti pur sperando che ce la facesse a supportare un simile carico... anche tween basic dopo un bel pò... ha mollato la presa... dandomi un bel...

COLONNE SVILUPPATE 2555190


nomralecheneanchetweenbasicsupportiunsimilecarico.jpg

E' normale?

Anche con tweenbasic non arriviamo a sviluppare oltre 2 milioni di colonne?
 
Ultima modifica:
LuigiB ha scritto:
in ambiente di debug è piu lento perdi parecchio a non fare l'exe uan volta che hai messo a punto lo script... perche diavolo non si compilano piu gli exe anche se il progetot non ha errori non è chiaro..
Clicca per espandere...

Dunque ho provato a colpilare l'exe ma...

mi da il seguente errore:


[TYPELIB] failed to create typelibrary interface procedure names '_frmScegliOpzione.AlimentaLista'.
[TYPELIB] failed to set coclass inheritence on 'frmScegliOpzione'.
[LINKER] FAILED to create type library
[BUILD] failed

😵‍💫
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 aprile 2025
    Bari
    82
    36
    16
    03
    81
    Cagliari
    46
    13
    40
    47
    09
    Firenze
    23
    87
    68
    48
    86
    Genova
    12
    68
    63
    41
    17
    Milano
    66
    58
    51
    21
    61
    Napoli
    84
    32
    71
    61
    22
    Palermo
    69
    18
    82
    75
    12
    Roma
    64
    78
    54
    89
    05
    Torino
    68
    49
    86
    23
    25
    Venezia
    29
    18
    44
    25
    47
    Nazionale
    02
    74
    67
    88
    84
    Estrazione Simbolotto
    Genova
    29
    38
    43
    03
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto