Aiutino per script facile, ma non per me!

ananda · 18 Aprile 2023

Salve, vorrei uno script che ad ogni estrazione sommasse i PRIMI estratti delle ruote dispari (BA,FI,MI,PA,TO) e i primi estratti delle ruote pari (CA,GE,NA,RO,VE), ottenendo il primo ambo.
Poi sommasse i SECONDI estratti delle ruote dispari e i secondi di quelle pari, ottenendo il secondo ambo.
e cosi' via fino ai quinti estratti. 5 ambi ogni estrazione
Fin qui ci sono arrivato.
Poi dovrebbe scrivere sull'output per ogni estrazione i 5 ambi trovati, col resoconto per 1 colpo su Tutte.

Come vedete gran parte è fatto, ma non riesco a a fargli scrivere gli ambi di ogni estrazione, indipendentemente se poi siano usciti gli ambi o meno. Mi scrive solo quelli con esito vincente, ma io dovrei vederli tutti per verifiche ulteriori!

Grazie se vorrete aiutarmi
______________________________
Sub main()

Dim ruote(1)
Dim numeri1(10)
Dim poste(5)
poste(2)=1
ruote(1)=11
k=1
y=1
For n=10000 To EstrazioneFin
'n=InputBox(inserisci estrazione)
'If IndiceMensile

=1 Then
ng=0

x=Fuori90(Estratto(n,1,1))
y=Fuori90(Estratto(n,3,1))
z=Fuori90(Estratto(n,5,1))
w=Fuori90(Estratto(n,7,1))
j=Fuori90(Estratto(n,9,1))
x1=Fuori90(Estratto(n,2,1))
y1=Fuori90(Estratto(n,4,1))
z1=Fuori90(Estratto(n,6,1))
w1=Fuori90(Estratto(n,8,1))
j1=Fuori90(Estratto(n,10,1))
xx1=Fuori90(x+y+z+w+j)
yy1=Fuori90(x1+y1+z1+w1+j1)

numeri1(1)=xx1
numeri1(2)=yy1

'EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruotet,poste,k,y
x2=Fuori90(Estratto(n,1,2))
y2=Fuori90(Estratto(n,3,2))
z2=Fuori90(Estratto(n,5,2))
w2=Fuori90(Estratto(n,7,2))
j2=Fuori90(Estratto(n,9,2))
x3=Fuori90(Estratto(n,2,2))
y3=Fuori90(Estratto(n,4,2))
z3=Fuori90(Estratto(n,6,2))
w3=Fuori90(Estratto(n,8,2))
j3=Fuori90(Estratto(n,10,2))
xx2=Fuori90(x2+y2+z2+w2+j2)
yy2=Fuori90(x3+y3+z3+w3+j3)
numeri1(1)=xx2
numeri1(2)=yy2
'EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
x4=Fuori90(Estratto(n,1,3))
y4=Fuori90(Estratto(n,3,3))
z4=Fuori90(Estratto(n,5,3))
w4=Fuori90(Estratto(n,7,3))
j4=Fuori90(Estratto(n,9,3))
x5=Fuori90(Estratto(n,2,3))
y5=Fuori90(Estratto(n,4,3))
z5=Fuori90(Estratto(n,6,3))
w5=Fuori90(Estratto(n,8,3))
j5=Fuori90(Estratto(n,10,3))
xx3=Fuori90(x4+y4+z4+w4+j4)
yy3=Fuori90(x5+y5+z5+w5+j5)
numeri1(1)=xx3
numeri1(2)=yy3
'EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
x6=Fuori90(Estratto(n,1,4))
y6=Fuori90(Estratto(n,3,4))
z6=Fuori90(Estratto(n,5,4))
w6=Fuori90(Estratto(n,7,4))
j6=Fuori90(Estratto(n,9,4))
x7=Fuori90(Estratto(n,2,4))
y7=Fuori90(Estratto(n,4,4))
z7=Fuori90(Estratto(n,6,4))
w7=Fuori90(Estratto(n,8,4))
j7=Fuori90(Estratto(n,10,4))
xx4=Fuori90(x6+y6+z6+w6+j6)
yy4=Fuori90(x7+y7+z7+w7+j7)
numeri1(1)=xx4
numeri1(2)=yy4
'EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
x8=Fuori90(Estratto(n,1,5))
y8=Fuori90(Estratto(n,3,5))
z8=Fuori90(Estratto(n,5,5))
w8=Fuori90(Estratto(n,7,5))
j8=Fuori90(Estratto(n,9,5))
x9=Fuori90(Estratto(n,2,5))
y9=Fuori90(Estratto(n,4,5))
z9=Fuori90(Estratto(n,6,5))
w9=Fuori90(Estratto(n,8,5))
j9=Fuori90(Estratto(n,10,5))
xx5=Fuori90(x8+y8+z8+w8+j8)
yy5=Fuori90(x9+y9+z9+w9+j9)
numeri1(1)=xx5
numeri1(2)=yy5
'EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,k,y
For a=1 To ng
For b=1 To ng
'ImpostaInterruzioni a,b,2
Next
Next

Gioca n,True
'End If
Next
ScriviResoconto
End Sub

Sakti · 18 Aprile 2023

... Bel lavoro

Master · 18 Aprile 2023

Ciao
Prova così

Codice:

Sub Main()
   Dim ruote(1)
   Dim numeri1(2),numeri2(2),numeri3(2),numeri4(2),numeri5(2)
   Dim poste(5)
   poste(2) = 1
   ruote(1) = 11
   k = 1
   c = 1
   For n = 10000 To EstrazioneFin
      'n=InputBox(inserisci estrazione)
      'If IndiceMensile(n)=1 Then
      'ng = 0
      x = Fuori90(Estratto(n,1,1))
      y = Fuori90(Estratto(n,3,1))
      z = Fuori90(Estratto(n,5,1))
      w = Fuori90(Estratto(n,7,1))
      j = Fuori90(Estratto(n,9,1))
      x1 = Fuori90(Estratto(n,2,1))
      y1 = Fuori90(Estratto(n,4,1))
      z1 = Fuori90(Estratto(n,6,1))
      w1 = Fuori90(Estratto(n,8,1))
      j1 = Fuori90(Estratto(n,10,1))
      xx1 = Fuori90(x + y + z + w + j)
      yy1 = Fuori90(x1 + y1 + z1 + w1 + j1)
      'EliminaRipetuti numeri1
      'ng=ng+1
      x2 = Fuori90(Estratto(n,1,2))
      y2 = Fuori90(Estratto(n,3,2))
      z2 = Fuori90(Estratto(n,5,2))
      w2 = Fuori90(Estratto(n,7,2))
      j2 = Fuori90(Estratto(n,9,2))
      x3 = Fuori90(Estratto(n,2,2))
      y3 = Fuori90(Estratto(n,4,2))
      z3 = Fuori90(Estratto(n,6,2))
      w3 = Fuori90(Estratto(n,8,2))
      j3 = Fuori90(Estratto(n,10,2))
      xx2 = Fuori90(x2 + y2 + z2 + w2 + j2)
      yy2 = Fuori90(x3 + y3 + z3 + w3 + j3)
      'EliminaRipetuti numeri1
      'ng=ng+1
      x4 = Fuori90(Estratto(n,1,3))
      y4 = Fuori90(Estratto(n,3,3))
      z4 = Fuori90(Estratto(n,5,3))
      w4 = Fuori90(Estratto(n,7,3))
      j4 = Fuori90(Estratto(n,9,3))
      x5 = Fuori90(Estratto(n,2,3))
      y5 = Fuori90(Estratto(n,4,3))
      z5 = Fuori90(Estratto(n,6,3))
      w5 = Fuori90(Estratto(n,8,3))
      j5 = Fuori90(Estratto(n,10,3))
      xx3 = Fuori90(x4 + y4 + z4 + w4 + j4)
      yy3 = Fuori90(x5 + y5 + z5 + w5 + j5)
      'EliminaRipetuti numeri1
      'ng=ng+1
      x6 = Fuori90(Estratto(n,1,4))
      y6 = Fuori90(Estratto(n,3,4))
      z6 = Fuori90(Estratto(n,5,4))
      w6 = Fuori90(Estratto(n,7,4))
      j6 = Fuori90(Estratto(n,9,4))
      x7 = Fuori90(Estratto(n,2,4))
      y7 = Fuori90(Estratto(n,4,4))
      z7 = Fuori90(Estratto(n,6,4))
      w7 = Fuori90(Estratto(n,8,4))
      j7 = Fuori90(Estratto(n,10,4))
      xx4 = Fuori90(x6 + y6 + z6 + w6 + j6)
      yy4 = Fuori90(x7 + y7 + z7 + w7 + j7)
      'EliminaRipetuti numeri1
      'ng=ng+1
      x8 = Fuori90(Estratto(n,1,5))
      y8 = Fuori90(Estratto(n,3,5))
      z8 = Fuori90(Estratto(n,5,5))
      w8 = Fuori90(Estratto(n,7,5))
      j8 = Fuori90(Estratto(n,9,5))
      x9 = Fuori90(Estratto(n,2,5))
      y9 = Fuori90(Estratto(n,4,5))
      z9 = Fuori90(Estratto(n,6,5))
      w9 = Fuori90(Estratto(n,8,5))
      j9 = Fuori90(Estratto(n,10,5))
      xx5 = Fuori90(x8 + y8 + z8 + w8 + j8)
      yy5 = Fuori90(x9 + y9 + z9 + w9 + j9)
      'EliminaRipetuti numeri1
      'ng=ng+1
      numeri1(1) = xx1
      numeri1(2) = yy1
      ImpostaGiocata 1,numeri1,ruote,poste,k,c
      numeri2(1) = xx2
      numeri2(2) = yy2
      ImpostaGiocata 2,numeri2,ruote,poste,k,c
      numeri3(1) = xx3
      numeri3(2) = yy3
      ImpostaGiocata 3,numeri3,ruote,poste,k,c
      numeri4(1) = xx4
      numeri4(2) = yy4
      ImpostaGiocata 4,numeri4,ruote,poste,k,c
      numeri5(1) = xx5
      numeri5(2) = yy5
      ImpostaGiocata 5,numeri5,ruote,poste,k,c
      'For a=1 To ng
      'For b=1 To ng
      'ImpostaInterruzioni a,b,2
      'Next
      'Next
      Gioca n
      'End If
   Next
   ScriviResoconto
End Sub

Cerca

Cerca

Aiutino per script facile, ma non per me!

ananda

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member >GOLD<

Master

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi