Mente da programmatore

[Edoardo_95]

Siete i miei tre super moschettieri... programmatori preferiti... vi ammiro.., e invidio... (positivamente) dal divano... con il popcorn in mano... Good 1.11

Aimè programmatore è solo LuigiB io sono solo un povero ragazzo che prova a diventarlo... imparando il più possibile da un persona con anni di esperienza. Magari non lo diventerò al 100% ma grazie a lui saprò il fatto mio

 

[LuigiB]

  Friend Function GetEstrazione(idEstr As Integer, RetEstr As StrEstrazione) As Boolean
Dim GetEstr as Boolean
        If IsIdEstrValido(idEstr) Then
            RetEstr = Estrazioni(idEstr)
            GetEstr  = True
        End If
       return GetEstr
    End Function

  Friend Function GetEstrazione(idEstr As Integer, byref RetEstr As StrEstrazione) As Boolean
 
        If IsIdEstrValido(idEstr) Then
            RetEstr = Estrazioni(idEstr)
           return  True
        End If
       return false
    End Function

Attenzione al byref ,se non lo metti non torna indietro la variabile valorizzata.

 

[LuigiB]

la funzione QuantitaNumeriDiversi va lanciata dentro un ciclo sulle 11 ruote , appena una ruota torna un valore diverso da 0 o da 5 quella ruota ha numeri errati.
Per contare quanti numeri diversi ci sono , sapendo che ne devi gestire 90 nella funzionq QuantitaNumeriDiversi puoi creare un array boolean di 90 elementi e incrementare un contatore solo se il relativo elemento n è false , se lo è lo conti e lo metti a true , non devi gestire lo 0 senno per le estrazioni che correttamente non hanno i numeri questa funzione tornerebbe 1 , ovvero unsolo numero usato lo 0 mentre noi vogliamo che i numeri usati siano o 0 o 5.

 

[Edoardo_95]

Si avevo immaginato ... ma sbaglio ancora qualcosa

   Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean


        If IsIdEstrValido(strctEst.identifier) Then
            If IsNumeroEstrValido(strctEst.Data.Numero) Then
                For k = 1 To 11
                    If QuantitaNumeriDiversi(GetArrayEstratti(strctEst)) = 55 Then
                        Return True
                    End If

                Next
            End If
        End If
    End Function
    Function QuantitaNumeriDiversi(aN() As Integer) As Integer
        Dim qNumeri As Integer
        Dim aB(90) As Boolean
        For k = 1 To 5
            If IsNumeroValidoLotto(aN(k)) Then
                If aB(aN(k)) = False Then
                    aB(aN(k)) = True
                    qNumeri += 1
                End If
            End If

        Next
        Return qNumeri
    End Function

 

[Edoardo_95]

No aspetta mi rendo conto di aver scritto un enorme Ca'**ata

 

[i legend]

Ciao le imposti a false fuori dal ciclo
Dentro quelli sortiti li imposti a true .
Ciao
Ma non bisognerebbe escludere i numeri ripetuti nella stessa ruota?
O oppure è stato fatto in un sltra funzione?
Scusate se chiedo cose così semplici, ma per me non lo sono

 

[LuigiB]

Function QuantitaNumeriDiversi(aN() As Integer) As Integer
        Dim qNumeri As Integer
        Dim aB(90) As Boolean
        For k = 1 To 5
            If IsNumeroValidoLotto(aN(k)) Then
                If aB(aN(k)) = False Then
                    aB(aN(k)) = True
                    qNumeri += 1
                End If
            End If

        Next
        Return qNumeri
    End Function

questa funzione deve operare su aN

quindi fai For k = 1 To ubound(aN)

non controlalre qui se il numero è valido , questa come detto deve tornare asolo la quantita contata dei numeri diversi

nel ciclo ogni volta che lanci QuantitaNumeriDiVersi ti memorizzi il risultato , se il risultato è diverso da 0 o da 5 vuol dire che qulla ruota è sbagliata.

 

[Edoardo_95]

Dopo un pomeriggio penso di esserci riuscito:

    Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean

        If IsIdEstrValido(strctEst.identifier) Then
            If IsNumeroEstrValido(strctEst.Data.Numero) Then
                For k = 1 To 11
                    If QuantitaNumeriDiversi(GetArrayEstratti(strctEst, k)) = 0 Or 5 Then
                        Return True
                    End If
                Next
            End If
        End If
    End Function


    Function QuantitaNumeriDiversi(aN() As Integer) As Integer
        Dim qNumeri As Integer
        Dim aB(90) As Boolean
        For k = 1 To UBound(aN)
            For y = 1 To 5
                If aB(aN(y)) = False Then
                    aB(aN(y)) = True
                    qNumeri += 1
                End If
            Next
            Return qNumeri
        Next
    End Function

    Function GetArrayEstratti(strctest As StrEstrazione, ruota As Integer) As Integer()
        Dim aN() As Integer
        Dim i As Integer
        For r = ruota To 11
            For e = 1 To 5
                i += 1
                ReDim Preserve aN(i)
                aN(i) = strctest.Ruote(r).Estratto(e)
            Next
        Next
        Return aN
    End Function

 

