 |
|
 |
|
| BARI TRIADE 90 VINCENTE - |
| Precedente
:: Successivo |
mariano.manciocchi
 Inviato:
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
Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________
MANCIOCCHI MARIANO |
|
 |
 |
 |
|
| DjNomade
Inviato:
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
Registrato: 11/05/14 00:02
Messaggi: 2222
|
|
|
|
|
|
|
| mariano.manciocchi
Inviato:
Sab 28 Apr, 2018 02:01 |
|
|
|
GRAZIE
|
|
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.0908s (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 |
