Legend - NUOVA MISSIONE

[i legend]

ciao luigi allora va bene?
ciao

 

[LuigiB]

Bho ti avevo scritto verso le 15 adesso il moo messaggio non si vede piu....te lo riscrivero adrsso non ho voglia ciao...

 

[i legend]

ciao Luigi quando Vuoi
Se Non ci si sente dopo Intanto Buona Notte
-1 alla Vigilia e al panettone



Ps.Forse l hai scritto nell altro post ma credo di aver gia fatto cosi

 

[LuigiB]

bho forse .. non mi pareva che convertissi un numeor alla volta gli passi tutto l'array ..
buone feste anche a te

 

[claudio8]

Luigi, ho l'impressione che hai già iniziato i brindisi di festeggiamento

Bho ti avevo scritto verso le 15 adesso il moo messaggio non si vede piu....te lo riscrivero adrsso non ho voglia ciao...

http://forum.lottoced.com/forum/lot...lleli-x-ambata-semplice?p=1946650#post1946650

 

[LuigiB]

ah ecco che fine aveva fatto il messaggio .. ho sbagliato thread .. .--)

 

[i legend]

bho forse .. non mi pareva che convertissi un numeor alla volta gli passi tutto l'array ..
buone feste anche a te

Ciao luigi
Buon Natale
Ci tengo a ringraziarti per tutto.

Buone feste a tutti
Agli amici vecchi e ai nuovi
Un grande abbraccio virtuale.

 

[mirapep]

Sinceri auguri per un sereno e felice Natale

 

[LuigiB]

BUON NATALE A TUTTI !

un paio di giorni di riposo ci vogliono ... serene e felici feste a tutti !

 

[LuigiB]

Ciao a tutti e ancora auguri a tutti quanti ... allora , Legend le vacanze natalizie sono finite , tra un po' ci aspettano quelle di capodanno e quelle della befana ma nel frattempo la scuola riapre .. spero cxhe in questo periodo tu non ti sia scordato quantro hai gia appreso ma penso di no visto che ho visto che sei attivo in altri fronti e spero anche che non ti sia timpinzato troppo di panettoni e torroni perche tanto ora te li faro smaltire io a forza di script
Veniamo a noi e facciamo il punto della situazione , eravamo rimasti ad uno script che era in grado di creare e di aggiornare gli archivi virtuali prodotti , avevamo anche detto di fare una funzione per
trasformare il numero virtuale in reale e mi sembra che ci fossimo fermati qui.
In basso c'èe lo script di riferimento che fa gia tutto questo gia descritto.
Ora si entra nel vivo del nostro script e dell'idea che mi era venuta a me per farti esercitare.
Avevo pensato di far gestire i risultati di un secondo e variabile "altro script" che possa selezionarsi a runtime attraverso la normale finestra di dialogo di windows per selezionare i file.
Per consentire questa possibilita ho ampliato le caratteristiche di una funzione tanto utile quanto bistrattata (nel senso che non la usa nessuno manco io ), la funzione "includi".
Questa funzione serve o meglio serviva a includere a priori un altro modulo letto da un file e farlo diventare parte dello script corrente , serviva perche ora oltre a fare quello è possibile usarla per scegliere un file a runtime.

facciamo subito un esempio per introdurti all'argomento anche perche potrebeb essere utilizzato in altri ambiti.

scriviamo questo semplice script e salviamolo su disco

Option Explicit
Sub Test
    Call Scrivi("Questo è lo script Test scelto e lanciato dal chiamante")
End Sub
Sub Main

End Sub

in questo caso la sub main non contiene codice , la cosa non è importante potrebbe pure contenerlo ma per l'esempio non serve.

una volta salvato il file creiamo un nuovo script , questo

Option Explicit

Includi "Includi c:\"

Sub Main
    Call test
End Sub

come vedi l'istruzioe includi che di solito dovrebeb ricevere il percorso di un file
se riceve un percorso senza nome file apre la finestra per la selezione (attualmente non apre la dir voluta a causa di un buggetto tuttavia funziona lo stesso per selezionare i file manca solo la comodita di farla aprire nella dir voluta)


un'altra cosa da notare è che la sub main chiam una funzione Test che pero non è presente in questo script , guarda caso lo è in quello di prima .. .eseguiamo questo secondo script anche senza salvarlo è solo un test , ci dovrebbe far scegliere un file di script , ovviamente va scelto quello scritto prima senno sempllicemente non succede nulla ...

ora ripassa tutto , fai questa prova vedremo poi l'applicazione pratica.

ciao

Option Explicit


Sub Main
    Dim aKey ' array delle chiavi per creare gli archivi virtuali
    Dim nQArchivi ' quantita degli archivi da creare
    Dim nEstrIni ' estrazione dalla quale iniziare a creare le corrispondenti virtuali
    Dim nClasseChiave ' classe per la chiave degli archivi
    Dim sFileChiavi ' file che memorizza le chiavi per gli n archivi virtuali
    Dim aEstAR ' matrice estrazioni archivio reale (Tot,Ruota,Pos)
    Dim sDirArcVirt ' directory dove vengono creati gli archivi virtuali
    Dim nQDaProc ' quantita di combinazioni da processare di quelle tornate dl metodo
    Dim nRitMaxMin,nRitMaxMax ' rang emin e max per accettare il ritmax per estratto sul nuovo archivio prodotto
    Dim nRitRelMaxMin,nRitRelMaxMax ' rang emin e max per accettare il ritmax per estratto sul nuovo archivio prodotto
    Dim percVarRitMax ' percentuale di variazione +/- per calcolare il range rispetto al ritmax calcolato su archivio reale
    Dim nQEstrArcReale ' quantita estrazioni in archivio reale
    
    'nQDaProc = 3 ' le prime tre combinazioni tornate dal metodo
    percVarRitMax = 10
    nQArchivi = GetQuantitaArchivi
    nClasseChiave = ScegliClasse
    nEstrIni = ScegliInizio
    sDirArcVirt = GetDirectoryAppData & "ArcVirtEnigma\"
    nQEstrArcReale = EstrazioniArchivio
    
    If VerificaCoerenza(nQArchivi,nClasseChiave,nEstrIni) Then
        ' creo la directry dove salvo gli archivi
        If CreaDirectory(sDirArcVirt) Then
            ' legge le estrazioni dell'archivio reale e le mette in memoria
            If AlimentaMatriceEst(aEstAR) Then
            
                If FileEsistente( GetFileCfgArchivio(sDirArcVirt,nEstrIni,nClasseChiave,nQArchivi)) = False Then
                    ' se il grupppo di archivi gia esiste non ci serve il raffronto
                    ' sul ritmax e sul ritrela
                    Call GetRangeMinMaxRitardoMax(percVarRitMax,nEstrIni,nRitMaxMin,nRitMaxMax)
                    Call GetRangeMinMaxRitardoRelMax(percVarRitMax,nEstrIni,nRitRelMaxMin,nRitRelMaxMax)
                End If
                

                Call CreaArchiviVirtuali(nQArchivi,nClasseChiave,nEstrIni,aEstAR,nQEstrArcReale,sDirArcVirt,nRitMaxMin,nRitMaxMax,nRitRelMaxMin,nRitRelMaxMax)
                Call ScriviRitMaxPerArchivio(nClasseChiave,nQArchivi,sDirArcVirt,nEstrIni)
                
            End If
        End If
    End If
End Sub
Function VerificaCoerenza(nQArchivi,nClasseChiave,nEstrIni)
    Dim sMsg
    If nQArchivi <= 0 Then sMsg = "Specificare la quantita di archivi da creare"
    If nClasseChiave <= 4 Then sMsg = "Specificare la classe per le chiavi di generazione"
    If nEstrIni <= 0 Then sMsg = "Specificare l'estrazione di partenza per la generazione degli archivi"
    
    If sMsg <> "" Then
        MsgBox sMsg,vbCritical
    Else
        VerificaCoerenza = True
    End If
End Function
Function ScegliInizio()
    ReDim aV(EstrazioniArchivio)
    Dim k
    For k = 1 To UBound(aV)
        aV(k) = GetInfoEstrazione(k)
    Next
    ScegliInizio = ScegliOpzioneMenu(aV,1,"Inizio archivio virtuale")
End Function
Function ScegliClasse
    ReDim aV(16)
    Dim k
    For k = 5 To 20
        aV(k - 4) = k
    Next
    ScegliClasse =(ScegliOpzioneMenu(aV,1,"Classe chiavi di generazione")) + 4
End Function
Function GetQuantitaArchivi
    GetQuantitaArchivi = Int(InputBox("Quanti archivi virtuali creare ?","Quantita archivi virtuali","25"))
End Function
Function AlimentaMatriceEst(aEst)
    ' alimenta la matrice con tutte le estrazioni dell'archivio reale
    Dim k,r,e,nTot
    nTot = EstrazioniArchivio
    ReDim aEst(nTot,11,5)
    For k = 1 To nTot
        ReDim aNumEst(0)
        Call GetEstrazioneCompleta(k,aNumEst)
        aEst(k,0,0) = DataEstrazione(k,,,"/") & "-" & IndiceAnnuale(k)
        For r = 1 To 11
            For e = 1 To 5
                aEst(k,r,e) = aNumEst(r,e)
            Next
        Next
    Next
    AlimentaMatriceEst = nTot > 0
End Function
Function GetFileCfgArchivio(sDirArc,nIdEstrIni,nClasse,nQArc)
    GetFileCfgArchivio = sDirArc & "CFG_" & nIdEstrIni & "_" & nClasse & "_" & nQArc & ".dat"
End Function
Function GetFileArchivioVirt(sDirArc,nIdEstrIni,nClasse,nQArc,nIdArc)
    GetFileArchivioVirt = sDirArc & "BDV" & FormattaStringa(nIdArc,"00000") & "_" & nClasse & "_" & nIdEstrIni & "_" & nQArc & ".dat"
End Function

Function GetRitardoMaxEstrattoArchivio(nRetNum,nRetRuota,nEstrInizio)
    
    Dim n,r,nRitMax,nMax
    ReDim aN(1)
    ReDim aR(1)
    
    nRetNum = 0
    nRetRuota = 0
    

    For r = 1 To 10
        aR(1) = r
        If r <> 11 Then
            For n = 1 To 90
                aN(1) = n
                ' usare la funzione turbo solo dalla versione 1.5.73
                Call StatisticaFormazioneTurbo(aN,aR,1,0,nRitMax,0,0,nEstrInizio,EstrazioniArchivio)
                'Call StatisticaFormazione(aN,aR,1,0,nRitMax,0,0,nEstrInizio,EstrazioniArchivio)
                

                If nRitMax > nMax Then
                    nMax = nRitMax
                    nRetNum = n
                    nRetRuota = r
                End If
            Next
        End If
        
    Next
    
    GetRitardoMaxEstrattoArchivio = nMax
    
End Function
Sub GetRangeMinMaxRitardoMax(PercVariazione,nEstrIni,nRetMin,nRetMax)
    Dim nRitMax
    Dim nValue,nRetNum,nRetRuota
    
    
    nRitMax = GetRitardoMaxEstrattoArchivio(nRetNum,nRetRuota,nEstrIni)
    nValue = ProporzioneX(PercVariazione,100,nRitMax)
    
    nRetMin = nRitMax - nValue
    nRetMax = nRitMax + nValue
    
    Call Scrivi("Ritardo massimo su archivio reale estrazione inizio " & nEstrIni)
    Call Scrivi("Sono accettati gli archivi che si discostano del " & PercVariazione & "% rispetto al ritardo sull'archivio reale")
    Call Scrivi("Ritardo massimo Min " & nRetMin)
    Call Scrivi("Ritardo massimo Max " & nRetMax)
    
    Call Scrivi
    ReDim av(3)
    av(1) = "Numero"
    av(2) = "Ruota"
    av(3) = "Ritardo max"
    
    Call InitTabella(av,vbYellow)
    
    av(1) = nRetNum
    av(2) = NomeRuota(nRetRuota)
    av(3) = nRitMax
            
    Call ***RigaTabella(av)
    Call CreaTabella
    

