Option Explicit
Sub Main
Dim Inizio
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''
Dim ar(1)
Dim aCol,aSubCol,asubcoldx,tclasse,p,n,fine,r,rae,ra,el,q1,q2,q3,q4,q5,e,f,t1,t2,fisso,s,DET
Dim clsSvil1,nClasseSvil
Set clsSvil1 = GetMotoreSviluppoIntegrale
r = InputBox("Ruota",,7)
fine = InputBox("Estraz.n.",,EstrazioneFin)
nClasseSvil = InputBox("Classe di sviluppo",,2)
fisso = InputBox("Capogioco",,63)
s = InputBox("Verifica per la sorte",,2)
DET = InputBox("Vuoi stampa combinazioni Filtrate S/N",,"N")
ar(1) = r
ColoreTesto(1)
Scrivi "Ruota di " & NomeRuota(r),1
Scrivi "Estraz.n." & fine & " / " & DataEstrazione(fine),1
Scrivi "Fisso o Capogioco " & fisso,1
Scrivi "Sviluppo richiesto in classe...." & nClasseSvil & " Verifica per la sorte.." & s,1
Scrivi
ColoreTesto(0)
ReDim anumeri(90),ele(5)
For rae = 0 To 17
el = ""
For p = 1 To 5
n = Estratto(fine - rae,r,p)
ra = EstrattoRitardoTurbo(r,n,3950,fine)
If n <> 0 And ra = rae Then
''' Scrivi fine - rae & " " & p & "...." & Format2(n)
ele(p) = ele(p) & Format2(n) & "."
el = el & Format2(n) & "."
Else
el = el & " " & "."
End If
Next
Scrivi fine - rae & "..Ra.." & Format2(rae) & "......" & el,1
Next
Scrivi
Scrivi " 1° ) Colonna..." & ele(1)
Scrivi " 2° ) Colonna..." & ele(2)
Scrivi " 3° ) Colonna..." & ele(3)
Scrivi " 4° ) Colonna..." & ele(4)
Scrivi " 5° ) Colonna..." & ele(5)
Scrivi
Inizio = Time
ReDim mn1(18),mn2(18),mn3(18),mn4(18),mn5(18)
Call SplitByChar(ele(1),".",mn1)
Call SplitByChar(ele(2),".",mn2)
Call SplitByChar(ele(3),".",mn3)
Call SplitByChar(ele(4),".",mn4)
Call SplitByChar(ele(5),".",mn5)
q1 = UBound(mn1)
q2 = UBound(mn2)
q3 = UBound(mn3)
q4 = UBound(mn4)
q5 = UBound(mn5)
Scrivi "Totale nr.da Elaborare..." & Format2(q1) & " | " & Format2(q2) & " | " & Format2(q3) & " | " & Format2(q4) & " | " & Format2(q5)
Scrivi
Scrivi "1° Ciclo di elaborazione colonne 1 : 2 ",1
'''colonna 1
ReDim lav1(18),lav2(18)
For e = 0 To q1
f = f + 1
anumeri(f) = mn1(e)
lav1(e) = mn1(e)
Next
''''colonna 2
For e = 0 To q2
f = f + 1
anumeri(f) = mn2(e)
lav2(e) = mn2(e)
Next
ColoreTesto(2)
t1 = q1 : t2 = q2
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1,t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "2° Ciclo di elaborazione colonne 1 : 3 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q1
f = f + 1
anumeri(f) = mn1(e)
lav1(e) = mn1(e)
Next
''''colonna 3
For e = 0 To q3
f = f + 1
anumeri(f) = mn3(e)
lav2(e) = mn3(e)
Next
ColoreTesto(2)
t1 = q1 : t2 = q3
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "3° Ciclo di elaborazione colonne 1 : 4 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q1
f = f + 1
anumeri(f) = mn1(e)
lav1(e) = mn1(e)
Next
''''colonna 3
For e = 0 To q4
f = f + 1
anumeri(f) = mn4(e)
lav2(e) = mn4(e)
Next
ColoreTesto(2)
t1 = q1 : t2 = q4
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "4° Ciclo di elaborazione colonne 1 : 5 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q1
f = f + 1
anumeri(f) = mn1(e)
lav1(e) = mn1(e)
Next
''''colonna 3
For e = 0 To q5
f = f + 1
anumeri(f) = mn5(e)
lav2(e) = mn5(e)
Next
ColoreTesto(2)
t1 = q1 : t2 = q5
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "5° Ciclo di elaborazione colonne 2 : 3 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q2
f = f + 1
anumeri(f) = mn2(e)
lav1(e) = mn2(e)
Next
''''colonna 3
For e = 0 To q3
f = f + 1
anumeri(f) = mn3(e)
lav2(e) = mn3(e)
Next
ColoreTesto(2)
t1 = q2 : t2 = q3
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "6° Ciclo di elaborazione colonne 2 : 4 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q2
f = f + 1
anumeri(f) = mn2(e)
lav1(e) = mn2(e)
Next
''''colonna 3
For e = 0 To q4
f = f + 1
anumeri(f) = mn4(e)
lav2(e) = mn4(e)
Next
ColoreTesto(2)
t1 = q2 : t2 = q4
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "7° Ciclo di elaborazione colonne 2 : 5 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q2
f = f + 1
anumeri(f) = mn2(e)
lav1(e) = mn2(e)
Next
''''colonna 3
For e = 0 To q5
f = f + 1
anumeri(f) = mn5(e)
lav2(e) = mn5(e)
Next
ColoreTesto(2)
t1 = q2 : t2 = q5
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "8° Ciclo di elaborazione colonne 3 : 4 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q3
f = f + 1
anumeri(f) = mn3(e)
lav1(e) = mn3(e)
Next
''''colonna 3
For e = 0 To q4
f = f + 1
anumeri(f) = mn4(e)
lav2(e) = mn4(e)
Next
ColoreTesto(2)
t1 = q3 : t2 = q4
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "9° Ciclo di elaborazione colonne 3 : 5 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q3
f = f + 1
anumeri(f) = mn3(e)
lav1(e) = mn3(e)
Next
''''colonna 3
For e = 0 To q5
f = f + 1
anumeri(f) = mn5(e)
lav2(e) = mn5(e)
Next
ColoreTesto(2)
t1 = q3 : t2 = q5
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''
Scrivi "10° Ciclo di elaborazione colonne 4 : 5 ",1
ReDim anumeri(90)
f = 0
'''colonna 1
For e = 0 To q4
f = f + 1
anumeri(f) = mn4(e)
lav1(e) = mn4(e)
Next
''''colonna 3
For e = 0 To q5
f = f + 1
anumeri(f) = mn5(e)
lav2(e) = mn5(e)
Next
ColoreTesto(2)
t1 = q4 : t2 = q5
Scrivi StringaNumeri(anumeri," "),1
Call sviluppo(anumeri,nClasseSvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
ColoreTesto(0)
Scrivi
Scrivi Inizio & " : " & TimeValue(Time)
End Sub
Function sviluppo(anumeri,nclassesvil,ar,fine,lav1,lav2,t1, t2,fisso,s,DET)
Dim acol,ct,clsSvil1,retestratti,retidestr,retesito,buona1,buona2,y,z,ctvalid,retrit,retritmax,retfre
Set clsSvil1 = GetMotoreSviluppoIntegrale
Call clsSvil1.InitSviluppoIntegrale(anumeri,nclassesvil )'
Do While clsSvil1.GetCombSviluppo(acol)
ct = ct + 1
Messaggio(ct)
'''verifica 0,1,2 max nr. per gruppo
buona1 = 0 : buona2 = 0
For z = 0 To t1 - 1
For y = 1 To nclassesvil
If acol(y) = Int(lav1(z)) And acol(y) = Int(fisso) Then
buona1 = buona1 + 1
End If
Next
Next
'''''''''''''''''''''''''''
For z = 0 To t2 - 1
For y = 1 To nclassesvil
If acol(y) = Int(lav2(z)) And acol(y) = Int(fisso) Then
buona2 = buona2 + 1
End If
Next
Next
If buona1 >= 1 And buona1 < 3 Or buona2 >= 1 And buona2 < 3 Then
ctvalid = ctvalid + 1
''''scrivi combinazione filtrata
If DET = "S" Then
Call StatisticaFormazioneTurbo(acol,ar,2,retrit,retritmax,,retfre,3950,fine)
Scrivi "***** Proposta di gioco comb." & StringaNumeri(acol,".") & " Rc / Rx..." & FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " Fr." & FormattaStringa(retfre,"000"),1
Else
''''verifica esiti in 3 colpi
Call VerificaEsitoTurbo(acol,ar,fine + 1,s,3,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(0)
Scrivi ">>>>>>>>>>>>>>>----- Uscito ----" & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti & " In gioco comb." & StringaNumeri(acol,".") & " " & retesito,1
End If
End If
End If
Loop
ColoreTesto(1)
Scrivi "----- Totale Combinazioni sviluppate..." & ct & " ------- in classe.." & nclassesvil & " tot.valide filtrate..." & ctvalid,1
Scrivi "---------------------------------------------------------------------------------------------------------------------------------------------------------------",1
ColoreTesto(0)
End Function