 |
|
 |
|
METODO GENOVA PALERMO TORINO - |
Precedente
:: Successivo |
mariano.manciocchi
Inviato:
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

Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________ MANCIOCCHI MARIANO |
|
 |
 |
 |
 |
DjNomade
Inviato:
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


Registrato: 11/05/14 00:02
Messaggi: 2267
|
|
|
 |
 |
 |
 |
mariano.manciocchi
Inviato:
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

Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________ MANCIOCCHI MARIANO |
|
 |
 |
 |
 |
|
|
|
|
 |
|
 |
|
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.0984s (PHP: 100% - SQL: 0%) - SQL queries: 19 - 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
|