per favore aiuto script

[rabberto]

Ciao volevo chiedere se possibile un favore a tutti gli scripter siccome sono un amante di matamatica sommatoria se era possibile creare uno script che mi faccia scegliere la ruota mi faccia scegliere i mesi mi faccia scegliere i colpi di gioco di ricerca mi dica gli esiti e in automatico con dei numeri fissi mi dia una terzina o una quartina per ambo sulla ruota che decido io da giocare per i colpi che dico io e se posibile mi dica anche gli esiti positivi e negativi nei mesi analizzati .
spero di essere stato chiaro , grazie , ciao.

 

[DjNomade]

Nel mio archivio ho trovato questi due,il primo che somma degli estratti con dei numeri fissi il secondo invece fa la somma di due estratti il tutto rigorosamente a scelta da provare finche' non si trova la combinazione migliore

Ciauz



Sub main()
Dim am(1),nr(6),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2)
posta(1)=1 oste(2)=1

ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",8264))
im=CInt(InputBox("Qual'è l'indice mensile ?","Indice Mensile",1))

b=CInt(InputBox("Posizione estratto ?","Ambata",2)) '<--- Ambata
a=CInt(InputBox("Ruota di calcolo ?","Ambata",4))
c=CInt(InputBox(" + Numero fisso ?","Ambata",6))


x1=CInt(InputBox("Posizione estratto?","1° abbinamento",1)) '<---- 1° abbinamento
x2=CInt(InputBox("Ruota di calcolo ?","1° abbinamento",1))
x3=CInt(InputBox(" + Numero fisso ?","1° abbinamento",31))

y1=CInt(InputBox("Posizione estratto?","2° abbinamento",1)) '<---- 2° abbinamento
y2=CInt(InputBox("Ruota di calcolo ?","2° abbinamento",2))
y3=CInt(InputBox(" + Numero fisso ?","2° abbinamento",37))

z1=CInt(InputBox("Posizione estratto?","3° abbinamento",3)) '<---- 3° abbinamento
z2=CInt(InputBox("Ruota di calcolo ?","3° abbinamento",5))
z3=CInt(InputBox(" + Numero fisso ?","3° abbinamento",10))

w1=CInt(InputBox("Posizione estratto?","4° abbinamento",4)) '<---- 4° abbinamento
w2=CInt(InputBox("Ruota di calcolo ?","4° abbinamento",10))
w3=CInt(InputBox(" + Numero fisso ?","4° abbinamento",51))
ru1=CInt(InputBox("1ª ruota di gioco ?","1ª Ruota",5)) '<--- 1ª Ruota
ru2=CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",6)) '<--- 2ª Ruota
k=CInt(InputBox("Colpi di gioco ?","Colpi",13))
For es=ax To EstrazioneFin : Messaggio es
If IndiceMensile(es)=im Then

cc=cc+1



Scrivi
ColoreTesto 2 :Scrivi " *********************** Previsione ricavata alla "&(im)&"° estrazione del mese ************************* ",1
Scrivi"Pronostico n° " & Format2 (cc),1
ColoreTesto 0
Scrivi
am(1)=Fuori90(Estratto(es,a,b)+c)
abb(1)=Fuori90(Estratto(es,x2,x1)+x3)
abb(2)=Fuori90(Estratto(es,y2,y1)+y3)
abb(3)=Fuori90(Estratto(es,z2,z1)+z3)
abb(4)=Fuori90(Estratto(es,w2,w1)+w3)
nr(1)=Estratto(es,a,b)
nr(2)=Estratto(es,x2,x1)
nr(3)=Estratto(es,y2,y1)
nr(4)=Estratto(es,z2,z1)
nr(5)=Estratto(es,w2,w1)
Scrivi b&"° "& Left(NomeRuota(a),9)&".."&nr(1)& " + "&c&_
" Ambata ---> "&(am(1))&"" : Scrivi
Scrivi x1&"° "& Left(NomeRuota(x2),9)&".."&nr(2)&" + "&x3&_
" Abbinamento ---> "&(abb(1))&""
Scrivi y1&"° "& Left(NomeRuota(y2),9)&".."&nr(3)&" + "&y3&_
" Abbinamento ---> "&(abb(2))&""
Scrivi z1&"° "& Left(NomeRuota(z2),9)&".."&nr(4)&" + "&z3&_
" Abbinamento ---> "&(abb(3))&""
Scrivi w1&"° "& Left(NomeRuota(w2),9)&".."&nr(5)&" + "&w3&_
" Abbinamento ---> "&(abb(4))&""
Scrivi Chr(10)&"Cinquina: " &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)=Fuori90(Estratto(es,x2,x1)+x3)
ImpostaGiocata 2,ab,ruote,poste,k

ab(2)=Fuori90(Estratto(es,y2,y1)+y3)
ImpostaGiocata 3,ab,ruote,poste,k

ab(2)=Fuori90(Estratto(es,z2,z1)+z3)
ImpostaGiocata 4,ab,ruote,poste,k

ab(2)=Fuori90(Estratto(es,w2,w1)+w3)
ImpostaGiocata 5,ab,ruote,poste,k

acc(1)=am(1) : acc(2)=abb(1) : acc(3)=abb(2)
acc(4)=abb(3) : acc(5)=abb(4)
ImpostaGiocata 6,acc,ruote,poste,k

Gioca es : Scrivi
Scrivi : Scrivi String(70,151)
End If
Next
ScriviResoconto
ColoreTesto 2 : Scrivi "•damper•",1
End Sub


*************************************************************


Sub main()
Dim am(1),nr(10),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2)
posta(1)=1 oste(2)=1

ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",7864))
im=CInt(InputBox("Qual'è l'indice mensile ?","Indice Mensile",1))

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

 

[rabberto]

GRAZIE DI CUORE SEI STATO GENTILISSIMO

 

[Roby]

Rabberto, dai un occhiata all'ultimo script inserito in "Mega raccolta Script", meglio di così non ho saputo trovare....

Blackmore

 

[marco6474]

Ciao a tutti dove trovo "Mega raccolta Script"
grazie
Pietro