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!

 

[Olmo]

Chiedo scusa, Purtroppo io non uso script e non riesco a decifrare il metodo......

 

[salvo50]

Chiedo scusa, Purtroppo io non uso script e non riesco a decifrare il metodo......

Duplex aveva postato una immagine che c'era spiegato il metodo, chiedi se può ripostarla.

 

[Duplex]

Ciao ragazzi, quello stralcio di foto,non riguardava lo script di Salvo. Il metodo era SOMMA 91 in verticale. Vi dò lo script,funzionante, copiato non ricordo dove e redatto da Enplein
Sub Main()
Dim amb(1),ruote(2),rtt(3),posta(1),poste(2)
Dim ambo1(2)
posta(1) = 1oste(2) = 1
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",9000)
k = InputBox("per quanti colpi?","colpi di gioco",14)
ini = ce
fin = EstrazioneFin
Scrivi String(73,"="),1
ColoreTesto 1
Scrivi "Coppia in verticale di somma 91 su ruote consecutive di s. Nicosia_listed by Enplein.",1
Scrivi
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.) by Listed_Enplein",1
ColoreTesto 0
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 10 : g = 0
For p = 1 To 5 : a = Estratto(es,r1,p)
r2 = r1 + 1
If r2 = 11 Then r2 = 12
b = Estratto(es,r2,p): so =(a + b)
If so = 91 Then
If(pari(a) = False And a > b) Or(pari(a) = True And a > b) Then r = r2 : nm = a : nu = b
If(pari(b) = False And b > a) Or(pari(b) = True And b > a) Then r = r1 : nm = b : nu = a
ok = 0
If p > 1 And pari(nm) = True Then

For i = p - 1 To 1 Step - 1
x = Estratto(es,r,i)
If pari(x) = False Then
ok = 1
End If
If ok = 1 Then nx = x : q = i : Exit For
Next

End If
If p = 1 And pari(nm) = True Then

For i = p + 1 To 5
x = Estratto(es,r,i)
If pari(x) = False Then
ok = 1
End If
If ok = 1 Then nx = x : q = i : Exit For
Next

End If
If p > 1 And pari(nm) = False Then

For i = p - 1 To 1 Step - 1
x = Estratto(es,r,i)
If pari(x) = True Then
ok = 1
End If
If ok = 1 Then nx = x : q = i : Exit For
Next

End If
If p = 1 And pari(nm) = False Then

For i = p + 1 To 5
x = Estratto(es,r,i)
If pari(x) = True Then
ok = 1
End If
If ok = 1 Then nx = x : q = i : Exit For
Next

End If
If ok = 1 Then

'Calcolo
n1 = Fuori90((nm + 90) - nx) : n2 = Fuori90((nm + 90) - nu)
amb(1) = n1
ambo1(1) = n1 : ambo1(2) = n2
ruote(1) = r1:ruote(2) = r2:rtt(1) = r1 : rtt(2) = r2 : rtt(3) = 11
'---------------------------------------------------------------------------------------------------------------------

casi = casi + 1:Scrivi String(110,"="),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
Format2(a) & " ] in " &(p) & "^ pos. ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ] [ " & _
Format2(b) & " ] in " &(p) & "^ pos. Somma = " & Format2(so) & " Num. > " & Format2(nm) & " Elem. " & Format2(nx) & " Pos. " & q & "^ su " & _
SiglaRuota(r),1
Scrivi String(100,"-") & " caso n° " &(casi),1
ImpostaGiocata 1,amb,ruote,posta,k
ImpostaGiocata 2,ambo1,rtt,poste,k
Gioca es
End If

End If

Next
Next
Next
Scrivi String(55,"=") & " script by Enplein",1
ScriviResoconto
End Sub

.

 

[Duplex]

Chiedo scusa, Purtroppo io non uso script e non riesco a decifrare il metodo......

Scarica Spaziometria 1.6.54 da questo forum nell'area Download