Test_LeggiMAtriceSistema

[gian332]

Salve vorrei utilizzare lo scrip Test_LeggiMatriceSistema contenuto nella directori Spaziometria_scrip_test.

Vorrei x esempio caricare una matrice ,...30_10_2 . Chiedo gentilmente a chiunque sia in grado di consigliarmi/spiegarmi quale sia il modo migliore
per cambiare e sviluppare i 30 numeri con altri 30 di mia scelta .
Ringrazio anticipatamente chiunque voglia darmi un aiuto

Saluti a tutto il forum .

 

[Beppignello]

prova,esempio per 30 numeri da inserire dividendoli con 1 punto tra un nr e l'altro


Option Explicit
Sub Main
Dim sFile
Dim aRetColonne
Dim nGaranzia,nClasse,nColonne,nQNumeri,scolonna2
Dim k,e,sColonna,num
num = InputBox("Numeri 30",,"01.06.07.08.09.10.18.19.32.33.42.48.49.50.52 .54.55.60.63.64.68.76.77.78.85.86.87.88.89.90.")
ReDim matr(90)
Call SplitByChar(num,".",matr)
sFile = ScegliFileSistema
If sFile <> "" Then
If GetMatriceSistemaRidotto(sFile,aRetColonne,nQNumer i,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("In gioco......" & num)
Call Scrivi
Call Scrivi(" Matrice Base Sviluppo da Giocare (nr.sostituiti)")
Call Scrivi
For k = 1 To nColonne
sColonna = "":scolonna2 = ""
For e = 1 To nClasse
sColonna = sColonna & Format2(aRetColonne(k,e)) & "."
scolonna2 = scolonna2 & matr(aRetColonne(k,e)-1) & " "
Next
sColonna = Left(sColonna,Len(sColonna) - 1)
Call Scrivi(FormatSpace(k,5,True) & ") " & sColonna & " ---------- " & scolonna2)
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

 

[Beppignello]

oppure si può fare direttamente da spaziometria


menu di spaziometria
sistemi ridotti

inserire i numeri da giocare pigiando il tasto edit
sulla destra viene visualizzato se per il lotto,superenalotto,o 10elotto

scegliere tra le matrici che vengono evidenziate quella che si vuole
sulla destra figurerà lo sviluppo della matrice con i numeri propri inseriti precedentemente

 

[gian332]

Ciao Beppeginello, grazie per il tuo tempo . Dunque ... è lo script che mi interessa, perchè volevo capire "dal momento che non lo avevo mai utilizato" come poterlo sfruttare. ho dedotto che la risoluzione sta nello sfruttare lo sviluppo(scolonna2 = scolonna2 & AAmatr(aRetColonne(k,e) - 1) & " ")
però stranamente lo script mi salta tutta la la parte IF GetMatrice...... . ho fatto il debug con VB6 sostituendo la INPUT BOX che mi da errore con ( num = "01.06.07.08.09.10.18.19.32.33.42.48.49.50. 52 .54.55.60.63.64.68.76.77.78.85.86.87.88.89.90.") selezionando poi sviluppo 30_10_2
e ho capito che la funzione mi restituisce FALSE .

 

[gian332]

Bene.... grazie a luigiB, beppeginello e iLeggend x i loro consigli ....Un aiutino di qua, una dritta di là e un pò di studio e smanettamento il lavoro e lo studio va avanti. Posto lo script a scopo didattico, è ben remato quindi potrebbe essere utile a chi come me è alle prime armi ed a voglia di addentrarsi ed imparare a usare questa fantastica collezione di funzioni che il grande Luigi a messo a nostra disposizione

     Call GetMatriceSistemaRidotto(sFile,aRetColonne,nQNumeri,nColonne,nClasse,nGaranzia)
    ReDim miovettore(nClasse + 1)
    ReDim MatriceNumeri(nColonne,nClasse)

    Stop
    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
            Stop
            Dim aColori
            ReDim aVoci(nClasse + 1)
            Dim idCombinazione
            aColori = Array(0,vbGreen,vbYellow,vbRed)
            Stop
            aVoci(1) = "Id"
            For i = 2 To nClasse + 1
                aVoci(i) = Format2(CStr(i - 1) & "°,")
            Next
            'aVoci = Array("", aVoci)
            'Call AddRigaTabella(aRisultato, , , 3, RGB(0, 0, 0)) ',"Consolas")
            'Call SetColoreCella(2, RGB(215, 215, 255), 2)
            InitTabella aVoci,RGB(108,194,243),,3,vbWhite ', "Consolas"
            'Call InitTabella(aVoci, aColori)
            'Call AddRigaTabella(aVoci, , , 3, RGB(0, 0, 0))
            Stop
            For k = 1 To nColonne
                idCombinazione = idCombinazione + 1
                sColonna = "": SmiaColonna = "" 'vengono svuotate ad ogni ciclo K
                'scrivo nella prima cella MioVettore(1) l'Id  della combinazione di numeri,
                'poi partirò dalla secondaCella con i numeri fino ad nClasse.
                'il vettore l'ho preventivamente dimensionato a nClasse di sviluppo + 1
                miovettore(1) = CStr(idCombinazione)
                For e = 1 To nClasse '**qui inizia lo sviluppo del sistema
                    sColonna = sColonna & Format2(aRetColonne(k,e)) & "."
                    SmiaColonna = SmiaColonna & Format2(MiaMatrice(aRetColonne(k,e))) & "."
                    'MioVetore alla fine del ciclo "for e to nClasse " conterrà i Valori
                    'da passare alla funzione AddRigaTabella,
                    miovettore(e + 1) = Format2(MiaMatrice(aRetColonne(k,e)))
                    'mia matrice conterrà l'intero sviluppo del sistema per il momento non mi serve
                    'ma ho voluto implementarlo ,forse la userò in futuro per lo studio di StatisticaGruppoFormazioni
                    MatriceNumeri(k,e) = Format2(MiaMatrice(aRetColonne(k,e)))
                Next ' fine ciclo For E
                Stop: sColonna = Left(sColonna,Len(sColonna) - 1) 'tolgo il (.) a destra delle due variabili String
                SmiaColonna = Left(SmiaColonna,Len(SmiaColonna) - 1)
                'scrivo a video le 2 formazioni sarà utile per controllare se lo sviluppo è corretto
                Call Scrivi(FormatSpace(k,5,True) & ") " & sColonna & " ---------- " & SmiaColonna)
                'aggiungo una colonna di sviluppo alla Tabella
                Call AddRigaTabella(miovettore,,,RGB(0,0,0))
                'imposto un colore diverso per la prima cella che contine Id della combinazione
                Call SetColoreCella(1,RGB(215,215,255),2)
            Next 'Fine del ciclo For K to nColonne
        End If 'Fine if GetMatricesistemaRidotto
    End If 'Fine IF sFile <>""
    Stop
    ' Terminato lo sviluppo e  finito di accodare le righe
    ' creo la tabella e la ordino per la colonna 1 che rappresenta Identificativo della colonna
    Call SetTableWidth
    Call CreaTabellaOrdinabile(1,1,,nColonne + 1,0) 'Creo la tabella
End Sub
Function ScegliFileSistema(MiaMatrice)
    Dim sDir
    Dim i
    sDir = GetDirectoryAppData & "sistemi\"
    ReDim aRetFiles(0)
    Call ElencoFileInDirectory(sDir,aRetFiles,".dat")
    i = ScegliOpzioneMenu(aRetFiles,,"Scegli file matrice per n°"&UBound(MiaMatrice) & " Numeri")
    If i <> "" Then
        ScegliFileSistema = sDir & aRetFiles(i) & ".dat"
    End If
End Function

 

[LuigiB]

Bravo !