Mi unisco anche io ad una richiesta per capire un codice script appena inseriti nelle ultime versioni di spaziometria e più precisamente ai codici:
getvincita
getspesa
getguadagno.
In merito a questi codici Luigi avevi detto di scriverli quando si voleva scrivere le risultanze delle giocate.
Ho provato anche a leggermi l'help ma la descrizione GetSpesa(Optional bParziale As Boolean = False) etc.
non riesco proprio ad impostarla.
Io ho provato la stessa procedura con il vecchio scriviresoconto e funziona allo scopo, ma vorrei vedere come funzionavano i nuovi codici.
ho anche cercato un qualche esempio negli script test ma non trovo niente.
Potresti cortesemente spiegare con un qualche esempio in questo script posto ad esempio.
Grazie se mi puoi dare un aiuto.
Sub Main()
'by rob spia 79 x terno
Dim aruo(2)
Dim aposte(3),posta(1)
posta(1) = 10 'x ambata
aposte(2) = 1.5 'x ambo
aposte(3) = 0.5 'x terno
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,79))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160))
clp = CInt(InputBox("QUANTI COLPI?",,9))
co = 0' contatore
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
anum(2) = Fuori90(Estratto(es,FI_,1)*53)
anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
a1 = anum(1)
a2 = anum(2)
a3 = anum(3)
a4 = anum(4)
a5 = anum(5)
a6 = anum(6)
'ambo1 = Array(a1,a2,a3)
'ambo2 = Array(a1,a2,a4)
'ambo3 = Array(a1,a3,a4)
'ambo4 = Array(a1,a2,a5)
'ambo5 = Array(a1,a2,a6)
'ambo6 = Array(a1,a3,a4)
'ambo7 = Array(a1,a3,a5)
'ambo8 = Array(a1,a3,a6)
lunghetta = Array(a1,a2,a3,a4,a5,a6)
aruo(1) = BA_
aruo(2) = CA_
co = co + 1
ColoreTesto 7
Scrivi "Caso n°: " & CInt(co),1,0
ColoreTesto 1
Scrivi " - NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data " & DataEstrazione(es),1
ColoreTesto 0 'For x = 1 To 9
'For xx = 1 To 9
'For xxx = 1 To 9
'ImpostaGiocata 1,ambo1,aruo,aposte,clp,2
'ImpostaGiocata 2,ambo2,aruo,aposte,clp,2
'ImpostaGiocata 3,ambo3,aruo,aposte,clp,2
'ImpostaGiocata 4,ambo4,aruo,aposte,clp,2
'ImpostaGiocata 5,ambo5,aruo,aposte,clp,2
'ImpostaGiocata 6,ambo6,aruo,aposte,clp,2
'ImpostaGiocata 7,ambo7,aruo,aposte,clp,2
Scrivi String(130,"=")
ImpostaGiocata 8,lunghetta,aruo,aposte,clp,3
'ImpostaInterruzioni xx,xxx,3
'Next:Next
Gioca es,,,1
Scrivi " RESOCONTO PARZIALE GIOCATA ",1,-1,3
ScriviResoconto True
Scrivi " RESOCONTO PROGRESSIVO GIOCATE ",1,-1,3
ScriviResoconto,0
End If
Next
Scrivi " RESOCONTO TOTALE GIOCATE ",1,-1,4
ScriviResoconto
End Sub
Ciao frate' , l'ultima volta che ci siamo sentiti era prima di natale quindi la prima cosa e' che ti auguro un grande anno nuovo, secondo: frate' gentilmente dato che gli script che avete posto nell'ultima discussione (script per 10elotto ogni 5min esistono?? ) non mi funzionano , nonostante io abbia la penultima versione 1,3,25 volevo chiederti cortesemente se puoi fare uno script (ho provato a fare uno script tutto mio ma anche seguendo le lezioni di baffo non ci sono riuscito) al 10e' l8 5min con queste indicazioni. Deve cercare la distanza tra il primo numero (es:2) con il secondo, poi con il terzo e' cosi' via, poi chiaramente devi passare dal primo al secondo (primo numero 2 secondo numero 5, quindi distanza tra il secondo con il terzo ,poi quarto e' cosi' via. fatto questo (scusami lo so che ti sto chiedendo troppo, ti chiedo gentilmente scusa frate') dovresti fare in modo che prosegue calcolando anche la somma , sempre come sopra. Mi auguro di non romperti i cosidetti con questo mio script, ma sappi che io veramente non so neanche da dove incominciare te lo giuro e' credimi mi sono arreso perche' stavo impazzendo. Spero che a tempo perso, quando avrai la possibbilita' di dedicarti anche solo per 5 min ogni tanto tu lo possa costruire, anche perche' credo che come idea di calcolo per questo gioco possa essere non dico buono ma abbastanza benino per ricerche su combinazioni che si possono ripetere dando qualche piccola soddisfazione. Credo che come tutti gli altri script da te composti devono portare il tuo nome come "marchio fabbrica" in modo che in futuro l'ideatore mike58 abbia l'onore di prendersi tutti gli elogi di noi tutti che frequentiamo il forum, ma sopratutto che oltre ad imparare , contribuiamo a qualche piccola idea. Concludendo ti RIPORGO le mie scuse e' ti saluto con affetto . antonio. 
ciao