[Edoardo_95]

Ho dimenticato di verificare se è un numero valido per il lotto:

    Function GetArrayEstratti(strctest As StrEstrazione, ruota As Integer) As Integer()
        Dim aN() As Integer
        Dim i As Integer
        For r = ruota To 11
            For e = 1 To 5
                i += 1
                ReDim Preserve aN(i)
                If IsNumeroValidoLotto(strctest.Ruote(r).Estratto(e)) Then
                    aN(i) = strctest.Ruote(r).Estratto(e)
                End If
            Next
        Next
        Return aN
    End Function

 

[LuigiB]

per tirare le somme riposta il progetto anche per consentire agli altri di seguire meglio.

 

[Edoardo_95]

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

 

[i legend]

Grazie edo.
Domani mattina lo scarico.
Ora vado a nanna che tra qualche ora vado a lavorare.

 

[LuigiB]

itanto buon lavoro al buon legend , veniamo a noi

qui c'è un errore che ti avevo gia segnalato




questa sotto è una funzione che servesolo alla classe archivio , lasciala private nella classe archivio



hai creato una funzione che fa la stessa cosa di un'altra



qui stai sbagliando
alla prima ruota che va benme uscirebeb dal ciclo perche tu sai che quando usiamo la parola chiave Return la funzione assume il valore che gli diamo ed esce immediatamente.
Devi fare al contrario , l'estrazione fino a prova contraria è valida.






qui non va bene che c'entra il ciclo con la y ?




anche qui c'è da rivedere alla funzione QuantitaNumeriDiversi puoi passare direttamente l'array estratti della struttura senza quel GetArrayEstratti




qui bisogna implementare e una parte di codice gia ce l'hai quella che scrive le modifiche sul file delle estrazioni , devi dichiarare le variabili che non sono gia dichiarate , gestire il fatto che idEstr sia maggiore di ubound(Estrazioni) se lo è lo deve essere solo di una unità va controllato , vul dire che strai aggiungendo un 'estrazione all'array
se non lo è devi valorizzare l'elemento idEstr dell'array estrazioni con l'estrazione che abbiamo passato per parametro.

 

[Edoardo_95]

Nei nomi della sorte e delle ruote non riesco a capire il problema dove sia ... Devono partire da zero?

 

[Edoardo_95]

Ok ho corretto tutto :

    Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
        Dim bRet As Boolean
        If IsIdEstrValido(strctEst.identifier) Then
            If IsNumeroEstrValido(strctEst.Data.Numero) Then
                For r = 1 To 11
                    If QuantitaNumeriDiversi(strctEst.Ruote(r).Estratto) = 0 Or 5 Then
                        bRet = True
                    End If
                Next
            End If
        End If
        Return bRet
    End Function
   
    Function QuantitaNumeriDiversi(aN() As Integer) As Integer
        Dim qNumeri As Integer
        Dim aB(90) As Boolean
        For k = 1 To UBound(aN)
            If aB(aN(k)) = False Then
                If aB(aN(k)) <> 0 Then
                    aB(aN(k)) = True
                    qNumeri += 1
                End If
            End If
        Next
        Return qNumeri
    End Function

 

[LuigiB]

Nei nomi della sorte e delle ruote non riesco a capire il problema dove sia ... Devono partire da zero?

non valorizzi l'array giusto , metti due volte lo stesso

 

[Edoardo_95]

Credimi mi sono scervellato ma non lo vedevo ... Scusami

 

[LuigiB]

qui non va ben

 Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
        Dim bRet As Boolean
        If IsIdEstrValido(strctEst.identifier) Then
            If IsNumeroEstrValido(strctEst.Data.Numero) Then
                For r = 1 To 11
                    If QuantitaNumeriDiversi(strctEst.Ruote(r).Estratto) = 0 Or 5 Then
                        bRet = True
                    End If
                Next
            End If
        End If
        Return bRet
    End Function

 

[LuigiB]

prova a chiederti quand'è che torna false questa funzione ? E Quando invece dovrebe tornarlo ?

 

[Edoardo_95]

Aaaaaaaaaah ora penso di aver capito :

   Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
        Dim bRet As Boolean
        If IsIdEstrValido(strctEst.identifier) Then
            If IsNumeroEstrValido(strctEst.Data.Numero) Then
                For r = 1 To 11
                    If QuantitaNumeriDiversi(strctEst.Ruote(r).Estratto) = 0 Or 5 Then
                        bRet = True
                    Else
                        Return False
                    End If
                Next
            End If
        End If
        Return bRet
    End Function