Cerca
 
 

Risultati secondo:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Vediamo se mi ripago le ferie
Ven Feb 16, 2018 5:11 pm Da spike5

» Da Ambo spia 09-90 a tutte
Ven Feb 16, 2018 8:40 am Da spike5

» Ultima del Mese BARI
Sab Feb 10, 2018 9:12 pm Da vinci

» Palermo-Torino
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5

» Firenze-Genova (chiusa)
Gio Gen 18, 2018 1:09 pm Da Lory

» ambo a tutte
Lun Gen 08, 2018 9:50 pm Da Mara*

» 2 ambi a Venezia
Lun Gen 08, 2018 1:49 pm Da spike5


Ultima del Mese + Spia in Cadenza

Pagina 1 di 4 1, 2, 3, 4  Seguente

Andare in basso

Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore il Mar Ott 14, 2014 9:34 pm

ULTIMA ESTRAZIONE DEL MESE
CON SPIA IN CADENZA DEL 3°ESTRATTO DI VENEZIA


Codice:
Sub Main()
 ColoreTesto 1 :Scrivi:Scrivi String(120,"@"),1 : ColoreTesto 2
 Scrivi String(25," ") & "ULTIMA ESTRAZIONE DEL MESE CON SPIA IN CADENZA DEL 3°ESTRATTO DI VENEZIA"
 Scrivi:Scrivi String(47," ") & "METODO E SCRIPT BY BLACKMORE"
 ColoreTesto 1:Scrivi String(120,"@"),1 :Scrivi
 ColoreTesto 0: Scrivi "Per i numeri doppi si è fatto il + 1",1 : Scrivi
 Dim ruota(10)
 Dim am(5): Dim amb(1): Dim ambo1(2): Dim ambo2(2): Dim ambo3(2): Dim ambo4(2)
 Dim cinquina(5)
 Dim posta(1): Dim poste(2): Dim postee(4)
 posta(1) = 1
 poste(2) = 1
 postee(2) = 1
 postee(3) = 1.50
 postee(4) = 0.50
 r1 = InputBox("1° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",1)
 r2 = InputBox("2° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",2)
 ce = InputBox("ESTRAZIONE DI PARTENZA N° ?","Metodo e Script By BLACKMORE",7600)
 k = InputBox("QUANTI COLPI DI GIOCO ?","Metodo e Script By BLACKMORE",10)
 ini = ce
 fin = EstrazioneFin
 Messaggio " [ Ultima del Mese + condizione Cadenza 3°di Venezia By BLACKMORE ]"
 For es = ini To EstrazioneFin
 If IsUltimaDelMese(es) Then
 n1 = Cadenza(Estratto(es,VE_,3))
 casi = casi + 1
 ColoreTesto 1:Scrivi String(113,"@") & " " & casi & "°CASO",1 : ColoreTesto 1
 ColoreTesto 2:Scrivi DataEstrazione(es) & " " & SiglaRuota(10) & ": " & StringaEstratti(es,10) & " [ Ultima Estrazione del Mese : Cadenza del " &(3) & "° Estratto di " & NomeRuota(10) & " = " & Format2(n1) & " ]",1
 ColoreTesto 0: Scrivi
 If n1 = 0 Then am(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,5) + 07):am(2) = Fuori90(Estratto(es,CA_,2) + Estratto(es,NA_,4) + 24):am(3) = Fuori90(Estratto(es,RO_,3) + Estratto(es,VE_,5) + 62):am(4) = Fuori90(Estratto(es,CA_,3) + Estratto(es,PA_,4) + 78):am(5) = Fuori90(Estratto(es,MI_,3) + Estratto(es,NA_,2) + 52)
 If n1 = 1 Then am(1) = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 18):am(2) = Fuori90(Estratto(es,MI_,5) + Estratto(es,NA_,4) + 19):am(3) = Fuori90(Estratto(es,FI_,5) + Estratto(es,MI_,3) + 62):am(4) = Fuori90(Estratto(es,CA_,1) + Estratto(es,TO_,5) + 46):am(5) = Fuori90(Estratto(es,MI_,4) + Estratto(es,VE_,3) + 61)
 If n1 = 2 Then am(1) = Fuori90(Estratto(es,GE_,5) + Estratto(es,NA_,4) + 13):am(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,RO_,2) + 35):am(3) = Fuori90(Estratto(es,CA_,2) + Estratto(es,VE_,4) + 62):am(4) = Fuori90(Estratto(es,GE_,3) + Estratto(es,NA_,4) + 42):am(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,NA_,1) + 81)
 If n1 = 3 Then am(1) = Fuori90(Estratto(es,NA_,4) + Estratto(es,PA_,3) + 82):am(2) = Fuori90(Estratto(es,NA_,4) + Estratto(es,TO_,1) + 37):am(3) = Fuori90(Estratto(es,FI_,3) + Estratto(es,RO_,4) + 48):am(4) = Fuori90(Estratto(es,CA_,2) + Estratto(es,VE_,2) + 21):am(5) = Fuori90(Estratto(es,GE_,3) + Estratto(es,NA_,3) + 26)
 If n1 = 4 Then am(1) = Fuori90(Estratto(es,PA_,2) + Estratto(es,RO_,4) + 02):am(2) = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 32):am(3) = Fuori90(Estratto(es,CA_,2) + Estratto(es,GE_,4) + 62):am(4) = Fuori90(Estratto(es,GE_,3) + Estratto(es,MI_,2) + 76):am(5) = Fuori90(Estratto(es,MI_,4) + Estratto(es,RO_,5) + 24)
 If n1 = 5 Then am(1) = Fuori90(Estratto(es,PA_,5) + Estratto(es,TO_,1) + 01):am(2) = Fuori90(Estratto(es,CA_,5) + Estratto(es,NA_,3) + 58):am(3) = Fuori90(Estratto(es,NA_,1) + Estratto(es,TO_,2) + 76):am(4) = Fuori90(Estratto(es,RO_,2) + Estratto(es,VE_,4) + 14):am(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,MI_,3) + 36)
 If n1 = 6 Then am(1) = Fuori90(Estratto(es,CA_,3) + Estratto(es,VE_,2) + 04):am(2) = Fuori90(Estratto(es,CA_,4) + Estratto(es,NA_,4) + 67):am(3) = Fuori90(Estratto(es,BA_,2) + Estratto(es,MI_,4) + 34):am(4) = Fuori90(Estratto(es,FI_,1) + Estratto(es,TO_,4) + 31):am(5) = Fuori90(Estratto(es,GE_,4) + Estratto(es,TO_,4) + 50)
 If n1 = 7 Then am(1) = Fuori90(Estratto(es,BA_,2) + Estratto(es,RO_,5) + 59):am(2) = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,3) + 57):am(3) = Fuori90(Estratto(es,PA_,3) + Estratto(es,RO_,5) + 34):am(4) = Fuori90(Estratto(es,CA_,4) + Estratto(es,PA_,3) + 26):am(5) = Fuori90(Estratto(es,GE_,1) + Estratto(es,TO_,2) + 29)
 If n1 = 8 Then am(1) = Fuori90(Estratto(es,GE_,1) + Estratto(es,NA_,5) + 46):am(2) = Fuori90(Estratto(es,MI_,1) + Estratto(es,RO_,4) + 43):am(3) = Fuori90(Estratto(es,BA_,5) + Estratto(es,TO_,2) + 27):am(4) = Fuori90(Estratto(es,CA_,3) + Estratto(es,VE_,5) + 14):am(5) = Fuori90(Estratto(es,FI_,4) + Estratto(es,MI_,5) + 75)
 If n1 = 9 Then am(1) = Fuori90(Estratto(es,FI_,5) + Estratto(es,TO_,4) + 08):am(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,MI_,5) + 41):am(3) = Fuori90(Estratto(es,MI_,3) + Estratto(es,VE_,1) + 81):am(4) = Fuori90(Estratto(es,MI_,3) + Estratto(es,NA_,3) + 26):am(5) = Fuori90(Estratto(es,CA_,2) + Estratto(es,MI_,2) + 07)
 ruota(1) = r1:ruota(2) = r2 :co = 0
 'se 1 o più numeri sono ripetuti si fa il + 1
 rip = 0
 If NumeriRipetuti(am) Then
 rip = 1
 While NumeriRipetuti(am)
 For x = 1 To 4
 For y = x + 1 To 5
 If am(x) = am(y) Then am(y) = Fuori90(am(y) + 1)
 Next
 Next
 Wend
 End If
 amb(1) = am(1)
 co = co + 1
 ImpostaGiocata co,amb,ruota,posta,k,1
 ambo1(1) = am(1)
 ambo1(2) = am(2)
 co = co + 1
 ImpostaGiocata co,ambo1,ruota,poste,k,2
 ambo2(1) = am(1)
 ambo2(2) = am(3)
 co = co + 1
 ImpostaGiocata co,ambo2,ruota,poste,k,2
 ambo3(1) = am(1)
 ambo3(2) = am(4)
 co = co + 1
 ImpostaGiocata co,ambo3,ruota,poste,k,2
 ambo4(1) = am(1)
 ambo4(2) = am(5)
 co = co + 1
 ImpostaGiocata co,ambo4,ruota,poste,k,2
 cinquina(1) = am(1)
 cinquina(2) = am(2)
 cinquina(3) = am(3)
 cinquina(4) = am(4)
 cinquina(5) = am(5)
 co = co + 1
 ImpostaGiocata co,cinquina,ruota,postee,k,3
 Gioca es,1
 End If
 If ScriptInterrotto Then Exit For
 Next
 Scrivi:Scrivi
 ColoreTesto 1:Scrivi String(75,"*") & " Matematica Sommativa By BLACKMORE"
 ColoreTesto 0:ScriviResoconto
