Script su Metodi Cabalistici, Ciclometrici & C.

[Juri]

C'è qualcuno che puo' dirmi tra tutti questi script messi dalla pagina n° 1 quale dalle vostre verifiche è il piu' potente sia per ambata che per ambo secco con meno in gioco?

Quello di Antonio Longo con 1 solo ambo a tutte mi sembra al top tra quei 4-5 che ho visto.

Grazie.

 

[salvo50]

C'è qualcuno che puo' dirmi tra tutti questi script messi dalla pagina n° 1 quale dalle vostre verifiche è il piu' potente sia per ambata che per ambo secco con meno in gioco?

Quello di Antonio Longo con 1 solo ambo a tutte mi sembra al top tra quei 4-5 che ho visto.

Grazie.

Io, no

 

[EVERITA C]

OK grazie.

 

[salvo50]

OK grazie.

Lottopython, Bubù
Grazie


Ti ho fatto un altro script però nel titolo ho messo Metodo di Everita
Puoi scrivere qualsiasi numero , la distanza che viene spezzata la decidi tu
mettendo il primo numero della distanza nel secondo posto quando li inserisci
ho messo anche che puoi cambiare la distanza minima tra due numeri
io l'ho impostata a > 1 in modo che puoi mettere qualsiasi numero non consecutivo

Lo script lo metto qua

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
   Dim R1,R2,P1,P2,P3,P4,Salvo50
   Dim aM,N,Mn_Dist
   Dim DM12,DM23,DM34,DM41,Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(3)
   Dim Posta(2),L(6)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,1))
   Mn_Dist = CInt(InputBox(" Quale deve essere la distanza minima tra un numero e l'altro?",Salvo50,1))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   N = InputBox("Inserisci i Quattro numeri separati da un puntino",,"11.77.45.69")
   aM = Split("0." & N,".")
   A = CInt(aM(1))
   B = CInt(aM(2))
   C = CInt(aM(3))
   D = CInt(aM(4))
   Posta(2) = 1
   Scrivi Space(3) & " Metodo di Everita - Script Salvo50" & Space(3),1,,4,,3,,1

   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
 
      DM12 = Distanza(aM(1),aM(2)) : DM23 = Distanza(aM(2),aM(3))
      DM34 = Distanza(aM(3),aM(4)) : DM41 = Distanza(aM(4),aM(1))
      If DM12 > Mn_Dist And DM23 > Mn_Dist And DM34 > Mn_Dist And DM41 > Mn_Dist Then
         '---------------------------------
         If DM12 > Mn_Dist And DM23 > Mn_Dist And DM34 > Mn_Dist And DM41 > Mn_Dist Then
            L(5) = Fuori90(aM(2) + 16) : L(6) = Fuori90(L(5) + 2)
            Ambo1(1) = Fuori90(aM(2) + 16)
            Ambo2(1) = Fuori90(aM(2) + 2)
            Ambo3(1) = Fuori90(aM(2) + 2)
         End If
         Ambo1(2) = Fuori90(Ambo1(1) + 2)
         Ambo2(2) = Fuori90(Ambo2(1) + 2)
         Ambo3(2) = Fuori90(Ambo2(1) + 16)
         L(1) = aM(1) : L(2) = aM(2) : L(3) = aM(3) : L(4) = aM(4)
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi
         Scrivi " Numeri Inseriti " & StringaNumeri(aM),1,,,2
         Scrivi
         If Cer = 1 Then
            DisegnaCerchioCiclometrico aM,1,1,,,1,1
            DisegnaCerchioCiclometrico L,1,1,,,1,1
         End If
         Scrivi
         R1 = TT_
         Ruo(1) = R1
         ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
         ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
         ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub

 

[EVERITA C]

OK grazie domani lo guardo con calma,