per esselotto jackman o chi vuole aiuto script !

[Roby]

salve a tutti !!!
volevo chiedere a chi piu di me ne sa se potrebbe aiutarmi in un impresa del tipo :

ruota di calcolo nazionale
ruota di gioco nazionale
si esegue a tutte le estrazioni ( vorrei che la statistica partisse con le ultime 110 estrazioni se possibile fino a l'ultima )
calcoli da fare : a tutti gli estratti sommare i numeri fissi 18 72
il risultato sara 10 numeri da giocare per la sorte di ambo terno quaterna e cinquina sulla ruota nazionale in un unica lunghetta ( se ci sono numeri ripetuti vorrei venisse lasciato solo uno riducendo la lunghetta a 9 o meno numeri)
ogni gioco vorrei fosse separato ( mi spiego meglio vorrei che la giocata per l'ambo avesse un proprio resoconto per il terno lo stesso per la quaterna e cinquina separati )
i colpi di gioco sono 10 le progressioni le scrivo sotto
progressione per ambo
colpo - posta
1 - 1,00
2 - 1,00
3 - 1,00
4 - 1,00
5 - 2,00
6 - 2,00
7 - 3,00
8 - 4,00
9 - 5,00
10 - 6,00
terno sempre 1,00
quaterna sempre 1,00
cinquina 1,00 sempre

se ho chiesto molto ed e un po difficile non preoccupatevi farò tutto a mano se invece avete la possibilita di aiutarmi ve ne sarei grato moltissimo .
grazie ancora buon week
microchipper ___

 

[Roby]

Appena me ricordo come si mettono le progressioni te le inserisco, so un pò arrugginito!!!
Ho messo come posta dall'ambo alla cinquina 1 euro
Ciao

Sub main() 
Dim num(10)
Dim ruote(1)
Dim poste(5)
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1
tmp=InputBox("Quante estrazioni controllo?",,110) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
r=12
a1=Estratto(es,r,1)
a2=Estratto(es,r,2)
a3=Estratto(es,r,3)
a4=Estratto(es,r,4)
a5=Estratto(es,r,5) 
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)
ruote(1)=r
num(1)=Fuori90(a1+18)
num(2)=Fuori90(a1+72)
num(3)=Fuori90(a2+18)
num(4)=Fuori90(a2+72)
num(5)=Fuori90(a3+18)
num(6)=Fuori90(a3+72)
num(7)=Fuori90(a4+18)
num(8)=Fuori90(a4+72)
num(9)=Fuori90(a5+18)
num(10)=Fuori90(a5+72)
ImpostaGiocata 1,num,ruote,poste,10
Gioca es
Scrivi"**********************************************" 
Next 
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[microchipper]

grazie sei stato veramente gentile e tempestivo se dovessi ricordare come si fa per le progressioni sarebbe fantastico ma mi accontento di quello che gia mi hai postato grazie !

 

[Thauk]

Metto anche il mio, vedi se ti va bene.

Sub main()
Dim rt(1),pta(5),ptt(5),ptq(5),ptc(5),nr(10)
Dim prog(5,100)
prog(2,1)=1
prog(2,2)=1
prog(2,3)=1
prog(2,4)=1
prog(2,5)=2
prog(2,6)=2
prog(2,7)=3
prog(2,8)=4
prog(2,9)=5
prog(2,10)=6

pta(2)=1
ptt(3)=1
ptq(4)=1
ptc(5)=1
rt(1)=12
k=10

ex=InputBox("Quante estrazioni controllo?",,110) 

ini=EstrazioneFin-ex
fin=EstrazioneFin
For es=ini To fin
Messaggio(es)

nr(1)=Fuori90(Estratto(es,12,1)+18)
nr(2)=Fuori90(Estratto(es,12,1)+72)
nr(3)=Fuori90(Estratto(es,12,2)+18)
nr(4)=Fuori90(Estratto(es,12,2)+72)
nr(5)=Fuori90(Estratto(es,12,3)+18)
nr(6)=Fuori90(Estratto(es,12,3)+72)
nr(7)=Fuori90(Estratto(es,12,4)+18)
nr(8)=Fuori90(Estratto(es,12,4)+72)
nr(9)=Fuori90(Estratto(es,12,5)+18)
nr(10)=Fuori90(Estratto(es,12,5)+72)
ImpostaGiocata 1,nr,rt,pta,k
ImpostaProgressione 1,prog
ImpostaGiocata 2,nr,rt,ptt,k
ImpostaGiocata 3,nr,rt,ptq,k
ImpostaGiocata 4,nr,rt,ptc,k

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi

Gioca es
Next
ScriviResoconto
ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto 4
End Sub

ciauz


Fortuna non omnibus aeque.

 

[microchipper]

grazie metus del lavoro che hai fatto pe me se ti va potresi dare un'occhiata anche qualcun'altro se volete a un altro mio questito nella sezione metodi che ripropongo qui sotto :


salve a tutti sono in cerca di un'aiuto
volevo sapere se ce qualcuno di buona volontà che possa realizzare per me lo script da usare con lottodesk del seguente metodo:

all'uscita di 2 numeri uguali isotopi su 2 ruote consecutive tipo venezia nazionale
nazionale bari
bari cagliari ecc

fare il seguente calcolo :
numero estratto isotopo come ambata

abbinamenti per ambo :
primo estratto prima ruota +88
seondo estratto prima ruota +23
terzo estratto prima ruota +20

totale previsione una quartina per ambo da giocare su tutte le ruote.

esempio pratico

nazionale 67-43-55-78-87
bari 66-65-55-90-43

calcoli
55 ambata
67+88 1 abbinamento eventuale fuori novanta
43+23 2 abbinamento evntuale fuori novanta
55+20 3 abbinamento eventuale fuori novanta
.
progressioni per il gioco del solo ambo su tutte :
colpi di gioco 13

colpo - puntata
1-1.00
2-1.00
3-1.00
4-1.5
5-2.00
6-3.00
7-4.00
8-5.5
9-7.5
10-10.5
11-14.5
12-20
13-28

sospendere il gioco al primo esito positivo di ambo su tutte

un grazie a tutti di cuore spero qualcuno possa aiutarmi a presto grazie mille

 

[microchipper]

grazie Thauk con il tuo listato sono riuscito ad ottenere quello che voleva davvero molto gentile