LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.
Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
spia - Ultima del Mese + Spia in Cadenza EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
spia - Ultima del Mese + Spia in Cadenza EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
spia - Ultima del Mese + Spia in Cadenza EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
spia - Ultima del Mese + Spia in Cadenza EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
spia - Ultima del Mese + Spia in Cadenza EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
spia - Ultima del Mese + Spia in Cadenza EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
spia - Ultima del Mese + Spia in Cadenza EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
spia - Ultima del Mese + Spia in Cadenza EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
spia - Ultima del Mese + Spia in Cadenza EmptyMar 2 Apr - 20:57:27 Da DjNomade


Ultima del Mese + Spia in Cadenza

+11
Minguffas
Marco
Butterfly777
giandy
*Sweet*
massimo 74
Sole
franca46
domenico1
sax71
Mara*
15 partecipanti

Pagina 1 di 4 1, 2, 3, 4  Successivo

Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore Mar 14 Ott - 23:34:05

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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* Mer 15 Ott - 9:26:36

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]
Mara*
Mara*
moderatore

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da sax71 Mer 15 Ott - 9:31:02

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

sax71

Messaggi : 31
Data d'iscrizione : 17.02.14

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 Mer 15 Ott - 10:45:49

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

Messaggi : 1150
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da sax71 Mer 15 Ott - 11:07:34

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

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da domenico1 Gio 16 Ott - 0:36:10

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

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

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 Gio 16 Ott - 8:32:45

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
spike5
spike5

Messaggi : 1150
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* Gio 16 Ott - 9:44:22

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  
Mara*
Mara*
moderatore

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 Gio 16 Ott - 9:56:21

grazie Mara
spike5
spike5

Messaggi : 1150
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* Gio 16 Ott - 10:30:06

spike5 ha scritto:grazie Mara

Wink
Mara*
Mara*
moderatore

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore Gio 16 Ott - 17:13:59

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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 Gio 16 Ott - 19:25:15

cheers
spike5
spike5

Messaggi : 1150
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore Gio 30 Ott - 23:26:03

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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* Ven 31 Ott - 11:23:50

Grazie Black Wink
Mara*
Mara*
moderatore

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 Sab 1 Nov - 15:34:28

lo9 lo9 lo9 lo20
spike5
spike5

Messaggi : 1150
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da domenico1 Sab 1 Nov - 22:40:35

lo9 lo9
domenico1
domenico1

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

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 Lun 3 Nov - 21:09:11

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

Messaggi : 1150
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da *Olga* Lun 3 Nov - 21:17:01

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

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

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Mara* Lun 3 Nov - 21:51:46

lo11 lo13
Mara*
Mara*
moderatore

Messaggi : 1041
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da franca46 Mar 4 Nov - 7:15:32

lo13
franca46
franca46

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

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Sole Mar 4 Nov - 14:54:59

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

Sole

Messaggi : 165
Data d'iscrizione : 06.05.14

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore Mar 4 Nov - 17:24:45

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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Blackmore Gio 20 Nov - 20:33:07

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 : 387
Data d'iscrizione : 11.06.14

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da *Olga* Ven 21 Nov - 7:01:36

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

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

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da spike5 Ven 21 Nov - 11:08:39

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

Messaggi : 1150
Data d'iscrizione : 27.12.13

Torna in alto Andare in basso

spia - Ultima del Mese + Spia in Cadenza Empty Re: Ultima del Mese + Spia in Cadenza

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Pagina 1 di 4 1, 2, 3, 4  Successivo

Torna in alto

- Argomenti simili

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