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ì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
Indietro
Alto