antonio65
Super Member >PLATINUM<
Buon 1°Maggio a tutti....Ciao Claudio volevo chiederti un aiuto se ti è possibile....si tratta di questo:
Volendo avere una migliore visuale e fare un analisi più dettagliata di uno script sommativo cioè
se per comodità di ricerca imposto 40 estrazioni di ricerca desidero vedere il tutto sulla tabella...
però appena togliendo un next sotto il calcolo sommativo è vero che la tabella mi da le 40 estrazioni per cui sto facendo un analisi
ma i sommativi sono sbagliati completamente....mi da solo numeri piccoli tipo +1,+2 ma sono sballati...
al contrario cioè non visualizzando le 40 estrazioni nella tabella i calcoli sono esatti e corretti....
ho provato tante volte ma non riesco....mi potresti dare una mano? allego lo script in primis quello corretto con i giusti sommativi che per comodità ho scelto
solo il 1°estratto....ecco il primo script
Volendo avere una migliore visuale e fare un analisi più dettagliata di uno script sommativo cioè
se per comodità di ricerca imposto 40 estrazioni di ricerca desidero vedere il tutto sulla tabella...
però appena togliendo un next sotto il calcolo sommativo è vero che la tabella mi da le 40 estrazioni per cui sto facendo un analisi
ma i sommativi sono sbagliati completamente....mi da solo numeri piccoli tipo +1,+2 ma sono sballati...
al contrario cioè non visualizzando le 40 estrazioni nella tabella i calcoli sono esatti e corretti....
ho provato tante volte ma non riesco....mi potresti dare una mano? allego lo script in primis quello corretto con i giusti sommativi che per comodità ho scelto
solo il 1°estratto....ecco il primo script
Codice:
Sub Main
Dim Nu(1),N1(1),N2(1),N3(1),N4(1),N5(1),Som1(90,5),Som2(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
Dim Ru(12),T
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
Ini = EstrazioneFin - 40
fin = EstrazioneFin
r = InputBox("Quale Ruota",,1)
'pos = CInt(InputBox("Quale posizione",,1))
'Ind = CInt(InputBox("Quale indiceMensile",,1))
clp = CInt(InputBox("Quanti Colpi di Gioco",,1))
smm = CInt(InputBox("Quante righe ",,5))
T = Array(T,"E.1","SM.1","FREQ.1","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpi","Data","Ritardo x 1","sf1","Estr.")
Call InitTabella(T,1,,3,5)
For es = Ini To fin
'If IndiceMensile(es) = Ind Then
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
p1 = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
est1 = Estratto(es,r,p1)
est2 = Estratto(es,r,p2)
est3 = Estratto(es,r,p3)
est4 = Estratto(es,r,p4)
est5 = Estratto(es,r,p5)
'------- calcolo sommativo1 ---------------
For sm = 1 To 90
co = co + 1
N1(1) = Fuori90(est1 + sm)
Som1(co,1) = sm
sf = SerieFreq(es + 1,es + clp,N1,Ru,1)
If sf > 0 Then
Som1(co,2) = Som1(co,2) + 1
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(Som1,- 1,2)
If(Som1(i,2)) >= 0 Then
End If
For i = 1 To 5
'NuAdd(1) = Fuori90(N1(1) + NuFr1(i,1))
ReDim V(30)
V(1) = p1 & "°" & " di " & SiglaRuota(r) & " = " & est1
V(2) = " + " & Format2(CStr(Som1(i,1)))
V(3) = Format2(Som1(i,2)) & " su " & casi & " Casi "
MEN(1) = Fuori90(Abs(N1(1) + Som1(i,1)))
V(4) = MEN(1)
V(5) = MEN(2)
V(6) = MEN(3)
V(7) = MEN(4)
V(8) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsitoTurbo(MEN,Ru,es + 1,1,1,,esito,colpi,estratti,id)
V(9) = esito
V(10) = estratti
V(11) = colpi & "°"
If esito = "Estratto" Or esito = "Terno" Then
V(12) = DataEstrazione(id)
Else
V(12) = " In corso "
End If
V(13) = sr
V(14) = sf
V(15) = StringaEstratti(es,r)
Call AddRigaTabella(V)
If V(9) = "Estratto" Then Call SetColoreCella(9,1,5)
If V(9) = "Ambo" Then Call SetColoreCella(9,2,5)
If V(9) = "Terno" Then Call SetColoreCella(9,7,5)
If V(12) = DataEstrazione(id) Then Call SetColoreCella(12,,1)
'Call OrdinaMatrice(NuFr1,- 1,1)
Next
casi = 0
Call CreaTabella()
End Sub
