Novità

Un metodo da leccarsi i.. BA.FI

stupl

stupl

Super member
[IMG2=JSON]{"alt":"Oxford","data-align":"none","data-size":"full","src":"https:\/\/forum.lottoced.com\/core\/image.php?userid=17874&thumb=1&dateline=1486905010"}[/IMG2]
Oxford commentata
09-11-2018, 15:11
non riesco a capire perchè il tuo 20 da 22-29 e quello che ho scritto io da 2-20 .
Quale è quella giusta per favore ?
Per le unita aspettiamo con ansia ....
GRAZIE
Ultima modifica di Oxford; 09-11-2018, 15:12.
Clicca per espandere...


Perchè stavo facendo riferimento a come è scritto in questa parte del metodo che non riuscivo a capire:


.........................
Se il 01° estratto è un numero con finale 0 un numero gemello giocheremo per ambata il numeretto come ambata principale e per ambata secondaria il suo vertibile
......................
Clicca per espandere...

quindi avevo dedotto che se il numero fosse 20 allora giocare un gemello della ventina sarebbe il 22, se fosse stato il 30 il gemello della trentina è 33, ecc.ecc..
 
Ultima modifica:
stupl

stupl

Super member
Quindi riepilogando con degli esempi pratici in modo da capire bene il funzionamento del metodo almeno solo sulle ambata:

se esce come 1° estratto il numero 01 allora 01 è l'ambata principale e 10 la secondaria.
se esce come 1° estratto il numero 20 allora 02 è l'ambata principale e 20 la secondaria.
se esce come 1° estratto il numero 33 allora 03 è l'ambata principale e 30 la secondaria.

questo è quello che ho capito, è esatto?

Grazie
 
C

Cinzia27

Premium Member
'Ciao ai partecipanti.
Ecco lo script per il metodo proposto da Donatella.
Spero di non aver fatto errori.

Codice: 
Donatella metodo due numeretti per ambata e ambo (Cinzia)
Sub main()
Dim nn(2),n(2),n1(3),n2(3),ru(1),ru1(2),rur(1),ps(1),ps1(2)
r=1
r1=7
rr=11

ru(1)=r
ru1(1)=r
ru1(2)=r1
rur(1)=rr

ps(1)=1
ps1(2)=1

For es=8946 To EstrazioneFin
If Indicemensile(es)=1 Then
a=Estratto(es,3,1)
b=Decina(a)
c=Cadenza(a)
If c=b Or c=0 Then c=Vert(b)
n(1)=b
n(2)=c

If Cadenza(a)<>0 Then aa=b:aa1=Vert(b):aa2=a
If a<10 Then aa=b:aa1=Vert(b):aa2=a
If Gemello(a)=False Then aa=b:aa1=Vert(b):aa2=a

If Gemello(a)=true Then aa=c:aa1=Vert(c):aa2=a
If Cadenza(a)=0 Or a<10 Then aa=c:aa1=Vert(c):aa2=DiametraleD(a)


If Cadenza(a)<>0 Then bb=b:bb1=c:bb2=a
If a<10 Then bb=b:bb1=c:bb2=a
If Gemello(a)=False Then bb=b:bb1=c:bb2=a

If Gemello(a)=true Then bb=c:bb1=Vert(c):bb2=a
If Cadenza(a)=0 Or a<10 Then bb=c:bb1=Vert(c):bb2=fuori90(bb+bb1)

n1(1)=aa
n1(2)=aa1
n1(3)=aa2
n2(1)=bb
n2(2)=bb1
n2(3)=bb2

nn(1)=b
nn(2)=Vert(b)
ImpostaGiocata 1,n,ru,ps,14
ImpostaGiocata 2,n1,ru1,ps1,14
ImpostaGiocata 3,n2,ru1,ps1,14
ImpostaGiocata 4,nn,rur,ps1,14

End If
Next


ScriviResoconto
Scrivi "***************************************************************"

End Sub
 
F

franca46

Advanced Member >PLATINUM PLUS<
Cinzia27;n2139075 ha scritto:
'Ciao ai partecipanti.
Ecco lo script per il metodo proposto da Donatella.
Spero di non aver fatto errori.

Codice: 
'Donatella metodo due numeretti per ambata e ambo (Cinzia)
Sub main()
Dim nn(2),n(2),n1(3),n2(3),ru(1),ru1(3),rur(1),ps(1),ps1(2)
r=1
r1=7
rr=11

ru(1)=r
ru1(1)=r
ru1(2)=r1
ru1(3)=10
rur(1)=rr

ps(1)=1
ps1(2)=1

For es=8946 To EstrazioneFin
If Indicemensile(es)=1 Then
a=Estratto(es,3,1)
b=Decina(a)
c=Cadenza(a)
If c=b Or c=0 Then c=Vert(b)
n(1)=b
n(2)=c

If Cadenza(a)<>0 Then aa=b:aa1=Vert(b):aa2=a
If a<10 Then aa=b:aa1=Vert(b):aa2=a
If Gemello(a)=False Then aa=b:aa1=Vert(b):aa2=a

If Gemello(a)=true Then aa=c:aa1=Vert(c):aa2=a
If Cadenza(a)=0 Or a<10 Then aa=c:aa1=Vert(c):aa2=DiametraleD(a)


If Cadenza(a)<>0 Then bb=b:bb1=c:bb2=a
If a<10 Then bb=b:bb1=c:bb2=a
If Gemello(a)=False Then bb=b:bb1=c:bb2=a

If Gemello(a)=true Then bb=c:bb1=Vert(c):bb2=a
If Cadenza(a)=0 Or a<10 Then bb=c:bb1=Vert(c):bb2=fuori90(bb+bb1)

n1(1)=aa
n1(2)=aa1
n1(3)=aa2
n2(1)=bb
n2(2)=bb1
n2(3)=bb2

nn(1)=b
nn(2)=Vert(b)
ImpostaGiocata 1,n,ru,ps,14
ImpostaGiocata 2,n1,ru1,ps1,14
ImpostaGiocata 3,n2,ru1,ps1,14
ImpostaGiocata 4,nn,rur,ps1,14

Gioca es

End If
Next


ScriviResoconto
Scrivi "***************************************************************"

End Sub
Clicca per espandere...

adesso si , grazie Cinzia
 
Ultima modifica:
D

donatella

Advanced Member >PLATINUM PLUS<
Ciao a Oxford Stupl e Tutti :l'esempio riportato da Stupl è giusto,probabilmente se ho capito i vostri dubbi,il gemello è nella terzina per ambo e terno dove all'ambo per il terzo elemento si sommano le due ambate :
01 > ambata principale 1 - ambata secondaria 10 -ambo secco 01-10 - terzina per ambo.terno : si sommano le due ambate : 01+10 = 11
Grazie a Cinzia 27 per aver provato a postare lo script
 
C

Cinzia27

Premium Member
Grazie, Franca.
Stavo per postare la correzione ma tu, da brava scripter ,ci sei arrivata prima.
Vediamo cosa dice Donatella.
 
B

Bepy78

Advanced Member >GOLD<
Ciao Donatella si peccato, avevo l'ambo secco e anche un ambo in terzina,ma è andata bene con l'ambata. Bravissima continua così... grazie mille
 
stupl

stupl

Super member
Ho modificato un po lo script di Cinza27 impostando la ruota di Venezia solo quando c'è il caso particolare esposto nel metodo ed ecco qua quello che ne uscito fuori.

Codice: 
Sub Main()
TestoInBandaPassante "************ Un metodo da leccarsi i.. BA.FI ************",1,3,0
Dim AmbaP(1),AmbaS(1)
Dim TerzA(3),TerzB(3)
Dim AmboTu(2)
Dim Ru(1),Ru1(3),RuT(1)
Dim Posta(1),Poste(3),PosteAT(2)
  Ini = EstrazioneFin - 614
  Fin = EstrazioneFin
   Clp = 14
   Ru(1) = BA_
   Ru1(1) = BA_ : Ru1(2) = PA_
   RuT(1) = TU_
   Posta(1) = 1
   Poste(2) = 1 : Poste(3) = 1
   PosteAT(2) = 1
   Ca = 0
    For es = Ini To Fin
      Ru1(3) = 0
      Messaggio " Elab. estr. [" &(es) & "] del " & DataEstrazione(es)
       AvanzamentoElab Ini,Fin,es
      If IndiceMensile(es) = 1 Then
        Ca = Ca + 1
        Scrivi String(90,"=") & " Caso n° " & Format2(Ca),1,,,,3
       a = Estratto(es,3,1) 'Primo estratto su Firenze
       b = Decina(a) 'Ambata Principale
       c = Cadenza(a) 'Ambata Secondaria
        Scrivi DataEstrazione(es) & " - " & SiglaRuota(3) & " > " & StringaEstratti(es,3) & " - 1° estratto su Firenze: ",1,0,,1
        Scrivi a,1,,,2
       If c = b Or c = 0 Then c = Vert(b)
          AmbaP(1) = b : AmbaS(1) = c
       If a < 10 Then AmbaP(1) = c : AmbaS(1) = Vert(c)
          AmboTu(1) = AmbaP(1) : AmboTu(2) = Vert(AmbaP(1))
          TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = a
          TerzB(1) = AmbaP(1) : TerzB(2) = AmbaS(1) : TerzB(3) = a
          Scrivi " Ambata Principale: ",1,0,,1 : Scrivi AmbaP(1),1,,,2
          Scrivi " Ambata Secondaria: ",1,0,,1 : Scrivi AmbaS(1),1,,,2
          Scrivi String(61,"-"),1
             If Gemello(a) = True Then
          TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = a
          TerzB(1) = AmbaP(1) : TerzB(2) = Vert(AmbaP(1)) : TerzB(3) = DiametraleD(a)
          Ru1(3) = Ve_
        End If
        If Cadenza(a) = 0 Or a < 10 Then
          TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = DiametraleD(a)
          TerzB(1) = AmbaP(1) : TerzB(2) = Vert(AmbaP(1)) : TerzB(3) = Fuori90(AmbaP(1) + AmbaS(1))
          Ru1(3) = Ve_
        End If
          ImpostaGiocata 1,AmbaP,Ru,Posta,Clp
          ImpostaGiocata 2,AmbaS,Ru,Posta,Clp
          ImpostaGiocata 3,TerzA,Ru1,Poste,Clp
          ImpostaGiocata 4,TerzB,Ru1,Poste,Clp
          ImpostaGiocata 5,AmboTu,RuT,PosteAT,Clp
      Gioca es,True
     End If
   Next
   Scrivi String(154,"-"),1
   TestoInBandaPassante "************ Un metodo da leccarsi i.. BA.FI ************",1,3,0
   ScriviResoconto
End Sub
 
Ultima modifica:
D

donatella

Advanced Member >PLATINUM PLUS<
Riepilogo risultati di novembre :
04 colpo ambata 04 a Bari ( e per chi lo gioca ambetto 04.02)
09 colpo ambo in terzina 40.43 a Venezia
11 colpo ambata 03 a Bari
12 colpo AMBO SECCO 04.03 a Roma
---------------------------------------
Felice per la Tua vincita Bepy78 : sono impegnata a sviluppare un nuovo metodo e non mi ero accorta delle uscite di questo
 
Ultima modifica:
D

donatella

Advanced Member >PLATINUM PLUS<
Pronostico per Dicembre
Ambata : 08
Ambo : 08.07
A.terno :
08.80.07
08.07.87
ATTENZIONE : nell'estrazione di calcolo e' presente il terno secco 08.07.87 sulla ruota di Milano
 
rosce14

rosce14

Premium Member
CIAO MARINA, BUONA DOMENICA. IL TERNO A MILANO COSA COMPORTA PER LA NUOVA PREVISIONE? LA INVALIDA? FAMMI SAPERE.
 
D

donatella

Advanced Member >PLATINUM PLUS<
Ciao a Tutti scusate il ritardo nel rispondere ma non avevo visto le Vostre richieste : il terno secco presente a Milano non invaliderà il pronostico ( stando allo storico in cui era presente l'ambo) ma tenderà a ritardare la sortita di alcuni colpi,attendere eventualmente il 05° o 06° ( aspettare sabato 14 controllando eventuali sortite anticipate)
 
D

donatella

Advanced Member >PLATINUM PLUS<
Questa sera ambi : 80.87 e 07.87 a Milano ( e 78!)
Peccato!
Sono sortiti 3 numeri del pronostico su 4...ma non si sono combinati a formare il terno!
Auguri di Buon Natale e buon anno a chi leggerà!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto