Per Mike

[antonio65]

Ciao Mike come stai? spero bene...volevo chiederti un ultima cortesia se me lo concedi:
si tratta di voler applicare una routine di elaborazioni dati per ambo ,terno e quaterna...
In base al metodo di cui allego lo script ...mi servirebbe appunto accoppiare o meglio ricercare le migliori previsioni.
Eseguendo lo script supponiamo ricerca per Bari , da previsioni metodo vengono fuori 5 numeri ....cosi Cagliari , Firenze fino alla Nazionale....
Quindi sono 5 numeri per ogni ruota, totale 55 numeri...ora volendo rafforzare e migliorare le previsioni
chiedo una routine di elaborazioni; quindi 1° estratto da metodo su Bari con gli altri 54 numeri (5 per ruota) si accoppiano e danno esito su ruota X
stessa cosa con il 2°estratto di Bari 3° estratto,4°estratto,5°estratto....finito Bari ...inizia Cagliari fino alla Nazionale...etc etc....
Ti allego lo script se puoi inserire tale procedura all'interno dello script te ne sarei grato....I numeri generati da Metodo sono chiamati Numero1-Numero2-Numero3-Numero4-Numero5
e sono sotto Nn(5) .Grazie Antonio

Sub Main
   Dim Nu(5),Nn(5),Ru(12),T,V,Numero1,Numero2,Numero3,Numero4,Numero5,SommaE,SommaEx4,Nuadd,Nuadd2,NumSom,Numalti,Risnumalti,Quartonumero1,Quartonumerodiviso,Quintonumero1
   Dim poste(3),postee(3)
   Dim posta(2)
   posta(1) = 1 
   Ini = EstrazioneFin - 40
   fin = EstrazioneFin
   r = InputBox("Quale Ruota",,1)
   T = Array(T,"Data Estraz."," Num.Estratti","SommaEstratti","Estr.x 4","2 Estratto","SommaEx4","NumSom","Numalti","nu1","nu2","nu3","nu4","nu5","Esito","Estratti","clp")
   Call InitTabella(T,1,3,,5)
   For es = Ini To fin
      Call AvanzamentoElab(Ini,fin,es)
      p1 = 1
      p2 = 2
      p3 = 3
      p4 = 4
      p5 = 5
      Ru(1) = r
      SommaE = SommaEstratti(es,r) ' Somma estratti
      Numero1 = Estratto(es,r,p1)' 1°Numero
      Nuadd = Numero1*4'
      Nuadd2 = Abs(Nuadd - 100)
      Numero2 = Fuori90(Abs(SommaE - Nuadd2))'  2°Numero
      SommaEx4 = SommaE*4
      NumSom = Nuadd + SommaE
      Numalti = Abs(SommaEx4 - NumSom)
      Risnumalti = Abs(Numalti - 100)
      Numero3 = Abs(SommaE - Risnumalti)' 3°numero
      Quartonumero1 = Numero1 + Numero2 + Numero3
      Quartonumerodiviso = Quartonumero1/2
      Numero4 = Quartonumerodiviso + Numero3'4°numero
      Quintonumero1 = Numero2 + Numero3 + Numero4
      Numero5 = Abs(SommaE - Quintonumero1)'5°Numero
      '************************************************************************************
      Nn(1) = Fuori90(Numero1)
      Nn(2) = Fuori90(Numero2)
      Nn(3) = Fuori90(Numero3)
      Nn(4) = Fuori90(Numero4)
      Nn(5) = Fuori90(Numero5)
      '************************************************************************************
      Call VerificaEsito(Nn,Ru,es + 1,1,1,,es1,clp,estratti)
      '.......................................
      V = Array(V,GetInfoEstrazione(es) & " = " & SiglaRuota(r),StringaEstratti(es,r),SommaE,Nuadd2,Numero1,SommaEx4,NumSom,Numalti,Nn(1),Nn(2),Nn(3),Nn(4),Nn(5),es1,estratti,clp & "°")
      Call AddRigaTabella(V)
      ImpostaGiocata 1,Nn,Ru,posta,clp
      Gioca es
      Call SetColoreCella(15,,7)
      Call SetColoreCella(1,,1)
      Call SetColoreCella(2,,1)
      If V(14) = "Estratto" Then Call SetColoreCella(14,7,5)
      If V(14) = "Ambo" Then Call SetColoreCella(14,1,5)
      If V(14) = "Terno" Then Call SetColoreCella(14,4,7)
      If V(14) = "Quaterna" Then Call SetColoreCella(14,2,4)
      If V(14) = "Cinquina" Then Call SetColoreCella(14,2,4)
      rr = 11
      If EstrattoFrequenza(rr,Nn(1),es + 1,es + clp) > 0 Then Call SetColoreCella(9,2,5)
      If EstrattoFrequenza(rr,Nn(2),es + 1,es + clp) > 0 Then Call SetColoreCella(10,2,5)
      If EstrattoFrequenza(rr,Nn(3),es + 1,es + clp) > 0 Then Call SetColoreCella(11,2,5)
      If EstrattoFrequenza(rr,Nn(4),es + 1,es + clp) > 0 Then Call SetColoreCella(12,2,5)
      If EstrattoFrequenza(rr,Nn(5),es + 1,es + clp) > 0 Then Call SetColoreCella(13,2,5)
   Next
   SetTableTitle "         Listato  Antonio65 ","Arial",12
   SetTableWidth("100%")
   SetTableHeight("100%")
   Call CreaTabella()
   ScriviResoconto