End Sub
Sub GetRangeMinMaxRitardoRelMax(PercVariazione,nEstrIni,nRetMin,nRetMax)
    Dim nRitMax
    Dim nValue,nRetNum,nRetRuota
    
    
    nRitMax = GetRitRelMaxArchivio(nEstrIni,EstrazioniArchivio,nRetNum,nRetRuota)
    nValue = ProporzioneX(PercVariazione,100,nRitMax)
    
    nRetMin = nRitMax - nValue
    nRetMax = nRitMax + nValue
    
    Call Scrivi("Ritardo relativo massimo su archivio reale estrazione inizio " & nEstrIni)
    Call Scrivi("Sono accettati gli archivi che si discostano del " & PercVariazione & "% rispetto al ritardo sull'archivio reale")
    Call Scrivi("Ritardo Rel massimo Min " & nRetMin)
    Call Scrivi("Ritardo Rel massimo Max " & nRetMax)
    
    Call Scrivi
    ReDim av(3)
    av(1) = "Numero"
    av(2) = "Ruota"
    av(3) = "Ritardo rel max"
    
    Call InitTabella(av,vbYellow)
    
    av(1) = nRetNum
    av(2) = NomeRuota(nRetRuota)
    av(3) = nRitMax
            
    Call ***RigaTabella(av)
    Call CreaTabella
    

    
    
End Sub
Function GetRitRelMaxArchivio(Inizio,fine,nRetNumRitRelMax,nRetRuotaRitRelMax)
    Dim r,k
    ReDim aRuote(1)
    Dim nRitRel,nRitRelMax
    nRetNumRitRelMax = 0
    nRetRuotaRitRelMax = 0
    
    Call Messaggio("Calcolo ritardo relativo massimo")
    For r = 1 To 10
        aRuote(1) = r
        Call InitCalcoloRitRel(aRuote,Inizio,fine)
        For k = 1 To 90
            
            nRitRel = GetRitRelMax(k,Inizio + 220,fine)
            If nRitRel > nRitRelMax Then
                nRitRelMax = nRitRel
                nRetNumRitRelMax = k
                nRetRuotaRitRelMax = r
            End If
            
            
        Next
        Call AvanzamentoElab(1,10,r)
        If ScriptInterrotto Then Exit For
    Next
    GetRitRelMaxArchivio = nRitRelMax
End Function
Function CreaChiave0(nClasse)
    Dim k, s  
    
    For k = 1 To nClasse
        s = s & "0."
    Next
    CreaChiave0 = RimuoviLastChr(s, ".")
End Function
Sub LeggiChiaviDaFile(sFileChiavi,aKey, nClasse)
    Dim k
    ' legge le chiavi per la creazione degli archivi virtuali
    ' potrebbe pure non leggere le chiavi se il file non esiste
    
    k = 1
    aKey(k) = CreaChiave0(nClasse) ' per creare il primo archivio virtuale identico all'archivio reale
    For k = 2 To UBound(aKey)
    
        aKey(k) = ""
    Next
    If FileEsistente(sFileChiavi) Then
        ReDim aRighe(0)
        Call LeggiRigheFileDiTesto(sFileChiavi,aRighe)
        For k = 0 To UBound(aRighe)
            aKey(k + 1) = aRighe(k)
        Next
    End If
    
End Sub
Sub MischiaColonna(aCol)
    Dim nUpper
    Dim nFatti
    Dim nPos,nPosOrig
    
    
    nUpper = UBound(aCol)
    ReDim aB(nUpper)
    ReDim aNewCol(nUpper)
    
    Do While nFatti < nUpper
        
        nPos = NumeroCasuale(1,nUpper)
        Do While aB(nPos)
            nPos = NumeroCasuale(1,nUpper)
            
        Loop    
        aB(nPos) = True
        nPosOrig = nPosOrig + 1
        aNewCol(nPosOrig) = aCol(nPos)
        nFatti = nFatti + 1
    Loop
    
    For nPos = 1 To nUpper
        aCol(nPos) = aNewCol(nPos)
    Next
    
End Sub

Sub CreaArchiviVirtuali(nQArchivi,nClasseKey,nEstrIni,aEstrArcReale,nQEstrAR,sDirArchivi,nRitMaxMin,nRitMaxMax,nRitRelMaxMin,nRitRelMaxMax)
    Dim sFileArc
    Dim k,r,e
    Dim nQEstrInArcV
    Dim idEstrAR,idEstrAV
    Dim nPosKey
    
    Dim nn
    Dim nSalv
    Dim nArcCreati
    Dim bCalcRitMax
    Dim nTmpNumArc
    Dim nRitMax,nRitRelMax
    Dim sTmpCol
    Dim coll
    Dim sFileChiavi


    Set coll = GetNewCollection
    
    sFileChiavi = GetFileCfgArchivio(sDirArchivi,nEstrIni,nClasseKey,nQArchivi)
    
    ReDim aKey(nQArchivi)
    Call LeggiChiaviDaFile(sFileChiavi,aKey ,nClasseKey)
    

    
    ' aggiorna o crea se non esistono gli archivi virtuali
    nArcCreati = 0
    Do While nArcCreati < nQArchivi
        nSalv = 0
        nTmpNumArc = nArcCreati + 1
        If aKey(nTmpNumArc) = "" Then
            
            ReDim aCol(0)
            Call GetColonnaCasuale(nClasseKey,aCol)
            Call MischiaColonna(aCol)
            sTmpCol = StringaNumeri(aCol)
            Do While ***ItemColl(coll,sTmpCol,"k" & sTmpCol) = False
                Call GetColonnaCasuale(nClasseKey,aCol)
                Call MischiaColonna(aCol)

                sTmpCol = StringaNumeri(aCol)
            Loop
            
            aKey(nTmpNumArc) = sTmpCol
            bCalcRitMax = True
        Else
            bCalcRitMax = False
        End If
        
        ReDim aNumKey(0)
        Call SplitByChar("." & aKey(nTmpNumArc),".",aNumKey)
        
        sFileArc = GetFileArchivioVirt(sDirArchivi,nEstrIni,nClasseKey,nQArchivi,nTmpNumArc)
        Call Messaggio("Archivio numero " & nTmpNumArc)
        
        If FileEsistente(sFileArc) Then
            If ApriFileBaseDati(sFileArc) Then
                nQEstrInArcV = QuantitaEstrazioniInFile(sFileArc)
                MsgBox nQEstrInArcV
            Else
                nQEstrInArcV = 0
            End If
        Else
            nQEstrInArcV = 0
        End If
        idEstrAV = nQEstrInArcV
        ' cicla dalla prima estrazione da aggiungere fino a quelle disponibili nell'archivio reale
        For idEstrAR =((nEstrIni - 1) + nQEstrInArcV) + 1 To nQEstrAR
            idEstrAV = idEstrAV + 1
            nPosKey =(idEstrAV Mod nClasseKey) + 1
            nn = Int(aNumKey(nPosKey))
            ReDim aEstrV(11,5)
            For r = 1 To 11
                If Int(aEstrArcReale(idEstrAR,r,1)) > 0 Then
                    For e = 1 To 5
                        aEstrV(r,e) = Fuori90(Int(aEstrArcReale(idEstrAR,r,e)) + nn)
                    Next
                End If
            Next
            ReDim aTmp(0)
            Call SplitByChar(aEstrArcReale(idEstrAR,0,0),"-",aTmp)
            If SalvaEstrazione(aEstrV,aTmp(0),aTmp(1),sFileArc) Then
                nSalv = nSalv + 1
                Call Messaggio(nSalv)
            End If
        Next
        
        Call AvanzamentoElab(1,nQArchivi,nTmpNumArc)
        If ScriptInterrotto Then Exit Do
        
        If bCalcRitMax Then
            If ApriFileBaseDati(sFileArc) Then
                Call Messaggio("Calcolo ritardo massimi per estratto su archivio numero " & nTmpNumArc)

                nRitMax = GetRitardoMaxEstrattoArchivio(0,0,1)
                nRitRelMax = GetRitRelMaxArchivio(1,EstrazioniArchivio,0,0)

                
                If(nRitMax >= nRitMaxMin And nRitMax <= nRitMaxMax) And(nRitRelMax >= nRitRelMaxMin And nRitRelMax <= nRitRelMaxMax) Then
                    nArcCreati = nArcCreati + 1
                Else
                    Call EliminaFile(sFileArc)
                    aKey(nTmpNumArc) = ""
                    Call ResetRitardoRel
                End If
            End If
        Else
            nArcCreati = nArcCreati + 1
        End If
        
        
        
        
    Loop
    
    
    Set coll = Nothing
    If ScriptInterrotto = False Then
        Call EliminaFile(sFileChiavi)
        For k = 1 To UBound(aKey)
            Call ScriviFile(sFileChiavi,aKey(k),False)
        Next
        Call CloseAllFileHandle
    End If
    
End Sub
Function GetNumRealeFromVirt(sKey,idEstr,NumVirt)
    Dim nPosK,nClasseKey,nn
    Dim nRetNum
    Dim aNumKey
    
    If IsArray(sKey) Then
        aNumKey = sKey
    Else
        ReDim aNumKey(0)
        Call SplitByChar("." & sKey,".",aNumKey)
    End If
    
    nClasseKey = UBound(aNumKey)
    nPosK =(idEstr Mod nClasseKey) + 1
    nn = Int(aNumKey(nPosK))
    nRetNum = DiffCiclometrica(NumVirt,nn)
    
    GetNumRealeFromVirt = nRetNum
End Function



Sub ScriviRitMaxPerArchivio(nClasseChiave,nQArchivi,sDirArcVirt,nEstrIni)
    
    Dim k
    Dim Inizio,Fine
    Dim sFileArc
    Dim nRetRitMax,nRetNum,nRetRuota
    Dim nRitRelMax
    
    ReDim av(5)
    av(1) = "Numero"
    av(2) = "Ruota"
    av(3) = "Ritardo max"
    av(4) = "Rit Rel max"
    av(5) = "Archivio num"

    Call InitTabella(av,vbYellow)
    
    
    
        
    
    For k = 1 To nQArchivi
        
        sFileArc = GetFileArchivioVirt(sDirArcVirt,nEstrIni,nClasseChiave,nQArchivi,k)
        Call Messaggio("Calcolo ritardi massimi per estratto su archivi ")
        If ApriFileBaseDati(sFileArc) Then
            nRetRitMax = GetRitardoMaxEstrattoArchivio(nRetNum,nRetRuota,1)
            
            nRitRelMax = GetRitRelMaxArchivio(1,EstrazioniArchivio,0,0)

            
            av(1) = nRetNum
            av(2) = NomeRuota(nRetRuota)
            av(3) = nRetRitMax
            av(4) = nRitRelMax
            av(5) = "Arc_" & FormattaStringa(k,"0000")
            Call ***RigaTabella(av)
        End If
        
        Call AvanzamentoElab(1,nQArchivi,k)
        If ScriptInterrotto Then Exit For
    Next
    Call CreaTabella(3)
    

End Sub

 

[i legend]

Ciao luigi.
Panettoni pochi. Tantissimi kg di bignè e dolci fatti in casa.
Ma da oggi sono a dieta.(sono fuori a cena )
Hai ragione mi sono tenuto in allenamento con gli script per uk , le funzioni bisogna scriverle tutte.
Manca la possibilità di scegliere la posizione e se includere o meno il jolly nelle statistiche.non giocando non potevi saperlo io ho cercato le regole su internet e non c'è molto.
Cmq ci si arrangia . Tornando a noi. Stasera non riesco a fare le prove.
Ho dovuto disinstallare il plug in dei sistemi virtuali perché mi entrava in conflitto con il PC.
Al prossimo aggiornamento ci riprovo.
Luigi sapresti dirmi perché il cursore lampeggia?
Poi schiaccio f7 e torna normale per un po.
Il PC mi fa impazzire.
A domani
Notte
Ci sono tantissime funzioni che non conosciamo di spaziometria.
Domandona
Se io scrivessi tutte le funzioni su un modulo potrei richiamare così?

 

[LuigiB]

Bigne ripieni.....parole che suonano come musica per un goloso come me..io invece ho dovuto mangiar poco vittima dellvinfluenza intestinake attaccatami dalle nipotine...vabbe tutto passato...il fatto delle posizioni l ho sistemato in clshss solo che devo ancora metterla disponibile. Riguardo le funzioni certo se ti fai un modulo con funzioni di uso generico puoi linkarlo nello script con includi in questo caso c e un inclusione statica ovvero il file da includere si seleziona una volta per tutte all inizio..l inclusione a runtime invece serve per altro...ciao...

 

[i legend]

Ciao luigi
Ho provato a salvare su c dove c'è l icona del cd ma mi dice che non posso.
Ergo non ho potuto verificare lo script.
Aspetto lumi.
Caspita oggi l influenza e toccata a me
Questa è l ennesima che becco. Solitamente mi becco uno due raffreddori l anno . In questo sto dando il meglio di me.
A dopo se non mi addormento
Intanto notte.
Grazie per le modifiche che hai fatto alla classe ClsHSS.

 

[LuigiB]

Ciao luigi
Ho provato a salvare su c dove c'è l icona del cd ma mi dice che non posso.
Ergo non ho potuto verificare lo script.
.

benissimo dopo questa affermazione la scuola chiude perche al professore j'he pijato n' colpo ...


come sarebbe a dire che hai salvato sull'icona dove c'è il cd ? ... spero di aver capito male ..
comunque se salvavi su c puo essere solo un problema di permessi ... ma scusa non lo puoi salvare dove salvi tutti gli script ?

 

[i legend]

Attenzione che arrivo con i cavi . Così facciamo ripartire il motore.
Scusa ti ho preso alla lettera quando hai detto di salvare su disco
Colpo del mal di testa.
Domani provo a fare come hai detto.
Notte.

 

[i legend]

Ciao buon fine anno a tutt gli amici. I vecchi e i nuovi che verranno

 

[i legend]

Ho visto il plug in ....
Purtroppo non c ero con la testa e non ci sono ancora, ma ci tengo a ringraziarti per tutto il tempo che mi hai dedicato e mi hai insegnato
grazie mille

 

[LuigiB]

Ciao Legend , continuamo questo post e facciamo un piccolo cambiamento di rotta.

come avevo detto all'inizio volevo fare uno script che analizzasse altri script sugli archivi virtuali e che fornisse le convergenze , successivamente verificare il comportamento del sistema.

volevo farlo tutto tramite script , è possibile però è complesso quindi ho deciso di inserire questa possibilità nel plugin degli archivi virtuali.

bene , finita la premessa ..

Tra tutti gli script fatti per il lotto ce ne sono alcuni che forniscoo un risultato in frma tabellare o comunque in una lista ordinata dove i primi elementi che compaiono rappresentano i numeri che quel determinato script suggerisce di porre in gioco.

Tutti gli script fatti in questo modo , ovvero gli script che forniscono un suggerimento di gioco
sono adatti ad essere usati, ma andiamo per gradi.

Legend scegli uno script qualsiasi che abbia queste caratteristiche che ho detto ,ovvero sono adatte due tipologie di script :
- o una che fornisca un output in forma tabellarre ordinata dove i primi elementi sono i numeri migliori da porre in gioco,

-gli script che non producano un risultato tabellare ma che comunque indichino i numeri da giocare sulle relative ruote


scegli lo script che ti piace e postalo qui..
poi vediamo come si contnua ..

 

[LuigiB]

dimenticavo , anche gli altri che seguono il oost se hanno uno script con le caratteristiche che ho ddetto lo possono postare , vedremo come lo si puo usare con il nuovo plugin degli archivi virtuali enigma.
ciao a tutti

 

[i legend]

Ciao luigi è un grandissimo piacere rileggerti.
Oggi sono fuori , quindi fino a stasera non posso postare . Tra gli script in forma tabellare. I numeri restituiti sono stringhe. Appena arrivo a casa ne posto uno fatto ieri. Non da numeri da mettere in gioco ma prende I numeri nelle fasce alte del tabellone analitico in surplus rispetto alle presenze teoriche.
Purtroppo come dicevo a silop è un periodo in cui non riesco a concentrarmi, per altri problemi quotidiani. .visto gli ultimi errori che avevo fatto?
Non vorrei deluderti, o che pensassi di sprecare il tuo tempo. O farti pia' un colpo. Grazie
Buona domenica.