chi mi aiuta a fare questo script????

[margot]

mi serve calcolare una quartina:faccio un esempio cosi forse mi capite meglio

1° di ro 46 la figura è 1
5° di ro 33 la figura è 6
1 e 6 = 16

1° di to 84 la figura è 3
5° di to 27 la figura è 9
3 e 9 = 39

dal risultato 16 la figura è 7
dal risultato 39 la figura è 3

quindi ambate 73 e il suo vertibile 37 da abbinare il 16 e 39

questo da poter calcolare su tutte le ruote a due a due

ps. per qualsiasi informazione chiedetemi

grazie infinite a chi mi risolverà questo problema

 

[Roby]

Se usi L8 o Lottodesk togli la virgola e l'1 dopo gioca es
Ciao

Sub main()
Dim ruote(10),ambata(2),quartina(4),posta(1),poste(2)
posta(1) = 1 : poste(2) = 1
ini = InputBox("Inizio ricerca ?",, 8700)
k = InputBox("Colpi di gioco ?",,9)
fin = EstrazioneFin
For es = ini To fin
For r1 = 1 To 9
r2 = r1+1 
a = Figura(Estratto(es,r1,1)): b = Figura(Estratto(es,r1,5))
c = Figura(Estratto(es,r2,1)): d = Figura(Estratto(es,r2,5))
n1 = figura(a&b): n2 = figura(c&d)
n3 = Fuori90(n1&n2)
ruote(1)= r1 : ruote(2)= r2
co=co+1
Scrivi String(99,"=")&" Caso n°"& Format2(co),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"  Fig  "& Format2(a)&"-"& Format2(b)
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"  Fig  "& Format2(c)&"-"& Format2(d)

ambata(1)= Fuori90(n1&n2)
ambata(2)= Vert(ambata(1)) 
ImpostaGiocata 1,ambata,ruote,posta,k,1
quartina(1)= ambata(1)
quartina(2)= ambata(2)
quartina(3)= Fuori90(a&b)
quartina(4)= Fuori90(c&d)
EliminaRipetuti quartina 
ImpostaGiocata 2,quartina,ruote,poste,k,2
Gioca es,1
Next
Next
scrivi:scriviresoconto 
End Sub

 

[margot]

grazie tantissimo sei stato gentilissimo, ok funziona grazie ancora

 

[margot]

scusa blackmore, ma se voglio aggiungere anche la nazionale allo script, cosa devo modificare????

 

[Roby]

For r1 = 1 To 9 ---> diventa for r1 = 1 to 10 (da BARI a VENEZIA)
r2 = r1+1 ---> questo rimane così (incrementa di 1 per trovare la ruota consecutiva)
poi aggiungo ---> if r2 = 11 then r2 = 12 (se la 2° ruota è tutte(11) allora r2 diventa la 12° (NAZIONALE))

Ciao

Sub main()
Dim ruote(10),ambata(2),quartina(4),posta(1),poste(2)
posta(1) = 1 : poste(2) = 1
ini = InputBox("Inizio ricerca ?",, 8700)
k = InputBox("Colpi di gioco ?",,9)
fin = EstrazioneFin
For es = ini To fin
For r1 = 1 To 10
r2 = r1+1 
If r2 = 11 Then r2 = 12 
a = Figura(Estratto(es,r1,1)): b = Figura(Estratto(es,r1,5))
c = Figura(Estratto(es,r2,1)): d = Figura(Estratto(es,r2,5))
n1 = figura(a&b): n2 = figura(c&d)
ruote(1)= r1 : ruote(2)= r2
co=co+1
Scrivi String(99,"=")&" Caso n°"& Format2(co),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&"  "& StringaEstratti(es,r1)&"  Fig  "& Format2(a)&"-"& Format2(b)
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r2)&"  "& StringaEstratti(es,r2)&"  Fig  "& Format2(c)&"-"& Format2(d)

ambata(1)= Fuori90(n1&n2)
ambata(2)= Vert(ambata(1)) 
ImpostaGiocata 1,ambata,ruote,posta,k,1
quartina(1)= ambata(1)
quartina(2)= ambata(2)
quartina(3)= Fuori90(a&b)
quartina(4)= Fuori90(c&d)
EliminaRipetuti quartina 
ImpostaGiocata 2,quartina,ruote,poste,k,2
Gioca es,1
Next
Next
scrivi:scriviresoconto 
End Sub