Metodo Nicosia

[Duplex]

Avete mai sentito del metodo "La Somma Quartina?

 

[salvo50]

Ciao Duplex

Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,P5,P6,E1,E2
   Dim Som_AB,Som_CD,AC,BD,AD,BC
   Dim ACAD,ACBC,BDBC,BDAD,Sp,Diff1,Diff2
   Dim Amba(1),Num(4),Ruo(2),Posta(1),Poste(4)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10760)'estrazione 6926 esempio nelle spiegazioni
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,7)
   Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,12)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(20) & " Metodo Nicosia Lotto - Script Salvo50" & Space(20),1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      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)
               Som_AB = Fuori90(A + B)
               If Som_AB = 27 Then
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           If P1 = P3 Or P1 = P4 Or P2 = P3 Or P2 = P4 Then
                              C = Estratto(Es,R2,P3)
                              D = Estratto(Es,R2,P4)
                              Som_CD = Fuori90(C + D)
                              If Som_CD = 45 Then'
                                 AC = Fuori90(A + C) : BD = Fuori90(B + D)
                                 AD = Fuori90(A + D) : BC = Fuori90(B + C)
                                 ACAD = Fuori90(AC + AD) : BDBC = Fuori90(BD + BC)
                                 ACBC = Fuori90(AC + BC) : BDAD = Fuori90(BD + AD)
                                 Diff1 = Differenza(ACAD,ACBC)
                                 Diff2 = Differenza(BDBC,BDAD)
                                 If Diff1 = Diff2 Then
                                    Amba(1) = Diff1
                                    Num(1) = ACAD : Num(2) = ACBC : Num(3) = BDBC : Num(4) = BDAD
                                    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." & FormattaStringa(Es,"00000") & " 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 "  Evidenziati in Rosso Hanno Somma " & Format2(Som_AB),1
                                    Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " 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 1
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  Evidenziati in Blu   Hanno Somma " & Format2(Som_CD),1
                                    Scrivi
                                    Scrivi Space(5) & "Primo " & Space(6) & "Somme" & Space(11) & "Somme",1
                                    Scrivi Space(5) & "Quadro" & Space(4) & "Verticali" & Space(7) & "Diagonali",1
                                    Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(8) & Format2(AC),1,0
                                    Scrivi Space(14) & Format2(AD),1' & Space(16) & Format2(Som1),1
                                    Scrivi Space(5) & Format2(C) & Sp & Format2(D) & Space(8) & Format2(BD),1,0
                                    Scrivi Space(14) & Format2(BC),1' & Space(16) & Format2(Som1),1
                                    Scrivi String(40,"=")
                                    Scrivi Space(4) & "Secondo" & Space(6) & "Somme" & Space(11) & "Somme",1
                                    Scrivi Space(5) & "Quadro" & Space(4) & "Verticali" & Space(7) & "Diagonali",1
                                    Scrivi Space(5) & Format2(AC) & Sp & Format2(BD) & Space(8) & Format2(ACAD),1,0
                                    Scrivi Space(14) & Format2(ACBC),1' & Space(16) & Format2(Som1),1
                                    Scrivi Space(5) & Format2(AD) & Sp & Format2(BC) & Space(8) & Format2(BDBC),1,0
                                    Scrivi Space(14) & Format2(BDAD),1' & Space(16) & Format2(Som1),1
                                    Scrivi String(40,"=")
                                    Scrivi Space(15) & " Pronostico ",1,,,2
                                    Scrivi Space(16) & " Ambata ",1
                                    Scrivi Space(19) & Format2(Diff1),1
                                    Scrivi Space(15) & " Quartina ",1
                                    Scrivi Space(14) & StringaNumeri(Num," ",True),1
                                    Scrivi
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    Scrivi
                                    ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                    ImpostaGiocata 2,Num,Ruo,Poste,Clp2
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     Next
                     If ScriptInterrotto Then Exit Sub
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Duplex]

Grazie 100000 Salvo!