End Sub

 

[Mike58]

Ciao Antonio visto l'ora che scrivi vuol dire che ci stai impazzendo con questo script, mentre io visto l'ora che ti rispondo sono appena arrivato dal lavoro notturno.

Cosa dirti potrebbe essere facile e possibile se ci pensi, infatti proprio per non stare ad impazzire con routine ad oc avevo chiesta a Luigi un codice che poteva essere usato in questi casi, si chiama abbinamenti (dovresti leggerti la guida e lo script ad esempio in cartelle test) con il quale puoi stabilire quanti e quale vettore abbinare.

Ora che ti ho dato la dritta potresti provarci, se non ci riesci provo a cimentarmi io, ma ho bisogno del tempo necessario ( ora la palpebra cade).

Ciao.

 

[Mike58]

Antonio eccoti la routine ad esempio che dovresti utilizzare ad oc nel tuo script

Option Explicit
Sub Main
   Dim aRetAbb
   Dim k,r
   For r = 1 To 12 : If r = 11 Then r = 12
   Call Abbinamenti(90,aRetAbb,EstrazioneIni,EstrazioneFin,r,0)
   For k = 1 To 10
      Scrivi Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2)
      ReDim Preserve abb(k)
      abb(k) = aRetAbb(k,1)

   Next
   Scrivi SiglaRuota(r) & vbTab & StringaNumeri(abb),1
   Scrivi "============================================"
   Next
End Sub

 

[antonio65]

Buongiorno Mike...si ci sto diventando matto sul serio....dire grazie mi sembra molto scontato....già lo script si avvia da se....mi viene molto difficile a completare il mio script cioè applicando la tua routine con il metodo....non escludo che non ci proverò.....ma non mi fido....prenditi il tempo che vuoi ...io attenderò non ho fretta...infinite grazie Antonio!!!

 

[antonio65]

