Novità

X SALVO 50 E ALTRI

Ciao a Tutti.

Matematico, Grazie

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50,Rig,Ok
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim Sac,Sbd,Sad,Sbc,Dac,Dbd,Dad,Dbc,Amba
   Dim Amb(1),Ambo1(2),Ambo2(2),Ambo3(2),Terno(3)
   Dim Ruot1(2),Ruot2(3),Posta(1),Poste(2),Posts(3)
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10050))'6947 Estrazione di esempio nell'articolo
   Clp = InputBox("Per quanti colpi vuoi giocare il Pronostico? ",Salvo50,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi " La Teoria Dei Vortici (Scaravetti)- La Teoria Delle Riproduzioni Numerici (Fabarri) ",1,,4,,3,,1
   Scrivi "                Vortici-Numerici - Metodo di Noel - Script Salvo50)                  ",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es & "     Tempo Trascorso " & TempoTrascorso
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     'A---B
                     '|   |
                     'C---D
                     If A <> C And A <> D And B <> C And B <> D Then
                        Sac = Fuori90(A + C) : Sbd = Fuori90(B + D)
                        Sad = Fuori90(A + D) : Sbc = Fuori90(B + C)
                        Dac = Distanza(A,C) : Dbd = Distanza(B,D)
                        Dad = Distanza(A,D) : Dbc = Distanza(B,C)
                        If Dac = Dbd Or Dad = Dbc Then
                           Amba = 0
                           Ok = 0
                           If Dac = Dbd Then
                              If Sac = B Then Amba = D : Rig = Format2(A) & " + " & Format2(C) & " = " & Format2(B) & Space(9) & Format2(B) & Space(13) & Format2(D) : Ok = 1
                              If Sac = D Then Amba = B : Rig = Format2(A) & " + " & Format2(C) & " = " & Format2(D) & Space(9) & Format2(D) & Space(13) & Format2(B) : Ok = 2
                              If Sbd = A Then Amba = C : Rig = Format2(B) & " + " & Format2(D) & " = " & Format2(A) & Space(9) & Format2(A) & Space(13) & Format2(C) : Ok = 3
                              If Sbd = C Then Amba = A : Rig = Format2(B) & " + " & Format2(D) & " = " & Format2(C) & Space(9) & Format2(C) & Space(13) & Format2(A) : Ok = 4
                           End If
                           If Dad = Dbc Then
                              If Sad = B Then Amba = C : Rig = Format2(A) & " + " & Format2(D) & " = " & Format2(B) & Space(9) & Format2(B) & Space(13) & Format2(C) : Ok = 3
                              If Sad = C Then Amba = B : Rig = Format2(A) & " + " & Format2(D) & " = " & Format2(C) & Space(9) & Format2(C) & Space(13) & Format2(B) : Ok = 2
                              If Sbc = A Then Amba = D : Rig = Format2(B) & " + " & Format2(C) & " = " & Format2(A) & Space(9) & Format2(A) & Space(13) & Format2(D) : Ok = 1
                              If Sbc = D Then Amba = A : Rig = Format2(B) & " + " & Format2(C) & " = " & Format2(D) & Space(9) & Format2(D) & Space(13) & Format2(A) : Ok = 4
                           End If
                           If Amba > 0 Then
                              Amb(1) = Amba : Ambo1(1) = Amba : Ambo2(1) = Amba : Ambo3(1) = Amba
                              If Ok = 1 Then Ambo1(2) = A : Ambo2(2) = B : Ambo3(2) = C : Terno(1) = A : Terno(2) = B : Terno(3) = C
                              If Ok = 2 Then Ambo1(2) = A : Ambo2(2) = C : Ambo3(2) = D : Terno(1) = A : Terno(2) = C : Terno(3) = D
                              If Ok = 3 Then Ambo1(2) = A : Ambo2(2) = B : Ambo3(2) = D : Terno(1) = A : Terno(2) = B : Terno(3) = D
                              If Ok = 4 Then Ambo1(2) = B : Ambo2(2) = C : Ambo3(2) = D : Terno(1) = B : Terno(2) = C : Terno(3) = D
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              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
                              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 Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi Space(7) & "Estratti " & Space(5) & "Distanze " & Space(6) & "Distanze",1,0
                              Scrivi Space(7) & " Somme" & Space(7) & " Somme ",1
                              Scrivi Space(5) & "In Quadrato" & Space(5) & "Verticali" & Space(6),1,0
                              Scrivi "Diagonali" & Space(5) & "Verticali" & Space(4) & "Diagonali",1
                              Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(11) & Format2(Dac),1,0
                              Scrivi Space(13) & Format2(Dad) & Space(12) & Format2(Sac) & Space(11) & Format2(Sad),1
                              Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(11) & Format2(Dbd),1,0
                              Scrivi Space(13) & Format2(Dbc) & Space(12) & Format2(Sbd) & Space(11) & Format2(Sbc),1
                              Scrivi
                              Scrivi Space(24) & " Vincolo" & Space(7) & " Ultimo",1
                              Scrivi Space(24) & "Sommativo" & Space(5) & " Elemento",1
                              Scrivi Space(6) & Rig,1
                              Scrivi
                              Scrivi Space(32) & " PRONOSTICO",1,,,1
                              Scrivi Space(32) & "Ambata = " & Format2(Amba),1
                              Scrivi
                              Scrivi Space(32) & "   AMBI    ",1
                              Scrivi Space(21) & "(" & Format2(Amba) & " " & Format2(Ambo1(2)) & ")",1,0
                              Scrivi Space(5) & "(" & Format2(Amba) & " " & Format2(Ambo2(2)) & ")",1,0
                              Scrivi Space(5) & "(" & Format2(Amba) & " " & Format2(Ambo3(2)) & ")",1
                              Scrivi
                              Scrivi Space(31) & "   TERNO    ",1
                              Scrivi Space(31) & "(" & Format2(Ambo1(2)) & " " & Format2(Ambo2(2)) & " " & Format2(Ambo3(2)) & ")",1
                              Scrivi
                              Ruot1(1) = R1 : Ruot1(2) = R2
                              Ruot2(1) = R1 : Ruot2(2) = R2 : Ruot2(3) = TT_
                              ImpostaGiocata 1,Amb,Ruot1,Posta,Clp,1
                              ImpostaGiocata 2,Ambo1,Ruot2,Poste,Clp,2
                              ImpostaGiocata 3,Ambo2,Ruot2,Poste,Clp,2
                              ImpostaGiocata 4,Ambo3,Ruot2,Poste,Clp,2
                              ImpostaGiocata 5,Terno,Ruot2,Posts,Clp,2
                              Gioca Es,1
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40

Ultimi Messaggi

Indietro
Alto