Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
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
porcia;n2084642 ha scritto:Salve, avrei bisogno del vostro aiuto per sviluppare un sistemino per il 10elotto, ossia su 20 numeri in pronostico vorrei fare 6 schedine da 10 numeri che con l'uscita di almeno 7 numeri avere la vincita del 5. Spero di essermi spiegato bene. Grazie
Però credo che x avere la garanzia che chiedi serva uno sviluppo ridotto di 20_10_3 che genera 15 colonne e con 7 indovinati generi più di un 5
...i numeri sono
da 90 a 10 + 20