NUOVO AMBIENTE SCRIPT AREA TECNICA

[Rookie]

Ciao luigi ho cercato in rete , ma non sono riuscito a trovare nulla in vb6 .
Che si possa adattare a twb.
Devo creare una matrice di controlli (
label)
Questa sarà dinamica.
Ossia
Redim aEvidenza(0 to 11, 1 to max 30)

Le stavo copiando a mano ma quando ho cercato di duplicare la seconda riga e rinominarlo come array mi si è impallato il twb . Sono 10 minuti che aspetto.

Se riuscissi a crearla da codice sarebbe perfetto così non devo rendere visibili solo quelle utilizzate.
Potresti darmi qualche suggerimento?
Penso che dovrei usare
set cnt as new controll ( o qualcosa del genere?)
P.s : ho dovuto spegnerlo per fortuna non ho perso nulla. Sto salvando ogni funzione.

Ciao iLegend, se descrivi meglio cosa stai cercando di ottenere, sara' piu' facile capire cosa ti serve per realizzarlo...

 

[LuigiB]

ciao Legend devo darti una brutta notizia , in twinbasic non è possible creare controlli a runtime anche se in vb6 lo era.
Ci sono pure dei messaggi al riguardo su github .. purtroppo devi trovare u nescamotage ..

 

[i legend]

Grazie Rookie
Grazie Luigi.
Ok. Li scrivo a mano
C è un limite massimo di controlli su un form ?

Stamattina ho una visita appena torno a casa posto un immagine di quello che volevo fare, ma ho già in mente un alternativa ma non so se si può fare.
a dopo.
Buona giornata a tutti

 

[LuigiB]

se i controlli sono in array non occupano tanta memoria , pero rimane scomodo dover riempire i lform di controlli , a proposito scarica l'ultimissima versione di twinbasic perche le precedenti avevano un bug che ogni tanto crashava tutto.
pensa se dovessi realizzare la griglia delle estrazioni 50 righe e 55 colonne .. il minimo sindacale ... avoglia a caricare controlli in fase di progettazione.. ci vuole un altro escamotage ma devi spiegare cosa vuoi ottenere anche con qualche mmagine per vedere quale sia la strada giusta.

 

[i legend]

Ok a dopo
Grazie Luigi.

 

[i legend]

ciao a tutti :
mi sta venendo fuori questo errore.
non capisco perchè .
i controlli li copio una alla volta perche se copio una riga intera si impalla.



sono indeciso se analizzare tutte le ruote o solo quelle selezionate

 

[Rookie]

ciao a tutti :
mi sta venendo fuori questo errore.
non capisco perchè .
i controlli li copio una alla volta perche se copio una riga intera si impalla.
Vedi l'allegato 2254958
Vedi l'allegato 2254959
Vedi l'allegato 2254957
sono indeciso se analizzare tutte le ruote o solo quelle selezionate

Ciao iLegend potrebbe essere un errore simile a quello che ho segnalato in questo messaggio > qui che ricorre praticamente sempre quando per snellire incolli i controlli che sono raccolti in un unico array, dove questa azione fa' impantanare tB sopratutto se fai variazioni manuali all'indice per puntare al controllo.

Seleziona uno dei controlli gestito con l'array e poi clicca su properties per vedere come essi sono stati indicizzati, se hanno uno stesso indice utilizzato da un tipo di controllo diverso o e' puntato anche da un array diverso ....

Praticamente, devi assicurarti che l'Indice dei controlli sia unico per quel tipo di controllo e per l'array con cui lo gestirai.
Verficare questo richiede solo qualche secondo dall'apertura del progetto, almeno potrai scartare questo tipo di problema.

 

[i legend]

Grazie Rookie, ogni riga è un array diverso.
Il primo è lblBari (0 to 20)
Ol secondo è lblCagliari (0 to 20)
E memore di quanto avevi segnalato quando copio controllo sempre l indice successivo.

Ora sto utilizzando la beta 264
Possiamo dire che siamo una squadra di beta tester

 

[Rookie]

Grazie Rookie, ogni riga è un array diverso.
Il primo è lblBari (0 to 20)
Ol secondo è lblCagliari (0 to 20)
E memore di quanto avevi segnalato quando copio controllo sempre l indice successivo.

Ora sto utilizzando la beta 264
Possiamo dire che siamo una squadra di beta tester

E' proprio come dici, ma anche in questo modo s'impara molto...dagli errori e dai problemi temporanei di tB!

 

[lotto_tom75]

ciao a tutti sto impazzendo con la versione 261 [dll22] nel cercare di capire perchè questo sviluppo che mi necessiterebbe per affrontare il punto 2 della mia check list di robot boss twb continua a darmi errore...

Module MyScript
Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
' NON MODIFICARE IL NOME DI QUESTA SUB

Dim numeroruoteunite As Long
Dim quanteruoteuniteminimo As Long
Dim quanteruoteunitemassimo As Long
Dim coltotruoteunite As Long
Dim ruotescelte() As Variant
Dim acolruoteunite() As Long
quanteruoteuniteminimo = 2
quanteruoteunitemassimo = 6
ruotescelte = Array(1,2,3,4,5,6)
For numeroruoteunite = quanteruoteuniteminimo To quanteruoteunitemassimo
   coltotruoteunite = InitSviluppoIntegrale(ruotescelte,numeroruoteunite)
   Scrivi coltotruoteunite
   If coltotruoteunite > 0 Then
      Do While GetCombSviluppo(acolruoteunite) = True
         Scrivi StringaNumeri(acolruoteunite)
      Loop
   End If
   If bScriptInterrotto Then Exit For
