COMPLIMENTI A TATOO64 AL QUARTO COLPO AMBO SECCO 06-84 MI
COMPLIMENTI A LANCILLOTTO CENTRA AMBO SECCO 12-74 a GE
COMPLIMENTI A DJNOMADE AMBATA 78 E AMBO SECCO 78-02 a BARI

Metodo Forza 5 - di Badessa Salvo

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 4261
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Metodo Forza 5 - di Badessa Salvo

Messaggio da Tatoo64 »

Il metodo è di Salvo Badessa e lo si può trovare su Youtube:


di una facilità assoluta, il problema è trovare le condizioni a occhio nudo ci vuole molto tempo sarebbe utile uno script.

Grazie Djnomade.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 825
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Metodo Forza 5 - di Badessa Salvo

Messaggio da DjNomade »

ECCOLOOOOOOOOOOOOO

Ciauzzzzzzzzz

Codice: Seleziona tutto


'https://www.youtube.com/watch?v=Rb2aA_OY3Vk&feature=emb_logo
      ColoreTesto 2 :Scrivi String(37,32)&"FORZA 5  BY BADESSA'",1

        Scrivi 
        ColoreTesto 0
Sub Main()
Dim am1(10)
Dim am2(10)
Dim m(10)
Dim ambo(2)
Dim cou1(6) ,cou2(6),cou3(7)
Dim ruote(10),ruota(1),ruotee(10)
Dim poste(5),poste1(5),poste2(4),poste3(4)

poste(2) = 1

poste(3) = 1
poste1(2) = 1

poste2(2) = 1
poste2(3) = 1
poste3(2) = 2
poste3(3) = 1.7
poste3(4) = .3

rs = InputBox("Quante estrazioni vuoi controllare?",,200)
fin = EstrazioneFin
ini = fin - rs
k=12  'colpi di gioco
For es = ini To fin
co = 0
Messaggio DataEstrazione(es)

For r = 1 To 12
If r=11 Then r=12
For i = 1 To 5

a = Estratto(es,r,i)

For r2 =  r+1 To 12
If r2=11 Then r2=12
aa = Estratto(es,r2,i)

c= Distanza(aa,a)

If a = DiametraleD(aa)  And Distanza(r,r2)=5 Then
 nw1 = Diametrale(a) '39+45  84
 nw11 = Diametrale(aa)'34+45 79

 nw111 =DiametraleD(nw1) '84+5 89
nw2 = DiametraleD(nw11) ' 79-5 74
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " < numeri isotopi -  Distanza 5 >",1
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r) & "..." & StringaEstratti(es,r) & "..." & SiglaRuota(r) & "..." & CInt(a),1 
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r2) & "..." & StringaEstratti(es,r2) & "..." & SiglaRuota(r2) & "..." & CInt(aa) ,1
ruote(1) = r
ruote(2) = r2

ruotee(1) = r
ruotee(2) = r2
ruotee(3) = 11
ruotee(4) = 12

Messaggio " elaboro " & es
: co = 0

Scrivi String(85,"-") & Chr(10)

cou1(1) =nw1
cou1(2) = nw111


ImpostaGiocata 1,cou1,ruote,poste,k
cou1(1) = nw11
cou1(2) = nw2

ImpostaGiocata 2,cou1,ruote,poste,k



cou2(1) =nw1
cou2(2) = nw11
cou2(3) = nw111
cou2(4) = nw2
ImpostaGiocata 3,cou2,ruotee,poste2,k



Gioca es

End If
Next
Next
Next
Next
'Next
ScriviResoconto
End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 4261
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Metodo Forza 5 - di Badessa Salvo

Messaggio da Tatoo64 »

Grande Djnomade come sempre. :appl:

Per fare la ricerca anche sulle ruote consecutive cosa devo modificare??
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 825
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Metodo Forza 5 - di Badessa Salvo

Messaggio da DjNomade »


Se elimini questa parte alla linea 48 fa la ricerca su tutte le ruote


And Distanza(r,r2)=5

Avatar utente
Tatoo64
Site Admin
Messaggi: 4261
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Metodo Forza 5 - di Badessa Salvo

Messaggio da Tatoo64 »

DjNomade ha scritto:
20/12/2020, 18:20

Se elimini questa parte alla linea 48 fa la ricerca su tutte le ruote


And Distanza(r,r2)=5

Grazie :abb:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
RedIvivo
Messaggi: 3
Iscritto il: 01/01/2021, 9:16

Re: Metodo Forza 5 - di Badessa Salvo

Messaggio da RedIvivo »

Buongiorno,
avrei una domanda :potete aiutarmi a capire come aprire lo script ?

Avatar utente
DjNomade
Messaggi: 825
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Metodo Forza 5 - di Badessa Salvo

Messaggio da DjNomade »

Occorre programmi appositi tipo Spaziometria o Lottodesk facilmente reperibili in rete
Ciauz

Avatar utente
RedIvivo
Messaggi: 3
Iscritto il: 01/01/2021, 9:16

Re: Metodo Forza 5 - di Badessa Salvo

Messaggio da RedIvivo »

grazie ,delle info

Rispondi