NUOVO AMBIENTE SCRIPT AREA TECNICA

[lotto_tom75]

Siete Unix & Twinx.

Tom ... un po mi preoccupa.

Confermo che funziona bene.

Vedi l'allegato 2253216


Buon WeekEnd a tutte/i.

In che senso ti preoccupo joe?

 

[Rookie]

Mi sto innamorando di questo tween basic ogni ora di +...

In questo hai raggiunto lo stato nascente (quello reso celebre con i suoi libri, dal grande Francesco Alberoni) di SLDR in merito al colpo di fulmine verso tB...


p.s. devo dire che e' vero che tB fa' innamorare...

 

[Rookie]

Siete Unix & Twinx.

Tom ... un po mi preoccupa.

Confermo che funziona bene.

Vedi l'allegato 2253216


Buon WeekEnd a tutte/i.

Grazie Joe, buon WE anche a te!

 

[LuigiB]

ho setito spaziometria che ti cantava questa canzone ...

 

[Rookie]

ho setito spaziometria che ti cantava questa canzone ...

 

[lotto_tom75]

ho setito spaziometria che ti cantava questa canzone ...

Ahahah dille di non preoccuparsi... perchè ancora è il mio primo amore assoluto...

 

[LuigiB]

no no diceva quando giochi tu non ci gioco piu .. piu chiaro di cosi

 

[lotto_tom75]

 

[LuigiB]

per il messaggio classico..

 

[lotto_tom75]

per il messaggio classico..

Proseguendo con i benchmark test con le nuove modalità di output.. ho visto che da errore di overflow con appena... lo sviluppo in 45 mln di classe 5 by 90... Limiti imposti o dipendenti dall'impastatrice celeron... o da altro?

 

[LuigiB]

metti il codice cosi capiamo meglio

 

[lotto_tom75]

metti il codice cosi capiamo meglio

Call ImpostaBrowser("C:\Program Files\Mozilla Firefox\firefox.exe")

Dim classe As Long
Dim sorte As Long
Dim aruote() As Long
ReDim numeri(0) As Long
Dim stringamessaggio As String

classe = InputBox("classe", , 2)
sorte = InputBox("sorte", , 2)
aruote = ScegliRuote
ScegliNumeri(numeri)
Scrivi
Scrivi "Analisi della ruota o delle ruote (unite) " & NomeRuota(aruote)
Scrivi "Per la sorte di " & NomeSorteLotto(sorte)
Scrivi "Classe di sviluppo " & classe
Scrivi "Ordinamento valori per ritardo decrescente"
Scrivi "Gruppo base analizzato " & StringaNumeri(numeri) & " di classe " & UBound(numeri)
Scrivi
Dim k As Long
 
  Dim aRet() As STRUCT_VALORI_MIGLIORI
 
 
    Scrivi ("ClassificaRitardo")
    Scrivi
    aRet = ClassificaRitardo(classe, EstrazioneFin, sorte, aruote)
 
    For k = 1 To UBound(aRet)
    
        'Scrivi (StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore)
 
  stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore
    
        Messaggio(stringamessaggio, True)
    
    
        AvanzamentoElaborazione(k, UBound(aRet))
    
        frmScript.lblMessaggio = "prova"
    
       If bScriptInterrotto Then Exit For
    
    Next
 
    Scrivi
    Scrivi TempoElaborazioneSecondi
    Scrivi

A parte l'overflow per analisi superiori alla classe 4 by gruppo base di 90 (x oltre 2.555.000 ca formazioni)...

Riguardo a questo code ti chiedo nuovamente in particolare come sia possibile agganciare all'output dei valori di STRUCT_VALORI_MIGLIORI il parametro nome ruota o numero ruota...

per avere anche la ruota nella stringa messaggio...

stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore & (qui vorrei pote visualizzare la ruota)

 

[Rookie]

ARet() che tipo di array é?

 

[LuigiB]

ti da questo errore qui ?

 

[lotto_tom75]

ti da questo errore qui ?

Vedi l'allegato 2253226

si

 

[lotto_tom75]

ARet() che tipo di array é?

Type STRUCT_VALORI_MIGLIORI
aNumeri() As Long ' offset &H0000
Classe As Long ' offset &H0004
Valore As Long ' offset &H0008
End Type

 

[LuigiB]

quella funzione deve prendere tutte le combinazioni e ordinarle in memoria , sono 1.200.000 e sono troppe .. classifica ritardo è stata pensata per sostituire alcune vecchie funzioni di spaziometria che lavoravano su estratti ed ambi ... se vuoi fare con le cinquine devi riudrre i numeri da sviilupppare

 

[Rookie]

ti da questo errore qui ?

Vedi l'allegato 2253226

Forse sei andato oltre i circa 3GB riservati al processo in esecuzione…

 

[LuigiB]

su roba d iquel tipo dovrebeb funzionare RitardoPiu alto che ti da una combinazione sola e non le deve ordinare tutte in memoria ..

 

[LuigiB]

per risolvere quel problema dovre icompilare la dll solo a 64 bit a 32 bit si ha una memoria virtuale di 2 gb .. a 64 bit si hanno 8 teerabyte