Per Mike

[antonio65]

Ciao Mike volevo sapere se il mio metodo (l'ultimo dove ti ho chiesto la routine) posso applicarlo al gioco Millionary Day ?
Inoltre se ben ti ricordi quando ti parlai di quel vecchio sommativo che ai tempi avevi fatto tu con altri del forum?
Io ci ho tanto lavorato e ci sono riuscito(per mio sapere) i risultati ed i sommativi sono corretti...
Come avevo detto nel post precedente avendo l'esigenza se ad esempio io utilizzo 40 estrazioni io riesco a vederli si tutte le 40 estrazioni
ma i sommativi sono tutti sballati....ad esempio su Bari sulle ultime 40 estrazioni +48 ha dato 9 casi su 40 ....ma visualizzando tutte le 40 estrazioni non c'è nemmeno una volta il 48...
Ho guardato in tutti gli help non esiste questo argomento...ho consultato anche nei file test niente...secondo me sarebbe troppo bello vedere il tutto ciò
in tabella ma corretto... ti allego lo script....nessuno ha saputo dirmi il perchè...comunque ti posto il tuo sommativo perchè succede la stessa cosa....Se non hai tempo magari mi spieghi perchè io ci ragiono e vedo come posso fare....Grazie Antonio!!!

 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
   Ini = EstrazioneFin - 40
   fin = EstrazioneFin
   r = InputBox("Quale Ruota",,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
      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
      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)
   Next
   casi = 0
   Call CreaTabella()
End Sub

 

[Mike58]

Ciao Antonio, purtroppo con quello che scrivi nello script i calcoli sono esatti, è il tuo concetto di veduta in termini di output che ti sembra tutto sbagliato.

Tu stai chiedendo allo script per ogni estrazione e per ogni 1° estratto di darti il miglior sommativo che hai trovato nel sommativo 48
Bene se valuti per ogni 1° estratto e per ogni estrazione sommi il 48 il risultato è esattamente 9 esiti su 41 casi.

La tabella mostra solo l'ultimo caso e ti restituisce il miglior sommativo(48) con 9 esiti positivi.

Controprova script.

Sub Main
   Dim nu(1),ru(1)
   Ini = EstrazioneFin - 40
   fin = EstrazioneFin
   r = 1
   For es = Ini To fin
   'If IndiceMensile(es) = 1 Then
   k = k + 1
   a = Estratto(es,r,1)' estratto in posizione
   b = 48 ' sommativo
   nu(1) = Fuori90(a + b)' Numero Calcolato
   ru(1) = r
   Call VerificaEsito(nu,ru,es + 1,1,1,,esito,clp,ess)
   Scrivi k & vbTab & GetInfoEstrazione(es) & vbTab & StringaEstratti(es,r) & vbTab,0,0
   Scrivi a & " + " & b & "  Numero Calcolato : " & nu(1) & vbTab,0,0
   If esito = "" Then
   kk = kk + 1
   Scrivi "<>............... "
   Else
   Scrivi ess & " Colpo " & clp

   End If
   'End If   
   Next
   Scrivi
   Scrivi "Casi analizzati  : " & k
   Scrivi "Esiti verificati : " & k - kk



End Sub

Devi capire meglio cosa vuoi ottenere , poi fare le verifiche in piccolo e poi metti il tutto nello script finale.

Ciao

 

[antonio65]

Ciao Mike penso di aver risolto( se pur a modo mio) era necessario scrivere ordina matrice anzichè call ordina Matrice(n1,-1,5)
ho messo il + call ordina Matrice(n1,+1,5) cosl' vedo in base alle mie esigenze il movimento dei sommativi che hanno più casi e quando scendono e avanzano altri...Il problema si riponeva appunto quando volevo vedere il movimento dei sommativi( in questo caso per comodità 40 estrazioni) solo che appena la tabella si ampliava i sommativi erano sbagliati rispetto all'ultima estrazione come hai citato tu sopra...capito?

 

[antonio65]

ti allego il sommativo con un solo numero....e mettendo appunto ordina matrice anche alla fine con il valore + ho risolto(smanettando e ragionando) non so se è corretto ma fa al caso mio...dai un occhiata...

Sub Main
   Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5),SFF(3)
   Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
   Dim Ru(12),T,x1,x2,x3,x4,x5
   Dim poste(3),postee(3)
   Dim posta(2)
   posta(1) = 1 ' < - - - posta per estrattcaso
   caso = 0
   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))
   i = CInt(InputBox("Quante righe ",,5))
   T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Data","n1","n2","n3","n4","n5","SFF1","SFF2","SFF3")
   Call InitTabella(T,1,,3,5)
   For es = Ini To fin
      idd = GetInfoEstrazione(es)
      Call AvanzamentoElab(Ini,fin,es)
      'If IndiceMensile(es) = Ind Then
      stE = StringaEstratti(es,r)
      casi = casi + 1
      co = 0
      Ru(1) = r
      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(es + 1,es + clp,Nu,Ru,1)
         If sf > 0 Then
            NuFr(co,2) = NuFr(co,2) + 1
         End If
      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
      '------------------------------------------
      For i = 1 To 5
         Call OrdinaMatrice(NuFr,- 1,2)
         NuAdd(1) =(Nu(1) + NuFr(i,1))
         MEN(1) = Fuori90(Nu(1) + NuFr(i,1))
         'MEN(2) = Fuori90(Abs(NuAdd(1) - DNA(2)))
         'MEN(3) = Fuori90(Abs(NuAdd(1) - DNA(3)))
         'MEN(4) = Fuori90(Abs(NuAdd(1) - DNA(4)))
         'MEN(5) = Fuori90(Abs(NuAdd(1) - DNA(5)))
         '---------------------------------------------------
         m1(1) = MEN(1) : m1(1) = MEN(1)
         m2(1) = MEN(2) : m2(1) = MEN(2)
         m3(1) = MEN(3) : m3(1) = MEN(3)
         m4(1) = MEN(4) : m4(1) = MEN(4)
         m5(1) = MEN(5) : m5(1) = MEN(5)
         '-------------------------------------------------
         ReDim V(30)
         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)
         For x = 1 To 3
            SFF(x) = SerieFreqTurbo(Ini,fin,MEN,Ru,x)
         Next
         V(5) = MEN(1)
         V(6) = MEN(2)
         V(7) = MEN(3)
         V(8) = MEN(4)
         V(9) = MEN(5)
         sr = SerieRitardo(Ini,fin,MEN,Ru,1)
         Call VerificaEsito(MEN,Ru,es + 1,1,1,,Esito,colpi,estratti,id)
         V(10) = Esito
         V(11) = estratti
         V(12) = colpi & "°"
         V(13) = sr
         If Esito = "Estratto" Or Esito = "Terno" Then
            V(14) = DataEstrazione(id)
         Else
            V(14) = " In corso"
         End If
         V(15) = m1(1)
         V(16) = m2(1)
         V(17) = m3(1)
         V(18) = m4(1)
         V(19) = m5(1)
         V(20) = SFF(1)
         V(21) = SFF(2)
         V(22) = SFF(3)
         Call AddRigaTabella(V)
         If Posizione(es + colpi,r,MEN(1)) > 0 Then Call SetColoreCella(5,2,5)
         If Posizione(es + colpi,r,MEN(2)) > 0 Then Call SetColoreCella(6,2,5)
         If Posizione(es + colpi,r,MEN(3)) > 0 Then Call SetColoreCella(7,2,5)
         If Posizione(es + colpi,r,MEN(4)) > 0 Then Call SetColoreCella(8,2,5)
         If Posizione(es + colpi,r,MEN(5)) > 0 Then Call SetColoreCella(9,2,5)
         '-------------------------------------------------------------
         Call VerificaEsito(m1,Ru,es + 1,1,1,,esito1,colpi1,estratti1,id1)
         Call VerificaEsito(m2,Ru,es + 1,1,1,,esito2,colpi2,estratti2,id2)
         Call VerificaEsito(m3,Ru,es + 1,1,1,,esito3,colpi3,estratti3,id3)
         Call VerificaEsito(m4,Ru,es + 1,1,1,,esito4,colpi4,estratti4,id4)
         Call VerificaEsito(m5,Ru,es + 1,1,1,,esito5,colpi5,estratti5,id5)
         '-------------------------------------------------------------
         '-------------------------------------------------------------
         If esito1 = "Estratto" Then Call SetColoreCella(15,1,4)
         If esito2 = "Estratto" Then Call SetColoreCella(16,1,4)
         If esito3 = "Estratto" Then Call SetColoreCella(17,1,4)
         If esito4 = "Estratto" Then Call SetColoreCella(18,1,4)
         If esito5 = "Estratto" Then Call SetColoreCella(19,1,4)
         '------------------------------------------------------------
         If V(10) = "Estratto" Then Call SetColoreCella(10,3,1)
         If V(10) = "Ambo" Then Call SetColoreCella(10,2,4)
         If V(10) = "Terno" Then Call SetColoreCella(10,7,4)
         If V(14) = DataEstrazione(id) Then Call SetColoreCella(14,,1)
         Call OrdinaMatrice(NuFr,+ 1,1)
         '----------------------------------------------------------
         ImpostaGiocata 1,MEN,Ru,posta,clp
         Gioca es
      Next
   Next
   casi = 0
   SetTableTitle "         Listato Sommativo di antonio65 ","Arial",12
   SetTableWidth("100%")
   SetTableHeight("100%")
   Call CreaTabella()
   ScriviResoconto
End Sub

 

[Mike58]

Ok Antonio, non saprei se basta, ma se tu ritieni che i dati sono quelli che vuoi ottenere Bene.
Rimane il mio consiglio sperimenta sempre in piccolo e poi amplia in operazioni più complesse.

Ciao

 

[antonio65]

Si Mike basta...ho sempre avuto problemi dove ci sono i contatori co ....non sono esperto lo sai....ma qualche passettino l'ho fatto...grazie a te...alla tua bontà....quello che hai detto riguardante l'ultima estrazione è giusto, anche per me è giusto...anzi giustissimo...volevo solo capire il perchè volendo osservare tutti i casi e non osservare solo l'ultima estrazione....se non l'hai già fatto prova a togliere giù in basso ordina matrice
e ti accorgerai che i sommativi ampliando la tabella sballavano....sicuramente tu saprai altri modi...io nel mio piccolo ho trovato questa soluzione...
se puoi e hai tempo prova.....Grazie sempre....