Mente da programmatore

[LuigiB]

ciao Edoardo , ho fatot un po di aggiunte che dovremo continuare a sviluppare .
intanto scarica i sorgenti

LottoProjectLB

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

 

[LuigiB]

Stavo pensando una cosa (so che me ne pentirò amaramente). Potremo fare un form stile statistiche lunghette ma più semplice. Potremmo chiamarlo statistiche lunghette ridotte. Uno inserisce una combinazione e seleziona la sortegarantita e la classe di sviluppo ed ottiene la statistica di tutte le lunghette a garanzia n-k con le rispettive uscite. Nella list view metteremmo solo la singola lunghetta e poi subitems. Subitems delle formazioni ridotte. Ovviamente metteremmo un limite di classe di sviluppo pari a tre. Cattiva idea?

bhe le idee sono sempre bene accette specie se le implementano gli altri .. anche perchenon ho capito la faccenda della garanzia ..attenzione a non far intrervenire Nikor che su queste cose sente come uan vibrazione nella forza ... e interviene all'istante

 

[Edoardo_95]

bhe le idee sono sempre bene accette specie se le implementano gli altri .. anche perchenon ho capito la faccenda della garanzia ..attenzione a non far intrervenire Nikor che su queste cose sente come uan vibrazione nella forza ... e interviene all'istante

Ahahah ... No intendevo semplicemente fare un form come il tab scomposizione però con l'aggiunta delle uscite ed uno sviluppo anziché integrale, ridotto ma non si può fare. Preso dall'entusiasmo su una copia del programma ho creato già il form con tutti i controlli ma arrivati al dunque mi sono reso conto che manca la funzione GetCombSviluppoRid e quindi niente . Non mi azzardo nemmeno a pensare come crearla. L'ultima volta che ho avuto a che fare con sviluppi mi sono quasi messo in un angolino a dondolare ahahah

 

[Edoardo_95]

Bene appena possibile vedo i sorgenti

 

[LuigiB]

ho fatot ancora delle correzioni c'erano dei problemi nella statistica lunghette.
Le formaziioni le leggeva dal secondo record in poi
e poi dava un problema quqndo dsi inseriva la formazione da pannello

LottoProjectLB

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

 

[Edoardo_95]

Ok visto sorgenti. Che dire ...come al solito senza parole . Considerando che hai fatto tutto questo in mezza giornata .... Però c'è il problema icone

 

[LuigiB]

Cao ..riscarica i sorgenti che ho appena fatto una aggiunta ...
che problema c'è sulle icone ?

 

[Edoardo_95]

Non sono presenti nella cartella resource

 

[Edoardo_95]

Cao ..riscarica i sorgenti che ho appena fatto una aggiunta ...
che problema c'è sulle icone ?

Sisi fatto e controllato tutto

 

[LuigiB]

strano , nello zip io le vedo

 

[LuigiB]

risolto il problema delel icone fammi un favore completa le fnzioni del'elenco estrazioni e del tabellone analitico affinche sia possibile pure l ifare i disegni.
E' facilesi tratta di abilitare solo alcune proprietrà del controllo grliglia , vedi come abbiamo fatto nel frmEstrazione

 

[LuigiB]

poi qui c'era un errore che io ho correto , avevosbagliato il nome del campo testo correggi pure tu

 

[Edoardo_95]

strano , nello zip io le vedo

Vedi l'allegato 2226072

Se noti manca kate.ico/piramide.ico/TabAnaAmbi.ico/box_checked.ico

 

[LuigiB]

fai salva con nome e rinomina in rar

 

[LuigiB]

anche sul pulsante 123 avevo fatto lo stesso errore .. va corretto..

 

[Edoardo_95]

anche sul pulsante 123 avevo fatto lo stesso errore .. va corretto..

Sisi già notato. fatto

 

[LuigiB]

la funzione del tab aanalitico è solo un abozzo bisogna calcolare iritardi di livello sia per ruota che per riga.. poi provvedero io ..ora cerchiamo di consolidare di vedere se ci son oerrori e di pensare a qalche alatra funzione standard.

 

[Edoardo_95]

la funzione del tab aanalitico è solo un abozzo bisogna calcolare iritardi di livello sia per ruota che per riga.. poi provvedero io ..ora cerchiamo di consolidare di vedere se ci son oerrori e di pensare a qalche alatra funzione standard.

Bene allora controllerò tutto attentamente. Ci aggiorniamo

 

[LuigiB]

se ti viene in mente qualche idea implementala , per esempioquella di prima che ti era venuta si poteva implementare a partire dalle matrici dei ridotti.
Le matrici dei ridotti sono presenti in spaziometria.
uno inserisce i suoi numeri
i numeri vengono traslati nella matrice scelta
le combinazioni ottenute vengono analizzate e riportate i valori statistici

ora per estrarre le matrici in formato testo bisogna usare uno script
tipo questo ma che faccia automaticamente tutti i fiel presenti nella cartella delle matrici.

Una volta ottenute le matrici in formato testo nella forma che ci serve (solo le colonne) poi si possono facilmente usare

Option Explicit
Sub Main
   Dim sFile
   Dim aRetColonne
   Dim nGaranzia,nClasse,nColonne,nQNumeri
   Dim k,e,sColonna
   sFile = ScegliFileSistema
   If sFile <> "" Then
      If GetMatriceSistemaRidotto(sFile,aRetColonne,nQNumeri,nColonne,nClasse,nGaranzia) Then
         Call Scrivi("File          : " & sFile)
         Call Scrivi("Per numeri    : " & FormatSpace(nQNumeri,8,True))
         Call Scrivi("Colonne       : " & FormatSpace(nColonne,8,True))
         Call Scrivi("Classe        : " & FormatSpace(nClasse,8,True))
         Call Scrivi("Garanzia      : " & FormatSpace(nGaranzia,8,True))
         Call Scrivi
         Call Scrivi("Sviluppo :",True)
         Call Scrivi
         For k = 1 To nColonne
            sColonna = ""
            For e = 1 To nClasse
               sColonna = sColonna & Format2(aRetColonne(k,e)) & "."
            Next
            sColonna = Left(sColonna,Len(sColonna) - 1)
            Call Scrivi(FormatSpace(k,5,True) & ") " & sColonna)
         Next
      End If
   End If
End Sub
Function ScegliFileSistema()
   Dim sDir
   Dim i
   sDir = GetDirectoryAppData & "sistemi\"
   ReDim aRetFiles(0)
   Call ElencoFileInDirectory(sDir,aRetFiles,".dat")
   i = ScegliOpzioneMenu(aRetFiles,,"Scegli file matrice")
   If i > 0 Then
      ScegliFileSistema = sDir & aRetFiles(i) & ".dat"
   End If
End Function

 

[LuigiB]

ciao Edoardo , ho fatto altre modifiche per la gestione dei ritardi di livello.
Riposto i sorgenti e metto di la l'esegibile aggiornato.
Ora la palla la passo a te..

LottoProjectLB

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