NUOVO AMBIENTE SCRIPT AREA TECNICA

[lotto_tom75]

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

Vedi l'allegato 2252870

Io non sono certo Philips ma forse... questa volta ho trovato il perchè non faceva + gli exe...

disabilitando o meglio commentando il seguente code... (a cui sono arrivato dai messaggi di alert che mi dicevano che il build era fallito...)

frmscegliopzione.twin

Class frmScegliOpzione
    Sub New()
    End Sub
  
    Private Sub Form_Load()
        AbilitaButton
    End Sub
    Sub AlimentaLista(aVoci() As String)
        Dim k As Long
      
        cmbMenu.Clear
      
        For k = 0 To UBound(aVoci)
            cmbMenu.AddItem (aVoci(k))
        Next
    End Sub
    Sub AlimentaLista(aVoci() As String, aItemdata() As Long)
        Dim k As Long
      
        cmbMenu.Clear
        If UBound(aItemdata) = UBound(aVoci) Then
      
            For k = 0 To UBound(aVoci)
                cmbMenu.AddItem (aVoci(k))
                cmbMenu.ItemData (cmbMenu.NewIndex) = aItemdata (k)
            Next
        Else
            MsgBox "Item data deve aver lo stesso numero di elementi di voci", vbExclamation
        End If
    End Sub
    Private Sub pbOk_Click()
        Me.Tag = "ok"
        Me.Hide
      
    End Sub
  
    Private Sub pbAnnulla_Click()
        Me.Tag = ""
        Me.Hide
      
    End Sub
    Sub AbilitaButton()
            pbOk.Enabled = cmbMenu.ListIndex >= 0
           
      
    End Sub
  
    Private Sub cmbMenu_Change()
      
    End Sub
  
    Private Sub cmbMenu_Click()
        AbilitaButton
    End Sub
  
  
End Class

commentando questo code soprastante la compilazione degli exe è ripartita con le due classiche diciture in verde

Impresionnante con l'EXE...

COLONNE SVILUPPATE 91390 formazioni integrali in classe 36 by gruppo base di classe 40 in 46 secondi!

 

[mirapep]

Io non sono certo Philips ma forse... questa volta ho trovato il perchè non faceva + gli exe...

disabilitando o meglio commentando il seguente code... (a cui sono arrivato dai messaggi di alert che mi dicevano che il build era fallito...)

frmscegliopzione.twin

Class frmScegliOpzione
    Sub New()
    End Sub
 
    Private Sub Form_Load()
        AbilitaButton
    End Sub
    Sub AlimentaLista(aVoci() As String)
        Dim k As Long
     
        cmbMenu.Clear
     
        For k = 0 To UBound(aVoci)
            cmbMenu.AddItem (aVoci(k))
        Next
    End Sub
    Sub AlimentaLista(aVoci() As String, aItemdata() As Long)
        Dim k As Long
     
        cmbMenu.Clear
        If UBound(aItemdata) = UBound(aVoci) Then
     
            For k = 0 To UBound(aVoci)
                cmbMenu.AddItem (aVoci(k))
                cmbMenu.ItemData (cmbMenu.NewIndex) = aItemdata (k)
            Next
        Else
            MsgBox "Item data deve aver lo stesso numero di elementi di voci", vbExclamation
        End If
    End Sub
    Private Sub pbOk_Click()
        Me.Tag = "ok"
        Me.Hide
     
    End Sub
 
    Private Sub pbAnnulla_Click()
        Me.Tag = ""
        Me.Hide
     
    End Sub
    Sub AbilitaButton()
            pbOk.Enabled = cmbMenu.ListIndex >= 0
          
     
    End Sub
 
    Private Sub cmbMenu_Change()
     
    End Sub
 
    Private Sub cmbMenu_Click()
        AbilitaButton
    End Sub
 
 
End Class

commentando questo code soprastante la compilazione degli exe è ripartita con le due classiche diciture in verde

Impresionnante con l'EXE...

COLONNE SVILUPPATE 91390 formazioni integrali in classe 36 by gruppo base di classe 40 in 46 secondi!

Tom puoi inserire il codice che voglio verificare sul mio pc

 

[lotto_tom75]

L'avevo già fatto ma non c'è possibilità di scegliere il percorso e rinominare il file. Nella cartella build non c'è nulla

