| Autore |
 Discussione  |
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
 Spedito - 02 febbraio 2013 : 23:49:10
|
'METODO SUPER CAGLIARI
'calcolo ultima estrazione del mese
'si gioca a Cagliari per 13 colpi
'per ambo,terno,quaterna
'sospendere il gioco alla prima vincita
Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 8300 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
If IsUltimaDelMese(n) Then
ruote(1) = 2
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata(1) = Fuori90(Estratto(n,6,5) + Estratto(n,10,3) + 35)
ImpostaGiocata 1,ambata,ruote,posta,k,1
numeri1(1) = Fuori90(Estratto(n,6,5) + Estratto(n,10,3) + 35)
numeri1(2) = Fuori90(Estratto(n,3,1) + Estratto(n,10,1) + 19)
numeri1(3) = Fuori90(Estratto(n,6,4) + Estratto(n,7,5) + 36)
numeri1(4) = Fuori90(Estratto(n,7,3) + Estratto(n,4,2) + 19)
EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n
End If
End If
Next
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
|
Roberto Vinci |
Modificato da - vinci su 03 febbraio 2013 14:57:18 |
|
|
Eschate51
Utente Sfegatato
Italy
3662 invii |
Spedito - 04 febbraio 2013 : 17:55:55
|
fantastico vinci  ha già dato al 1° colpo l'ambo, oggi lo metto in archivio, o secondo te va giocato ancora?
ciao |
* * * La vita è come uno specchio: ti sorride se la guardi sorridendo.* * *(Jim Morrison) |
 |
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 04 febbraio 2013 : 22:30:22
|
Ciao, dopo l'uscita dell'ambo al 1° colpo,
si consiglia di continuare il gioco di ambata
(vede previsione sotto)
G 0001
Numeri in gioco : 87 su CA per Estratto
N. [87 ] [CA] [.. .. .. .. ..] C. 1 08647 [ 15 - 02/02/2013]
In corso per altre 12 estrazioni
|
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 05 febbraio 2013 : 20:58:17
|
Dopo l'ambo al 1° colpo....
....al 2° colpo è uscita anche l'ambata!
G 0001
Numeri in gioco : 87 su CA per Estratto
N. [87 ] [CA] [.. .. .. .. ..] C. 1 08647 [ 15 - 02/02/2013]
V N. [87 ] [CA] [.. 87 .. .. ..] C. 2 Estratto 08648 [ 16 - 05/02/2013]
Interrotta per esito verificato
|
Roberto Vinci |
|
|
|
jackaudi
Utente Nuovo
Italy
40 invii |
Spedito - 02 aprile 2013 : 07:50:44
|
|
ciao vinci, intanto complimenti per il risultato, poi volevo chiederti lo script su che programma lo usi io con L8 v. 6.0 non funziona ...... |
|
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 02 aprile 2013 : 21:20:37
|
|
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 01 giugno 2013 : 23:55:47
|
Previsione per Giugno 2013
Estrazione generatrice del pronostico 08697 [ 65 - 30/05/2013]
G 0001
Numeri in gioco : 04 su CA per Estratto
N. [04 ] [CA] [.. .. .. .. ..] C. 1 08698 [ 66 - 01/06/2013]
In corso per altre 12 estrazioni
G 0002
Numeri in gioco : 04.34.67.87 su CA per Ambo,Terno,Quaterna
N. [04.34.67.87 ] [CA] [.. .. .. .. ..] C. 1 08698 [ 66 - 01/06/2013]
In corso per altre 12 estrazioni
|
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 13 giugno 2013 : 22:18:38
|
Al 6° Colpo
CAGLIARI
4 ambata
4-34 ambo in quartina  |
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 04 luglio 2013 : 16:09:46
|
Previsione in corso per il mese di Luglio 2013
CAGLIARI
50 ambata
30-73 abbinamenti per ambo
30-50-73 terzina per ambo e terno
(il numero 30 si ripete due volte, quindi abbiamo una terzina)
|
Roberto Vinci |
|
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 25 luglio 2013 : 23:08:37
|
G 0002
Numeri in gioco : 30.50.73 su CA per Ambo,Terno,Quaterna
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 1 08711 [ 79 - 02/07/2013]
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 2 08712 [ 80 - 04/07/2013]
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 3 08713 [ 81 - 06/07/2013]
N. [30.50.73 ] [CA] [.. 50 .. .. ..] C. 4 Estratto 08714 [ 82 - 09/07/2013]
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 5 08715 [ 83 - 11/07/2013]
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 6 08716 [ 84 - 13/07/2013]
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 7 08717 [ 85 - 16/07/2013]
N. [30.50.73 ] [CA] [.. .. .. 73 ..] C. 8 Estratto 08718 [ 86 - 18/07/2013]
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 9 08719 [ 87 - 20/07/2013]
N. [30.50.73 ] [CA] [.. .. .. .. ..] C. 10 08720 [ 88 - 23/07/2013]
V N. [30.50.73 ] [CA] [.. .. 73 .. 50] C. 11 Ambo 08721 [ 89 - 25/07/2013]
questa sera 11° colpo ambo
CA 50-73 |
Roberto Vinci |
|
|
|
franca46
Amministratore
Italy
24910 invii |
Spedito - 26 luglio 2013 : 15:33:37
|
|
complimenti!!!! |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
|
pesciolina
Utente Sfegatato
Italy
5958 invii |
Spedito - 28 luglio 2013 : 20:33:19
|
|
|
|
cybercesare
Utente Nuovo
3 invii |
Spedito - 03 novembre 2013 : 02:14:48
|
Per favore potete rimettere il link di download per la SPAZIOMETRIA VERSIONE 1.4.25?
|
|
|
|
franca46
Amministratore
Italy
24910 invii |
Spedito - 03 novembre 2013 : 07:43:36
|
citazione:
Inviato in origine da cybercesare
Per favore potete rimettere il link di download per la SPAZIOMETRIA VERSIONE 1.4.25?
citazione:
Inviato in origine da vinci
Ciao gira su SPAZIOMETRIA che puoi trovare qui
nella versione aggiornata
VERSIONE 1.4.25
www.mediafire.com/?w6ppjme413l2pp6
ciao cyber se trovi difficoltà vai su Lottoced nella sez download
buona domenica |
Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico |
|
|
| |
Discussione |
|
METODO SUPER CAGLIARI
