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
    sabato 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto