Ciao chi se l a sente di aiutarmi per un script????

mastrogino · 19 Gennaio 2014

lo so che sono un rompi......ma con tutto cio ci metto la buona volonta mi perdo
nei scrpt
ma mi consola che mi piace le metodistiche e se ho un'idea lo metto in atto
e a volte lo condivido con voi
quello che vi chiedo e se per fasvore vi sia il reciproco
con il vostro saper fare e il mio
uniti cerchiamo di mettere in fùginocchio la bestia
spero che la mia richiesta non vada a vuoto
grazie
_______________________________________

estrazione di napoli del 1° del mese di Gennaio 69.54.6.64.24.
cerchiamo di riportarli in unita con l'addizione
procedimento

69 = 6+9=15......15=1+5=6
54=5+4=9.......rimane unuta' 9
06=06.............rimane unità 6
64=6+4=10........1+0=1
24=2+4=6..........6

adesso sommo 6+9+6+1+6=28

28=2+8=10.....1+0=1 usando il +...... adesso usando il -
28=2-8=06......
( al contrario del 1° calcolo l'unita che ne esce fuori si deve trasformare in gemello
esmp. se esce 2 divernta 22 4...44 tranne il 09 che rimane 9 )

abbiamo ottenuto 11 dal 28 ...facendo 2+8=10 1+0=1 gemmello 11
abbiamo ottenuto 66 dal 28....facendo 2+8=06.....6 diventa gemello 66
-_____________________________________________________________
1° fase

sommo 11+66=77
77+la diametral edel 28 quindi il 73

77+73= 60 e la 1° ambata
________________________________________________________
2° fase

la somma di 60 con la 1° somma ottenuta dai gemelli
in questo modo 77+60=47 e la 2° ambata
________________________________________________________-
3° fase

usare il 28 e il suo vertibile come abbinamenti

fine
____________________________________________________

esito
na 1° colpo negativo
2° sortisce il 28
3° terno secco in quartina
____________________________________________________

ps ho fatto i siscontri con carta e penna

e ho visto dei buoni risultati anche l'ambo secco a bari 90 20.

lo script mi deve dare anche il modo di fare i calcoli su ogni singola ruota

mastrogino · 19 Gennaio 2014

esempio 2

bari estrazione del 4/4/2014
72.74.24.19.52.

ottengo
9+2+6+1+7=25
25=2+5=7specchio 77
25=2-5=3specchio 33
77+33=20 fuori 90
diametral edel 25= 70

20+70= 90
20+90= 20

previ
90 1° ambata
20 2° ambata
90.20.x ambo
25.52. x abbinamento

1° colpo neg.
2° neg
3° ambo secco 90.20.

gamberorosso · 19 Gennaio 2014

Ciao shiro mi sono cimentato nel tuo script... anche se non sono capace..... sicuramente faranno di meglio ma devo imparare e a me vanno bene anche se non sono perfetti

'----------------------------------------------------------------------------------------------------------'
mar 05.03.2013 Ba 10.09.69.07.40----------->01 09 06 07 04
72:27:59:46
mar 05.03.2013 [8660]
G 1: M 72.27.59.46 Ba 3/9
M 72 su Ba 3° colpo [8663/12.03.2013]
I3
gio 04.04.2013 Ba 60.58.23.27.30----------->06 04 05 09 03
72:27:59:46
gio 04.04.2013 [8673]
G 1: M 72.27.59.46 Ba 3/9
M 59 su Ba 3° colpo [8676/11.04.2013]
I3
sab 04.05.2013 Ba 01.75.29.58.11----------->01 03 02 04 02
21:12:11:55
sab 04.05.2013 [8686]
G 1: M 21.12.11.55 Ba 3/9
M 21 su Ba 3° colpo [8689/11.05.2013]
I3
mar 04.06.2013 Ba 59.81.29.08.62----------->05 09 02 08 08
23:32:53:29
mar 04.06.2013 [8699]
G 1: M 23.32.53.29 Ba 9/9
M 53 su Ba 9° colpo [8708/25.06.2013]

gio 04.07.2013 Ba 81.05.71.43.61----------->09 05 08 07 07
63:36:79:77
gio 04.07.2013 [8712]
G 1: M 63.36.79.77 Ba 6/9
M 63 su Ba 6° colpo [8718/18.07.2013]
I6
sab 03.08.2013 Ba 11.01.40.43.76----------->02 01 04 07 04
81:18:15:57
sab 03.08.2013 [8725]
G 1: M 81.18.15.57 Ba 1/9
M 57 su Ba 1° colpo [8726/06.08.2013]
I1
gio 05.09.2013 Ba 09.05.65.44.10----------->09 05 02 08 01
52:25:90:20
gio 05.09.2013 [8739]
G 1: M 52.25.90.20 Ba 5/9
M 52 su Ba 5° colpo [8744/14.09.2013]
I5
mar 10.09.2013 Ba 04.69.29.60.45----------->04 06 02 06 09
72:27:24:66
mar 10.09.2013 [8742]
G 1: M 72.27.24.66 Ba 4/9
M 24.27 su Ba 4° colpo [8746/19.09.2013]
I4
gio 03.10.2013 Ba 56.84.58.65.01----------->02 03 04 02 01
21:12:11:55
gio 03.10.2013 [8752]
G 1: M 21.12.11.55 Ba 2/9
M 55 su Ba 2° colpo [8754/08.10.2013]
I2
mar 05.11.2013 Ba 83.40.45.36.33----------->02 04 09 09 06
3:30:51:27
mar 05.11.2013 [8766]
G 1: M 03.30.51.27 Ba 1/9
M 51 su Ba 1° colpo [8767/07.11.2013]
I1
gio 05.12.2013 Ba 13.20.62.33.67----------->04 02 08 06 04
42:24:67:65
gio 05.12.2013 [8779]
G 1: M 42.24.67.65 Ba 9/9
negativo
sab 04.01.2014 Ba 72.74.24.19.52----------->09 02 06 01 07
52:25:90:20
sab 04.01.2014 [8792]
G 1: M 52.25.90.20 Ba 3/9
M 90.20 su Ba 3° colpo [8795/11.01.2014]
I3

=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 78
in corso: 0
casi finali: 78
positivi: 69
negativi: 9
Pronostici generati: 78
Pronostici vincenti: 69 (88,5 %)
Estrazioni di gioco: 340
Tentativi (scontrini giocati): 340
Vincite (scontrini vincenti): 69 (20,29 %)
Attesa media: 3,75

mastrogino · 19 Gennaio 2014

gamberorosso ha scritto:
Ciao shiro mi sono cimentato nel tuo script... anche se non sono capace..... sicuramente faranno di meglio ma devo imparare e a me vanno bene anche se non sono perfetti
'----------------------------------------------------------------------------------------------------------'
mar 05.03.2013 Ba 10.09.69.07.40----------->01 09 06 07 04
72:27:59:46
mar 05.03.2013 [8660]
G 1: M 72.27.59.46 Ba 3/9
M 72 su Ba 3° colpo [8663/12.03.2013]
I3
gio 04.04.2013 Ba 60.58.23.27.30----------->06 04 05 09 03
72:27:59:46
gio 04.04.2013 [8673]
G 1: M 72.27.59.46 Ba 3/9
M 59 su Ba 3° colpo [8676/11.04.2013]
I3
sab 04.05.2013 Ba 01.75.29.58.11----------->01 03 02 04 02
21:12:11:55
sab 04.05.2013 [8686]
G 1: M 21.12.11.55 Ba 3/9
M 21 su Ba 3° colpo [8689/11.05.2013]
I3
mar 04.06.2013 Ba 59.81.29.08.62----------->05 09 02 08 08
23:32:53:29
mar 04.06.2013 [8699]
G 1: M 23.32.53.29 Ba 9/9
M 53 su Ba 9° colpo [8708/25.06.2013]

gio 04.07.2013 Ba 81.05.71.43.61----------->09 05 08 07 07
63:36:79:77
gio 04.07.2013 [8712]
G 1: M 63.36.79.77 Ba 6/9
M 63 su Ba 6° colpo [8718/18.07.2013]
I6
sab 03.08.2013 Ba 11.01.40.43.76----------->02 01 04 07 04
81:18:15:57
sab 03.08.2013 [8725]
G 1: M 81.18.15.57 Ba 1/9
M 57 su Ba 1° colpo [8726/06.08.2013]
I1
gio 05.09.2013 Ba 09.05.65.44.10----------->09 05 02 08 01
52:25:90:20
gio 05.09.2013 [8739]
G 1: M 52.25.90.20 Ba 5/9
M 52 su Ba 5° colpo [8744/14.09.2013]
I5
mar 10.09.2013 Ba 04.69.29.60.45----------->04 06 02 06 09
72:27:24:66
mar 10.09.2013 [8742]
G 1: M 72.27.24.66 Ba 4/9
M 24.27 su Ba 4° colpo [8746/19.09.2013]
I4
gio 03.10.2013 Ba 56.84.58.65.01----------->02 03 04 02 01
21:12:11:55
gio 03.10.2013 [8752]
G 1: M 21.12.11.55 Ba 2/9
M 55 su Ba 2° colpo [8754/08.10.2013]
I2
mar 05.11.2013 Ba 83.40.45.36.33----------->02 04 09 09 06
3:30:51:27
mar 05.11.2013 [8766]
G 1: M 03.30.51.27 Ba 1/9
M 51 su Ba 1° colpo [8767/07.11.2013]
I1
gio 05.12.2013 Ba 13.20.62.33.67----------->04 02 08 06 04
42:24:67:65
gio 05.12.2013 [8779]
G 1: M 42.24.67.65 Ba 9/9
negativo
sab 04.01.2014 Ba 72.74.24.19.52----------->09 02 06 01 07
52:25:90:20
sab 04.01.2014 [8792]
G 1: M 52.25.90.20 Ba 3/9
M 90.20 su Ba 3° colpo [8795/11.01.2014]
I3

=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 78
in corso: 0
casi finali: 78
positivi: 69
negativi: 9
Pronostici generati: 78
Pronostici vincenti: 69 (88,5 %)
Estrazioni di gioco: 340
Tentativi (scontrini giocati): 340
Vincite (scontrini vincenti): 69 (20,29 %)
Attesa media: 3,75

Ciao gamberorosso

potresti inserire lo script mi faresti un grande favore

gamberorosso · 19 Gennaio 2014

Ciao schirò eccolo:

'-------------------------------------------------------------------------------------------------------------------------'
Sub main()
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1
Scrivi
ColoreTesto 0
Dim ambata(5),xx(10)
Dim ruota(1)
Dim posta(2)
ruota(1)=1
posta(1)=1
fin= EstrazioneFin
ini=fin -1000
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es)=2 Then 'qui si cambia l'estrazione 1-2-3-4-ecc
a=Estratto(es,1,1)
b=Estratto(es,1,2)
c=Estratto(es,1,3)
d=Estratto(es,1,4)
e=Estratto(es,1,5)
xx(1)= Figura(a)
xx(2)= Figura(b)
xx(3)= Figura(c)
xx(4)= Figura(d)
xx(5)= Figura(e)
Scrivi DataEstrazione (es)&" "& SiglaRuota(1)&" "& StringaEstratti(es,1)&"----------->"& Format2 (xx(1))&" "& Format2 (xx(2))&" "& Format2 (xx(3))&_
" "& Format2 (xx(4))&" "& Format2 (xx(5))
zz= (xx(1)+xx(2)+xx(3)+xx(4)+xx(5))
dd= Figura (zz)
sd= Abs (Decina(zz)-Cadenza(zz))
If dd=1 Then n1=11
If dd=2 Then n1=22
If dd=3 Then n1=33
If dd=4 Then n1=44
If dd=5 Then n1=55
If dd=6 Then n1=66
If dd=7 Then n1=77
If dd=8 Then n1=88
If dd=9 Then n1=9
gf=n1
If sd=1 Then n2=11
If sd=2 Then n2=22
If sd=3 Then n2=33
If sd=4 Then n2=44
If sd=5 Then n2=55
If sd=6 Then n2=66
If sd=7 Then n2=77
If sd=8 Then n2=88
If sd=9 Then n2=9
gff=n2
'---------------------------------------------------------------------------------------------'
jh=Fuori90(gf+gff)
hj=Fuori90(zz+45)
sa=Fuori90(jh+hj)
'---------------------------------------------------------------------------------------------'
tg=Fuori90(sa+jh)
gt=Vert (zz)
Scrivi gt&":"& zz &":"& sa &":"& tg,1
ambata(1)=gt
ambata(2)=zz
ambata(3)=sa
ambata(4)=tg
ImpostaGiocata 1,ambata,ruota,posta,19' se si vuole fermare alla prima vincita si mette ,1
Gioca es
End If
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1

End Sub

gamberorosso · 19 Gennaio 2014

Funziona anche con spaziometria provato

mastrogino · 19 Gennaio 2014

>Buona sera grazie funziona beneissimo
ti volevo chiedere cdove modifico per la ricerca di un'altra ruota
e dove scegliere i colpi
grazie di nuovo

ok i colpi lo trovato

gamberorosso · 19 Gennaio 2014

ciao serve un imput box per adesso cambia manualmemnte

ricopialo oppure leggi per modificare ciao

--------------------------------------------------------------------------------------------------
modificato ricopialo e spero sia giusto
--------------------------------------------------------------------------------------------------------
Sub main()
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1
Scrivi
ColoreTesto 0
Dim ambata(5),xx(10)
Dim ruota(1)
Dim posta(2)
x = InputBox ("ruota da controllare ?",,1)
ruota(1)=x'qui devi cambiare 1= bari 2 =cagliari 3= firenze ecc
posta(1)=1
fin= EstrazioneFin
ini=fin -1000
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es)=2 Then 'qui si cambia l'estrazione 1-2-3-4-ecc
a=Estratto(es,x,1)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
b=Estratto(es,x,2)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
c=Estratto(es,x,3)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
d=Estratto(es,x,4)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
e=Estratto(es,x,5)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
xx(1)= Figura(a)
xx(2)= Figura(b)
xx(3)= Figura(c)
xx(4)= Figura(d)
xx(5)= Figura(e)
'su siglaruota e stringaestratti metti 1 = bari 2 = cagliari ecc
Scrivi DataEstrazione (es)&" "& SiglaRuota(x)&" "& StringaEstratti(es,x)&"----------->"& Format2 (xx(1))&" "& Format2 (xx(2))&" "& Format2 (xx(3))&_
" "& Format2 (xx(4))&" "& Format2 (xx(5))
zz= (xx(1)+xx(2)+xx(3)+xx(4)+xx(5))
dd= Figura (zz)
sd= Abs (Decina(zz)-Cadenza(zz))
If dd=1 Then n1=11
If dd=2 Then n1=22
If dd=3 Then n1=33
If dd=4 Then n1=44
If dd=5 Then n1=55
If dd=6 Then n1=66
If dd=7 Then n1=77
If dd=8 Then n1=88
If dd=9 Then n1=9
gf=n1
If sd=1 Then n2=11
If sd=2 Then n2=22
If sd=3 Then n2=33
If sd=4 Then n2=44
If sd=5 Then n2=55
If sd=6 Then n2=66
If sd=7 Then n2=77
If sd=8 Then n2=88
If sd=9 Then n2=9
gff=n2
'---------------------------------------------------------------------------------------------'
jh=Fuori90(gf+gff)
hj=Fuori90(zz+45)
sa=Fuori90(jh+hj)
'---------------------------------------------------------------------------------------------'
tg=Fuori90(sa+jh)
gt=Vert (zz)
Scrivi gt&":"& zz &":"& sa &":"& tg,1
ambata(1)=gt
ambata(2)=zz
ambata(3)=sa
ambata(4)=tg
ImpostaGiocata 1,ambata,ruota,posta,19 'se si vuole fermare alla prima vincita si mette ,1 oppure cambi 19 con meno estrazioni
Gioca es
End If
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1

End Sub

kendariel · 19 Gennaio 2014

per la ruota 10° riga ruota(1) = 2
per le estrazioni e i colpi modificare il n° dopo = nelle righe verdi prima di Then

saluti Ken

gamberorosso · 19 Gennaio 2014

schirò c'e imput box copialo adesso: notte
Sub main()
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1
Scrivi
ColoreTesto 0
Dim ambata(5),xx(10)
Dim ruota(1)
Dim posta(2)
x = InputBox ("ruota da controllare ?",,1)
ruota(1)=x'qui devi cambiare 1= bari 2 =cagliari 3= firenze ecc
posta(1)=1
fin= EstrazioneFin
ini=fin -1000
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es)=2 Then 'qui si cambia l'estrazione 1-2-3-4-ecc
a=Estratto(es,x,1)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
b=Estratto(es,x,2)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
c=Estratto(es,x,3)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
d=Estratto(es,x,4)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
e=Estratto(es,x,5)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
xx(1)= Figura(a)
xx(2)= Figura(b)
xx(3)= Figura(c)
xx(4)= Figura(d)
xx(5)= Figura(e)
'su siglaruota e stringaestratti metti 1 = bari 2 = cagliari ecc
Scrivi DataEstrazione (es)&" "& SiglaRuota(x)&" "& StringaEstratti(es,x)&"----------->"& Format2 (xx(1))&" "& Format2 (xx(2))&" "& Format2 (xx(3))&_
" "& Format2 (xx(4))&" "& Format2 (xx(5))
zz= (xx(1)+xx(2)+xx(3)+xx(4)+xx(5))
dd= Figura (zz)
sd= Abs (Decina(zz)-Cadenza(zz))
If dd=1 Then n1=11
If dd=2 Then n1=22
If dd=3 Then n1=33
If dd=4 Then n1=44
If dd=5 Then n1=55
If dd=6 Then n1=66
If dd=7 Then n1=77
If dd=8 Then n1=88
If dd=9 Then n1=9
gf=n1
If sd=1 Then n2=11
If sd=2 Then n2=22
If sd=3 Then n2=33
If sd=4 Then n2=44
If sd=5 Then n2=55
If sd=6 Then n2=66
If sd=7 Then n2=77
If sd=8 Then n2=88
If sd=9 Then n2=9
gff=n2
'---------------------------------------------------------------------------------------------'
jh=Fuori90(gf+gff)
hj=Fuori90(zz+45)
sa=Fuori90(jh+hj)
'---------------------------------------------------------------------------------------------'
tg=Fuori90(sa+jh)
gt=Vert (zz)
Scrivi gt&":"& zz &":"& sa &":"& tg,1
ambata(1)=gt
ambata(2)=zz
ambata(3)=sa
ambata(4)=tg
ImpostaGiocata 1,ambata,ruota,posta,19 'se si vuole fermare alla prima vincita si mette ,1 oppure cambi 19 con meno estrazioni
Gioca es
End If
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1

End Sub

mastrogino · 20 Gennaio 2014

grazie 1000 ho fatto dei accorgimenti tipo le impostazionio delle ambate e la giocata in attivo o negativo
quello che ti voglio chiedere se non disturbo e il tipo di giocata
cioee se mi potresti impostarlo con la giocata

ambate
ambo
terno in quartina

sinceramente ci ho provato ma non capisco quelle xx e vado in palla
e poi infine la posta a me " da comwe vedi " mi da i paraMETRI BALLATI
AMBATA dovrebbe essere 1€ ambo e terno .5 ma non so comew fare
se te la senti o chi lo vuole fare lo ringrazio di cuore

ecco i parametri sballati...

02.01.2014 NA 69.54.06.64.24----------->06 09 06 01 06
82:28:60:47
Estrazione generatrice del pronostico 08790 [ 1 - 02/01/2014]
G 0001 Numeri in gioco : 47.60.82.28 su NA per Estratto
V N. [47.60.82.28 ] [NA] [.. .. .. 28 ..] C. 3 Estratto 08793 [ 4 - 09/01/2014]
V N. [47.60.82.28 ] [NA] [82 .. 47 60 ..] C. 4 Terno 08794 [ 5 - 11/01/2014]

In corso per altre 3 estrazioni
Spesa............7
Vincita..........10.5656
Guadagno.........3.5656

Sub Main()
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1
Scrivi
ColoreTesto 0
Dim ambata(5),xx(10)
Dim ruota(1)
Dim posta(2)
x = InputBox ("ruota da controllare ?",,1)
ruota(1)=x'qui devi cambiare 1= bari 2 =cagliari 3= firenze ecc
posta(1)=1
fin= EstrazioneFin
ini=fin -50
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es)=1 Then 'qui si cambia l'estrazione 1-2-3-4-ecc
a=Estratto(es,x,1)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
b=Estratto(es,x,2)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
c=Estratto(es,x,3)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
d=Estratto(es,x,4)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
e=Estratto(es,x,5)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
xx(1)= Figura(a)
xx(2)= Figura(b)
xx(3)= Figura(c)
xx(4)= Figura(d)
xx(5)= Figura(e)
'su siglaruota e stringaestratti metti 1 = bari 2 = cagliari ecc
Scrivi DataEstrazione (es)&" "& SiglaRuota(x)&" "& StringaEstratti(es,x)&"----------->"& Format2 (xx(1))&" "& Format2 (xx(2))&" "& Format2 (xx(3))&_
" "& Format2 (xx(4))&" "& Format2 (xx(5))
zz= (xx(1)+xx(2)+xx(3)+xx(4)+xx(5))
dd= Figura (zz)
sd= Abs (Decina(zz)-Cadenza(zz))
If dd=1 Then n1=11
If dd=2 Then n1=22
If dd=3 Then n1=33
If dd=4 Then n1=44
If dd=5 Then n1=55
If dd=6 Then n1=66
If dd=7 Then n1=77
If dd=8 Then n1=88
If dd=9 Then n1=9
gf=n1
If sd=1 Then n2=11
If sd=2 Then n2=22
If sd=3 Then n2=33
If sd=4 Then n2=44
If sd=5 Then n2=55
If sd=6 Then n2=66
If sd=7 Then n2=77
If sd=8 Then n2=88
If sd=9 Then n2=9
gff=n2
'---------------------------------------------------------------------------------------------'
jh=Fuori90(gf+gff)
hj=Fuori90(zz+45)
sa=Fuori90(jh+hj)
'---------------------------------------------------------------------------------------------'
tg=Fuori90(sa+jh)
gt=Vert (zz)
Scrivi gt&":"& zz &":"& sa &":"& tg,1
ambata(1)=tg
ambata(2)=sa
ambata(3)=gt
ambata(4)=zz
ImpostaGiocata 1,ambata,ruota,posta,10 'se si vuole fermare alla prima vincita si mette ,1 oppure cambi 19 con meno estrazioni
Gioca es,1
ColoreTesto 1
Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
ColoreTesto 2
Scrivi "Vincita.........." & GetVincita(True),1
ColoreTesto 0
Scrivi "Guadagno........." & GetGuadagno(True),1
If GetGuadagno(True) > 0 Then Call Scrivi(" Giocata in ATTIVO ",True,True,3,0,3)
If GetGuadagno(True) < 0 Then Call Scrivi(" giocata in Negativo ",True,True,2,4,3)
If ScriptInterrotto Then Exit For
End If
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1

End Sub

gamberorosso · 20 Gennaio 2014

Ciao prova cosi......................................
----------------------------------------------------------------------------------------------------------------------
Sub Main()
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1
Scrivi
ColoreTesto 0
Dim ambata(5),xx(10),ambo(10),terno(10)
Dim ruota(1)
Dim posta(1)
Dim poste(2)
Dim postee(3)
x = InputBox ("ruota da controllare ?",,6)
ruota(1)=x
posta(1)=1
poste(2)=1
postee(3)=1
fin= EstrazioneFin
ini=fin -500
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es)=1 Then
a=Estratto(es,x,1)
b=Estratto(es,x,2)
c=Estratto(es,x,3)
d=Estratto(es,x,4)
e=Estratto(es,x,5)
xx(1)= Figura(a)
xx(2)= Figura(b)
xx(3)= Figura(c)
xx(4)= Figura(d)
xx(5)= Figura(e)
'su siglaruota e stringaestratti metti 1 = bari 2 = cagliari ecc
Scrivi DataEstrazione (es)&" "& SiglaRuota(x)&" "& StringaEstratti(es,x)&"----------->"& Format2 (xx(1))&" "& Format2 (xx(2))&" "& Format2 (xx(3))&_
" "& Format2 (xx(4))&" "& Format2 (xx(5))
zz= (xx(1)+xx(2)+xx(3)+xx(4)+xx(5))
dd= Figura (zz)
sd= Abs (Decina(zz)-Cadenza(zz))
If dd=1 Then n1=11
If dd=2 Then n1=22
If dd=3 Then n1=33
If dd=4 Then n1=44
If dd=5 Then n1=55
If dd=6 Then n1=66
If dd=7 Then n1=77
If dd=8 Then n1=88
If dd=9 Then n1=9
gf=n1
If sd=1 Then n2=11
If sd=2 Then n2=22
If sd=3 Then n2=33
If sd=4 Then n2=44
If sd=5 Then n2=55
If sd=6 Then n2=66
If sd=7 Then n2=77
If sd=8 Then n2=88
If sd=9 Then n2=9
gff=n2
'---------------------------------------------------------------------------------------------'
jh=Fuori90(gf+gff)
hj=Fuori90(zz+45)
sa=Fuori90(jh+hj)
'---------------------------------------------------------------------------------------------'
tg=Fuori90(sa+jh)
gt=Vert (zz)
Scrivi gt&":"& zz &":"& sa &":"& tg,1
ambata(1)=tg
ambata(2)=sa
ImpostaGiocata 1,ambata,ruota,posta,10 'se si vuole fermare alla prima vincita si mette ,1 oppure cambi 19 con meno estrazioni
ambo(1)=tg
ambo(2)=sa
ambo(3)=gt
ambo(4)=zz
ImpostaGiocata 2,ambo,ruota,poste,10
terno(1)=tg
terno(2)=sa
terno(3)=gt
terno(4)=zz
ImpostaGiocata 3,terno,ruota,postee,10

Gioca es,1
ColoreTesto 1
Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
ColoreTesto 2
Scrivi "Vincita.........." & GetVincita(True),1
ColoreTesto 0
Scrivi "Guadagno........." & GetGuadagno(True),1
If GetGuadagno(True) > 0 Then Call Scrivi(" Giocata in ATTIVO ",True,True,3,0,3)
If GetGuadagno(True) < 0 Then Call Scrivi(" giocata in Negativo ",True,True,2,4,3)
If ScriptInterrotto Then Exit For
End If
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1

End Sub

franca46 · 20 Gennaio 2014

ciao schiro forse cosi?

Codice:

Sub Main()
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1
Scrivi
ColoreTesto 0
Dim ambata(5),xx(10)
Dim ruota(1)
Dim posta(1)
Dim poste(3)
x = InputBox ("ruota da controllare ?",,1)
ruota(1)=x'qui devi cambiare 1= bari 2 =cagliari 3= firenze ecc
posta(1)=1 : 
poste(2)=1 : poste(3)=1
fin= EstrazioneFin
ini=fin -50
For es=ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es)=1 Then 'qui si cambia l'estrazione 1-2-3-4-ecc
a=Estratto(es,x,1)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
b=Estratto(es,x,2)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
c=Estratto(es,x,3)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
d=Estratto(es,x,4)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
e=Estratto(es,x,5)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
xx(1)= Figura(a)
xx(2)= Figura(b)
xx(3)= Figura(c)
xx(4)= Figura(d)
xx(5)= Figura(e)
'su siglaruota e stringaestratti metti 1 = bari 2 = cagliari ecc
Scrivi DataEstrazione (es)&" "& SiglaRuota(x)&" "& StringaEstratti(es,x)&"----------->"& Format2 (xx(1))&" "& Format2 (xx(2))&" "& Format2 (xx(3))&_
" "& Format2 (xx(4))&" "& Format2 (xx(5))
zz= (xx(1)+xx(2)+xx(3)+xx(4)+xx(5))
dd= Figura (zz)
sd= Abs (Decina(zz)-Cadenza(zz))
If dd=1 Then n1=11
If dd=2 Then n1=22
If dd=3 Then n1=33
If dd=4 Then n1=44
If dd=5 Then n1=55
If dd=6 Then n1=66
If dd=7 Then n1=77
If dd=8 Then n1=88
If dd=9 Then n1=9
gf=n1
If sd=1 Then n2=11
If sd=2 Then n2=22
If sd=3 Then n2=33
If sd=4 Then n2=44
If sd=5 Then n2=55
If sd=6 Then n2=66
If sd=7 Then n2=77
If sd=8 Then n2=88
If sd=9 Then n2=9
gff=n2
'---------------------------------------------------------------------------------------------'
jh=Fuori90(gf+gff)
hj=Fuori90(zz+45)
sa=Fuori90(jh+hj)
'---------------------------------------------------------------------------------------------'
tg=Fuori90(sa+jh)
gt=Vert (zz)
Scrivi gt&":"& zz &":"& sa &":"& tg,1
ambata(1)=tg
ambata(2)=sa
ambata(3)=gt
ambata(4)=zz
ImpostaGiocata 1,ambata,ruota,posta,10 'se si vuole fermare alla prima vincita si mette ,1 oppure cambi 19 con meno estrazioni
ImpostaGiocata 2,ambata,ruota,poste,10
Gioca es,1
ColoreTesto 1
Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
ColoreTesto 2
Scrivi "Vincita.........." & GetVincita(True),1
ColoreTesto 0
Scrivi "Guadagno........." & GetGuadagno(True),1
If GetGuadagno(True) > 0 Then Call Scrivi(" Giocata in ATTIVO ",True,True,3,0,3)
If GetGuadagno(True) < 0 Then Call Scrivi(" giocata in Negativo ",True,True,2,4,3)
If ScriptInterrotto Then Exit For
End If
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1

End Sub

Codice:

02.01.2014 NA 69.54.06.64.24----------->06 09 06 01 06
82:28:60:47
Estrazione generatrice del pronostico 08790 [  1 - 02/01/2014]
G 0001 Numeri in gioco : 47.60.82.28 su NA per Estratto
V N. [47.60.82.28                   ] [NA]     [.. .. .. 28 ..] C.   3 Estratto   08793 [  4 - 09/01/2014]
V N. [47.60.82.28                   ] [NA]     [82 .. 47 60 ..] C.   4 Terno      08794 [  5 - 11/01/2014]

In corso per altre 4 estrazioni
G 0002 Numeri in gioco : 47.60.82.28 su NA per Ambo,Terno
V N. [47.60.82.28                   ] [NA]     [82 .. 47 60 ..] C.   4 Terno      08794 [  5 - 11/01/2014]

In corso per altre 4 estrazioni
Spesa............18
Vincita..........1185.3776
Guadagno.........1167.3776
 Giocata in ATTIVO

franca46 · 20 Gennaio 2014

ops scusa gamberorosso , non avevo visto il tuo

buona giornata

mastrogino · 20 Gennaio 2014

perfetto grazie gambero e franca sono commosso

nel fratempo che aspettavo la risposta ho scoperto il 5° numero della quaterna fatto a napoli con il 15.47.60.82

si ottiene facendo un addizzione del numero sommatto dei gemelli piu la diametrale della sua somma
esempio

napoli
somma 28=1 = 11
somma 28=6= 66
66+11=77 + la somma della sua diametrale 77+45 = 32+la diametrale del 28 ciaoee 73 = 15.
esso e il 5° numero

riepilogando

dal 28 si ottiene 11 e 66
11+66=77
77+45=32
32+73=15

vi chiedo ultimo sforzo

grazie ci vogliamno provare cosa sucede??
dai ultimop forzo

mastrogino · 21 Gennaio 2014

avevo fatto l'ultima richiesta x completare il metodo ..................??????!!!!
stranamente escono dal 3° colpo in poi

02.01.2014 RO 11.09.79.64.63----------->02 09 07 01 09
82:28:60:47
Estrazione generatrice del pronostico 08790 [ 1 - 02/01/2014]
G 0001 Numeri in gioco : 47.60 su RO per Estratto
V N. [47.60 ] [RO] [47 .. .. .. 60] C. 3 Ambo 08793 [ 4 - 09/01/2014]

In corso per altre 2 estrazioni
G 0002 Numeri in gioco : 47.60.82.28 su RO per Ambo
V N. [47.60.82.28 ] [RO] [47 .. .. .. 60] C. 3 Ambo 08793 [ 4 - 09/01/2014]

In corso per altre 2 estrazioni
G 0003 Numeri in gioco : 47.60.28.82 su RO per Terno
In corso per altre 2 estrazioni
Spesa............24
Vincita..........49.6696
Guadagno.........25.6696
Giocata in ATTIVO

gamberorosso · 21 Gennaio 2014

Ciao sciro per adesso non posso sono di turno di notte.....

mastrogino · 22 Gennaio 2014

gamberorosso ha scritto:
Ciao sciro per adesso non posso sono di turno di notte.....

ciao scusa .............quando vuoi

muuuuuuuuuuuu

listato da gamberorosso x Schirò Gioacchino 16.01.2014

16.01.2014 BA 06.15.85.65.24----------->06 06 04 02 06
42:24:67:65
Estrazione generatrice del pronostico 08796 [ 7 - 16/01/2014]
G 0001 Numeri in gioco : 65.67 su TT per Estratto
V N. [65.67 ] [TT] [VE][.. .. .. 65 ..] C. 1 Estratto 08797 [ 8 - 18/01/2014]
V N. [65.67 ] [TT] [GE][65 67 .. .. ..] C. 2 Ambo 08798 [ 9 - 21/01/2014]
V N. [65.67 ] [TT] [NA][.. 67 .. .. ..] C. 2 Estratto 08798 [ 9 - 21/01/2014]

In corso per altre 3 estrazioni
G 0002 Numeri in gioco : 65.67.42.24 su TT per Ambo
V N. [65.67.42.24 ] [TT] [GE][65 67 .. 42 ..] C. 2 Terno 08798 [ 9 - 21/01/2014]
___________________________________________________________________________________________________

gamberorosso · 23 Gennaio 2014

Prova se va bene ....notte...

HTML:

Sub Main()
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1
Scrivi
ColoreTesto 0
Dim ambata(5),xx(10)
Dim ruota(1)
Dim posta(1)
Dim poste(3)
x = InputBox("ruota da controllare ?",,1)
ruota(1) = x'qui devi cambiare 1= bari 2 =cagliari 3= firenze ecc
posta(1) = 1 :
poste(2) = 1 : poste(3) = 1
fin = EstrazioneFin
ini = fin - 1000
For es = ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 1 Then 'qui si cambia l'estrazione 1-2-3-4-ecc
a = Estratto(es,x,1)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
b = Estratto(es,x,2)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
c = Estratto(es,x,3)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
d = Estratto(es,x,4)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
e = Estratto(es,x,5)'al posto di 1 che e bari metti 2 cagliari su tutti e 5 gli estratti
xx(1) = Figura(a)
xx(2) = Figura(b)
xx(3) = Figura(c)
xx(4) = Figura(d)
xx(5) = Figura(e)
'su siglaruota e stringaestratti metti 1 = bari 2 = cagliari ecc
Scrivi DataEstrazione(es) & " " & SiglaRuota(x) & " " & StringaEstratti(es,x) & "----------->" & Format2(xx(1)) & " " & Format2(xx(2)) & " " & Format2(xx(3)) & _
" " & Format2(xx(4)) & " " & Format2(xx(5))
zz =(xx(1) + xx(2) + xx(3) + xx(4) + xx(5))
dd = Figura(zz)
sd = Abs(Decina(zz) - Cadenza(zz))
If dd = 1 Then n1 = 11
If dd = 2 Then n1 = 22
If dd = 3 Then n1 = 33
If dd = 4 Then n1 = 44
If dd = 5 Then n1 = 55
If dd = 6 Then n1 = 66
If dd = 7 Then n1 = 77
If dd = 8 Then n1 = 88
If dd = 9 Then n1 = 9
gf = n1
If sd = 1 Then n2 = 11
If sd = 2 Then n2 = 22
If sd = 3 Then n2 = 33
If sd = 4 Then n2 = 44
If sd = 5 Then n2 = 55
If sd = 6 Then n2 = 66
If sd = 7 Then n2 = 77
If sd = 8 Then n2 = 88
If sd = 9 Then n2 = 9
gff = n2
'---------------------------------------------------------------------------------------------'
jh = Fuori90(gf + gff)
hj = Fuori90(zz + 45)
hh = Fuori90(hj + 45)
sa = Fuori90(jh + hj)
kk = Fuori90(jh + 45)
kka = Fuori90(kk + hj)


'---------------------------------------------------------------------------------------------'
tg = Fuori90(sa + jh)
gt = Vert(zz)
Scrivi gt & ":" & zz & ":" & sa & ":" & tg & ":" & kk & ":" & kka,1
ambata(1) = tg
ambata(2) = sa
ambata(3) = gt
ambata(4) = zz
ambata(5) = kka
ImpostaGiocata 1,ambata,ruota,posta,10 'se si vuole fermare alla prima vincita si mette ,1 oppure cambi 19 con meno estrazioni
ImpostaGiocata 2,ambata,ruota,poste,10
Gioca es,1
ColoreTesto 1
Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
ColoreTesto 2
Scrivi "Vincita.........." & GetVincita(True),1
ColoreTesto 0
Scrivi "Guadagno........." & GetGuadagno(True),1
If GetGuadagno(True) > 0 Then Call Scrivi(" Giocata in ATTIVO ",True,True,3,0,3)
If GetGuadagno(True) < 0 Then Call Scrivi(" giocata in Negativo ",True,True,2,4,3)
If ScriptInterrotto Then Exit For
End If
Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi " listato da gamberorosso x Schirò Gioacchino 16.01.2014",1

End Sub

mastrogino · 23 Gennaio 2014

Grazie perfetto il metodo e completo

ti voglio regalare un'ambo ( sperando che ti sia gradito ) e al quanto esca

14.18. CA:NZ:TT
78.15.FI:RO:TT

Ciao chi se l a sente di aiutarmi per un script????

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Senior Member

Senior Member

Advanced Premium Member

Senior Member

Advanced Member

Senior Member

Advanced Premium Member

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Senior Member

Advanced Premium Member