Ciao Mike io ci ho provato...con tutta la mia buona volontà più di qui non so arrivare...le anomalie secondo me che riscontro sono che gli abbinamenti li fa storici(potrebbe servire ma più in la) temporaneamente interessa dalla data che io prefisso...e ho qualche dubbio se i risultati siano veritieri...il mio scopo è di ottenere dei dati bene precisi e cioè: una volta ottenuti i migliori abbinamenti , quante volte nella data da me impostata da ambi, terni e quaterne.....

         Sub Main
      Dim Nu(5),Nn(5),Ru(12),T,V,Numero1,Numero2,Numero3,Numero4,Numero5,SommaE,SommaEx4,Nuadd,Nuadd2,NumSom,Numalti,Risnumalti,Quartonumero1,Quartonumerodiviso,Quintonumero1
      Dim aRetAbb
      Dim k,r
      Dim poste(3),postee(3)
      Dim posta(2)
      posta(1) = 1 ' < - - - posta per estratto
      r = InputBox("Quale Ruota",,1)
      For r = 1 To 12
      If r = 11 Then r = 12
      Ini = EstrazioneFin - 40
      fin = EstrazioneFin
      T = Array(T,"Data Estraz."," Num.Estratti","SommaEstratti","Estr.x 4","2 Estratto","SommaEx4","NumSom","Numalti","nu1","nu2","nu3","nu4","nu5","Esito","Estratti","clp")
      Call InitTabella(T,1,3,,5)
      For es = Ini To fin
      Call AvanzamentoElab(Ini,fin,es)
      p1 = 1
      p2 = 2
      p3 = 3
      p4 = 4
      p5 = 5
      Ru(1) = r
      SommaE = SommaEstratti(es,r)
      A = Abs(SommaE - Numero1) ' numero SCELTO CON 62 SOTTRATTO
      B = Abs(SommaE + Numero1) ' numero SCELTO CON 62 SOTTRATTO ADDIZIONATO
      Numero1 = Estratto(es,r,p1)
      Nuadd = Numero1*4' 248
      Nuadd2 = Abs(Nuadd - 100)'148
      Numero2 = Fuori90(Abs(SommaE - Nuadd2))'8  2°Numero
      SommaEx4 = SommaE*4'624
      NumSom = Nuadd + SommaE'404
      Numalti = Abs(SommaEx4 - NumSom)'220
      Risnumalti = Abs(Numalti - 100)'120
      Numero3 = Abs(SommaE - Risnumalti)'36 Terzo numero
      Quartonumero1 = Numero1 + Numero2 + Numero3 '106
      Quartonumerodiviso = Quartonumero1/2'53
      Numero4 = Quartonumerodiviso + Numero3'89 Quarto numero
      Quintonumero1 = Numero2 + Numero3 + Numero4
      Numero5 = Abs(SommaE - Quintonumero1)'23  Quinto Numero


      '************************************************************************************
      Nn(1) = Fuori90(Numero1)
      Nn(2) = Fuori90(Numero2)
      Nn(3) = Fuori90(Numero3)
      Nn(4) = Fuori90(Numero4)
      Nn(5) = Fuori90(Numero5)

      Call Abbinamenti(Nn(1),aRetAbb,EstrazioneIni,EstrazioneFin,r,0)
         For k = 1 To 5
            Scrivi Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2)
          ReDim Preserve abb(k)
            abb(k) = aRetAbb(k,1)

       Next


      '************************************************************************************
      Call VerificaEsito(Nn,Ru,es + 1,1,1,,es1,clp,estratti)
      '.......................................
      V = Array(V,GetInfoEstrazione(es) & " = " & SiglaRuota(r),StringaEstratti(es,r),SommaE,Nuadd2,Numero1,SommaEx4,NumSom,Numalti,Nn(1),Nn(2),Nn(3),Nn(4),Nn(5),es1,estratti,clp & "°")

      Call AddRigaTabella(V)
      ImpostaGiocata 1,Nn,Ru,posta,clp
      ImpostaGiocata 2,abb,Ru,posta,clp
      Gioca es
      Call SetColoreCella(15,,7)
      Call SetColoreCella(1,,1)
      Call SetColoreCella(2,,1)

      If V(14) = "Estratto" Then Call SetColoreCella(14,7,5)
      If V(14) = "Ambo" Then Call SetColoreCella(14,1,5)
      If V(14) = "Terno" Then Call SetColoreCella(14,4,7)
      If V(14) = "Quaterna" Then Call SetColoreCella(14,2,4)
      If V(14) = "Cinquina" Then Call SetColoreCella(14,2,4)
      rr = 11
      If EstrattoFrequenza(rr,Nn(1),es + 1,es + clp) > 0 Then Call SetColoreCella(9,2,5)
      If EstrattoFrequenza(rr,Nn(2),es + 1,es + clp) > 0 Then Call SetColoreCella(10,2,5)
      If EstrattoFrequenza(rr,Nn(3),es + 1,es + clp) > 0 Then Call SetColoreCella(11,2,5)
      If EstrattoFrequenza(rr,Nn(4),es + 1,es + clp) > 0 Then Call SetColoreCella(12,2,5)
      If EstrattoFrequenza(rr,Nn(5),es + 1,es + clp) > 0 Then Call SetColoreCella(13,2,5)
       Scrivi "============================================"
            Scrivi SiglaRuota(r) & vbTab & StringaNumeri(abb),1


      Next
      Next

      SetTableTitle "         Listato  Antonio65 ","Arial",12
      SetTableWidth("100%")
      SetTableHeight("100%")

      Call CreaTabella()
      ScriviResoconto
      End Sub

 

[Mike58]

Ciao Antonio avresti fatto il tutto anche bene, e solo che hai messo un range estrazione inizio come EstrazioneIni questo codice parte dalla estrazione 1 quindi molto datata.
stabilisciti tu un range inizio valido (40 estrazioni sono poche per validi abbinamenti)
esempio Inix = estrazioneFin-200 e poi riportalo nel codice Abbinamenti

Call Abbinamenti(Nn(1),aRetAbb,Inix,EstrazioneFin,r,0)

Ciao provaci, purtroppo il tempo ahinoi è tiranno per tutti (scusami).

 

[antonio65]

problema risolto ho messo Call Abbinamenti(Nn(1),aRetAbb,Ini,fin,r,0) resta un altro ostacolo, secondo te con il codice che mi hai mandato tu

Call Abbinamenti(90,aRetAbb,EstrazioneIni,EstrazioneFin,r,0) ed io al posto del 90 ho messo nn(1) sarebbe a dire che lo script analizza il numero che vede sotto nn(1) di ciascun ruota e lo riporta nella ruota dove è sortito il maggior dei casi? in teoria dovrebbe essere cosi...

 

[Mike58]

Si Antonio,il codice non utilizza il NumeroVettore, ma il numero singolo, il mio esempio con 90 era chiaro, poi nn(1) rappresenta il tuo numero e cerce con esso gli abbinamenti migliori.
La ruota(r) rappresenta la ruota di sortita e con il suo ciclo for dovrebbe cercare la ruota in esame iterata.
Ora non ti rimane che mettere insieme i pezzi per l'utilizzo che vuoi ottenere.

Ciao e bravo altro passetto in avanti.

 

[antonio65]

Grazie Mike , devo solo provare e riprovare sempre....