Correzione Script

[jure]

Chi mi può correggere il listato la previsione finale non è esatta.



Sub Main()
Dim n,t,r,n1,n2
Dim am(10)
Dim ruota(10)
Dim posta(5)
posta(1) = 1
posta(2) = 1
ini = 7900
For n = ini To EstrazioneFin
Messaggio DataEstrazione
t = 1
Do While RAD30(n,t,r,n1,n2) = True
If n1 = Fuori90(n2 + 30) Then am(1) = Fuori90(n2 + 60)
If n1 = Fuori90(n2 + 60) Then am(1) = Fuori90(n2 + 30)
zz = Posizione(n - 1,r,am(1))
xx = Posizione(n + 1,r,am(1))
If zz > 0 Or xx > 0 Then
Scrivi "**************************************************************"
ColoreTesto 2
If zz > 0 Then Scrivi " Estrazione del " & DataEstrazione(n - 1) & " num. " & am(1) & " su " & NomeRuota(r) End If
If xx > 0 Then Scrivi " Estrazione del " & DataEstrazione(n + 1) & " num. " & am(1) & " su " & NomeRuota(r) End If
Scrivi " Estrazione del " & DataEstrazione & " num. " & n1 & " - " & n2 & " su " & NomeRuota(r)
Scrivi
ColoreTesto 0
ruota(1) = r
am(2) = n1
am(3) = n2
ImpostaGiocata 1,am,ruota,posta,6,1
Gioca n
End If
t = t + 1
Loop
Next
ScriviResoconto
End Sub
Function RAD30(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j
trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD30 = True
Exit Function
End If
End If
Next
Next
Next
RAD30 = False
End Function

 

[Master]

Prova così ho aggiunto solo un istruzione per la data di gioco : If xx > 0 Then n = n + 1

 Sub Main()
 Dim n,t,r,n1,n2
 Dim am(10)
 Dim ruota(10)
 Dim posta(5)
 posta(1) = 1
 posta(2) = 1
 ini = 7900
 For n = ini To EstrazioneFin
  Messaggio DataEstrazione(n)
  t = 1
  Do While RAD30(n,t,r,n1,n2) = True
   If n1 = Fuori90(n2 + 30) Then am(1) = Fuori90(n2 + 60)
   If n1 = Fuori90(n2 + 60) Then am(1) = Fuori90(n2 + 30)
   zz = Posizione(n - 1,r,am(1))
   xx = Posizione(n + 1,r,am(1))
   If zz > 0 Or xx > 0 Then
    Scrivi "************************************************* *************"
    ColoreTesto 2
    If zz > 0 Then Scrivi " Estrazione del " & DataEstrazione(n - 1) & " num. " & am(1) & " su " & NomeRuota(r) End If
    If xx > 0 Then Scrivi " Estrazione del " & DataEstrazione(n + 1) & " num. " & am(1) & " su " & NomeRuota(r) End If
    Scrivi " Estrazione del " & DataEstrazione(n) & " num. " & n1 & " - " & n2 & " su " & NomeRuota(r)
    Scrivi
    ColoreTesto 0
    ruota(1) = r
    am(2) = n1
    am(3) = n2
    ImpostaGiocata 1,am,ruota,posta,6,1
    If xx > 0 Then n = n + 1
    Gioca n
   End If
   t = t + 1
  Loop
 Next
 ScriviResoconto
End Sub
Function RAD30(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
 Dim trovati,r,i,j
 trovati = 0
 For r = 1 To 10
  For i = 1 To 4
   For j = i + 1 To 5
    a = Estratto(estrazione,r,i)
    b = Estratto(estrazione,r,j)
    If Distanza(a,b) = 30 Then
     trovati = trovati + 1
     If trovati = tentativo Then
      numero1 = Estratto(estrazione,r,i)
      numero2 = Estratto(estrazione,r,j)
      ruota = r
      RAD30 = True
      Exit Function
     End If
    End If
   Next
  Next
 Next
 RAD30 = False
End Function

 

[jure]

Grazie Master
Adesso Funziona.