Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Enplein

Enplein

Super Member >PLATINUM<
Buonasera.

Terno Ripetuto di Ciro Vitale

Sub Main() Dim n(3),rt(1),ruote(3),ptt(2),ab1(2),ab2(2),ab3(2) ptt(2) = 1 rs = InputBox("Quante estrazioni vuoi controllare?",Enplein,100) clp = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Enplein,24) ini = EstrazioneFin - rs fin = EstrazioneFin co = 0 Scrivi Space(12) & "TERNO RIPETUTO DI CIRO VITALE - SCRIPT ENPLEIN",1,,4,,3,,1 For es = ini To fin Messaggio es For r1 = 1 To 10 For p1 = 1 To 3 : n(1) = Estratto(es,r1,p1) For p2 = p1 + 1 To 4: n(2) = Estratto(es,r1,p2) For p3 = p2 + 1 To 5: n(3) = Estratto(es,r1,p3) For r2 = r1 + 1 To 11 If r2 = 11 Then r2 = 12 rt(1) = r2 sf = SerieFreq(es,es,n,rt,3) If sf > 0 Then 'Calcoli per la previsione di 3 ambi ab1(1) = Fuori90(n(1) + n(2)) : ab1(2) = Fuori90(Abs(n(1) - n(2))) ab2(1) = Fuori90(n(1) + n(3)) : ab2(2) = Fuori90(Abs(n(1) - n(3))) ab3(1) = Fuori90(n(2) + n(3)) : ab3(2) = Fuori90(Abs(n(2) - n(3))) ruote(1) = r1 : ruote(2) = r2 : ruote(3) = 11 co = co + 1 Scrivi String(55,"=") & " Caso n°" & co Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),1 Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2),1 ColoreTesto 2 Scrivi "Terno Ripetuto " & StringaNumeri(n),1 ColoreTesto 0 ImpostaGiocata 1,ab1,ruote,ptt,clp ImpostaGiocata 2,ab2,ruote,ptt,clp ImpostaGiocata 3,ab3,ruote,ptt,clp Gioca es,1 End If Next Next Next Next Next Next ScriviResoconto End Sub

Enplein.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Franco2761, Matematico, Mat, Rudivall, Serpico90, Xeroxs.

Grazie.

Un altro ringraziamento, ad Enplein che con lo script -Terno Ripetuto di Ciro Vitale- ho imparato un altro "Trucco" che oltre a rendere lo script meno lungo, è anche più veloce, non ne ho approfittato in questo script perchè l'avevo già fatto, mancavano solo gli ultimi ritocchi.

Ambo Ripetuto di Fabarri

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Salvo50,Es
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2
   Dim Sp,Abb1,Abb2,Clp,Caso,Casi
   Dim M(2),Ruo(2),Posta(1),Poste(3)
   Dim Amba(1),Ter1(3),Ter2(3)
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9760))
   Clp = CInt(InputBox("Inserisci i Colpi di Gioco",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(3) & " Ambo Ripetuto di Fabarri  - script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               '
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A = C And B = D Then
                           'A---B
                           '|   |
                           'C---D
                           M(1) = A : M(2) = B
                           Call OrdinaMatrice(M,1)
                           Abb1 = Fuori90(A + B) : Abb2 = Differenza(A,B)
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi " " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi " " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(15) & Format2(M(2)) & " + " & Format2(M(1)) & " = " & Format2(Abb1) & " Abbinamento 1 ",1
                           Scrivi Space(15) & Format2(M(2)) & " - " & Format2(M(1)) & " = " & Format2(Abb2) & " Abbinamento 2 ",1
                           Scrivi Space(21) & " Pronostico ",1,,,2
                           Scrivi Space(21) & " Ambata " & Format2(D),1
                           Scrivi Space(19) & "Terno1 " & Format2(A) & Sp & Format2(Abb1) & Sp & Format2(Abb2),1
                           Scrivi Space(19) & "Terno2 " & Format2(B) & Sp & Format2(Abb1) & Sp & Format2(Abb2),1
                           Ruo(1) = R1
                           Ruo(2) = R2
                           Amba(1) = D
                           ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                           Ter1(1) = A : Ter1(2) = Abb1 : Ter1(3) = Abb2
                           EliminaRipetuti Ter1
                           ImpostaGiocata 2,Ter1,Ruo,Poste,Clp
                           Ter2(1) = B : Ter2(2) = Abb1 : Ter2(3) = Abb2
                           EliminaRipetuti Ter2
                           ImpostaGiocata 3,Ter2,Ruo,Poste,Clp
                           Gioca Es,1,,1
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Con Riscontro Anche di Ambi Incrociati

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Salvo50,Es
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2
   Dim Sp,Abb1,Abb2,Clp,Caso,Casi
   Dim M(2),Ruo(2),Posta(1),Poste(3)
   Dim Amba(1),Ter1(3),Ter2(3)
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9760))
   Clp = CInt(InputBox("Inserisci i Colpi di Gioco",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(3) & " Ambo Ripetuto di Fabarri  - script Salvo50",1,,4,,3,,1
   Scrivi Space(3) & "   Con Riscontro Anche di Ambi Incrociati",1,,4,,3,,1

   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               '
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If (A = C And B = D) Or (A = D And B = C) Then
                           'A---B
                           '|   |
                           'C---D
                           M(1) = A : M(2) = B
                           Call OrdinaMatrice(M,1)
                           Abb1 = Fuori90(A + B) : Abb2 = Differenza(A,B)
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi " " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi " " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(15) & Format2(M(2)) & " + " & Format2(M(1)) & " = " & Format2(Abb1) & " Abbinamento 1 ",1
                           Scrivi Space(15) & Format2(M(2)) & " - " & Format2(M(1)) & " = " & Format2(Abb2) & " Abbinamento 2 ",1
                           Scrivi Space(21) & " Pronostico ",1,,,2
                           Scrivi Space(21) & " Ambata " & Format2(D),1
                           Scrivi Space(19) & "Terno1 " & Format2(A) & Sp & Format2(Abb1) & Sp & Format2(Abb2),1
                           Scrivi Space(19) & "Terno2 " & Format2(B) & Sp & Format2(Abb1) & Sp & Format2(Abb2),1
                           Ruo(1) = R1
                           Ruo(2) = R2
                           Amba(1) = D
                           ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                           Ter1(1) = A : Ter1(2) = Abb1 : Ter1(3) = Abb2
                           EliminaRipetuti Ter1
                           ImpostaGiocata 2,Ter1,Ruo,Poste,Clp
                           Ter2(1) = B : Ter2(2) = Abb1 : Ter2(3) = Abb2
                           EliminaRipetuti Ter2
                           ImpostaGiocata 3,Ter2,Ruo,Poste,Clp
                           Gioca Es,1,,1
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Matematico

Matematico

Advanced Member >PLATINUM<
salvo50 ha scritto:
Ciao a Tutti.

Franco2761, Matematico, Mat, Rudivall, Serpico90, Xeroxs.

Grazie.

Un altro ringraziamento, ad Enplein che con lo script -Terno Ripetuto di Ciro Vitale- ho imparato un altro "Trucco" che oltre a rendere lo script meno lungo, è anche più veloce, non ne ho approfittato in questo script perchè l'avevo già fatto, mancavano solo gli ultimi ritocchi.

Ambo Ripetuto di Fabarri

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Salvo50,Es
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2
   Dim Sp,Abb1,Abb2,Clp,Caso,Casi
   Dim M(2),Ruo(2),Posta(1),Poste(3)
   Dim Amba(1),Ter1(3),Ter2(3)
   Posta(1) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9760))
   Clp = CInt(InputBox("Inserisci i Colpi di Gioco",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(3) & " Ambo Ripetuto di Fabarri  - script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               '
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A = C And B = D Then
                           'A---B
                           '|   |
                           'C---D
                           M(1) = A : M(2) = B
                           Call OrdinaMatrice(M,1)
                           Abb1 = Fuori90(A + B) : Abb2 = Differenza(A,B)
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi " " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi " " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(15) & Format2(M(2)) & " + " & Format2(M(1)) & " = " & Format2(Abb1) & " Abbinamento 1 ",1
                           Scrivi Space(15) & Format2(M(2)) & " - " & Format2(M(1)) & " = " & Format2(Abb2) & " Abbinamento 2 ",1
                           Scrivi Space(21) & " Pronostico ",1,,,2
                           Scrivi Space(21) & " Ambata " & Format2(D),1
                           Scrivi Space(19) & "Terno1 " & Format2(A) & Sp & Format2(Abb1) & Sp & Format2(Abb2),1
                           Scrivi Space(19) & "Terno2 " & Format2(B) & Sp & Format2(Abb1) & Sp & Format2(Abb2),1
                           Ruo(1) = R1
                           Ruo(2) = R2
                           Amba(1) = D
                           ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                           Ter1(1) = A : Ter1(2) = Abb1 : Ter1(3) = Abb2
                           EliminaRipetuti Ter1
                           ImpostaGiocata 2,Ter1,Ruo,Poste,Clp
                           Ter2(1) = B : Ter2(2) = Abb1 : Ter2(3) = Abb2
                           EliminaRipetuti Ter2
                           ImpostaGiocata 3,Ter2,Ruo,Poste,Clp
                           Gioca Es,1,,1
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Grazie salvo50, come sempre ottimo script e metodo direi :)....un grazie anche a Enplein !
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Matematico, MarcoElle, Rudivall, Serpico90, Xeroxs, Paki144.

Grazie.

I VOLTAFACCIA di LORD BYRON a cura di Carmine Tedesco

Se in qualche mese non c'è pronostico, è perchè il metodo vuole che prima di giocare cercare a ritroso per almeno un paio di mesi i due ambi pronosticati ed eventualmente non giocare l'ambo o gli ambi trovati.

La ricerca a ritroso degli ambi l'ho impostato per default a 28 estrazioni, più o meno 2 mesi, comunque si può cambiare tramite inputbox.

I voltafaccia(Lord Byron) - C. Tedesco.jpg

Codice: 
Option Explicit
Sub Main
   Dim Fin,Clp,Es,R,Caso,Casi,G,Ini,X,Sf1,Sf2,Ind
   Dim Num1(2),Num2(2),Ru(12),Poste(2)
   Poste(2) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9842)
   Ind = CInt(InputBox("Per quante estrazioni indietro vuoi controllare l'uscita degli ambi?",,28))
   ScegliRange Ini,Fin,Ini,Fin
   Scrivi Space(19) & " I VOLTAFACCIA di LORD BYRON - SCRIPT SALVO50" & Space(19),1,,4,,3,,1
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      If IndiceMensile(Es) = 1 Then
         If Mese(Es) = 1 Then Num1(1) = 04 : Num1(2) = 49 : Num2(1) = 05 : Num2(2) = 59
         If Mese(Es) = 2 Then Num1(1) = 38 : Num1(2) = 83 : Num2(1) = 48 : Num2(2) = 84
         If Mese(Es) = 3 Then Num1(1) = 35 : Num1(2) = 53 : Num2(1) = 45 : Num2(2) = 54
         If Mese(Es) = 4 Then Num1(1) = 24 : Num1(2) = 42 : Num2(1) = 34 : Num2(2) = 43
         If Mese(Es) = 5 Then Num1(1) = 13 : Num1(2) = 31 : Num2(1) = 23 : Num2(2) = 32
         If Mese(Es) = 6 Then Num1(1) = 12 : Num1(2) = 21 : Num2(1) = 02 : Num2(2) = 29
         If Mese(Es) = 7 Then Num1(1) = 01 : Num1(2) = 19 : Num2(1) = 18 : Num2(2) = 81
         If Mese(Es) = 8 Then Num1(1) = 07 : Num1(2) = 79 : Num2(1) = 08 : Num2(2) = 89
         If Mese(Es) = 9 Then Num1(1) = 68 : Num1(2) = 86 : Num2(1) = 78 : Num2(2) = 87
         If Mese(Es) = 10 Then Num1(1) = 08 : Num1(2) = 89 : Num2(1) = 09 : Num2(2) = 90
         If Mese(Es) = 11 Then Num1(1) = 05 : Num1(2) = 59 : Num2(1) = 06 : Num2(2) = 69
         If Mese(Es) = 12 Then Num1(1) = 26 : Num1(2) = 62 : Num2(1) = 27 : Num2(2) = 72
         Sf1 = 0 : Sf2 = 0
         For R = 1 To 12
            If R = 11 Then R = 12
            Ru(R) = R
            Sf1 = SerieFreqTurbo(Es - Ind,Es,Num1,Ru,2)
            Sf2 = SerieFreqTurbo(Es - Ind,Es,Num2,Ru,2)
         Next
         G = 0
         If Sf1 = 0 Or Sf2 = 0 Then
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 2
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 1
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi " Pronostico per il mese di " & Format2(MeseNome(Mese(Es))) & " " & Anno(Es) & " In tutte le Ruote  ",1,0,,7,3
            Scrivi StringaNumeri(Num1," ",True) & " - " & StringaNumeri(Num2," ",True),1,,,2,3
            'Scrivi Sf1 & " " & Sf2
            Clp = 0
            For X = 1 To 16
               Clp = Clp + 1
               If IsUltimaDelMese(Es + X) Then Exit For
            Next
            G = 1
            If Sf1 = 0 Then ImpostaGiocata G,Num1,Ru,Poste,Clp,2 : G = G + 1
            If Sf2 = 0 Then ImpostaGiocata G,Num2,Ru,Poste,Clp,2
            Gioca Es,1,,1
         End If
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
tiberio1

tiberio1

Member
salvo50 ha scritto:
Sub Main Dim Fin,Clp,Es,R,Caso,Casi,G,Ini,X,Sf1,Sf2,Ind Dim Num1(2),Num2(2),Ru(12),Poste(2) Poste(2) = 1 Fin = EstrazioneFin Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9842) Ind = CInt(InputBox("Per quante estrazioni indietro vuoi controllare l'uscita degli ambi?",,28)) ScegliRange Ini,Fin,Ini,Fin Scrivi Space(19) & " I VOLTAFACCIA di LORD BYRON - SCRIPT SALVO50" & Space(19),1,,4,,3,,1 For Es = Ini To Fin Caso = 0 AvanzamentoElab Ini,Fin,Es If IndiceMensile(Es) = 1 Then If Mese(Es) = 1 Then Num1(1) = 04 : Num1(2) = 49 : Num2(1) = 05 : Num2(2) = 59 If Mese(Es) = 2 Then Num1(1) = 38 : Num1(2) = 83 : Num2(1) = 48 : Num2(2) = 84 If Mese(Es) = 3 Then Num1(1) = 35 : Num1(2) = 53 : Num2(1) = 45 : Num2(2) = 54 If Mese(Es) = 4 Then Num1(1) = 24 : Num1(2) = 42 : Num2(1) = 34 : Num2(2) = 43 If Mese(Es) = 5 Then Num1(1) = 13 : Num1(2) = 31 : Num2(1) = 23 : Num2(2) = 32 If Mese(Es) = 6 Then Num1(1) = 12 : Num1(2) = 21 : Num2(1) = 02 : Num2(2) = 29 If Mese(Es) = 7 Then Num1(1) = 01 : Num1(2) = 19 : Num2(1) = 18 : Num2(2) = 81 If Mese(Es) = 8 Then Num1(1) = 07 : Num1(2) = 79 : Num2(1) = 08 : Num2(2) = 89 If Mese(Es) = 9 Then Num1(1) = 68 : Num1(2) = 86 : Num2(1) = 78 : Num2(2) = 87 If Mese(Es) = 10 Then Num1(1) = 08 : Num1(2) = 89 : Num2(1) = 09 : Num2(2) = 90 If Mese(Es) = 11 Then Num1(1) = 05 : Num1(2) = 59 : Num2(1) = 06 : Num2(2) = 69 If Mese(Es) = 12 Then Num1(1) = 26 : Num1(2) = 62 : Num2(1) = 27 : Num2(2) = 72 Sf1 = 0 : Sf2 = 0 For R = 1 To 12 If R = 11 Then R = 12 Ru(R) = R Sf1 = SerieFreqTurbo(Es - Ind,Es,Num1,Ru,2) Sf2 = SerieFreqTurbo(Es - Ind,Es,Num2,Ru,2) Next G = 0 If Sf1 = 0 Or Sf2 = 0 Then Caso = Caso + 1 Casi = Casi + 1 ColoreTesto 2 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") ColoreTesto 1 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000") ColoreTesto 0 Scrivi " Pronostico per il mese di " & Format2(MeseNome(Mese(Es))) & " " & Anno(Es) & " In tutte le Ruote ",1,0,,7,3 Scrivi StringaNumeri(Num1," ",True) & " - " & StringaNumeri(Num2," ",True),1,,,2,3 'Scrivi Sf1 & " " & Sf2 Clp = 0 For X = 1 To 16 Clp = Clp + 1 If IsUltimaDelMese(Es + X) Then Exit For Next G = 1 If Sf1 = 0 Then ImpostaGiocata G,Num1,Ru,Poste,Clp,2 : G = G + 1 If Sf2 = 0 Then ImpostaGiocata G,Num2,Ru,Poste,Clp,2 Gioca Es,1,,1 End If End If If ScriptInterrotto Then Exit Sub Next ScriviResoconto End Sub
Clicca per espandere...
SALVO MI PUOI DARE UNA MANO A QUELLE RIKIESTE DA ME POSTATE GRAZIE
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
Bravo Salvo50,inutile dire che sei un fenomeno a scriptare ....il grosso problema è che tutte le leggi di questi Illuminati del passato non funzionano più e bisogna inventarsi altro per battere il banco
 
M

mister1729

Banned
Perdonami Salvo , notavo che nel capolavoro ( Script AMBO RIPETUTO) non evidenzia gli eventuali ambi ripetuti nella stessa estrazione!
Il 02/12/2021 su Napoli e Palermo vengono estratti 78/48 oltre che su Cagliari e Firenze sortiscono 21 e 63 !
Scusami e ti auguro una buona serata.
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
mister1729 ha scritto:
Ariscusami Salvo , strano che abbia saltato l'ambo ripetuto il giorno 29/12/20..

Firenze
3090578821
Palermo
2117304618

buona serata!
Clicca per espandere...
Non ho controllato ma forse ....questo appunto di Salvo ne è il motivo.....
Salvo scrive:
Se in qualche mese non c'è pronostico, è perchè il metodo vuole che prima di giocare cercare a ritroso per almeno un paio di mesi i due ambi pronosticati ed eventualmente non giocare l'ambo o gli ambi trovati.
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
mister1729 ha scritto:
Ariscusami Salvo , strano che abbia saltato l'ambo ripetuto il giorno 29/12/20..

Firenze
3090578821
Palermo
2117304618

buona serata!
Clicca per espandere...
Ciao Mister1729, gli ambi ripetuti incrociati non li ho considerati perchè dalle spiegazioni io ho capito cosi, ma se te hai riscontrato dalle spiegazioni che è come hai detto tu, fammi vedere nelle spiegazioni dovè, da parte mia un errore ed una svista sono sempre possibili, e modificarlo per cercare gli ambi incrociati è molto semplice.
 
tiberio1

tiberio1

Member
salvo50 ha scritto:
Ciao Mister1729, gli ambi ripetuti incrociati non li ho considerati perchè dalle spiegazioni io ho capito cosi, ma se te hai riscontrato dalle spiegazioni che è come hai detto tu, fammi vedere nelle spiegazioni dovè, da parte mia un errore ed una svista sono sempre possibili, e modificarlo per cercare gli ambi incrociati è molto semplice.
Clicca per espandere...
Salvo master ha dato la soluzione sul verter di vitale puoi elaborarlo hai una mail possiamo scambiarci metodi cartacei ok?
 
M

mister1729

Banned
Ciao salvo , ripeto perdonami , considera che sono ignorante in materia di script e la mia non era un rimprovero anzi lungi da me
Per puro caso stavo lavorando su excel che anche la sono lontano anni luce l'ho riscontrato !

Sarà a tua discrezione se modificarlo o meno.
Detto questo per esempio il 29/12/2020 su Firenze e Palermo in autput non rileva l'ambo ripetuto (Firenze 30/90/57/88/21 e su Palermo 21/17/30/46/18),

sempre il 01/01/2021

su CAGLIARI
721637550

e FIRENZE

8321536356

sempre il 02/01/2021 su Na e Pa in autput non li rileva.

NAPOLI
7836486084

PALERMO
4842754778

tutto quà, rinnovo e colgo l'occasione per augurare a tutti un BUON E PROFIQUO 2021.
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
mister1729 ha scritto:
Ciao salvo , ripeto perdonami , considera che sono ignorante in materia di script e la mia non era un rimprovero anzi lungi da me
Per puro caso stavo lavorando su excel che anche la sono lontano anni luce l'ho riscontrato !

Sarà a tua discrezione se modificarlo o meno.
Detto questo per esempio il 29/12/2020 su Firenze e Palermo in autput non rileva l'ambo ripetuto (Firenze 30/90/57/88/21 e su Palermo 21/17/30/46/18),

sempre il 01/01/2021

su CAGLIARI
721637550

e FIRENZE

8321536356

sempre il 02/01/2021 su Na e Pa in autput non li rileva.

NAPOLI
7836486084

PALERMO
4842754778

tutto quà, rinnovo e colgo l'occasione per augurare a tutti un BUON E PROFIQUO 2021.
Clicca per espandere...

Ciao a Tutti.

Appena posso gli do un'occhiata
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 20 aprile 2024
    Bari
    08
    62
    22
    82
    12
    Cagliari
    86
    44
    19
    31
    72
    Firenze
    38
    70
    31
    33
    26
    Genova
    84
    71
    65
    55
    75
    Milano
    61
    32
    48
    15
    24
    Napoli
    24
    55
    49
    12
    37
    Palermo
    87
    14
    52
    18
    43
    Roma
    01
    88
    16
    50
    63
    Torino
    15
    70
    52
    62
    55
    Venezia
    15
    83
    49
    18
    44
    Nazionale
    10
    22
    68
    78
    06
    Estrazione Simbolotto
    Genova
    27
    31
    15
    32
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto