aiuto script

[lottofortune]

Salve vorrei chiedervi un aiuto per questo script che ho provato a fare io,tratto dal metodo del mio socio Asot.. Sub Main()

Dim r(2)
Dim aa(2)
Dim ambata(1)
r(1) = 1
r(2) = 2
k = 13
y = 1
For n = 8805 To EstrazioneFin
'If IndiceMensile=9 Then
a1 =(Estratto(n,1,5) - Estratto(n,2,5))
a2 = Vert(a1)
aa(1) =(Estratto(n,1,5) - Estratto(n,2,5))
aa(2) = Vert(a1)
ImpostaGiocata 1,aa,r,ambata,k,y

Gioca n
Next
ColoreTesto 2
Scrivi String(70,"=") & "lottofortune ",1
ColoreTesto 0
ScriviResoconto
End Sub

​​​​​​trovo difficoltà nel resoconto perché non me lo da,vorrei impostare il gioco d'ambata e poi perché all'ultima estrazione anzichè darmi ambata 4e40 mi da 68 grazie
​​​​​

 

[Mike58]

devi dichiarare la posta e non sottrarre ma fare la differenza.
Fai tu le differenze con il tuo script.

Sub Main()
 Dim r(2)
 Dim aa(2)
 Dim ambata(1)
 Dim posta(2)
 ambata(1) = 1
 r(1) = 1
 r(2) = 2
 k = 13
 y = 1
 For n = 8805 To EstrazioneFin
  'If IndiceMensile(n)=9 Then
  ' a1 = Differenza((Estratto(n,1,5) , Estratto(n,2,5)))
  'a2 = Vert(a1)
  aa(1) = Differenza(Estratto(n,1,5),Estratto(n,2,5))
  aa(2) = Vert(aa(1))
  ImpostaGiocata 1,aa,r,ambata,k,y
  Gioca n
 Next
 ColoreTesto 2
 Scrivi String(70,"=") & "lottofortune ",1
 ColoreTesto 0
 ScriviResoconto
End Sub

 

[lottofortune]

Grazie mille mike58 sei sempre gentilissimo...