Lottoamicinews :: Leggi Argomento - BARI TRIADE 90 VINCENTE


Nuovo Argomento   Rispondi    Indice del Forum -> METODI
BARI TRIADE 90 VINCENTE -
  Precedente :: Successivo
mariano.manciocchi MessaggioInviato: Ven 27 Apr, 2018 00:42

BARI TRIADE 90 VINCENTE

OPERA ALL'ULTIMA ESTRAZIONE MENSILE
PREVISTI 18 COLPI DI GIOCO

RUOTA DI BARI TUTTE
GIOCO COME DA REPUTAZIONE STATISTICA DEL GIOCATORE ESPERTO DA CONVERGENZE O GIOCO A TUTTE PER I MENO ESPERTI

OPERAZIONE
COMPLEMENTO 90 DEL 5° DI BARI PRIMO NUMERO DA METTERE IN GIOCO
5° ESTRATTO  DI BARI E SARA' IL SECONDO NUMERO DA METTERE IN GIOCO
TERZO NUMERO IL 90 CHE SARA' DATO DALLA SOMMA DEL COMPLEMENTO A 90 E IL 5° ESTRATTO DI BARI
DA CIO' SI RICAVERANNO TRE AMBI CHE VERRANNO MESSI IN GIOCO PER I SUCCESSIVI ESAGERATI 18 COLPI MA REDDITIZI
BUONE VINCITE A TUTTI


Ultima modifica di mariano.manciocchi il Ven 27 Apr, 2018 18:28, modificato 1 volta in totale
Esperto

Esperto



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

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: Ven 27 Apr, 2018 22:10

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

Ciauz


Codice:



'http://www.lottoamicinews.net/forum/viewtopic.php?t=60558
'27-04-2018
ColoreTesto 1 :Scrivi "BARI TRIADE 90 VINCENTE----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=18

 
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,1,5)
b=Estratto(es,1,5)
c=90


ruote(1)=11

t=t+1

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


lg(1)=a
lg(2)=b
lg(3)=c

ImpostaGiocata 1,lg,ruote,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
mariano.manciocchi MessaggioInviato: Sab 28 Apr, 2018 02:01

GRAZIE
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.3835s (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