Novità

Mente da programmatore

L

LuigiB

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

 
L

LuigiB

Guest
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

Advanced Member
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
 
L

LuigiB

Guest
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

 

Edoardo_95

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

LuigiB

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

LuigiB

Guest
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
 
L

LuigiB

Guest
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

Advanced Member
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
 
L

LuigiB

Guest
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


Codice:
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
 
L

LuigiB

Guest
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.. :)

 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto