Lottoamicinews :: Leggi Argomento - METODO COMPLEMENTO 90


Nuovo Argomento   Rispondi    Indice del Forum -> METODI
METODO COMPLEMENTO 90 -
  Precedente :: Successivo
mariano.manciocchi MessaggioInviato: 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

Esperto



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

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: 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

Esperto



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

ProfiloInvia Messaggio Privato 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.0979s (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
Template by Jasidog Template by Jasidog