| 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 - 23 settembre 2011 : 20:27:21
Per chi può interessare ecco alcuni script
presi un po qua e la (non sono i miei).
Se volete potete aggiungerne altri, è cosa gradita.
CINQUINA SU BARI
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi"ALLA 5° DEL MESE UNA CINQUINA X AMBO A BARI X 10 COLPI _ By Blackmore _",1
Scrivi
Scrivi : ColoreTesto 1 : Scrivi"-----------List DjNomade",1
Scrivi : ColoreTesto 0 : Scrivi
Dim rt(2),pt(3)
Dim n1(5)
pt(2) = 10
'pt(3)=0.50
clp = 10 'colpi di gioco
rt(1) = 1 '1a ruota di gioco
'rt(2)=10 '2a ruota di gioco
ini = EstrazioneFin - 130
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 5 Then '5° estrazione del mese
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
ba1 = Estratto(es,1,1)
ba2 = Estratto(es,1,2)
ba3 = Estratto(es,1,3)
ba4 = Estratto(es,1,4)
ba5 = Estratto(es,1,5)
na1 = Estratto(es,6,1)
na2 = Estratto(es,6,2)
na3 = Estratto(es,6,3)
na4 = Estratto(es,6,4)
na5 = Estratto(es,6,5)
'------------------------------ Cinquina
n1(1) = Abs(ba1 - na1)
n1(2) = Abs(ba2 - na2)
n1(3) = Abs(ba3 - na3)
n1(4) = Abs(ba4 - na4)
n1(5) = Abs(ba5 - na5)
'--------------------------
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
ScriviResoconto
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
End Sub
|
| 20 U L T I M E R E P L I C H E (Newest First) |
| vinci |
Posted - 29 dicembre 2012 : 23:51:38
Ciao Eschate51 ti ringrazio per il tuo interessamento,
almeno c'è qualcuno nel forum che segue questo
modo di fare lotto. Vi assicuro che una volta iniziato,
ci si appassiona sempre di più agli script.
Io mi sono iscritto appositamente ad altri forum proprio
per gli script lotto. Peccato che in nonsololotto dove
sono utente da oltre un decennio, non si riesca a fare niente.... |
| Eschate51 |
Posted - 29 dicembre 2012 : 09:57:09
Ciao Vinci, da qualche parte avevo scritto a franca di alimentare i post con gli script, sinceramente non sono in grado di farli, ma ne sono attratto, purtroppo da prima di Natale il PC è "scoppiato" beh! o meglio ha preso un virus e spero di recuperare tutti gli script che avevo raccolto con spaziometria, ho altri programmi di lotto...alcuni li perderò perché si possono installare solo una volta, gli altri L8+ e Spazio li recupero, ti scrivo dal Mac dove non ho nessun programma di lotto. Volevo solo dirti di continuare a inserire gli script, ormai è risaputo che anche se non ci sono interventi, c'è sempre qualcuno che ti segue. Ciao e un felice e sereno Anno Nuovo x te.
http://www.nonsololotto.com/topic.asp?TOPIC_ID=33437 |
| vinci |
Posted - 28 dicembre 2012 : 22:18:22
Ancora uno script lotto compatibile con L8 e SpazioMetria.
Oltre un anno fa ho aperto questo post con la speranza
che questo tipo di lavoro potesse interessare a qualcuno
appassionato di lotto script. Non è stato cosi, a nessuno
intertessa tutto questo, peccato poteva essere un modo
per poter incrementare questo tipo di conoscenza che
purtroppo in questo forum non ha trovato.
METODO E SCRIPT
'alla 1° estrazione del mese
'3°PA+1°VE+29
'3°CA+1°RO+47
'5°NA+5°RO+47
'2°NA+4°TO+03
'3°TO+1°VE+53
'1°BA+1°NA+63
'3°BA+2°PA+68
'5°NA+4°PA+84
Sub Main()
Dim ruote(1)
Dim numeri1(8)
Dim posta1(5)
ruote(1) = 6
posta1(2) = 0.50
posta1(3) = 0.30
posta1(4) = 0.15
posta1(5) = 0.05
k = 10
y = 2
For n = 7080 To EstrazioneFin
If IndiceMensile(n) = 1 Then
numeri1(1) = Fuori90(Estratto(n,7,3) + Estratto(n,10,1) + 29)
numeri1(2) = Fuori90(Estratto(n,2,3) + Estratto(n,8,1) + 47)
numeri1(3) = Fuori90(Estratto(n,6,5) + Estratto(n,8,5) + 47)
numeri1(4) = Fuori90(Estratto(n,6,2) + Estratto(n,9,4) + 3)
numeri1(5) = Fuori90(Estratto(n,9,3) + Estratto(n,10,1) + 53)
numeri1(6) = Fuori90(Estratto(n,1,1) + Estratto(n,6,1) + 63)
numeri1(7) = Fuori90(Estratto(n,1,3) + Estratto(n,7,2) + 68)
numeri1(8) = Fuori90(Estratto(n,1,5) + Estratto(n,7,4) + 84)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta1,k
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 08 dicembre 2012 : 18:00:10
Piccolo metodino per tutte le sorti.
Ottimo per ambata pochi spiccioli per ambo e terno
Sub Main()
Dim ruote(1)
Dim numeri1(5)
Dim posta(3)
Dim importi(5,100)
ruote(1) = 3
posta(1) = 0.80
posta(2) = 0.10
posta(3) = 0.10
For n = 8164 To EstrazioneFin
If IndiceMensile(n) = 1 Then
numeri1(1) = Fuori90(Estratto(n,5,5) + Estratto(n,8,2) + 68)
numeri1(2) = Fuori90(Estratto(n,4,4) + Estratto(n,7,4) + 12)
numeri1(3) = Fuori90(Estratto(n,3,3) + Estratto(n,6,1) + 03)
numeri1(4) = Fuori90(Estratto(n,2,2) + Estratto(n,5,5) + 27)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,11,1
Gioca n,1
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 16 novembre 2012 : 22:37:24
AMBATA A MILANO
e quartina per ambo e terno
Sub Main()
Scrivi
ColoreTesto 2:Scrivi String(48," ") & "Metodo di Vinci"
ColoreTesto 0: Scrivi:Scrivi
Dim ruote(10)
Dim numeri1(10):Dim numeri2(5)
Dim posta(5):Dim poste(3)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ini = InputBox("Estrazione di partenza?",,8398)
k = InputBox("Inserisci i colpi di gioco",,10)
caso = 0
For n = ini To EstrazioneFin
If IndiceMensile(n) = 1 Then
caso = caso + 1
ruote(1) = 5
Scrivi String(90,"*") & "Caso n°" & Caso,1
ColoreTesto 1:Scrivi"Metodo di Vinci(Abb.By Black):Milano alla 1° Estrazione del mese"
ColoreTesto 0:Scrivi
numeri1(1) = Fuori90(Estratto(n,5,3))
ImpostaGiocata 1,numeri1,ruote,posta,k,1
numeri2(1) = numeri1(1)
numeri2(2) = Fuori90(Decina(Estratto(n,GE_,1)) + Estratto(n,VE_,5) + 57)
numeri2(3) = Fuori90(Diametrale(Estratto(n,NZ_,5)) + Estratto(n,RO_,3) + 03)
numeri2(4) = Fuori90(Diametrale(Estratto(n,TO_,3)) + Estratto(n,VE_,2) + 18)
ImpostaGiocata 2,numeri2,ruote,poste,k,3
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 07 novembre 2012 : 14:31:44
AMBATA A MILANO
'calcolo 1° estrazione del mese
'rimettere in gioco il 3°estratto di MILANO
'giocare dalla 2° estrazione del mese per massimo 10 colpi,
'sospendere alla prima Vincita
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim prog(5,100)
posta(1) = 1
prog(1,1) = 1
k = 10
y = 1
For n = 8398 To EstrazioneFin
If IndiceMensile(n) = 1 Then
ng = 0
ruote(1) = 5
numeri1(1) = Fuori90(Estratto(n,5,3))
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
Gioca n
End If
Next
ScriviResoconto
End Sub |
| vinci |
Posted - 23 luglio 2012 : 19:24:06
ambate sulle 10 ruote da ultima
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim prog(5,100)
posta(1) = 1
k = 13
y = 1
For n = 8476 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
ng = 0
ruote(1) = 1
numeri1(1) = Fuori90(Estratto(n,2,1) + Estratto(n,3,1) + 63)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 2
numeri1(1) = Fuori90(Estratto(n,5,5) + Estratto(n,9,2) + 43)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 3
numeri1(1) = Fuori90(Estratto(n,1,1) + Estratto(n,2,2) + 73)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 4
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,10,3) + 8)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 5
numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,3,1) + 77)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 6
numeri1(1) = Fuori90(Estratto(n,1,5) + Estratto(n,3,1) + 56)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 7
numeri1(1) = Fuori90(Estratto(n,4,1) + Estratto(n,4,5) + 90)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 8
numeri1(1) = Fuori90(Estratto(n,8,2) + Estratto(n,10,2) + 43)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 9
numeri1(1) = Fuori90(Estratto(n,3,3) + Estratto(n,9,5) + 86)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
ruote(1) = 10
numeri1(1) = Fuori90(Estratto(n,1,1) + Estratto(n,6,1) + 55)
ng = ng + 1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
ImpostaProgressione ng,prog
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 17 giugno 2012 : 22:46:36
METODO A CAGLIARI
Sub Main()
Dim ruote(1)
Dim numeri1(2)
Dim numeri3(4)
Dim posta(1)
Dim poste(5)
poste(2) = 0.80
poste(3) = 0.20
ruote(1) = 2
k = 16
Scrivi "Elaborato dal " + DataEstrazione(8463) + " ad oggi"
For n = 8463 To EstrazioneFin
If IndiceMensile(n) = 1 Then
numeri3(1) = Fuori90(Estratto(n,2,2) + 47)
numeri3(2) = Fuori90(Estratto(n,2,2) + 79)
numeri3(3) = Fuori90(Estratto(n,2,2) + 83)
EliminaRipetuti numeri3
ImpostaGiocata 1,numeri3,ruote,poste,k,2
Gioca n
End If
Next
ScriviResoconto
End Sub
..............................................................................................
Elaborato dal 01.12.2011 ad oggi
Estrazione generatrice del pronostico 08463 [144 - 01/12/2011]
G 0001
Numeri in gioco : 27.31.85 su CA per Ambo,Terno
N. [27.31.85 ] [CA] [.. .. .. .. ..] C. 1 08464 [145 - 03/12/2011]
N. [27.31.85 ] [CA] [.. .. .. .. ..] C. 2 08465 [146 - 06/12/2011]
N. [27.31.85 ] [CA] [.. .. .. .. ..] C. 3 08466 [147 - 09/12/2011]
N. [27.31.85 ] [CA] [.. .. .. .. ..] C. 4 08467 [148 - 10/12/2011]
N. [27.31.85 ] [CA] [.. .. .. .. ..] C. 5 08468 [149 - 13/12/2011]
N. [27.31.85 ] [CA] [.. .. .. .. ..] C. 6 08469 [150 - 15/12/2011]
V N. [27.31.85 ] [CA] [27 31 .. .. ..] C. 7 Ambo 08470 [151 - 17/12/2011]
Interrotta per esito verificato
Estrazione generatrice del pronostico 08477 [ 1 - 03/01/2012]
G 0001
Numeri in gioco : 39.71.75 su CA per Ambo,Terno
N. [39.71.75 ] [CA] [.. .. .. .. ..] C. 1 08478 [ 2 - 05/01/2012]
N. [39.71.75 ] [CA] [.. .. .. .. ..] C. 2 08479 [ 3 - 07/01/2012]
N. [39.71.75 ] [CA] [.. .. .. 75 ..] C. 3 Estratto 08480 [ 4 - 10/01/2012]
N. [39.71.75 ] [CA] [.. .. .. .. ..] C. 4 08481 [ 5 - 12/01/2012]
N. [39.71.75 ] [CA] [.. .. .. .. ..] C. 5 08482 [ 6 - 14/01/2012]
N. [39.71.75 ] [CA] [.. .. .. .. ..] C. 6 08483 [ 7 - 17/01/2012]
N. [39.71.75 ] [CA] [.. .. .. .. ..] C. 7 08484 [ 8 - 19/01/2012]
V N. [39.71.75 ] [CA] [75 39 .. .. ..] C. 8 Ambo 08485 [ 9 - 21/01/2012]
Interrotta per esito verificato
Estrazione generatrice del pronostico 08490 [ 14 - 02/02/2012]
G 0001
Numeri in gioco : 06.38.42 su CA per Ambo,Terno
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 1 08491 [ 15 - 04/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 2 08492 [ 16 - 07/02/2012]
N. [06.38.42 ] [CA] [.. .. .. 06 ..] C. 3 Estratto 08493 [ 17 - 09/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 4 08494 [ 18 - 11/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 5 08495 [ 19 - 14/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 6 08496 [ 20 - 16/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 7 08497 [ 21 - 18/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 8 08498 [ 22 - 21/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 9 08499 [ 23 - 23/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 10 08500 [ 24 - 25/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 11 08501 [ 25 - 28/02/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 12 08502 [ 26 - 01/03/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 13 08503 [ 27 - 03/03/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 14 08504 [ 28 - 06/03/2012]
N. [06.38.42 ] [CA] [.. .. .. .. ..] C. 15 08505 [ 29 - 08/03/2012]
V N. [06.38.42 ] [CA] [.. 06 38 .. ..] C. 16 Ambo 08506 [ 30 - 10/03/2012]
Interrotta per raggiunta durata
Interrotta per esito verificato
Estrazione generatrice del pronostico 08502 [ 26 - 01/03/2012]
G 0001
Numeri in gioco : 54.86.90 su CA per Ambo,Terno
V N. [54.86.90 ] [CA] [.. 86 .. 54 90] C. 1 Terno 08503 [ 27 - 03/03/2012]
Interrotta per esito verificato
Estrazione generatrice del pronostico 08516 [ 40 - 03/04/2012]
G 0001
Numeri in gioco : 11.43.47 su CA per Ambo,Terno
N. [11.43.47 ] [CA] [.. .. .. .. ..] C. 1 08517 [ 41 - 05/04/2012]
N. [11.43.47 ] [CA] [.. .. .. .. ..] C. 2 08518 [ 42 - 07/04/2012]
N. [11.43.47 ] [CA] [.. .. .. .. ..] C. 3 08519 [ 43 - 10/04/2012]
N. [11.43.47 ] [CA] [.. .. .. .. ..] C. 4 08520 [ 44 - 12/04/2012]
N. [11.43.47 ] [CA] [.. .. .. .. 47] C. 5 Estratto 08521 [ 45 - 14/04/2012]
N. [11.43.47 ] [CA] [.. .. .. .. ..] C. 6 08522 [ 46 - 17/04/2012]
V N. [11.43.47 ] [CA] [47 .. 11 .. ..] C. 7 Ambo 08523 [ 47 - 19/04/2012]
Interrotta per esito verificato
Estrazione generatrice del pronostico 08528 [ 52 - 02/05/2012]
G 0001
Numeri in gioco : 48.80.84 su CA per Ambo,Terno
N. [48.80.84 ] [CA] [84 .. .. .. ..] C. 1 Estratto 08529 [ 53 - 03/05/2012]
N. [48.80.84 ] [CA] [.. .. .. .. ..] C. 2 08530 [ 54 - 05/05/2012]
N. [48.80.84 ] [CA] [.. .. .. .. ..] C. 3 08531 [ 55 - 08/05/2012]
N. [48.80.84 ] [CA] [.. .. .. .. ..] C. 4 08532 [ 56 - 10/05/2012]
V N. [48.80.84 ] [CA] [.. .. 80 84 ..] C. 5 Ambo 08533 [ 57 - 12/05/2012]
Interrotta per esito verificato
Estrazione generatrice del pronostico 08542 [ 66 - 04/06/2012]
G 0001
Numeri in gioco : 26.30.84 su CA per Ambo,Terno
N. [26.30.84 ] [CA] [.. .. .. .. ..] C. 1 08543 [ 67 - 05/06/2012]
N. [26.30.84 ] [CA] [.. .. .. .. ..] C. 2 08544 [ 68 - 07/06/2012]
N. [26.30.84 ] [CA] [.. .. .. .. ..] C. 3 08545 [ 69 - 09/06/2012]
N. [26.30.84 ] [CA] [.. .. .. .. ..] C. 4 08546 [ 70 - 12/06/2012]
N. [26.30.84 ] [CA] [.. .. .. .. ..] C. 5 08547 [ 71 - 14/06/2012]
N. [26.30.84 ] [CA] [.. .. .. .. ..] C. 6 08548 [ 72 - 16/06/2012]
In corso per altre 10 estrazioni
|
| paololotto |
Posted - 14 giugno 2012 : 09:52:20
spia 88 a cagliari
Sub Main()
Dim n(4),n1(3),ru(3),ps(3),pta(1),a1(5),g1(5),h1(5),i1(5),f1(5)
pta(1) = 1
ps(2) = 2
ps(3) = 1
r = 2
ru(1) = 2
'ru(2) = 2
For es = EstrazioneFin - 500 To EstrazioneFin
If Posizione(es,r,88) > 0 Then
a = Estratto(es,2,5)
b = Estratto(es,2,1)
c = Estratto(es,2,2)
d = Estratto(es,2,4)
n(1) = Fuori90(a + 27)
n(2) = Fuori90(a + 67)
a1(1) = Fuori90(b + 22)
a1(2) = Fuori90(b + 49)
a1(3) = Fuori90(b + 89)
a1(4) = Fuori90(a + 27)
a1(5) = Fuori90(a + 67)
g1(1) = Fuori90(c + 15)
g1(2) = Fuori90(c + 57)
g1(3) = Fuori90(c + 78)
g1(4) = Fuori90(a + 27)
g1(5) = Fuori90(a + 67)
h1(1) = Fuori90(c + 28)
h1(2) = Fuori90(c + 60)
h1(3) = Fuori90(c + 86)
h1(4) = Fuori90(a + 27)
h1(5) = Fuori90(a + 67)
i1(1) = Fuori90(c + 12)
i1(2) = Fuori90(c + 49)
i1(3) = Fuori90(c + 60)
i1(4) = Fuori90(a + 27)
i1(5) = Fuori90(a + 67)
f1(1) = Fuori90(d + 12)
f1(2) = Fuori90(d + 22)
f1(3) = Fuori90(d + 49)
f1(4) = Fuori90(a + 27)
f1(5) = Fuori90(a + 67)
ImpostaGiocata 1,n,ru,pta,11,2
ImpostaGiocata 2,a1,ru,ps,11,2
ImpostaGiocata 3,g1,ru,ps,11,2
ImpostaGiocata 4,h1,ru,ps,11,2
ImpostaGiocata 5,i1,ru,ps,11,2
ImpostaGiocata 6,f1,ru,ps,11,2
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
Scrivi : ColoreTesto 0 : Scrivi " [ Metodo "" Spia 88 a Cagliari - di PaoloLotto ""] ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] Cagliari sortito numero spia !!! = " & "" & Format2(88) & " ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
Gioca es
End If
Next
ScriviResoconto
Scrivi : ColoreTesto 0 : Scrivi " [ Listato da sean69..] ",1
End Sub
|
| vinci |
Posted - 20 maggio 2012 : 16:42:29
'Metodo quartina su Bari con statistica breve.
'1° estrazione del mese
'2° Bari +27+29+53+79
Sub Main()
Dim ruote(1)
Dim numeri1(2)
Dim numeri3(4)
Dim posta(1)
Dim poste(5)
poste(2) = 0.55
poste(3) = 0.35
poste(4) = 0.10
ruote(1) = 1
k = 10
Scrivi "Elaborato dal " + DataEstrazione(8477) + " ad oggi"
For n = 8477 To EstrazioneFin
If IndiceMensile(n) = 1 Then
numeri3(1) = Fuori90(Estratto(n,1,2) + 27)
numeri3(2) = Fuori90(Estratto(n,1,2) + 29)
numeri3(3) = Fuori90(Estratto(n,1,2) + 53)
numeri3(4) = Fuori90(Estratto(n,1,2) + 79)
EliminaRipetuti numeri3
ImpostaGiocata 1,numeri3,ruote,poste,k,2
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 28 gennaio 2012 : 16:26:25
Ancora uno script.....
come tutti i metodi sommativi hanno alti e bassi...
si parte bene (periodo della ricerca) poi su e giu....
la statistica nel complesso del periodo esaminato è positiva.
Si elabora all'ultima estrazione del mese e si gioca sulla ruota di TORINO per ambo e terno dalla 1° per 13 colpi si interrompe alla 1° vincita o comunque al 13° colpo anche se negativo.
COMBINAZIONI:
3° FI + 4° VE + 1
2° VE + 5° VE + 3
3° PA + 1° RO + 60
4° BA + 2° FI + 47
5° NA + 4° VE + 65
4° FI + 5° PA + 11
script:
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim posta(5)
Dim poste(5)
Dim posto(5)
posta(1) = 1
poste(2) = 1
posto(2) = 1
posto(3) = 1
ruote(1) = 9
k = 13
y = 2
For n = 7195 To EstrazioneFin
If IndiceMensile(n + 1) = 1 Then
ng = 0
ImpostaGiocata ng,numeri2,ruote,poste,k,y
numeri3(1) = Fuori90(Estratto(n,3,3) + Estratto(n,10,4) + 1)
numeri3(2) = Fuori90(Estratto(n,10,2) + Estratto(n,10,5) + 3)
numeri3(3) = Fuori90(Estratto(n,7,3) + Estratto(n,8,1) + 60)
numeri3(4) = Fuori90(Estratto(n,1,4) + Estratto(n,3,2) + 47)
numeri3(5) = Fuori90(Estratto(n,6,5) + Estratto(n,10,4) + 65)
numeri3(6) = Fuori90(Estratto(n,3,4) + Estratto(n,7,5) + 11)
EliminaRipetuti numeri3
ng = ng + 1
ImpostaGiocata ng,numeri3,ruote,posto,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
ImpostaInterruzioni a,1,1
ImpostaInterruzioni 1,a,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 14 gennaio 2012 : 16:59:12
LOTTO 4 FACILE DI OSVALDO MANARA
'Nella stessa estrazione, su due ruote diverse, si ricercano due ambi, disposti In verticale, orizzontale o 'diagonale rispetto al quadro estrattivo, compresi nella tabella delle Terzine Simmetriche;
'I due ambi rilevati dovranno occupare lo stesso posto estrazionale (Isotopi).
'esempio:
'3/5/99 ge 19 82
'mi 49 22
'si sommano i 4 elementi e si moltiplicano per 2 con il fuori 90
'risultato=74 poi si fara il Diametrale che è il 29
'l ambata sara il 29 da giocare sulle 2 ruote per 9 colpi
'e la terzina su ruota e tutte sara data dal Diametrale del ambata e dai due elementi mancanit della terzina 'simmetrica del ambata stessa In pratica il pronostico era:
'ambata 29
'teriza sara 59 89 74
'grazie mille se potete fare il listato impostato cosi
'ambata sulle 2 ruote
'e solo la terzina SOLO a tutte per 9 colpi grazie
Sub Main()
Dim am(1)
Dim ter(3)
Dim ruota(1)
Dim ruote(2)
Dim posta(1)
Dim poste(3)
posta(1) = 1
poste(2) = 1
poste(3) = 1
ca = 0
fin = EstrazioneFin
ini = fin - 50
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,q)
For r1 = r + 1 To 12
If r1 <> 11 Then
For p1 = 1 To 4
For q1 = p1 + 1 To 5
c = Estratto(es,r1,p1)
d = Estratto(es,r1,q1)
d1 = Distanza(a,b)
d2 = Distanza(c,d)
d3 = Distanza(a,c)
d4 = Distanza(b,d)
d5 = Distanza(a,d)
d6 = Distanza(b,c)
If d1 = 30 And d2 = d1 Xor d3 = 30 And d4 = d3 Xor d5 = 30 And d6 = d5 Then
If p1 = p And q1 = q Then
Scrivi
Scrivi
Scrivi
Scrivi
ca = ca + 1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(a) & " " & Format2(b)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),3) & " " & Format2(c) & " " & Format2(d)
n1 = Fuori90(a + b + c + d)
n2 = Fuori90(n1*2)
n3 = Diametrale(n2)
n4 = Fuori90(n3 + 30)
n5 = Fuori90(n3 + 60)
ruote(1) = r
ruote(2) = r1
ruota(1) = 11
am(1) = n3
ter(1) = n2
ter(2) = n4
ter(3) = n5
ImpostaGiocata 1,am,ruote,posta,9,1
ImpostaGiocata 2,ter,ruota,poste,9,2
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
Next
ColoreTesto 2
Scrivi "============================================================================="
Scrivi " casi giocabili: " & ca
Scrivi "============================================================================="
ColoreTesto 0
Call ScriviResoconto
End Sub
|
| wicore |
Posted - 16 novembre 2011 : 08:04:41
Sub main()
Dim d(3)
Dim dd(3)
Dim ruote(10)
Dim poste(5)
Dim num(10)
Dim numeri(10)
Dim posta(5)
ab="SCRIVI LE DISTANZE DA CERCARE"&chr(13)&"es. 18.27.45"&_
Chr(13)&Chr(13)&"Tra 1° e 2°"&Chr(13)&"Tra 1° e 3°"&Chr(13)&_
"Tra 2° e 3°"&Chr(13)&"Non ha importanza l'ordine d'inserimento"
aa=InputBox(ab,"Lunghetta","18.27.45")
aa="0."&aa
n=Split(aa,".")
For x=1 To 3
d(x)=CInt(n(x))
Next
seso=InputBox("CHE SOMMA DEVONO AVERE GLI ESTRATTI ???"&_
Chr(13)& Chr(13)&"Molte somme non sono compatibili con"&_
"le distanze !!!",,3)
seso=CInt(seso)
fin=EstrazioneFin
ini=fin-2000
For es=ini To fin
AvanzamentoElab ini,fin,es
Messaggio DataEstrazione (es)
For r=1 To 10
For p=1 To 4
a=Estratto (es,r,p)
For q=p+1 To 5
b=Estratto (es,r,q)
dd(1)=Distanza(a,b)
If dd(1)=d(1) Or dd(1)=d(2) Or dd(1)=d(3) Then
For r1=1 To 10
If r1=r Then
Else
For z=1 To 5
c=Estratto (es,r1,z)
dd(2)=Distanza(a,c)
dd(3)=Distanza(b,c)
If dd(2)=d(1) Or dd(2)=d(2) Or dd(2)=d(3) Then
If dd(3)=d(1) Or dd(3)=d(2) Or dd(3)=d(3) Then
so=Fuori90 (a+b+c)
If so=seso Then
som=dd(1)+dd(2)+dd(3)
Scrivi DataEstrazione (es)&" "& FormatSpace(NomeRuota(r),9)&_
Format2(a)&" "& Format2(b)&" "&FormatSpace(NomeRuota(r1),9)&_
" "& Format2(c)'&" "& StringaNumeri(dd)&" "&so&" "&som
a1=Fuori90 (a+b-c)
If a1<1 Then a1=a1+90
a2=Fuori90 (a+c-b)
If a2<1 Then a2=a2+90
a3=Fuori90 (b+c-a)
If a3<1 Then a3=a3+90
a4=a1
If a1=a2 Then a4=a1
If a2=a3 Then a4=a2
If a1=a3 Then a4=a3
a5=(so)
ruote(1)=r
ruote(2)=r1
posta (1)=1000
'posta (2)=1000
numeri(1)=a4
'numeri(2)=a5
EliminaRipetuti (numeri)
ImpostaGiocata 1,numeri,ruote,posta,12,1
Gioca es
End If
End If
End If
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto 1
End Sub |
| vinci |
Posted - 05 novembre 2011 : 19:26:53
Somma 90 Michele Elia
Sub main()
Dim ruota(2)
Dim posta(5)
Dim posta1(5)
Dim posta2(5)
Dim num(10)
Dim num1(10)
posta1(1)=1
posta(2)=1
posta2(2)=0.9
posta2(3)=0.1
casi=0
For n= 7150 To EstrazioneFin
For r=1 To 9
For p=1 To 5
For r1=r+1 To 10
a=Estratto(n,r,p)
b=Estratto(n,r1,p)
If (a+b)=90 Then
casi=casi+1
ColoreTesto 1
s=CStr(eval(a))+" "+FormatSpace(NomeRuota(r),8)+" + "+CStr(eval(b))+" "+FormatSpace(NomeRuota(r1),8)+" = 90"
Scrivi s
ColoreTesto 0
ruota(1)=r
ruota(2)=r1
num(1)=90
num(2)=9
ImpostaGiocata 1,num,ruota,posta1,9,1
num1(1)=9
num1(2)=90
num1(3)=a
num1(4)=b
ImpostaGiocata 2,num1,ruota,posta2,9,2
ImpostaInterruzioni 1,2,2
ImpostaInterruzioni 2,1,1
Gioca n
End If
Next
Next
Next
Scrivi "------------------------------------------"
Next
Scrivi " Casi "&casi
ScriviResoconto
End Sub
|
| wicore |
Posted - 04 novembre 2011 : 10:01:18
Per L8+ 4
Sub main()
Dim ruote(1)
Dim numeri(6)
Dim numeri1(6)
Dim poste(5)
poste(1)=0
poste(2)=1000
poste(3)=800
poste(4)=200
r=PA_
ruote(1)=r
k=9
For n=EstrazioneFin-130 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
numeri(1)=Fuori90(Estratto(n,BA_,4)+Estratto(n,PA_,5)+75)
numeri(2)=0
numeri(3)=0
numeri(4)=0
ImpostaGiocata 21,numeri,ruote,poste,k,1
numeri(2)=Fuori90(Estratto(n,MI_,1)+Estratto(n,RO_,1)+58)
numeri(3)=Fuori90(Estratto(n,BA_,5)+Estratto(n,GE_,2)+79)
numeri(4)=Fuori90(Estratto(n,BA_,5)+Estratto(n,GE_,4)+24)
EliminaRipetuti numeri
ImpostaGiocata 1,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,BA_,1)+Estratto(n,MI_,3)+88)
numeri(4)=Fuori90(Estratto(n,BA_,5)+Estratto(n,NA_,4)+47)
EliminaRipetuti numeri
ImpostaGiocata 2,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,BA_,4)+Estratto(n,RO_,4)+42)
numeri(4)=Fuori90(Estratto(n,BA_,5)+Estratto(n,RO_,5)+53)
EliminaRipetuti numeri
ImpostaGiocata 3,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,BA_,3)+Estratto(n,VE_,5)+87)
numeri(4)=Fuori90(Estratto(n,CA_,2)+Estratto(n,NA_,4)+23)
EliminaRipetuti numeri
ImpostaGiocata 4,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,CA_,4)+Estratto(n,NA_,3)+1)
numeri(4)=Fuori90(Estratto(n,CA_,3)+Estratto(n,TO_,4)+54)
EliminaRipetuti numeri
ImpostaGiocata 5,numeri,ruote,poste,k,2
numeri(2)=Fuori90(Estratto(n,PA_,3)+Estratto(n,TO_,5)+72)
numeri(3)=Fuori90(Estratto(n,FI_,4)+Estratto(n,GE_,5)+69)
numeri(4)=Fuori90(Estratto(n,FI_,4)+Estratto(n,MI_,5)+87)
EliminaRipetuti numeri
ImpostaGiocata 6,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,FI_,1)+Estratto(n,NA_,3)+86)
numeri(4)=Fuori90(Estratto(n,FI_,5)+Estratto(n,RO_,1)+11)
EliminaRipetuti numeri
ImpostaGiocata 7,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,FI_,3)+Estratto(n,VE_,1)+66)
numeri(4)=Fuori90(Estratto(n,GE_,5)+Estratto(n,PA_,3)+60)
EliminaRipetuti numeri
ImpostaGiocata 8,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,GE_,1)+Estratto(n,RO_,4)+39)
numeri(4)=Fuori90(Estratto(n,GE_,5)+Estratto(n,TO_,5)+2)
EliminaRipetuti numeri
ImpostaGiocata 9,numeri,ruote,poste,k,2
numeri(3)=Fuori90(Estratto(n,GE_,4)+Estratto(n,VE_,1)+27)
numeri(4)=Fuori90(Estratto(n,MI_,4)+Estratto(n,NA_,2)+24)
EliminaRipetuti numeri
ImpostaGiocata 10,numeri,ruote,poste,k,2
ImpostaInterruzioni 1,21,1
ImpostaInterruzioni 2,21,1
ImpostaInterruzioni 3,21,1
ImpostaInterruzioni 4,21,1
ImpostaInterruzioni 5,21,1
ImpostaInterruzioni 6,21,1
ImpostaInterruzioni 7,21,1
ImpostaInterruzioni 8,21,1
ImpostaInterruzioni 9,21,1
ImpostaInterruzioni 10,21,1
Gioca n
ResettaGiocate
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 28 ottobre 2011 : 22:06:53
Grazie Franca per il tuo contributo |
| franca46 |
Posted - 28 ottobre 2011 : 08:18:40
Sub main()
Dim nr1(5),nr2(5),nr3(10),nr4(5),nr5(5),nr6(10)
Dim ruote(3),ruota(1)
Dim posta(2),poste(5)
posta(1)=1:posta(2)=1
poste(2)=1:poste(3)=1
k=CInt(InputBox("per quante estrazioni deve durare il gioco?","durata gioco",12))
ce=InputBox("da quante estrazione vuoi controllare? ","controllo estrazioni",8318)
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
If a=18 Then
For r2=1 To 10
For r3=1 To 10
If (r2=r1-1 And r3=r1+1) Or (r1=1 And r2=10 And r3=2) Then
n1=Estratto(es,r2,p1)
n2=Estratto(es,r3,p1)
If n1<>n2 Then
casi=casi+1:Scrivi String(51,"=")&" script by maxma62 ",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&format2(n1)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r3)&" - "&StringaEstratti(es,r3)&_
" ] [ "&format2(n2)&" ] in "&(p1)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ColoreTesto 2
ColoreTesto 0
Scrivi String(58,"-")
'-------------------------------------------
s1=Fuori90(n1+37)
s2=Vert(s1)
'-------------------------------------------
s4=Abs(n1-37)
s5=Vert(s4)
'--------------------------------------------
ss1=Fuori90(n2+37)
ss2=Vert(ss1)
'-------------------------------------------
ss4=Abs(n2-37)
ss5=Vert(ss4)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3:ruota(1)=11
nr1(1)=Estratto(es,r1,5)
nr1(2)=Vert(nr1(1))
nr1(3)=s1
nr1(4)=s2
ImpostaGiocata 1,nr1,ruote,posta,k,0
nr2(1)=Estratto(es,r1,5)
nr2(2)=Vert(nr2(1))
nr2(3)=s4
nr2(4)=s5
ImpostaGiocata 2,nr2,ruote,posta,k,0
nr4(1)=Estratto(es,r1,5)
nr4(2)=Vert(nr4(1))
nr4(3)=ss1
nr4(4)=ss2
ImpostaGiocata 4,nr4,ruote,posta,k,0
nr5(1)=Estratto(es,r1,5)
nr5(2)=Vert(nr5(1))
nr5(3)=ss4
nr5(4)=ss5
ImpostaGiocata 5,nr5,ruote,posta,k,0
nr6(1)=Estratto(es,r1,5)
nr6(2)=Vert(nr6(1))
nr6(3)=s1
nr6(4)=s2
nr6(5)=s4
nr6(6)=s5
nr6(7)=ss1
nr6(8)=ss2
nr6(9)=ss4
nr6(10)=ss5
ImpostaGiocata 6,nr6,ruota,poste,k,0
Gioca es
End If
End If
Next:Next
End If
Next:Next:Next
ScriviResoconto
scrivi"script by maxma62",1
End Sub
|
| franca46 |
Posted - 28 ottobre 2011 : 08:14:21
citazione:
Inviato in origine da vinci
Ringrazio wicore che è stato l'unico ad avere partecipato
all' incremento di questa raccolta.
Se ci fossero altri sarebbe cosa gradita
grazie
ciao Vinci
questa raccolta si può incrementare sicuramente ,
con qualsiasi tipo di listato o con particolari condizioni di gioco??
|
| vinci |
Posted - 27 ottobre 2011 : 22:57:18
ROMA
Sub main()
Dim ruote(1)
Dim numeri1(10)
Dim numeri2(10)
Dim posta(5)
Dim poste(5)
Dim prog(5,100)
prog(1,1)=3
prog(1,2)=6
prog(1,3)=9
prog(1,4)=12
prog(1,5)=21
prog(1,6)=39
prog(1,7)=66
prog(1,8)=120
posta(1)=1
poste(2)=2
poste(3)=1.5
poste(4)=0.4
poste(5)=0.1
ruote(1)=8
k=8
y=2
For n=6570 To EstrazioneFin
If IndiceMensile (n+1)=1 Then
numeri1(1)=Fuori90(Estratto(n,7,1)+Estratto(n,10,4)+24)
numeri1(2)=Fuori90(Estratto(n,5,5)+Estratto(n,10,4)+68)
numeri1(3)=Fuori90(Estratto(n,3,1)+Estratto(n,3,5)+60)
numeri1(4)=Fuori90(Estratto(n,3,2)+Estratto(n,4,3)+72)
numeri1(5)=Fuori90(Estratto(n,5,4)+Estratto(n,6,2)+13)
numeri1(6)=Fuori90(Estratto(n,4,2)+Estratto(n,5,1)+82)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,poste,k,y
numeri1(1)=Fuori90(Estratto(n,2,5)+Estratto(n,3,5)+39)
numeri1(2)=Fuori90(Estratto(n,8,5)+Estratto(n,9,1)+41)
numeri1(3)=Fuori90(Estratto(n,2,2)+Estratto(n,7,4)+39)
numeri1(4)=Fuori90(Estratto(n,6,4)+Estratto(n,7,5)+18)
numeri1(5)=Fuori90(Estratto(n,6,4)+Estratto(n,9,4)+13)
numeri1(6)=Fuori90(Estratto(n,7,2)+Estratto(n,7,5)+75)
EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
numeri1(1)=Fuori90(Estratto(n,10,2)+Estratto(n,10,5)+23)
numeri1(2)=Fuori90(Estratto(n,2,1)+Estratto(n,3,2)+55)
numeri1(3)=Fuori90(Estratto(n,2,2)+Estratto(n,6,4)+64)
numeri1(4)=Fuori90(Estratto(n,2,2)+Estratto(n,8,5)+40)
numeri1(5)=Fuori90(Estratto(n,2,4)+Estratto(n,10,1)+68)
numeri1(6)=Fuori90(Estratto(n,6,1)+Estratto(n,10,3)+20)
EliminaRipetuti numeri1
ImpostaGiocata 3,numeri1,ruote,poste,k,y
numeri2(1)=Fuori90(Estratto(n,10,2)+Estratto(n,10,5)+23)
numeri2(2)=Fuori90(Estratto(n,7,1)+Estratto(n,10,4)+24)
numeri2(3)=Fuori90(Estratto(n,2,5)+Estratto(n,3,5)+39)
EliminaRipetuti numeri2
ImpostaGiocata 4,numeri2,ruote,posta,8,1
ImpostaProgressione 4,prog
For a=1 To 3
For b=1 To 3
ImpostaInterruzioni a,b,y
ImpostaInterruzioni a,4,1
ImpostaInterruzioni 4,a,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub
|
| vinci |
Posted - 19 ottobre 2011 : 10:36:13
Ringrazio wicore che è stato l'unico ad avere partecipato
all' incremento di questa raccolta.
Se ci fossero altri sarebbe cosa gradita
grazie |
|
|
