PER GLI ESPERTI DI SCRIPT

[joi_lotto]

Ciao ragazzi.
Volevo sapere se c'è uno script, che mi permetta di inserire un numero (diciamo spia) e che poi mi permetta di fare somme, sottrazioni, moltiplicazioni,(tipo costruttore di metodi).
Faccio un esempio: N.(spia),ruota,poi scrivere 1° di BA (ruota a scelta)più 2° di CA (ruota a scelta) per 3° di RO (ruota a scelta)ecc.ecc.
Poter creare un'Ambata, due o tre ambi e due o tre terni da giocare a ruota da me scelta, in modo di poter verificarne la statistica.
Spero di essermi fatto capire.
Ringrazio anticipatamente.
Joi.

 

[claudio8]

Difficile trovare un costruttore free.
Il software VL5 ha qualcosa ma non saprei dire se fa al caso tuo.
Blak mi pare lo usa per i suoi lavori

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[joi_lotto]

Ciao Claudio.
VL5 lo uso anche io, ma fare una verifica per esempio, negli ultimi 5 anni diventa una cosa lunga.
Per questo chiedevo dello script se era fattibile.
Ciao
e Grazie per avermi risposto.
Joi.

 

[Roby]

Guarda questo listato, non so se è quello che cerchi
Non far caso al metodo, è vecchio, io l'ho modifico ogni volta che mi serve
Ciao


Sub main()
Scrivi: ColoreTesto 2: Scrivi " *********************** METODO SPIA BY BLACK *********************** ",1
Scrivi: ColoreTesto 2: Scrivi " *********************** LISTATO BY DJ NOMADE *********************** ",1
Scrivi: ColoreTesto 0
Dim posta(5)
Dim poste(5)
Dim ruote(5)

Dim am(10)
poste(2)=1
poste(3)=1
poste(4)=0.5
poste(5)=0.5
casi=0

fin=EstrazioneFin
ini=EstrazioneFin-1000
For es=ini To fin

For r1=1 To 1
For p1=1 To 1


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)
'f=Estratto(es,4,1)
'g=Estratto(es,4,2)
'h=Estratto(es,4,3)
'i=Estratto(es,4,4)
'l=Estratto(es,4,5)

If (a)=8 Or (b)=8 Or (c)=8 Or (d)=8 Or (e)=8 Then
cont=cont+1

ruote(1)=1
'ruote(2)=2 'si puo'aggiungere altre ruote


am(1)= Fuori90(Estratto(es,1,1)+70)
am(2)= Fuori90(Estratto(es,1,1)+80)
am(3)= Fuori90(Estratto(es,1,2)+79)
am(4)= Fuori90(Estratto(es,1,4)+54)
am(5)= Fuori90(Estratto(es,1,5)+76)
ImpostaGiocata 1,am,ruote,poste,6,3

Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n? " &cont&"",1
ColoreTesto 0 : Scrivi

Gioca es
casi=casi+1
End If
Next
Next
Next

ScriviResoconto
End Sub


Blackmore

 

[joi_lotto]

Ciao Blachmore, ho scaricato lo script e ho provato a fare una modifica ma mi da errore. Domanda: come posso copiare ed incollare qui l'errore che mi da?
Grazie.
Joi.

 

[Roby]

Usa capture image

Blackmore

 

[joi_lotto]

Ho salvato l'immagine ma non mi permette di copiarla usando insert image.

 

[DjNomade]

Ho appena provato a modificare uno che avevo,
questo dopo aver ricercato un numero spia a scelta ricava un'ambata e 3 abbinamenti mediante somme tra due estratti, il risultato moltiplicato
per un numero Fisso il TUTTO a rigorosa scelta dell'utente

Ciauz



Sub main()
Dim am(1),nr(12),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2),postee(3)
posta(1)=1 oste(2)=1
postee(2)=1 ostee(3)=1
ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",8000))

sp=CInt(InputBox("Inserisci Numero spia da cercare ?","Numero Spia",7))
a=CInt(InputBox("1° Ruota di calcolo x Ambata?","Ambata",5)) '<--- Ruota
b=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",4)) '<--- Ambata
c=CInt(InputBox(" + 2° Ruota di calcolo x Ambata ?","Ambata",2))
d=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","Ambata",1))
x1=CInt(InputBox("X Numero fisso x Ambata ?","FISSO",3))


x3=CInt(InputBox("1°Ruota di calcolo x 1° Abbinamento?","1° abbinamento",5)) '<---- 1° abbinamento
x4=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo ?","1° abbinamento",1))
y1=CInt(InputBox("+ 2°Ruota di calcolo 1° abbinamento?","1° abbinamento",6))
y2=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","1° abbinamento",2))
y3=CInt(InputBox("X Numero fisso 1° abbinamento?","1° abbinamento",4))


z1=CInt(InputBox("1°Ruota di calcolo 2° abbinamento?","2° abbinamento",8)) '<---- 2° abbinamento
z2=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","2° abbinamento",5))
z3=CInt(InputBox("+ 2°Ruota di calcolo 2° abbinamento?","2° abbinamento",7))
z4=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","2° abbinamento",1))
w1=CInt(InputBox("X Numero fisso 2° abbinamento?","2° abbinamento",9))


w3=CInt(InputBox("1°Ruota di calcolo 3° abbinamento?","3° abbinamento",2)) '<---- 3° abbinamento
w4=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","3° abbinamento",4))
ww1=CInt(InputBox("+ 2°Ruota di calcolo 3° abbinamento?","3° abbinamento",8))
ww2=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","3° abbinamento",2))
ww3=CInt(InputBox("X Numero fisso 3° abbinamento?","3° abbinamento",1))




k=CInt(InputBox("Colpi di gioco ?","Colpi",13))
For es=ax To EstrazioneFin : Messaggio es
For r = 1 To 10

If r = 11 Then r = 12
For p = 1 To 5
aa = Estratto(es,r,p)

If aa =sp Then
ru1=r
cc=cc+1
Scrivi
ColoreTesto 2 :Scrivi " ***************************************Pronostico n° " & Format2 (cc) ,1


Scrivi
ColoreTesto 2
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r),3
Scrivi
Scrivi "Spia "&format2(sp),3
Scrivi
Scrivi : ColoreTesto 0
nr(1)=Estratto(es,a,b)
nr(2)=Estratto(es,c,d)
nr(3)=x1
nr(4)=Estratto(es,x3,x4)
nr(5)=Estratto(es,y1,y2)
nr(6)=y3
nr(7)=Estratto(es,z1,z2)
nr(8)=Estratto(es,z3,z4)
nr(9)=w1
nr(10)=Estratto(es,w3,w4)
nr(11)=Estratto(es,ww1,ww2)
nr(12)=ww3

am(1)=Fuori90(Fuori90(nr(1)+nr(2))*nr(3)) 'AMBATA
abb(1)=Fuori90(Fuori90(nr(4)+nr(5))*nr(6))'ABBINAM
abb(2)=Fuori90(Fuori90(nr(7)+nr(8))*nr(9))'ABBINAM
abb(3)=Fuori90(Fuori90(nr(10)+nr(11))*nr(12))'ABBINAM


Scrivi b&"° "& Left(NomeRuota(a),9)&".."&nr(1)& " + "&d&"° "& Left(NomeRuota(c),9)&".."&nr(2)&_
" x Fisso "&x1&" Ambata ---> "&(am(1))

Scrivi x4&"° "& Left(NomeRuota(x3),9)&".."&nr(4)&" + "&y2&"° "& Left(NomeRuota(y1),9)&".."&nr(5)&_
" x Fisso "&y3&" Abbinamento ---> "&(abb(1))&""
Scrivi z2&"° "& Left(NomeRuota(z1),9)&".."&nr(7)&" + "&z4&"° "&Left(NomeRuota(z3),9)&".."&nr(8)&_
" x Fisso "&w1&" Abbinamento ---> "&(abb(2))&""
Scrivi w3&"° "& Left(NomeRuota(w4),9)&".."&nr(10)&" + "&ww2&"° "&Left(NomeRuota(ww1),9)&".."&nr(11)&_
" x Fisso "&ww3&" Abbinamento ---> "&(abb(3))&""

Scrivi Chr(10)&"Quaterna: " &am(1)&"."&abb(1)&_
"."&abb(2)&"."&abb(3)&"."&abb(4)&""

Scrivi : ruote(1)=ru1 : ruote(2)=ru2

ImpostaGiocata 1,am,ruote,posta,k

ab(1)=am(1)
ab(2)=abb(1)
ImpostaGiocata 2,ab,ruote,poste,k

ab(1)=am(1)
ab(2)=abb(2)
ImpostaGiocata 3,ab,ruote,poste,k

ab(1)=am(1)
ab(2)=abb(3)
Impost

 

[joi_lotto]

Grazie DJ lo provero' con calma.
Ora ti posto l'esempio iniziale di un metodo:
Inserire N spia 11 a BA (scelta ruota)e poi fare i seguenti calcoli.
ESEMPIO 1°BA(a scelta mia)+ 2°BA (a scelta mia)+4°NA (a scelta mia)=AMBATA.
Per gli abbinamenti la stessa cosa, che potrebbero essere 5/6,
con la variante di inserire esempio 1°BA + 3, oppure * 3,oppure
1°BA+1°RO+fisso a scelta.In pratica poter sceliere gli estratti le ruote ed i fissi.
Spero di essermi fatto capire.
Grazie nuovamente.
Joi.

 

[Roby]

Per tutti gli esperti e le menti brillanti che ci sono in questo forum


Metto qualche nick, così come mi vengono in mente :

X BLAKMORE
X CLAUDIO8
X DJNOMADE
X RUBINO
X PFCA
X JOI_LOTTO
X JOE91
X FILLOTTO

e per chiunque conosca la materia (non mi ricordo altri nomi, pardon.)
Perchè non vi riunite e lo costruite questo benedetto costruttore di metodi,che superi qualsiasi altro costruttore, magari ognuno si dedica a un pezzo di codice.....
Insomma qualcosa, con cui si possa fare qualsiasi tipo di calcolo con le quattro operazioni
Le capacità di farlo le avete di sicuro e sarebbe un arma che mettete a disposizione di tutti.
Lo so non ho nominato, "il Maestro" Luigib, ma lui se solo volesse, sarebbe capace di crearlo tutto da solo.
magari potrebbe fare il cordinatore di tutti i pezzi di codice.
Va be, lo so sto sognando, non succederà mai, e se succede va a finire che litigate pure fra voi.[V]

Ma sarebbe bello vedere il vostro ingegno all'opera.[^][^]






Frank