Aiuto per modifica script per Ba e Ca

[marpioncella]

Salve a tutti, chiedo gentilmente se qualcuno può modificare o può indicarmi come farlo lo script sotto riportato.
Vorrei che il metodo verifichi le uscite delle ambate non solo sulla ruota di Bari ma anche su quella di Cagliari.
Grazie per l'aiuto
Marpi

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(4)
ruote(1) = 1
posta(1) = 1
ini = 8000
fin = EstrazioneFin
co = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
a = Estratto(es,1,4)
b = Estratto(es,2,5)
'---------------------------
c = Estratto(es,1,5)
d = Estratto(es,2,4)
'---------------------------
e = Fuori90(a + b)
f = Fuori90(c + d)
'---------------------------
n(1) = e
n(2) = Vert(e)
n(3) = f
n(4) = Vert(f)
co = co + 1
ImpostaGiocata 1,n,ruote,posta,9,1
Gioca es
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Baffoblu ***** ",1,3,0
ScriviResoconto
End Sub

 

[Mike58]

Ciao Marpi, hai 2 modi semplici per fare la tua modifica.
1 - aumentare il contenitore della ruote da 1 a 2 nel codice Dim e valorizzare il contenitore (2) con la ruota voluta.

Dim ruote(2) ' aumento il contatore ruote
Dim posta(1)
Dim n(4)
ruote(1) = 1
ruote(2) = 2 ' dichiaro la ruota
posta(1) = 1

2 - imposto una giocata separata per ruote.

Dim ruote(1),ruota2(1)
Dim posta(1)
Dim n(4)
ruote(1) = 1
ruota2(1) = 2
posta(1) = 1
'--aggiungi imposta giocata --

ImpostaGiocata 2,n,ruota2,posta,9,1

Ciao Mike58

 

[marpioncella]

Grazie Mike 58. Tutto fatto.
Marpi