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ì 19 maggio 2026
    Bari
    31
    86
    56
    69
    65
    Cagliari
    66
    23
    78
    64
    48
    Firenze
    43
    30
    56
    02
    12
    Genova
    75
    47
    20
    71
    18
    Milano
    37
    35
    74
    85
    80
    Napoli
    75
    66
    53
    89
    87
    Palermo
    89
    39
    02
    81
    14
    Roma
    58
    42
    09
    38
    08
    Torino
    10
    26
    15
    05
    03
    Venezia
    38
    68
    69
    22
    07
    Nazionale
    90
    21
    28
    85
    64
    Estrazione Simbolotto
    Milano
    45
    30
    17
    23
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto