aiuto x realizzare uno script

[arcor]

ciao forum ho fatto un metodo sulla ruota di bari e vorrei controllarne i risultati con uno script io vi posto solo l'inizio del metodo poi voglio provare a continuarlo io se possibile col vostro aiuto
ruota ricerca bari ogni prima estrazione del mese si considera il primo estrato di bari
ruota gioco bari x 13 colpi se esce il numero 1 si gioca il 10 e 25 x ate come abbinamentiil 2-31-68 formiamo 6 ambi
se esce il numero 2 si gioca il 9 e 25 come ate x abbinamento il 1-6-29
e via così fino al numero 90
vedendo l'inizio dello script con i primi 2 numeri poi voglio provare a continuarlo io
grazie a chi mi aiuterà
ciao

by arcor

 

[claudio8]

Prova a copiarne uno con indice mensile dalla raccolta di Blakmore, dopo cancelli le righe che non ti interessano ed inserisci le tue.

 

[DjNomade]

Ciauz prova questa soluzione


Scrivi
ColoreTesto 2
Scrivi String(15," ")&"*******Se esce spia x Gioca 2 Ambate + 3 Abbinamenti fissi by arcor****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(45,"=")&" List. DjNomade ",1

ColoreTesto 0
Sub main()
Dim rt(1),n1(4),nu(2),ru(2),n2(4),n3(4),pt(2),ptt(3),rtt(1)
pt(1)=1 : pt(2)=1
ptt(2)=1

ce=InputBox("Quante estrazioni controllo?",,500)
aa=InputBox("Digita Spia "," SPIA","1")

nu(1)=aa

r1=CInt(InputBox ("Su che Ruota è uscito la spia ?","RUOTA",1))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la quartina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","1.1")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1)) : ru(2)=CInt (q(2))





clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",13))

ww=InputBox ("Digita le 2 ambate da mettere in gioco!(ES: 1.7 )","AMBATE","10.25")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 3 ABBINAMENTI","ABBINAMENTI FISSI","2.31.68")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3))


co=0
For es=EstrazioneFin-ce To EstrazioneFin
Messaggio "elab. n° "&es&" del "&dataestrazione(es)&" [ List. DjNomade ]"
If SerieFreq (es,es,nu,rt,1)>0 Then
co=co+1
a=r 'ambata
b=p 'ambata

Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambata Spia "& StringaNumeri (nu)
Scrivi "Ambate "&a&"-"&b&" Abbinamenti "&f1&","&f2&","&f3
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" e "& SiglaRuota (ru(2))&" per "&clp&" colpi"

n1(1)=r
n1(2)=p
ImpostaGiocata 1,n1,ru,pt,clp
n2(1)=r
n2(2)=f1
ImpostaGiocata 2,n2,ru,ptt,clp
n2(1)=r
n2(2)=f2
ImpostaGiocata 3,n2,ru,ptt,clp
n2(1)=r
n2(2)=f3
ImpostaGiocata 4,n2,ru,ptt,clp
n2(1)=p
n2(2)=f1
ImpostaGiocata 5,n2,ru,ptt,clp
n2(1)=p
n2(2)=f2
ImpostaGiocata 6,n2,ru,ptt,clp
n2(1)=p
n2(2)=f3
ImpostaGiocata 7,n2,ru,ptt,clp

End If
Gioca es

Next
ScriviResoconto
Scrivi
ColoreTesto 2
Scrivi String(15," ")&"*******Se esce spia x Gioca 2 Ambate + 3 Abbinamenti fissi by arcor****** ",1
ColoreTesto 0
Scrivi
Scrivi
ColoreTesto 1
Scrivi String(45,"=")&" List. DjNomade ",1

ColoreTesto 0
End Sub


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[arcor]

ciao DjNomade mi sembra non sia corretto deve ricercare la spia uscita sempre al 1 posto su bari alla prima di ogni mese
ti ringrazio

by arcor

 

[DjNomade]

Hai ragione ho sbagliato tutto

Controlla quest'altro devi finire di inserire le ambate e gli abbinamenti

CIAUZ





Sub main()
Dim nu1(5),nu2(5),nu3(5),nu4(5),nu5(5),am(10),amb(10),ruota(2),ruote(1),ruot(1)
Dim posta(1),poste(2),post(5),pos1(1),pos2(1),poste3(3)
Dim posta1(6),posta2(7),posta3(8),posta4(9),posta5(10)

posta(1)=1oste(2)=1oste3(3)=1
'post(2)=1.5ost(3)=1.5ost(4)=1.5
'post(2)=1.5ost(3)=1.5ost(4)=1.5ost(5)=1.5
'posta1(6)=5osta2(7)=5osta3(8)=5osta4(9)=5osta5(10)=5

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",7850)'7850 inizio 2008
k=InputBox ("per quanti colpi?","colpi di gioco",13)
ini=ce
fin=EstrazioneFin
Scrivi "========================================LE 90 SPIE -di-arcor",1

Scrivi "==========================================Listato DjNomade",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin

If IndiceMensile(es)=1 Then
'If IndiceMensile (es+1)=1 Or es=EstrazioneFin Then
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)&" [List. DjNomade]"

n1=Estratto(es,1,1)


casi=casi+1:Scrivi String(44,"=")&" LE 90 SPIE -di-arcor",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(1)& " - "&StringaEstratti(es,1)&" ] [ "&_
Format2(n1)&" ] in "&(1)&"^Posizione",1


If n1 =1 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =2 Then am(1)=9:am(2)=25:amb(1)=1:amb(2)=6:amb(3)=29:r1=1
If n1 =3 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =4 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =5 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =6 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =7 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =8 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =9 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =10 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =11 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =12 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =13 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =14 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =15 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =16 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =17 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =18 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =19 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =20 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =21 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =22 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =23 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =24 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =25 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =26 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =27 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =28 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =29 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =30 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =31 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =32 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =33 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =34 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =35 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =36 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =37 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =38 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =39 Then am(1)=10:am(2)=25:amb(1)=2:amb(2)=31:amb(3)=68:r1=1
If n1 =40 Then am(1)=10:am(2)=25:amb(1)=2:amb(2

 

[arcor]

grazie mille DjNomade splendido lavoro ti ringrazio
saluti
ciao

by arcor