Mira devi verificare se al momento del Make/Build nella finestra di dialogo di debug anzichè darti due voci in verde... launch exe e open folder hai una in rosso BUILD FAILED

Se hai quella in rosso al 99% il motivo è perchè nella penultima release del nostro amato Chief c'è un piccolo bug nel formscegliopzione. Commentando tutto il relativo code riparte anche la compilazione degli exe.

 

[lotto_tom75]

Tom puoi inserire il codice che voglio verificare sul mio pc

Il code del formscegliopzione che genera l'errore in fase di compilazione l'ho postato sopra... altrimenti a quale ti riferisci?

 

[mirapep]

Infatti c'è build failed

 

[i legend]

Purtroppo è una questione che avrei segnalato oggi
Facendo build non funzia.
Io non ho neanche aggiornato.

 

[lotto_tom75]

Infatti c'è build failed

Appunto riparte tutto se commenti il code relativo al formscegliopzione evidenziato nell'immagine sottostante...

 

[mirapep]

COLONNE SVILUPPATE 91390 formazioni integrali in classe 36 by gruppo base di classe 40 in 46 secondi!

mi riferisco a questo

 

[i legend]

X tom
Tom per non dare errori
L array va dichiarato variant

Dim anum() as variant = array(0,1,2,3,4,5)
Prova così

 

[lotto_tom75]

Purtroppo è una questione che avrei segnalato oggi
Facendo build non funzia.
Io non ho neanche aggiornato.

Legend ho trovato da cosa dipende.. leggi sopra e guarda qui sotto A me così è ripartito alla grande!

 

[lotto_tom75]

X tom
Tom per non dare errori
L array va dichiarato variant

Dim anum() as variant = array(0,1,2,3,4,5)
Prova così

No legend avevo provato anche quella opzione...
ma anche riprovandoci
quando vado a testare initsviluppointegrale per vettore fisso... senza redim
mi da sempre...

 

[mirapep]

Fatto ma continua a dare build failed

 

[lotto_tom75]

mi riferisco a questo

'script by tom
          
ReDim anumeri(0) As Long
ScegliNumeri(anumeri)             ' ne scegli 40 a caso... 

Dim colonnesviluppate As Long
ReDim aretcol(90) As Long
Dim classe As Long
classe = inputbox("classe",,36) 
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

 

[lotto_tom75]

Fatto ma continua a dare build failed

Allora non so che dirti... aspetta lo Chief che sicuramente avrà a brevissimo una patch risolutiva anche per questo

 

[LuigiB]

aggiornate con la nuova versione , c'è da dire grazie a Filippo !

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

 

[lotto_tom75]

aggiornate con la nuova versione , c'è da dire grazie a Filippo !

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

Grazie Filippo!

Nel frattempo..


testato sviluppo integrale con tanto di statistica a step 5 by 30 ovvero x A su BA in classe 25 by gruppo base casuale di 30 elementi...

COLONNE SVILUPPATE 142506
Bari formaz. 01.02.03.04.05.06.07.08.09.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25 ra 2 rs 17 incmax 0 frq 2708
...

in soli... 527 secondi

ovvero 9 min ca

In spaziometria non sarebbe stato possibile... in un tempo così' risicato...

 

[giomi]

ciao , ho provato l' aggiornamento estrazioni ma da errore .
grazie

 

[LuigiB]

Grazie Filippo!

Nel frattempo..


testato sviluppo integrale con tanto di statistica a step 5 by 30 ovvero x A su BA in classe 25 by gruppo base casuale di 30 elementi...

COLONNE SVILUPPATE 142506
Bari formaz. 01.02.03.04.05.06.07.08.09.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25 ra 2 rs 17 incmax 0 frq 2708
...

in soli... 527 secondi

ovvero 9 min ca

In spaziometria non sarebbe stato possibile... in un tempo così' risicato...

per questo devi ringraziare Rookie che ci ha fatto scoprire TwinBasic

 

[LuigiB]

ciao , ho provato l' aggiornamento estrazioni ma da errore .
grazie

che errore ti da ?

 

[lotto_tom75]

per questo devi ringraziare Rookie che ci ha fatto scoprire TwinBasic

Grazie Rookie! 👍👌🙏👋😃