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
    giovedì 23 ottobre 2025
    Bari
    81
    19
    12
    57
    40
    Cagliari
    20
    69
    66
    49
    48
    Firenze
    39
    15
    41
    70
    69
    Genova
    59
    83
    42
    07
    08
    Milano
    42
    25
    02
    14
    68
    Napoli
    29
    28
    38
    56
    82
    Palermo
    08
    28
    32
    90
    74
    Roma
    48
    07
    32
    55
    34
    Torino
    31
    85
    24
    54
    87
    Venezia
    86
    72
    67
    69
    34
    Nazionale
    67
    32
    58
    81
    34
    Estrazione Simbolotto
    43
    22
    12
    01
    33
Indietro
Alto