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
    lunedì 05 maggio 2025
    Bari
    62
    19
    47
    49
    66
    Cagliari
    59
    73
    56
    14
    29
    Firenze
    21
    36
    80
    15
    87
    Genova
    66
    36
    20
    63
    83
    Milano
    88
    60
    04
    34
    05
    Napoli
    70
    36
    85
    44
    04
    Palermo
    41
    75
    63
    59
    20
    Roma
    19
    53
    63
    18
    09
    Torino
    38
    47
    06
    69
    82
    Venezia
    78
    87
    31
    06
    13
    Nazionale
    60
    42
    79
    67
    64
    Estrazione Simbolotto
    Milano
    34
    15
    22
    12
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto