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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto