Novità

Per salvo50 o altro esperto scripter

Matematico

Matematico

Advanced Member >PLATINUM<
Ciao a tutti e in particolare a salvo50 e a tutti gli scriptologi :-) , avrei bisogno di uno script che mi vada a ricercare determinate condizioni , posto un solo esempio :


Venezia del 14/05/2019 59 48 53 34 68
Palermo del 14/05/2019 02 47 66 05 51

somma in verticale dei primi due estratti = 61 a 90 =29 ,
Lo script dovrà cercare il 29 complemento a 90 del 61 sia nei due terzi estratti e sia nei quinti estratti in verticale e infatti la condizione c'è :
53+66=29
68+51=29

Trovata la condizione l'ambata secca sarà sempre 90 e x amboi 4 numeri che danno la somma 29 doppia cioè :53-66-68-51

L'esito si ebbe al 4 colpo con l'ambo secco 90-51 su PA

Penso che questo sia un ottimo metodo, ma questo lo sapremo meglio con uno script che andrà a cercare tutte le condizioni ideali possibili.

N.b

Ovviamente vale qualsiasi somma dei prim idue estratti in verticale.

Notte a tutti!
 
Spero d'aver capito bene

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50,Caso,Casi
   Dim R1,R2,A1,A3,A5,B1,B3,B5,E1,E2,P1,P2
   Dim Som1,Som2,Som3,C90Som1,Clp3
   Dim Amba(1),Num1(2),Num2(2),Num3(2),Num4(2)
   Dim Quat(4),Ruo(2),Post1(1),Post2(2),Post3(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,4000)
   Clp1 = InputBox("Per quanti colpi vuoi giocare le Ambate?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",,5)
   Clp3 = InputBox("Per quanti colpi vuoi giocare la Quartina?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "PER MATEMATICO - 3 SOMME ISOTOPE IN POSIZIONE 1 3 5 -  SCRIPT SALVO50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   'Post3(2) = 1
   'Post3(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         A1 = Estratto(Es,R1,1)
         A3 = Estratto(Es,R1,3)
         A5 = Estratto(Es,R1,5)
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            B1 = Estratto(Es,R2,1)
            B3 = Estratto(Es,R2,3)
            B5 = Estratto(Es,R2,5)
            If A1 > 0 And B1 > 0 Then
               Som1 = Fuori90(A1 + B1)
               Som2 = Fuori90(A3 + B3)
               Som3 = Fuori90(A5 + B5)
               C90Som1 = ComplAdX(Som1)
               If C90Som1 = Som2 And C90Som1 = Som3 Then
                  Amba(1) = 90
                  Num1(1) = 90 : Num1(2) = A3 : Num2(1) = 90 : Num2(2) = A5
                  Num3(1) = 90 : Num3(2) = B3 : Num4(1) = 90 : Num4(2) = B5
                  Quat(1) = A3 : Quat(2) = A5 : Quat(3) = B3 : Quat(4) = B5
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi Space(2) &(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P1 = 1 To 5
                     E1 = Estratto(Es,R1,P1)
                     If E1 = A1 Or E1 = A3 Or E1 = A5 Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi Space(2) &(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                  For P2 = 1 To 5
                     E2 = Estratto(Es,R2,P2)
                     If E2 = B1 Or E2 = B3 Or E2 = B5 Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Format2(A1) & " + " & Format2(B1) & " = " & Format2(Som1) & " Somma Degli Estratti In Posizione 1",1,0
                  Scrivi "  Complemento a 90  " & Format2(C90Som1),1
                  Scrivi Format2(A3) & " + " & Format2(B3) & " = " & Format2(Som2) & " Somma Degli Estratti In Posizione 3",1
                  Scrivi Format2(A5) & " + " & Format2(B5) & " = " & Format2(Som3) & " Somma Degli Estratti In Posizione 5",1
                  Scrivi
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                  ImpostaGiocata 2,Num1,Ruo,Post2,Clp2
                  ImpostaGiocata 3,Num2,Ruo,Post2,Clp2
                  ImpostaGiocata 4,Num3,Ruo,Post2,Clp2
                  ImpostaGiocata 5,Num4,Ruo,Post2,Clp2
                  ImpostaGiocata 6,Quat,Ruo,Post3,Clp3
                  Gioca Es
                  'Next
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Ciao salvo50, ottimo lavoro hai capito benissimo grazie1000.....come ambata se impostiamo 13 colpi è buono il metodo ...un pò meno x l'ambo... forse bisognerebbe aggiungere anche il numero della doppia somma x ambo....

Buona serata:)
 
lo script è da riprendere, c'era un piccolo errore

in questo ho aggiunto l'ambo con la doppia somma


Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50,Caso,Casi
   Dim R1,R2,A1,A3,A5,B1,B3,B5,E1,E2,P1,P2
   Dim Som1,Som2,Som3,C90Som1,Clp3
   Dim Amba(1),Num1(2),Num2(2),Num3(2),Num4(2),Num5(2)
   Dim Quat(4),Ruo(2),Post1(1),Post2(2),Post3(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,7000)
   Clp1 = InputBox("Per quanti colpi vuoi giocare le Ambate?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",,5)
   Clp3 = InputBox("Per quanti colpi vuoi giocare la Quartina?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "PER MATEMATICO - 3 SOMME ISOTOPE IN POSIZIONE 1 3 5 -  SCRIPT SALVO50",1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   'Post3(2) = 1
   'Post3(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         A1 = Estratto(Es,R1,1)
         A3 = Estratto(Es,R1,3)
         A5 = Estratto(Es,R1,5)
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            B1 = Estratto(Es,R2,1)
            B3 = Estratto(Es,R2,3)
            B5 = Estratto(Es,R2,5)
            If A1 > 0 And B1 > 0 Then
               Som1 = Fuori90(A1 + B1)
               Som2 = Fuori90(A3 + B3)
               Som3 = Fuori90(A5 + B5)
               C90Som1 = ComplAdX(Som1)
               If C90Som1 = Som2 And C90Som1 = Som3 Then
                  Amba(1) = 90
                  Num1(1) = 90 : Num1(2) = A3 : Num2(1) = 90 : Num2(2) = A5
                  Num3(1) = 90 : Num3(2) = B3 : Num4(1) = 90 : Num4(2) = B5
                  Num5(1) = 90 : Num5(2) = Som2
                  Quat(1) = A3 : Quat(2) = A5 : Quat(3) = B3 : Quat(4) = B5
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi Space(2) &(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P1 = 1 To 5
                     E1 = Estratto(Es,R1,P1)
                     If E1 = A1 Or E1 = A3 Or E1 = A5 Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi Space(2) &(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                  For P2 = 1 To 5
                     E2 = Estratto(Es,R2,P2)
                     If E2 = B1 Or E2 = B3 Or E2 = B5 Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Format2(A1) & " + " & Format2(B1) & " = " & Format2(Som1) & " Somma Degli Estratti In Posizione 1",1,0
                  Scrivi "  Complemento a 90  " & Format2(C90Som1),1
                  Scrivi Format2(A3) & " + " & Format2(B3) & " = " & Format2(Som2) & " Somma Degli Estratti In Posizione 3",1
                  Scrivi Format2(A5) & " + " & Format2(B5) & " = " & Format2(Som3) & " Somma Degli Estratti In Posizione 5",1
                  Scrivi
                  Ruo(1) = R1 : Ruo(2) = R2
                  ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                  ImpostaGiocata 2,Num1,Ruo,Post2,Clp2
                  ImpostaGiocata 3,Num2,Ruo,Post2,Clp2
                  ImpostaGiocata 4,Num3,Ruo,Post2,Clp2
                  ImpostaGiocata 5,Num4,Ruo,Post2,Clp2
                  ImpostaGiocata 6,Num5,Ruo,Post2,Clp2
                  ImpostaGiocata 7,Quat,Ruo,Post3,Clp3
                  Gioca Es
                  'Next
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 14 agosto 2025
    Bari
    86
    54
    27
    49
    68
    Cagliari
    29
    79
    63
    87
    34
    Firenze
    63
    43
    77
    65
    41
    Genova
    01
    04
    28
    19
    76
    Milano
    77
    29
    38
    12
    86
    Napoli
    85
    83
    52
    63
    37
    Palermo
    56
    57
    50
    62
    52
    Roma
    48
    29
    01
    41
    43
    Torino
    81
    79
    19
    53
    48
    Venezia
    56
    27
    01
    45
    79
    Nazionale
    28
    75
    74
    89
    62
    Estrazione Simbolotto
    Nazionale
    30
    35
    08
    43
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto