Novità

Per Blackmore

joi_lotto

Super Member >PLATINUM<
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).
 
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 :D

Blackmore
 
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
 
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
 
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
 
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
 
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.
 
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
 
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
 
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
 
Grazie.

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

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

nino
 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19

Ultimi Messaggi

Indietro
Alto