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 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto