Novità

Piccola modifica

antonio65

antonio65

Super Member >PLATINUM<
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
 
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
 
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_
 
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
 
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?
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto