Per Mike&Magia o chi vuole intervenire...

[antonio65]

Buonasera Mike, buonasera Magia....avrei bisogno di un piccolo aiutino...se pur ci ho provato con tutte le forze non riesco...
Voglio ringraziare Claudio per l'aiuto....Grazie al sommativo che aveva programmato Mike...che va benissimo...
Volevo chiedere qualora fosse possibile e senza disturbare ...se si puo aggiungere una classifica allo script postato mi spiego...
a me piace impostare per default For i = 1 To smm che per quello che ho capito si puo variare anche cosi: For i = 1 To 5
quindi la classifica consiste in questo : quante volte le posizioni di tutti gli estratti si accoppiano(e quindi danno ambo)
mi spiego meglio: default For i= 1 To 5 1°estratto di Bari calcolando da : 41-38-17-31-13 2° estratto di Bari calcolando da: 62-38-20-75-49 etc etc con gli altri estratti...
analizzando bene il 2 estratto alla 3 posizione da il 17 ed come se io scrivessi nel ciclo For i = 3 To 3 ...La classifica quindi consiste accoppiare tutte le posizioni....Grazie in anticipo....

Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
Dim Ru(1),T
Ini = EstrazioneFin - 22
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,11))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1")
Call InitTabella(T,6)
For es = Ini To fin
'If IndiceMensile(es) = Ind Then
For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
'End If
Next
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento  : " & NomeRuota(r)
Scrivi "Stringa estratti      : " & stE
Scrivi "Indice mensile        : " & Ind
Scrivi "Colpi di Gioco        : " & clp
Scrivi "Righe visualizzate    : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To 5
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(15)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MEN(1) = Fuori90(Nu(1) + NuFr(i,1))
'MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
'MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
'MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
'MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)

sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,1,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi & "°"
V(15) = sr
Call AddRigaTabella(V)
Next
casi = 0
Call CreaTabella()
'c = 0
'Next
End Sub