Next
End Sub

L'errore è il seguente...






e sembra che si riferisca a questo pezzo di code

   If coltotruoteunite > 0 Then
      Do While GetCombSviluppo(acolruoteunite) = True
         Scrivi StringaNumeri(acolruoteunite)
      Loop
   End If

perchè se lo remmo... non lo da più...

muchas gracias

 

[Rookie]

ciao a tutti sto impazzendo nel cercare di capire perchè questo sviluppo che mi necessiterebbe per affrontare il punto 2 della mia check list di robot boss twb continua a darmi errore...

Module MyScript
Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
' NON MODIFICARE IL NOME DI QUESTA SUB

Dim numeroruoteunite As Long
Dim quanteruoteuniteminimo As Long
Dim quanteruoteunitemassimo As Long
Dim coltotruoteunite As Long
Dim ruotescelte() As Variant
Dim acolruoteunite() As Long
quanteruoteuniteminimo = 2
quanteruoteunitemassimo = 6
ruotescelte = Array(1,2,3,4,5,6)
For numeroruoteunite = quanteruoteuniteminimo To quanteruoteunitemassimo
   coltotruoteunite = InitSviluppoIntegrale(ruotescelte,numeroruoteunite)
   Scrivi coltotruoteunite
   If coltotruoteunite > 0 Then
      Do While GetCombSviluppo(acolruoteunite) = True
         Scrivi StringaNumeri(acolruoteunite)
      Loop
   End If
   If bScriptInterrotto Then Exit For
Next
End Sub

L'errore è il seguente...


Vedi l'allegato 2254970



e sembra che si riferisca a questo pezzo di code

   If coltotruoteunite > 0 Then
      Do While GetCombSviluppo(acolruoteunite) = True
         Scrivi StringaNumeri(acolruoteunite)
      Loop
   End If

perchè se lo remmo... non lo da più...

muchas gracias

Dal messaggio di errore, sembrerebbe che il quibus si trovi da un'altra parte del codice. Il riferimento e' ad un costrutto With/End With dove non avresti impostato correttamente qualche proprieta' di un oggetto...che stai usando. Ma dal codice mostrato qui non si ravvisa nulla...

 

[i legend]

Ciao prova a far partire l array da 1
Metti uno zero prima .
Array(0,1,2,3,4,5,6)

 

[lotto_tom75]

Dal messaggio di errore, sembrerebbe che il quibus si trovi da un'altra parte del codice. Il riferimento e' ad un costrutto With/End With dove non avresti impostato correttamente qualche proprieta' di un oggetto...che stai usando. Ma dal codice mostrato qui non si ravvisa nulla...

Ciao prova a far partire l array da 1
Metti uno zero prima .
Array(0,1,2,3,4,5,6)

Dunque purtroppo ragazzi... nisba nel senso che per quanto riguarda l'ipotesi di rookie , il code relativo non si riferisce a nessun form con oggetti ma solo al relativo modulo essendo solo un code di prova staccato completamente dal progetto del robot boss e per quanto riguarda legend ho provato anche a mettere lo 0 come suggerito ma nada... l'errore persiste... Grz comunque

 

[LuigiB]

 

[LuigiB]

 

[LuigiB]

 

[LuigiB]

 

[i legend]

Dim ncls as long
Dim asR as string= "1,2,3,4,5,6,7"
For ncls=2 to 7
Redim aR(ncls) as long
Initsviluppointegrale(asr,ncls)

Do while getcombsviluppo(aR)
Scrivi stringanumeri(ar)
Loop

next
prova cosi


Next

 

[lotto_tom75]

Dim ncls as long
Dim asR as string= "1,2,3,4,5,6,7"
For ncls=2 to 7
Redim aR(ncls) as long
Initsviluppointegrale(asr,ncls)

Do while getcombsviluppo(aR)
Scrivi stringanumeri(ar)
Loop

next
prova cosi


Next

Il tuo code ovviamente funzia mitico
Cercherò di applicarlo al code che mi serve grazie!
Fortissimo anche luigi nella versione "comic"!
Dr Shifu Sldr Super Gigi Luigi Il miglior maestro di sempre

 

[LuigiB]

script di Tom con la correzione di Yoda


Module MyScript
Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
' NON MODIFICARE IL NOME DI QUESTA SUB

Dim numeroruoteunite As Long
Dim quanteruoteuniteminimo As Long
Dim quanteruoteunitemassimo As Long
Dim coltotruoteunite As Long
Dim ruotescelte() As Variant
Dim acolruoteunite(6) As Long
quanteruoteuniteminimo = 2
quanteruoteunitemassimo = 6
ruotescelte = Array(1,2,3,4,5,6)
For numeroruoteunite = quanteruoteuniteminimo To quanteruoteunitemassimo
coltotruoteunite = InitSviluppoIntegrale(ruotescelte,numeroruoteunite)
Scrivi coltotruoteunite
If coltotruoteunite > 0 Then
Do While GetCombSviluppo(acolruoteunite) = True
Scrivi StringaNumeri(acolruoteunite)
Loop
End If
If bScriptInterrotto Then Exit For
Next
End Sub