Script su Metodi Cabalistici, Ciclometrici & C.

[Enplein]

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]

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

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

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

 

[Matematico]

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

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

Grazie salvo50, come sempre ottimo script e metodo direi ....un grazie anche a Enplein !

 

[salvo50]

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.

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

 

[tiberio1]

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

SALVO MI PUOI DARE UNA MANO A QUELLE RIKIESTE DA ME POSTATE GRAZIE

 

[salvo50]

SALVO MI PUOI DARE UNA MANO A QUELLE RIKIESTE DA ME POSTATE GRAZIE

Ciao Tiberio1, alcuni sono fattibili, ma altri da mal di testa a solo cercare di capirli, vedrò cosa posso fare in quelli fattibili.

 

[tiberio1]

GRAZIE

 

[Marco-elle]

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

 

[tiberio1]

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

NON DIREI CI SONO METODI CHE VINCONO COLPO SU COLPO QUELLI DI LONGO ,DANEVAL, ECC

 

[Marco-elle]

NON DIREI CI SONO METODI CHE VINCONO COLPO SU COLPO QUELLI DI LONGO ,DANEVAL, ECC

Azz!!!!.....fammi mente locale che divento Milionario!

 

[mister1729]

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.

 

[mister1729]

Ariscusami Salvo , strano che abbia saltato l'ambo ripetuto il giorno 29/12/20..

Firenze

30

90

57

88

21

Palermo

21

17

30

46

18

buona serata!

 

[Marco-elle]

Ariscusami Salvo , strano che abbia saltato l'ambo ripetuto il giorno 29/12/20..

Firenze

30

90

57

88

21

Palermo

21

17

30

46

18

buona serata!

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.

 

[salvo50]

Ariscusami Salvo , strano che abbia saltato l'ambo ripetuto il giorno 29/12/20..

Firenze

30

90

57

88

21

Palermo

21

17

30

46

18

buona serata!

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]

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.

Salvo master ha dato la soluzione sul verter di vitale puoi elaborarlo hai una mail possiamo scambiarci metodi cartacei ok?

 

[mister1729]

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

7

21

63

75

50

e FIRENZE

83

21

53

63

56

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

NAPOLI

78

36

48

60

84

PALERMO

48

42

75

47

78

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

 

[Alien.]

Ciao,scusatemi mi...........son perso questo che script è,grazie.

 

[salvo50]

Salvo master ha dato la soluzione sul verter di vitale puoi elaborarlo hai una mail possiamo scambiarci metodi cartacei ok?

Lo so infatti ho già ringraziato Master, nell'altro topic.

 

[salvo50]

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

7

21

63

75

50

e FIRENZE

83

21

53

63

56

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

NAPOLI

78

36

48

60

84

PALERMO

48

42

75

47

78

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

Ciao a Tutti.

Appena posso gli do un'occhiata

 

[mister1729]

Buongiorno Alien si tratta del # 442 e per Salvo50 gli dico che rimane sempre un'artista in quello che fà, buona giornata ragazzi!