Lottoamicinews :: Leggi Argomento - METODO 3° PALERMO ZERATO


Nuovo Argomento   Rispondi    Indice del Forum -> METODI
METODO 3° PALERMO ZERATO -
  Precedente :: Successivo
mariano.manciocchi MessaggioInviato: Lun 09 Apr, 2018 18:10

METODO 3° PALERMO ZERATO

RUOTE DI GIOCO
PALERMO CAGLIARI TORINO NAZIONALE
RUOTA DI CALCOLO PALERMO
RILEVAMENTO SPIA ZERATO IN TERZA POSIZIONE PALERMO
PROCEDURA

RILEVARE LO ZERATO IN TERZA POSIZIONE A PALERMO
TRASFORMARE LO ZERATO IN FIGURA E RILEVARE IL SUO VERTIBILE CHE SARANNO MESSI IN GIOCO PER SORTE CAPOGIOCO O ESTRATTI SULLE RUOTE DI GIOCO .

LA FIGURA RILEVATA VERRA' PORTATA A COMPLEMENTO 90 E QUESTO NUMERO FINALE SARA IL PRIMO ABBINAMENTO .
TRASFORMARE IN VERTIBILE IL PRIMO ABBINAMENTO E QUESTO SARA' IL SECONDO ABBINAMENTO .

ESEMPIO
ESTRAZIONE DEL 17 FEBBRAIO 2018
RILEVATO SPIA 30 IN TERZA POSIZIONE PALERMO
30 = FIGURA 3 CAPOGIOCO
30 = SECONDO CAPOGIOCO
1° ABBINAMENTO COMPLEMENTO A 90 DEL 3 = 80-3 = 87
2° ABBINAMENTO VERTIBILE 87 = 78
PREVISIONE IN GIOCO CAGLIARI PALERMO TORINO SARA'
3 ESTRATTO 30 ESTRATTO ABBINATI 78-87
30-78__30-87__3-78__ 3-87__3-30
OPPURE RIUNITA AMBO TERNO 3-30-78-87
BUONE VINCITE

_________________
MANCIOCCHI MARIANO
Esperto

Esperto



Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: Lun 09 Apr, 2018 20:20

Per chi usa L8+ salvo errori e omissioni questo è il listato

Ciauz


Codice:


'http://www.lottoamicinews.net/forum/viewtopic.php?t=60507
'09/04/2018
Sub main()
Dim ruote(10)
Dim n(12)
Dim ambata(2)
Dim am1(10),am2(10),am3(10),am4(10),am5(10)
Dim posta(2)
Dim poste(2)
Dim poste1(4)
posta(1)=1
posta(2)=1
poste(2)=1
poste1(2)=1.50
poste1(3)=.50
k=9
Scrivi

Scrivi String(30," ")&"******* METODO 3° PALERMO ZERATO  di MARIANO MANCIOCCHI******",1
Scrivi
Scrivi String(30," ")&"******* List, DjNomade",1
ColoreTesto 2
Scrivi
Scrivi String(50," ")&" ",1
ColoreTesto 1
Scrivi
Scrivi String(88,"*")&" ",1
ColoreTesto 0
t=0



ini=EstrazioneFin-60
fin=EstrazioneFin
For es=ini To fin
       For r=7 To 7
               For p= 3 To 3
               a=Estratto(es,r,p)


                       If Cadenza(a)=0  Then



                      
t=t+1

Scrivi"-------------------------------------------------------------------Giocata n°"& Format2(t),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r)& " "& StringaEstratti(es,r)&"----> "& Format2(a),1
scrivi
                       n1=Figura(a)
                       n2=Vert(n1)
                       n3=90-n1
                       n4=Vert(n3)

ruote(1)=2
ruote(2)=r
ruote(3)=9
ruote(4)=12    
 
am1(1)=n1
am1(2)=n2
 ImpostaGiocata 1,am1,ruote,posta,k
am1(1)=n1
am1(2)=n3
 ImpostaGiocata 2,am1,ruote,poste,k
am1(1)=n1
am1(2)=n4
 ImpostaGiocata 3,am1,ruote,poste,k
am1(1)=n2
am1(2)=n3
 ImpostaGiocata 4,am1,ruote,poste,k
am1(1)=n2
am1(2)=n4
 ImpostaGiocata 5,am1,ruote,poste,k

Gioca es
End If
Next
Next
Next


ScriviResoconto
End Sub


Esperto

Esperto



Registrato: 11/05/14 00:02
Messaggi: 1967

ProfiloInvia Messaggio Privato Rispondi Citando
mariano.manciocchi MessaggioInviato: Mer 11 Apr, 2018 17:24

DjNomade ha scritto:
Per chi usa L8+ salvo errori e omissioni questo è il listato

Ciauz


Codice:


'http://www.lottoamicinews.net/forum/viewtopic.php?t=60507
'09/04/2018
Sub main()
Dim ruote(10)
Dim n(12)
Dim ambata(2)
Dim am1(10),am2(10),am3(10),am4(10),am5(10)
Dim posta(2)
Dim poste(2)
Dim poste1(4)
posta(1)=1
posta(2)=1
poste(2)=1
poste1(2)=1.50
poste1(3)=.50
k=9
Scrivi

Scrivi String(30," ")&"******* METODO 3° PALERMO ZERATO  di MARIANO MANCIOCCHI******",1
Scrivi
Scrivi String(30," ")&"******* List, DjNomade",1
ColoreTesto 2
Scrivi
Scrivi String(50," ")&" ",1
ColoreTesto 1
Scrivi
Scrivi String(88,"*")&" ",1
ColoreTesto 0
t=0



ini=EstrazioneFin-60
fin=EstrazioneFin
For es=ini To fin
       For r=7 To 7
               For p= 3 To 3
               a=Estratto(es,r,p)


                       If Cadenza(a)=0  Then



                      
t=t+1

Scrivi"-------------------------------------------------------------------Giocata n°"& Format2(t),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r)& " "& StringaEstratti(es,r)&"----> "& Format2(a),1
scrivi
                       n1=Figura(a)
                       n2=Vert(n1)
                       n3=90-n1
                       n4=Vert(n3)

ruote(1)=2
ruote(2)=r
ruote(3)=9
ruote(4)=12    
 
am1(1)=n1
am1(2)=n2
 ImpostaGiocata 1,am1,ruote,posta,k
am1(1)=n1
am1(2)=n3
 ImpostaGiocata 2,am1,ruote,poste,k
am1(1)=n1
am1(2)=n4
 ImpostaGiocata 3,am1,ruote,poste,k
am1(1)=n2
am1(2)=n3
 ImpostaGiocata 4,am1,ruote,poste,k
am1(1)=n2
am1(2)=n4
 ImpostaGiocata 5,am1,ruote,poste,k

Gioca es
End If
Next
Next
Next


ScriviResoconto
End Sub



grazie dj
Esperto

Esperto



Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
Mostra prima i Messaggi di:   
Nuovo Argomento   Rispondi    Indice del Forum -> METODI Tutti i fusi orari sono GMT + 1 ora
Pagina 1 di 1

 
Vai a:  
Non puoi inserire nuovi Argomenti
Non puoi rispondere a nessun Argomento
Non puoi modificare i tuoi Messaggi
Non puoi cancellare i tuoi Messaggi
Non puoi votare nei Sondaggi
Non puoi allegare files
Non puoi downloadare gli allegati

Page generation time: 0.0965s (PHP: 100% - SQL: 0%) - SQL queries: 24 - GZIP enabled - Debug on


Jasidogdotcom template v.1.0.4 © jasidog.com
Powered by phpBB 2.0.16 © 2001, 2004 phpBB Group
Traduzione Italiana V-0.16 phpBB.it
Template by Jasidog Template by Jasidog