Piccola modifica

antonio65 · 4 Settembre 2018

Ciao a tutti, volevo chiedere se nello script allegato è possibile fare le previsioni per tutte le ruote tranne la Nazionale
e' uno script sommativo per ambo....funziona benissimo solo che elabora solo ogni singola ruota...grazie per l'aiuto Antonio65!!!

Codice:

Sub Main()
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & "  SCRIPT DI MIKE58 ",1
   Dim num(4500,5),aa(3),n1(1),n2(1),n3(1)
   Dim cin(10),ruote(10)
   casi = 0
   'x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",5)) 'DA CAMBIARE A PIACIMENTO
   ruote(1) = r
   fin = EstrazioneFin
   Ini = fin - 100
   fine = EstrazioneFin
   ReDim atitoli(11)
   atitoli(1) = " ESTRATTO "
   atitoli(2) = " SOMMATIVO "
   atitoli(3) = " PRESENZA SU CASI "
   atitoli(4) = " NUMERO IN GIOCO "
   atitoli(5) = " ESITO "
   atitoli(6) = " RET_ESTRATTI "
   atitoli(7) = " DATA ESTRAZIONE "
   atitoli(8) = " COLPO ESITO "
   atitoli(9) = " NUM. 1 "
   atitoli(10) = " NUM. 2 "
   atitoli(11) = " NUM. 3 "
   Call InitTabella(atitoli,1,,3,5)
   For es = Ini To Fin
      'If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
      idd = GetInfoEstrazione(es)
      Call Messaggio("Costruttore Sommativo per Ambi      " & " casi trovati...." & casi)
      Call AvanzamentoElab(Ini,fin,es)
      Inco = fine - es
      casi = casi + 1
      co = 0
      es1 = es + 1
      es2 = es1 + colpi
      e = Estratto(es,r,pos)
      For s1 = 1 To 88
         For s2 = s1 + 1 To 89
            'For s3 = s2 + 1 To 90
            co = co + 1
            cin(1) = Fuori90(e + s1)
            cin(2) = Fuori90(e + s2)
            'cin(3) = Fuori90(e + s3)
            ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
            num(co,1) = s1
            num(co,2) = s2
            'num(co,3) = s3
            num(co,4) = num(co,4)
            If ea > 0 Then
               num(co,4) = num(co,4) + 1
            End If
         Next
      Next
      'Next
      'End If
   Next
   Scrivi : ColoreTesto 0: Scrivi,1
   Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
   Scrivi "Combinazioni analizzate: " & co,1
   Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
   Scrivi " -> Colpo in corso..." & Inco,1
   Scrivi
   ColoreTesto 0
   For i = 1 To visual
      Call OrdinaMatrice(num,- 1,4)
      If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
         ColoreTesto 0
         aa(1) = Fuori90(cin(1) + num(i,1) + 2)
         aa(2) = Fuori90(cin(2) + num(i,2) + 1)
         'aa(3) = Fuori90(cin(3) + num(i,3))
         Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
         n1(1) = aa(1)
         n2(1) = aa(2)
         n3(1) = aa(3)
         ReDim avalori(11)
         avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
         avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
         avalori(3) = Format2(num(i,4)) & "  su  " & casi & "  Casi "
         avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
         avalori(5) = retesito
         avalori(6) = Retestratti
         If retesito = "Ambo" Or retesito = "Terno" Then
            avalori(7) = DataEstrazione(id)
         Else
            avalori(7) = " In corso "
         End If
         If retesito = "Ambo" Or retesito = "Terno" Then
            avalori(8) = retcolpi & "°"
         Else
            avalori(8) = Inco & "° in corso "
         End If
         sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
         sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
         sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
         If sf11 > 0 Then
            avalori(9) = n1(1)
         Else
            avalori(9) = ""
         End If
         If sf12 > 0 Then
            avalori(10) = n2(1)
         Else
            avalori(10) = ""
         End If
         If sf13 > 0 Then
            avalori(11) = n3(1)
         Else
            avalori(11) = ""
         End If
         'End If
         Call AddRigaTabella(avalori,,,3)
      End If
      Call SetColoreCella(2,,1)
      Call SetColoreCella(4,,2)
      Call SetColoreCella(6,,7)
      If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
      If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
      If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella()
End Sub

Cinzia27 · 9 Settembre 2018

Ciao, ecco la modifica.
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(4500,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
casi = 0
'x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
'r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",5)) 'DA CAMBIARE A PIACIMENTO
For r=1 To 10
ruote(1) = r
fin = EstrazioneFin
Ini = fin - 100
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin

'If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
For s1 = 1 To 88
For s2 = s1 + 1 To 89
'For s3 = s2 + 1 To 90
co = co + 1
cin(1) = Fuori90(e + s1)
cin(2) = Fuori90(e + s2)
'cin(3) = Fuori90(e + s3)
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
'num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
'Next
'End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
'aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)
ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Next
End Sub

antonio65 · 9 Settembre 2018

Ciao Cinzia, grazie per l'attenzione...non va bene perchè se provi ad eseguire lo script bari da 101 casi...cagliari 202...firenze 303 etc etc
e man mano che si sale aumentano anche i casi positivi...Io ragionando avevo optato per questa soluzione : ruote(1) = Tu_

Cinzia27 · 9 Settembre 2018

Ciao, Antonio65. Se lasci com' è e rispondi alla domanda quale ruota con 11 non va bene poiché la posizione estratto presuppone la scelta
non su ruota tutte ma su ruote. Prova a dirmi cosa deve fare.
Cinzia

antonio65 · 9 Settembre 2018

E' semplice Cinzia: il mio intento è quello di agire sulle previsioni anzichè Ba su ba Ca su Ca etc etc
quindi le previsioni di Bari su tutte esclusa la ruota nazionale....le previsioni di Cagliari su tutte esclusa la ruota nazionale etc etc...Capito?

Cinzia27 · 10 Settembre 2018

Forse ho capito, ma mi ci vuole un pò di tempo per comprendere cosa fa lo script.

antonio65 · 10 Settembre 2018

E' un sommativo...cerca ed accoppia per ambo migliori sommativi...prova questo...

Codice:

Sub Main()
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
   Scrivi : ColoreTesto 2: Scrivi String(54," ") & "  SCRIPT DI MIKE58 ",1
   Dim num(4005,5),aa(3),n1(1),n2(1),n3(1)
   Dim cin(10),ruote(10)
   casi = 0
   'x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
   visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",5)) 'DA CAMBIARE A PIACIMENTO
   ruote(1) = TU_
   ini = EstrazioneFin - 100
   fin = EstrazioneFin
   ReDim atitoli(11)
   atitoli(1) = " ESTRATTO "
   atitoli(2) = " SOMMATIVO "
   atitoli(3) = " PRESENZA SU CASI "
   atitoli(4) = " NUMERO IN GIOCO "
   atitoli(5) = " ESITO "
   atitoli(6) = " RET_ESTRATTI "
   atitoli(7) = " DATA ESTRAZIONE "
   atitoli(8) = " COLPO ESITO "
   atitoli(9) = " NUM. 1 "
   atitoli(10) = " NUM. 2 "
   atitoli(11) = " NUM. 3 "
   Call InitTabella(atitoli,1,,3,5)
   For es = Ini To Fin
      'If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
      idd = GetInfoEstrazione(es)
      Call Messaggio("Costruttore Sommativo per Ambi      " & " casi trovati...." & casi)
      Call AvanzamentoElab(Ini,fin,es)
      Inco = fine - es
      casi = casi + 1
      co = 0
      es1 = es + 1
      es2 = es1 + colpi
      e = Estratto(es,r,pos)
      ruote(1) = TU_
      For s1 = 1 To 89
         For s2 = s1 + 1 To 90
            'For s3 = s2 + 1 To 90
            co = co + 1
            cin(1) = Fuori90(e + s1)
            cin(2) = Fuori90(e + s2)
            'cin(3) = Fuori90(e + s3)
            ea = SerieFreqTurbo(es + 1,es + colpi,cin,ruote,2)
            num(co,1) = s1
            num(co,2) = s2
            'num(co,3) = s3
            num(co,4) = num(co,4)
            If ea > 0 Then
               num(co,4) = num(co,4) + 1
            End If
         Next
      Next
      'Next
      'End If
   Next
   Scrivi : ColoreTesto 0: Scrivi,1
   Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
   Scrivi "Combinazioni analizzate: " & co,1
   Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
   Scrivi " -> Colpo in corso..." & Inco,1
   Scrivi
   ColoreTesto 0
   For i = 1 To visual
      Call OrdinaMatrice(num,- 1,4)
      If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
         ColoreTesto 0
         aa(1) = Fuori90(cin(1) + num(i,1) + 1)
         aa(2) = Fuori90(cin(2) + num(i,2))
         'aa(3) = Fuori90(cin(3) + num(i,3))
         Call VerificaEsitoTurbo(aa,ruote,es + 1,2,1,,Esito,colpi,estratti,id)
         n1(1) = aa(1)
         n2(1) = aa(2)
         n3(1) = aa(3)
         ReDim avalori(11)
         avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
         avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2)))
         avalori(3) = Format2(num(i,4)) & "  su  " & casi & "  Casi "
         avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
         avalori(5) = Esito
         avalori(6) = estratti
         If retesito = "Ambo" Or Esito = "Terno" Then
            avalori(7) = DataEstrazione(id)
         Else
            avalori(7) = " In corso "
         End If
         If Esito = "Ambo" Or Esito = "Terno" Then
            avalori(8) = colpi & "°"
         Else
            avalori(8) = Inco & "° in corso "
         End If
         sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
         sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
         sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
         If sf11 > 0 Then
            avalori(9) = n1(1)
         Else
            avalori(9) = ""
         End If
         If sf12 > 0 Then
            avalori(10) = n2(1)
         Else
            avalori(10) = ""
         End If
         If sf13 > 0 Then
            avalori(11) = n3(1)
         Else
            avalori(11) = ""
         End If
         'End If
         Call AddRigaTabella(avalori,,,3)
      End If
      Call SetColoreCella(2,,1)
      Call SetColoreCella(4,,2)
      Call SetColoreCella(6,,7)
      If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
      If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
      If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella()
End Sub

Cerca

Cerca

Piccola modifica

antonio65

Super Member >PLATINUM<

Cinzia27

Premium Member

antonio65

Super Member >PLATINUM<

Cinzia27

Premium Member

antonio65

Super Member >PLATINUM<

Cinzia27

Premium Member

antonio65

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi