Novità

PER SALVO50

e1990

Member
Ciao Salvo, potresti modificare questo tuo script in questo modo:

SU UNA RUOTA UN AMBO UNITO
SU ALTRA RUOTA NUMERO SOMMA DELL'AMBO UNITO
CHE SI DEVE TROVARE A DX O SX DELL'AMBO

ES: RO 51-79-66-21-89
66+21= 87 A DX O SX
TO 30-87-34-56-20
In attesa di risposta ringrazio anticipatamente
Ciao
-----------------------------------------------------
Option Explicit
Sub Main
Dim Fin,Es,Ini,Clp,Caso,Casi,K
Dim R1,R2,R3,E1,E2,E3,Salvo50,A,B,C
Dim P1,P2,P3,P4,P5,P6,S1,S2,S3,A1,B1
Dim Num1(6),Num2(6),Num3(12),Ru(2),Post(5)
Post(2) = 1
Post(3) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
Clp = InputBox("Per quanti colpi vuoi giocare?",,6)
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi "METODO CHIESTO DA ROY - 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 R2 = R1 + 1 To 10
If R2 = 11 Then R2 = 12
If R1 <> R2 Then
For P1 = 1 To 5
For P2 = 1 To 5
If P1 <> P2 Then
A = Estratto(Es,R1,P1)
B = Estratto(Es,R2,P2)
If Diametrale(A) = B Then
S1 = Fuori90(A + B)
For R3 = 1 To 10
For P3 = 1 To 5 Step 2
C = Estratto(Es,R3,P3)
If(R3 = R1 Or R3 = R2) And(S1 = C) And(C <> A) And(C <> B) Then
Num1(1) = Estratto(Es,R1,1) : Num1(2) = Estratto(Es,R1,3) : Num1(3) = Estratto(Es,R1,5)
Num1(4) = DiametraleD(Num1(1)) : Num1(5) = DiametraleD(Num1(2)) : Num1(6) = DiametraleD(Num1(3))
Num2(1) = Estratto(Es,R2,1) : Num2(2) = Estratto(Es,R2,3) : Num2(3) = Estratto(Es,R2,5)
Num2(4) = DiametraleD(Num2(1)) : Num2(5) = DiametraleD(Num2(2)) : Num2(6) = DiametraleD(Num2(3))
S2 = StringaNumeri(Num1," ",True)
S3 = StringaNumeri(Num2," ",True)
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(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P4 = 1 To 5
E1 = Estratto(Es,R1,P4)
If E1 = A Or E1 = C 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 P5 = 1 To 5
E2 = Estratto(Es,R2,P5)
If E2 = B Or E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(39) & Format2(C) & " = " & Format2(A) & " + " & Format2(B),1,,,1
Scrivi
Scrivi " PRONOSTICO " & S2,1,,,2
Scrivi " PRONOSTICO " & S3,1,,,2
Scrivi
Ru(1) = R1 : Ru(2) = R2
ImpostaGiocata 1,Num1,Ru,Post,Clp
ImpostaGiocata 2,Num2,Ru,Post,Clp
Gioca Es,1
End If
Next
Next
End If
End If
Next
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
 
Chiarimenti
1) L'ambo unito deve anche essere diametrale?
2) Una volta trovata la condizione deve proseguire con la ricerca degli estratti chiesti da Roy oppure basta così?
 
per salvo50 cortesemente script :1 del mese :quadrato 5 es bari+58)( sommacifra5 di ba +58)(sommaterzina 5 di ba+58)(somma pentagono 5 di ba+58)(prodottocifre 5 di ba +58) ambo terno quaterna e cinquina per le ruote di bari ,cagliari ,nazionale e tt ,grazie in anticipo
 
Chiarimenti
1) L'ambo unito deve anche essere diametrale?
2) Una volta trovata la condizione deve proseguire con la ricerca degli estratti chiesti da Roy oppure basta così?
Ciao Salvo,
1) ambo unito qualsiasi
2) trovata la condizione basta così

ES: RO 51-79-66-21-89
66+21= 87 A DX O SX
TO 30-87-34-56-20
Grazie!
 
Ciao a Tutti.

Ciao E1990

Ecco lo script, salvo errori o dimenticanze

Codice:
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp,Caso,Casi
   Dim R1,R2,E1,E2,Salvo50,A,B,C,D
   Dim P1,P2,P3,P4,P5,P6,S1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,6)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(15) & "METODO CHIESTO DA E1990 - Script Salvo50" & Space(15),1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            'If Diametrale(A) = B Then
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R1 <> R2 Then
                     P3 = P2 + 1
                     If P3 > 5 Then P3 = P2 - 2
                     C = Estratto(Es,R2,P3)
                     P4 = P1 - 1
                     If P4 < 1 Then P4 = P1 + 2
                     D = Estratto(Es,R2,P4)
                     S1 = Fuori90(A + B)
                     If C = S1 Xor D = S1 Then
                        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(" 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
                        If C = S1 Then
                           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 Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                        If D = S1 Then
                           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 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                        End If
                        Scrivi
                        If C = S1 Then Scrivi Space(39) & Format2(C) & " = " & Format2(A) & " + " & Format2(B),1,,,1
                        If D = S1 Then Scrivi Space(39) & Format2(D) & " = " & Format2(A) & " + " & Format2(B),1,,,1
                        Scrivi
                     End If
                  End If
               Next
            'End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 08 maggio 2025
    Bari
    87
    43
    09
    33
    05
    Cagliari
    40
    13
    86
    28
    56
    Firenze
    71
    66
    87
    08
    30
    Genova
    72
    38
    29
    22
    40
    Milano
    71
    12
    15
    39
    75
    Napoli
    09
    71
    20
    53
    10
    Palermo
    88
    58
    80
    85
    15
    Roma
    32
    01
    25
    16
    82
    Torino
    78
    89
    72
    60
    55
    Venezia
    68
    27
    44
    54
    67
    Nazionale
    09
    35
    40
    16
    36
    Estrazione Simbolotto
    Milano
    28
    02
    04
    27
    29
Indietro
Alto