Sub Main
'nota: se lasci come grado di presenza 0 genererai tutte le formazioni integrali della classe impostata
' es. con i 20 numeri del vettore di esempio in classe 2 genererai tutte le 190 coppie possibili... ecc...
Call sviluppaformazionidellaGvoluta
End Sub
Function sviluppaformazionidellaGvoluta
Dim k
Dim Classe,Sorte
Dim acol
'ReDim anum(90)
Dim i
Dim nSorte,Fine,QuantitaNumeriScelti,Inizio
Dim coltot
Dim contatore
contatore = 1
'ReDim anum(0)
'QuantitaNumeriScelti = ScegliNumeri(anum)
Dim anum
'anum = Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
Dim G14ABS(5)
G14ABS(1) = Array(0,1,2,3,4,5,6,7,8,9,10)
G14ABS(2) = Array(0,10,11,12,13,14,15,16,17,18,19)
G14ABS(3) = Array(0,20,21,22,23,24,25,26,27,28,29)
G14ABS(4) = Array(0,30,31,32,33,34,35,36,37,38,39)
G14ABS(5) = Array(0,40,41,42,43,44,45,46,47,48,49)
Dim gvolutadipartenza
Dim gvolutadiarrivo
Dim Classedipartenza
Dim Classediarrivo
Classedipartenza = InputBox("Classe di partenza; la + piccola","Classe di partenza; la + piccola",2)
Classediarrivo = InputBox("Classe di arrivo; la + grande; deve essere necessariamente diversa dalla + piccola","Classe di arrivo; la + grande",Classedipartenza + 1)
gvolutadipartenza = InputBox("G voluta di partenza; la + piccola; scegliere 0 x sviluppo integrale","G di partenza; la + piccola; 0 x sviluppo integrale",0)'Classedipartenza)
gvolutadiarrivo = InputBox("G voluta di arrivo; la + grande; scegliere 0 x sviluppo integrale","G di arrivo; la + grande; 0 x sviluppo integrale",0)'Classediarrivo)
If Classedipartenza > Classediarrivo Or gvolutadipartenza > gvolutadiarrivo Then
Call Messaggio("Fai attenzione ad Inserire i Valori nel Modo Corretto Indicato")
Classedipartenza = InputBox("Classe di partenza; la + piccola","Classe di partenza; la + piccola",2)
Classediarrivo = InputBox("Classe di arrivo; la + grande; deve essere necessariamente diversa dalla + piccola","Classe di arrivo; la + grande",Classedipartenza + 1)
gvolutadipartenza = InputBox("G voluta di partenza; la + piccola; scegliere 0 x sviluppo integrale","G di partenza; la + piccola; 0 x sviluppo integrale",0)'Classedipartenza)
gvolutadiarrivo = InputBox("G voluta di arrivo; la + grande; scegliere 0 x sviluppo integrale","G di arrivo; la + grande; 0 x sviluppo integrale",0)'Classediarrivo)
End If
Dim sfile
Dim reportlunghettadoc
ReDim raccoltanumeri(0)
sfile = ".\matrice-numerica-desiderata.txt"
Call CloseFileHandle(sfile) ' chiudo l'handle al file
Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
sfile = ".\matrice-numerica-desiderata.txt"
Dim konta
For konta = 1 To UBound(G14ABS)
For Classe = Classedipartenza To Classediarrivo
Sorte = SelEsito(gvolutadipartenza,gvolutadiarrivo)
coltot = InitSviluppoIntegrale(G14ABS(konta),Classe)
If coltot > 0 Then
Do While GetCombSviluppoRid(acol,Sorte) = True
i = i + 1
contatore = contatore + 1
Call AvanzamentoElab(1,coltot,i)
Call Messaggio("Colonna " & i)
reportlunghettadoc = StringaNumeri(acol,,True)
Call Scrivi(StringaNumeri(acol))
Call ScriviFile(sfile,reportlunghettadoc,False,True) ' scrivo anche sul file preposto
If ScriptInterrotto Then Exit Do
Loop
End If
If ScriptInterrotto Then Exit For
Next ' x classe
If ScriptInterrotto Then Exit For
Next ' x konta
Call CloseFileHandle(sfile) ' chiudo l'handle al file
Scrivi
Scrivi "righe totali: " & contatore - 1
Scrivi
Scrivi
Scrivi "formazioni integrali: " & coltot
Scrivi
Scrivi
Scrivi "formazioni ridotte: " & i
Scrivi
Scrivi
Scrivi "da classe: " & Classedipartenza & " a classe " & Classediarrivo
Scrivi
Scrivi
Scrivi "per grado di presenza da: " & gvolutadipartenza & " a grado di presenza " & gvolutadiarrivo
Scrivi
End Function
Function SelEsito(gvolutadipartenza,gvolutadiarrivo)
Dim ret
Dim aVoci
For ret = gvolutadipartenza To gvolutadiarrivo
SelEsito = ret
Next
End Function