| R E V I S I O N E D E L L A D I S C U S S I O N E |
| vinci |
Posted - 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
|
| 13 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 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 |
| cybercesare |
Posted - 03 novembre 2013 : 02:14:48
Per favore potete rimettere il link di download per la SPAZIOMETRIA VERSIONE 1.4.25?
|
| pesciolina |
Posted - 28 luglio 2013 : 20:33:19
BRAVISSIMO VINCI |
| franca46 |
Posted - 26 luglio 2013 : 15:33:37
complimenti!!!! |
| vinci |
Posted - 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 |
| vinci |
Posted - 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)
|
| vinci |
Posted - 13 giugno 2013 : 22:18:38
Al 6° Colpo
CAGLIARI
4 ambata
4-34 ambo in quartina  |
| vinci |
Posted - 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
|
| vinci |
Posted - 02 aprile 2013 : 21:20:37
Ciao gira su SPAZIOMETRIA che puoi trovare qui
nella versione aggiornata
VERSIONE 1.4.25
www.mediafire.com/?w6ppjme413l2pp6
|
| jackaudi |
Posted - 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 |
Posted - 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
|
| vinci |
Posted - 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
|
| Eschate51 |
Posted - 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 |
