Junior Member
 - Group:
- Member
- Posts:
- 10
- Status:
| |
| 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
|
