|
|
|
|
METODO COMPLEMENTO 90 - |
Precedente
:: Successivo |
mariano.manciocchi
Inviato:
Mer 11 Apr, 2018 18:00 |
|
|
METODO COMPLEMENTO 90
OPERA A NAPOLI RUOTA DI CALCOLO
ULTIMA ESTRAZIONE MENSILE
CALCOLO AMBATA PRIMARIA
TERZO ESTRATTO DI NAPOLI SI PORTA A COMPLEMENTO 90
ESEMPIO TERZO NAPOLI 10 COMPLEMENTO 90 = 80
CALCOLO AMBATA SECONDARIA
CREARE IL VERTIBILE DELL'AMBATA PRIMARIA
CALCOLO ABBINAMENTO
AMBATA PRIMARIA + 45 = PRIMO ABBINAMENTO
CALCOLO SECONDO ABBINAMENTO
PRIMO ABBINAMENTO + 30
CALCOLO TERZO ABBINAMENTO
PRIMO ABBINAMENTO - 30
GLI AMBI SECCHI CREATI ABBINATI ALLE DUE AMBATE PRIMARIA E SECONDARIA GIOCHERANNO A TUTTE E NAPOLI MENTRE LA LUNGHETTA GIOCHERA' PER AMBO TERNO A NAPOLI
BUONE VINCITE
|
|
Esperto
Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________ MANCIOCCHI MARIANO |
|
|
|
|
|
DjNomade
Inviato:
Mer 11 Apr, 2018 23:04 |
|
|
Per chi usa L8+ salvo errori e omissioni questo è il listato
Ciauz
Codice: |
'http://www.lottoamicinews.net/forum/viewtopic.php?t=60519
'12-04-2018
ColoreTesto 1 :Scrivi "METODO COMPLEMENTO 90----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=90-Estratto(es,6,3)'ambata
b=Vert(a)
c=Fuori90(a+45)
d=Fuori90(c+30)
e=Fuori90(90+c-30)
ruota(1)=6
ruote(1)=6
ruote(2)=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
lg(1)=a
lg(2)=b
lg(3)=c
lg(4)=d
lg(5)=e
ImpostaGiocata 7,lg,ruota,poste2,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: 2006
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
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.0784s (PHP: 100% - SQL: 0%) - SQL queries: 23 - 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
|