Novità

PER GLI ESPERTI DI SCRIPT

joi_lotto

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


Sub main()
Dim am(1),nr(12),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2),postee(3)
posta(1)=1 :poste(2)=1
postee(2)=1 :postee(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
 
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.
 
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.[^][^]:D:D:D:D:D:D






Frank
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto