X SALVO 50 E ALTRI

[DRAGON8698]

SE POTETE CREARE UN LISTATO PER SPAZIOMETRIA DI QUESTO SEMPRE DI NOEL

 

[salvo50]

Ciao a Tutti.

Matematico, Grazie

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

 

[DRAGON8698]

Grazie