NUOVO AMBIENTE SCRIPT AREA TECNICA

[LuigiB]

ciao , riformulo la domanda a LuigB:
e' possibile in spaziometria usare TB in alternativa a VB6 , per gli EXE ?

no non è possibile.

 

[LuigiB]

Ciao a tutti, qualcuno mi spiega come diavolo si agganciano i valori di frmparametri alla function analisicombinazioni?

Mi sto riferendo ovviamente al RicercaSfaldamenti-byluigixesempiodistudio1xlotto.twinproj

Sub AnalisiCombinazione(aCol() As Long, nClasse As Long, nSorte As Long, nColpi As Long, aRuote() As Long, strctD As struct_dati)
 
    'Call Scrivi(StringaNumeri(aCol))
 
    Dim frm As New frmParametri
 
    Dim inizio As Long
    Dim fine As Long
 
    Dim frz As STRUCT_FRZ_STATISTICA_SINGOLO_ESITO
 
    inizio = Int(frmScript.txtRange(0).Text)
    fine = Int(frmScript.txtRange(1).Text)
 
    Dim valoreruote As String
    Dim classe As Long
    Dim sorte As Long
    Dim colpi As Long
 
    MsgBox "classe" & nClasse
    MsgBox " sorte " & nSorte
    MsgBox " colpi " & nColpi
    MsgBox " ruota " & StringaNumeri(aRuote)


 
End Sub

Se lascio così.. riesco a recuperare solo nClasse e nColpi ma senza la nSorte e senza le ruote...

Per questo progettino "lotto" sono fermo a questo maledetto punto e non posso usare la mitica interfaccia multi control di Shifu 😀 per fare i vari test e i vari esperimenti di implementazioni aggiuntive... 🥺😭🤪

Inoltre è normale che solo TWINBASIC all'apertura di un progetto nuovo EXE standard prenda ca 1 gb di ram?

Vedi l'allegato 2254619

Il tutto con versione 258 e ultima dll n.22

👋

Tom a me pare che lo script che avevo fatto io i parametri li leggesse tutti e ti rimaneva solo una funzione da implementare .. che hai combinato ?

 

[lotto_tom75]

Se leggo bene, mi sembra che in quel momento avevi parecchia roba aperta relazionata a tB (quell'11 tra parentesi lo indica...) e considerando la mole dell'IDE non mi sembra pesante piu' di tanto. Dovresti invece vedere nel task manager quanto pesa (in termini di memoria RAM occupata) un solo eseguibile compilato con tB...dopo che lanci la sua esecuzione.

No Rookie gli 11 riferimenti TB che vedi mi si aprono per quell'unica operazione descritta di scegliere come nuovo progetto un EXE standard.

 

[lotto_tom75]

Tom a me pare che lo script che avevo fatto io i parametri li leggesse tutti e ti rimaneva solo una funzione da implementare .. che hai combinato ?

Ok allora riprovo con la primissima versione del tuo progetto se la ritrovo nei meandri di questo thread ma per la richiesta soprastante mi sembra di aver fatto riferimento proprio a quella tua prima anche se poi ne ho fatto dei cloni di studio in cui posso effettivamente aver perso roba per strada... Trovato ora lo ritesto... https://forum.lottoced.com/threads/nuovo-ambiente-script-area-tecnica.2207989/post-2500478 (pag 78 #1544)

niente... non riesco a recuperare i dati impostati dalle relative combobox... nemmeno dalla tua versione soprastante..

Sub AnalisiCombinazione(aCol() As Long, nClasse As Long, nSorte As Long, nColpi As Long, aRuote() As Long, strctD As struct_dati)
    
    Call Scrivi(StringaNumeri(aCol))
    
    Scrivi nClasse &"-" & nSorte & " - " & nColpi & " - " & NomeRuota(aRuote)

End Sub

 

[LuigiB]

Tom ti rimetto lo script , usa questo che tra l'altro è allineato all'ultima dll

 

[giomi]

grazie

 

[lotto_tom75]

Tom ti rimetto lo script , usa questo che tra l'altro è allineato all'ultima dll

Ora funzia grazie Luigi



ha passato correttamente in output la classe 3, la sorte 2, i colpi 18 e le ruote selezionate

In compenso.. non so perchè ogni tre per due adesso mi appare questo allegrao messaggio...


What means?

 

[LuigiB]

problemi di twinbasic , non dimenticare che è una beta , scarica la 258

 

[lotto_tom75]

problemi di twinbasic , non dimenticare che è una beta , scarica la 258

Me lo fa con l'ultima 258 🫠 quindi me lo tengo...

 

[happy]

Me lo fa con l'ultima 258 🫠 quindi me lo tengo...

Ciao Tom, non so se può esserti utile, a me succedeva in continuazione quando avevo spaziometria aperto per copiare uno script ed incollarlo in tb.
Poi mentre modificavo il codice in tb appariva l'avviso in alcuni casi anche a ripetizione.
Con spaziometria chiuso pare che non succede più.👋


P.S.
Come non detto ha ripreso con gli avvisi !

P.S.2
Ha ripreso con gli avvisi a raffica mentre faccio le prove!!!

X LuigiB: se vuoi renderti conto del problema ho registrato e caricato il video su mediafire.

Questo video inviatelo a @WAYNE PHILLIPS

 

[joe]

Buona sera a tutte/i.

Chiedo: OrdinaVettore funziona ?

Grazie.

 

[giomi]

ciao a tutti , uso TB 258 , ed anche 257 ,
ho notato che l' errore segnalato da lottotom e happy , a me succede quando uso la function

Call Scrivi()

e si blocca tutto in TB , e devo chiuderlo con esplora risorse .

 

[lotto_tom75]

ciao a tutti , uso TB 258 , ed anche 257 ,
ho notato che l' errore segnalato da lottotom e happy , a me succede quando uso la function

Call Scrivi()

e si blocca tutto in TB , e devo chiuderlo con esplora risorse .

Grande giomi! Hai circoscritto moltissimo il problema! Io pensavo invece che riguardasse addirittura la base testconsumer.twinproj ... meglio così! E speriamo di risolvere... perchè la funzione scrivi è usatissima...

Intanto... quasi finito... con la versione 259 🤖

 

[LuigiB]

Buona sera a tutti.

Volevo chiedere: OrdinaVettore funziona ?

Grazie.

ciao Joe , si pero non so se hai aggiornato all'ultima versione

  Public Sub MyScriptRoutine()
    
        ' SCRIVERE QUI IL PROPRIO CODCE COME FOSSE LA SUB MAIN DI SPAZIOMETRIA
            
        Dim aN(10) As Long
        Dim k  As Long
        
        For k = 1 To 10
            aN (k) = NumeroCasuale (1, 90)
            Scrivi (aN(k))
        Next
        Scrivi
        
        Dim avOrd  As Variant
        
        avOrd = OrdinaVettore (aN, , 1)
        For k = 1 To 10
         
            Scrivi (avOrd(k))
        Next
        
        Scrivi
        
        Call OrdinaVettoreL(aN, , 1)
        For k = 1 To 10
         
            Scrivi (aN(k))
        Next
        
    End Sub

 

[LuigiB]

Grande giomi! Hai circoscritto moltissimo il problema! Io pensavo invece che riguardasse addirittura la base testconsumer.twinproj ... meglio così! E speriamo di risolvere... perchè la funzione scrivi è usatissima...

Intanto... quasi finito... con la versione 259 🤖

Vedi l'allegato 2254731

è solo un caso che ia la funzione scrivi , c'è un problema in twinbasic capita anche in altre circostanze .. l'ho segnalato su GitHub .. speriam oche risolve senno manco io posso continuare quello che stavo facendo ...

 

[lotto_tom75]

è solo un caso che ia la funzione scrivi , c'è un problema in twinbasic capita anche in altre circostanze .. l'ho segnalato su GitHub .. speriam oche risolve senno manco io posso continuare quello che stavo facendo ...

Si però io ho provato a lavorare... fuori dal campo testconsumer.. ovvero con nuovi exe standard e altri progetti che non richiedono la DLL VSLGIOCHI e quelli sembrano funzionare correttamente... senza quell'odioso e frequentissimo msg di alert. Sembra che batman... ce l'abbia proprio con te Luì 😂

 

[LuigiB]

si ma si vede che dalle parti sue non conoscono la regola del cavaliere Nero ..comunque non c'enta niente stavo lavoando ads un progetot senza nessuna dll ma solo con degli usercontrol e me lo ha dato in continuazione tanto che ho lasciato perdere

 

[giomi]

ciao,
chiedo a tutti , anche a c-64 , che rimane in sordina ,
quale la funzione che sostituisce

Call LeggiRigheFileDiTesto

posto esempio da sistemare

Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
'------------------------------------------------------------------------------------------------------------------

Dim sUrl As String
Dim sFile As String
Dim sRetErr As String
'sFile = "C:\Users\Admin\Desktop\Archivio\silop.txt"
'Call DeleteDirOrFiles(sFile)
sUrl = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
If DownloadFile(sUrl, sFile, sRetErr) Then
   Call Scrivi("FILE SCARICATO")
Else
   Call Scrivi("FILE NON SCARICATO")
End If

'------------------------------------------------------------------------------------------------------------------

End Sub

grazie

 

[giomi]

quando si evidenzia l' errore e si clicca su copy to clipboard , dove viene salvato il file , o rimane in memoria ?

 

[lotto_tom75]

ciao,
chiedo a tutti , anche a c-64 , che rimane in sordina ,
quale la funzione che sostituisce

Call LeggiRigheFileDiTesto

posto esempio da sistemare

Public Sub MyScriptRoutine()
' SCRIVERE QUI IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETIRA
'------------------------------------------------------------------------------------------------------------------

Dim sUrl As String
Dim sFile As String
Dim sRetErr As String
'sFile = "C:\Users\Admin\Desktop\Archivio\silop.txt"
'Call DeleteDirOrFiles(sFile)
sUrl = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
If DownloadFile(sUrl, sFile, sRetErr) Then
   Call Scrivi("FILE SCARICATO")
Else
   Call Scrivi("FILE NON SCARICATO")
End If

'------------------------------------------------------------------------------------------------------------------

End Sub

grazie

Ciao giomi, credo, ma spero di sbagliarmi, che ancora non ci sia e che si debba ricorrere alla struttura vb6 di questo tipo:

Dim sfile As String
Dim f As String
Dim sbuf As String
sfile = ".\Bsolonumeri-52446-21g6-by90.txt"
f = FreeFile
Open sfile For Input As f
Do Until EOF(f)
   Line Input #f,sbuf
   Print sbuf
Loop
Close f