End Sub
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

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* il Mer Ott 15, 2014 7:26 am

Black...

questa ieri sera ha pagato 2 ambi secchi e 1 terno in cinquina  su ruota !!!!!  

peccato nn averla avuta e giocata   Sad



lo26  lo11  lo13  :



[Devi essere iscritto e connesso per vedere questa immagine]
avatar
Mara*
moderatore

Messaggi : 1016
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da sax71 il Mer Ott 15, 2014 7:31 am

Grande Blackmore....ottimo script!!! Grazie!!!!!

sax71

Messaggi : 31
Data d'iscrizione : 17.02.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 il Mer Ott 15, 2014 8:45 am

per gli ignoranti come me qualcuno può mettere in evidenza le combinazioni da giocare, grazie
avatar
spike5

Messaggi : 1140
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da sax71 il Mer Ott 15, 2014 9:07 am

Ciao Spike,per il momento la previsione per il mese di ottobre e conclusa per esito verificato. Devi aspettare l'ultima estrazione del mese di ottobre per la nuova previsione per il mese di novembre. Ciao e buona giornata!

sax71

Messaggi : 31
Data d'iscrizione : 17.02.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da domenico1 il Mer Ott 15, 2014 10:36 pm

Apperò ebbravo il Black..... lo13
avatar
domenico1

Messaggi : 393
Data d'iscrizione : 26.12.13
Età : 57

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 il Gio Ott 16, 2014 6:32 am

sax71 ha scritto:Ciao Spike,per il momento la previsione per il mese di ottobre e conclusa per esito verificato. Devi aspettare l'ultima estrazione del mese di ottobre per la nuova previsione per il mese di novembre. Ciao e buona giornata!


grazie per la risposta aspettiamo la prossima (con i numerelli Smile
avatar
spike5

Messaggi : 1140
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* il Gio Ott 16, 2014 7:44 am

ciao spike Smile
se nn lo fara' Black ricordamelo a fine mese che ti posto la nuova Wink
so che non usi Spazio ...
buona giornata Wink  
avatar
Mara*
moderatore

Messaggi : 1016
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 il Gio Ott 16, 2014 7:56 am

grazie Mara
avatar
spike5

Messaggi : 1140
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* il Gio Ott 16, 2014 8:30 am

spike5 ha scritto:grazie Mara

Wink
avatar
Mara*
moderatore

Messaggi : 1016
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore il Gio Ott 16, 2014 3:13 pm

Azzz quanti messaggi, ecche è ????
siete impazziti ????  Very Happy

magari il mese prossimo quando si mette la nuova non esce un tubazzo...
comunque tra poco ne uscirà uno nuovo
chiaramente sarà spettacolare e usciranno ambi e terni a raffica  lo17
scherzi a parte, un nuovo script ci sarà, utilizzando la stessa metodica... sperando che paghi
ciao

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 il Gio Ott 16, 2014 5:25 pm

cheers
avatar
spike5

Messaggi : 1140
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore il Gio Ott 30, 2014 10:26 pm

30.10.2014  Ultima del mese di Ottobre

Ambata     08                     Ba Ca      
*******************************************
Ambo         08.72               Ba Ca      
*******************************************
Ambo         08.56               Ba Ca      
*******************************************
Ambo         08.05               Ba Ca        
*******************************************
Ambo         08.77               Ba Ca    
*******************************************
Quartina    08.72.56.05.77   Ba Ca    per Ambo/Terno

Colpi di gioco: 10




Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* il Ven Ott 31, 2014 10:23 am

Grazie Black Wink
avatar
Mara*
moderatore

Messaggi : 1016
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 il Sab Nov 01, 2014 2:34 pm

lo9 lo9 lo9 lo20
avatar
spike5

Messaggi : 1140
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da domenico1 il Sab Nov 01, 2014 9:40 pm

lo9 lo9
avatar
domenico1

Messaggi : 393
Data d'iscrizione : 26.12.13
Età : 57

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 il Lun Nov 03, 2014 8:09 pm

bravo Black Ba 8 al primo colpo peccato che il 72 lo7 sia sceso di nuovo a Ca
avatar
spike5

Messaggi : 1140
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da *Olga* il Lun Nov 03, 2014 8:17 pm

bravoo Black, come sempre...a colpo 8 BA...
avatar
*Olga*

Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 56
Località : Lazio VT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* il Lun Nov 03, 2014 8:51 pm

lo11 lo13
avatar
Mara*
moderatore

Messaggi : 1016
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da franca46 il Mar Nov 04, 2014 6:15 am

lo13
avatar
franca46

Messaggi : 338
Data d'iscrizione : 30.12.13
Età : 60
Località : catania

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Sole il Mar Nov 04, 2014 1:54 pm

Dopo l'uscita dell'ambata è ancora in gioco?

Sole

Messaggi : 165
Data d'iscrizione : 06.05.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore il Mar Nov 04, 2014 4:24 pm

L' ambata non la prendiamo in considerazione (solo per convergenze)

La previsione continua con gli ambi secchi o la lunghetta per ambo/terno

Ciao

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore il Gio Nov 20, 2014 7:33 pm

Blackmore ha scritto:30.10.2014  Ultima del mese di Ottobre

Ambata     08                     Ba Ca      
*******************************************
Ambo         08.72               Ba Ca      
*******************************************
Ambo         08.56               Ba Ca      
*******************************************
Ambo         08.05               Ba Ca        
*******************************************
Ambo         08.77               Ba Ca    
*******************************************
Quartina    08.72.56.05.77   Ba Ca    per Ambo/Terno

Colpi di gioco: 10

Blackmore ha scritto:L' ambata non la prendiamo in considerazione (solo per convergenze)

La previsione continua con gli ambi secchi o la lunghetta per ambo/terno

Ciao


Al 9° colpo ambo secco 8.72 su Cagliari
Previsione e metodo per questo mese si chiudono qui
Ciao
Very Happy


Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da *Olga* il Ven Nov 21, 2014 6:01 am

Bravoooo Black.....come sempre
avatar
*Olga*

Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 56
Località : Lazio VT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 il Ven Nov 21, 2014 10:08 am

Al 9° colpo ambo secco 8.72 su Cagliari
Previsione e metodo per questo mese si chiudono qui
lo13 al prossimo mese
avatar
spike5

Messaggi : 1140
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Tornare in alto Andare in basso

Pagina 1 di 4 1, 2, 3, 4  Seguente

Tornare in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum