Lottoamicinews :: Leggi Argomento - METODO GENOVA PALERMO TORINO


Nuovo Argomento   Rispondi    Indice del Forum -> METODI
METODO GENOVA PALERMO TORINO -
  Precedente :: Successivo
mariano.manciocchi MessaggioInviato: Mer 11 Apr, 2018 00:45

METODO GENOVA PALERMO TORINO

OPERA ALL'ULTIMA ESTRAZIONE MENSILE
RUOTA DI GIOCO GENOVA PALERMO TORINO  TUTTE

CALCOLO AMBATA
PRIMO ESTRATTO FIRENZE TRASFORMARLO IN FIGURA
PRIMO ESTRATTO GENOVA TRASFORMARLO IN FIGURA
UNIRE LE DUE FIGURE RICAVATE E SI FORMERA' L'AMBATA
ESEMPIO
FIRENZE 1° ESTRATTO 12 FIGURA 3
GENOVA 1° ESTRATTO 23 FIGURA 5
UNIRE LE FIGURE 35 E SARA' AMBATA
CREARNE IL VERTIBILE E SARA' LA SECONDA AMBATA


CALCOLO PRIMO ABBINAMENTO
FARE IL COMPLEMENTO 89 AL 5° ESTRATTO DI FIRENZE
CALCOLO SECONDO ABBINAMENTO
FARE IL COMPLEMENTO 90 AL 5° ESTRATTO DI FIRENZE
CALCOLO PRIMO ABBINAMENTO
FARE IL COMPLEMENTO 91 AL 5° ESTRATTO DI FIRENZE
ESEMPIO
5° FI = 4 COMPLEMENTO 89 = 85
5° FI = 4 COMPLEMENTO 90 = 86
5° FI = 4 COMPLEMENTO 91 = 87

GIOCHEREMO SOLO AMBO E AMBETTO  NO GIOCO AMBATE
BUONE VINCITE
Esperto

Esperto



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

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: Mer 11 Apr, 2018 22:54

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

Ciauz


Codice:


'http://www.lottoamicinews.net/forum/viewtopic.php?t=60515
ColoreTesto 1 :Scrivi "METODO GENOVA PALERMO TORINO----by Mariano Manciocchi ----",1
Scrivi
Scrivi String(28,32)&"List.DjNomade",1
ColoreTesto 0

Sub main()
Dim amb(2),ambo1(2),ambo2(3),ambo3(3),ambo4(2),lg(5)
Dim ruote(10),ruota(10),ruoteee(2),posta(1),poste1(2),poste2(5)
posta(1)=1 : poste1(2)=1
poste2(2)=1 : poste2(3)=1
t=0
cl=13

 
ini=9221
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es
If IsUltimaDelMese(es) Then
n1=Figura(Estratto(es,3,1)):n2=Figura(Estratto(es,4,1))

a=Fuori90(n1&n2)'ambata
b=Vert(a)
c=89-Estratto(es,3,5)
d=90-Estratto(es,3,5)
e=91-Estratto(es,3,5)
ruota(1)=4
ruota(2)=7
ruota(3)=9
ruote(1)=4
ruote(2)=7
ruote(3)=9
ruote(4)=11

t=t+1

Scrivi "---------------------------------------------"& "Giocata n° "& Format2(t),1

amb(1)=a
amb(2)=c
ImpostaGiocata 1,amb,ruote,poste1,cl
amb(1)=a
amb(2)=d
ImpostaGiocata 2,amb,ruote,poste1,cl
amb(1)=a
amb(2)=e
ImpostaGiocata 3,amb,ruote,poste1,cl

amb(1)=b
amb(2)=c
ImpostaGiocata 4,amb,ruote,poste1,cl
amb(1)=b
amb(2)=d
ImpostaGiocata 5,amb,ruote,poste1,cl

amb(1)=b
amb(2)=e
ImpostaGiocata 6,amb,ruote,poste1,cl

Gioca es
End If
Next
ScriviResoconto
End Sub
'Funzione realizzata dal bravissimo Joe
Function IsUltimaDelMese (idEstr)

       Dim sData , sDataNew
       Dim idGiornoSettimana
       Dim gMancanti
       Dim nMeseCorr
      
       sData = Replace(DataEstrazione(idEstr) , "." , "/")
       nMeseCorr = Month(sData)
       idGiornoSettimana = WeekDay (sData)
      
       Select Case idGiornoSettimana
      
       Case vbTuesday ' martedi
               gMancanti =2
       Case vbThursday ' giovedi
               gMancanti = 2
       Case vbSaturday ' sabato
               gMancanti = 3
       End Select
      
       sDataNew = DateAdd( "d" , gMancanti ,sData)
      
       If Month (sDataNew) <> nMeseCorr Then
               IsUltimaDelMese = True
       Else
               IsUltimaDelMese = False
       End If
      
End Function


Esperto

Esperto



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

ProfiloInvia Messaggio Privato Rispondi Citando
mariano.manciocchi MessaggioInviato: Gio 12 Apr, 2018 00:49

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

Ciauz


Codice:


'http://www.lottoamicinews.net/forum/viewtopic.php?t=60515
ColoreTesto 1 :Scrivi "METODO GENOVA PALERMO TORINO----by Mariano Manciocchi ----",1
Scrivi
Scrivi String(28,32)&"List.DjNomade",1
ColoreTesto 0

Sub main()
Dim amb(2),ambo1(2),ambo2(3),ambo3(3),ambo4(2),lg(5)
Dim ruote(10),ruota(10),ruoteee(2),posta(1),poste1(2),poste2(5)
posta(1)=1 : poste1(2)=1
poste2(2)=1 : poste2(3)=1
t=0
cl=13

 
ini=9221
For es=ini To EstrazioneFin
AvanzamentoElab ini,EstrazioneFin ,es
If IsUltimaDelMese(es) Then
n1=Figura(Estratto(es,3,1)):n2=Figura(Estratto(es,4,1))

a=Fuori90(n1&n2)'ambata
b=Vert(a)
c=89-Estratto(es,3,5)
d=90-Estratto(es,3,5)
e=91-Estratto(es,3,5)
ruota(1)=4
ruota(2)=7
ruota(3)=9
ruote(1)=4
ruote(2)=7
ruote(3)=9
ruote(4)=11

t=t+1

Scrivi "---------------------------------------------"& "Giocata n° "& Format2(t),1

amb(1)=a
amb(2)=c
ImpostaGiocata 1,amb,ruote,poste1,cl
amb(1)=a
amb(2)=d
ImpostaGiocata 2,amb,ruote,poste1,cl
amb(1)=a
amb(2)=e
ImpostaGiocata 3,amb,ruote,poste1,cl

amb(1)=b
amb(2)=c
ImpostaGiocata 4,amb,ruote,poste1,cl
amb(1)=b
amb(2)=d
ImpostaGiocata 5,amb,ruote,poste1,cl

amb(1)=b
amb(2)=e
ImpostaGiocata 6,amb,ruote,poste1,cl

Gioca es
End If
Next
ScriviResoconto
End Sub
'Funzione realizzata dal bravissimo Joe
Function IsUltimaDelMese (idEstr)

       Dim sData , sDataNew
       Dim idGiornoSettimana
       Dim gMancanti
       Dim nMeseCorr
      
       sData = Replace(DataEstrazione(idEstr) , "." , "/")
       nMeseCorr = Month(sData)
       idGiornoSettimana = WeekDay (sData)
      
       Select Case idGiornoSettimana
      
       Case vbTuesday ' martedi
               gMancanti =2
       Case vbThursday ' giovedi
               gMancanti = 2
       Case vbSaturday ' sabato
               gMancanti = 3
       End Select
      
       sDataNew = DateAdd( "d" , gMancanti ,sData)
      
       If Month (sDataNew) <> nMeseCorr Then
               IsUltimaDelMese = True
       Else
               IsUltimaDelMese = False
       End If
      
End Function



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.3234s (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