Per Blackmore

[joi_lotto]

Ciao.
Ricordi lo script che hai fatto relativo all'ambo 45-90 su PA,
L'hai corretto in modo tale, di poter indicare l'ambo che volevo io:
ora ti chiedo se possibile farne uno uguale solamente cambiando il N.
dei fissi,i quali non devono essere perforza 5 ma anche meno.

Spero di essermi fatto capire.
Ti ringrazio.

Ciao.

(forti gli script ambi a TT bravo! ma io cerco l'ambo e il terno a ruota).

 

[Roby]

Joi, la mia memoria è pessima, postami il link di dove si trova lo script
Ps: non sei l'unico a cercare l'ambo e il terno a ruota

Blackmore

 

[joi_lotto]

http://forum.lottoced.com/topic.asp?TOPIC_ID=133508
Spero sia giusto. Non ho dimestichezza in queste cose.
Grazie
Ciao.

 

[antonino]

Ciao Blackmore, vorrei chiederti se cortesementi mi spieghi come devo fare per inserire i tuoi script nel programma spaziometria: non so come usare il copia-incolla.
Grazie
nino

nino

 

[keeper]

devi prima di tutto copiarli da forum ovvero evidenzia il testo tasto destro mouse copia
poi apri spaziometria nella sezione gestione script/ elabora script
elimina tutte le voci presenti di nuovo tasto destro incolla oppure per abbreviare control+v
clicca sul lambo e vedrai che tutto funziona

 

[Roby]

Per fare quello che chiedi, devo cambiare l'ambo spia e poi cercare una Terzina o quartina, se ti va bene......fai un fischio
Grazie Keep...

Blackmore

 

[keeper]

quote:Originally posted by Blackmore

Per fare quello che chiedi, devo cambiare l'ambo spia e poi cercare una Terzina o quartina, se ti va bene......fai un fischio
Grazie Keep...

Blackmore

scusami ma nell'altro post ti avevo scritto che lo script ambo spia a palermo non fuinzionava inceva è tutto ok

 

[joi_lotto]

Ciao.
L'ambo spia lo scelgo io,come la ruota dove giocare e la posizione dove applicare i fissi.
Sono riuscito a diminuire i fissi ma non riesco a farlo giocare sulla ruota che vorrei giocasse.

Grazie.

 

[joi_lotto]

Questo è con l' inputbox così puoi
modificarlo a tuo piacimento


Scrivi "Quando esce L'Ambo Spia 45.90 a Palermo giochiamo 1 Cinquina, Sempre su PALERMO""By Blackmore"

Sub main()
Dim rt(1),nu(2),ru(2),n5(5),rut(1),pt(5),pta(1)
pta(1)=1 : pt(2)=1 : pt(3)=0.40 : pt(4)=0.05 : pt(5)=0.05


aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","45.90")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))

r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",7))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","7")
rr="0."&rr
q=Split(rr,".")


clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",10))
ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 3.1= 3^estr.di BA)","POS.-RUOTA","1.7")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 5 Fissi da sommare all'estratto scelto","FISSI","22.33.51.75.76")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3)) : f4=CInt (h(4)) : f5=CInt (h(5))
co=0
For es=4200 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n5(1)=Fuori90(a+f1) : n5(2)=Fuori90(a+f2) : n5(3)=Fuori90(a+f3) : n5(4)=Fuori90(a+f4) : n5(5)=Fuori90(a+f5)
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&","&f4&","&f5&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" per "&clp&" colpi"
ImpostaGiocata 1,n5,rt,pt,clp

'ImpostaGiocata 1,n5,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 10,n5,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es
Next
ScriviResoconto
End Sub



Blackmore

 

[Roby]

quote:Originally posted by joi_lotto

Questo è con l' inputbox così puoi
modificarlo a tuo piacimento


Scrivi "Quando esce L'Ambo Spia 45.90 a Palermo giochiamo 1 Cinquina, Sempre su PALERMO""By Blackmore"

Sub main()
Dim rt(1),nu(2),ru(2),n5(5),rut(1),pt(5),pta(1)
pta(1)=1 : pt(2)=1 : pt(3)=0.40 : pt(4)=0.05 : pt(5)=0.05


aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","45.90")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))

r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",7))
rt(1)=r1

rr=InputBox ("Digita la ruota dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","7 QUI METTI LA RUOTA CHE VUOI, 1 SIGNIFICA BARI, 2 CAGLIARI ETC.. LA NAZIONALE È 12 ")
rr="0."&rr
q=Split(rr,".")


clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",10))
ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 3.1= 3^estr.di BA)","POS.-RUOTA","1.7")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 5 Fissi da sommare all'estratto scelto","FISSI","22.33.51.75.76")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3)) : f4=CInt (h(4)) : f5=CInt (h(5))
co=0
For es=4200 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n5(1)=Fuori90(a+f1) : n5(2)=Fuori90(a+f2) : n5(3)=Fuori90(a+f3) : n5(4)=Fuori90(a+f4) : n5(5)=Fuori90(a+f5)
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&","&f4&","&f5&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" per "&clp&" colpi"
ImpostaGiocata 1,n5,rt,pt,clp

'ImpostaGiocata 1,n5,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 10,n5,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es
Next
ScriviResoconto
End Sub



Blackmore

Blackmore

 

[Roby]

Keeper, gli altri 2 script gli ho cancellati, gli avevo provati su un altro programma e giravano benissimo, ma su Spazio.. Non vanno e non so come risolvere per cui.... Cestino
Grazie della segnalazione

Blackmore

 

[joi_lotto]

Grazie.

Anche la raccolta di script che hai postato è molto gradito!

Un ulteriore ringraziamento.
Ciao.

 

[antonino]

Grazie Lambro. Ho fatto quanto indicato, ma non capisco cos'è
clicca sul lambo.
Non mi funziona.
grazie,
nino

nino

 

[antonino]

Scusa Keeper,mi ero fissato su lambo.
grazie
nino

nino

 

[Roby]

quote:Originally posted by antonino

Grazie Lambro. Ho fatto quanto indicato, ma non capisco cos'è
clicca sul lambo.
Non mi funziona.
grazie,
nino

nino

vai all'inizio, prima di Sub Main, ora tieni premuto il tasto sinistro del mouse, vai fino alla fine che è End Sub sempre tenendo premuto il tasto sinistro, (noterai che il testo viene evidenziato) adesso molla il tasto sinistro (il testo rimane evidenziato), clicchi sul tasto destro una volta, vai su Copy, clicca tasto sinistro, ora l'hai salvato, vai sul programma apri nuovo script, cancella le scritte che appaiono (Sub main, End Sub) con la freccia che hai sulla tastiera, ora clicca tasto destro, vai su Paste e clicchi sul tasto sinistro, adesso hai lo script bello pronto sul pc
Più semplice di così.......

Blackmore