kubes
Senior Member
CIAO Salvo in rete ho trovato questo script, il quale cerca la distanza 30 in verticale sia su ruote continue che non;potresti aggiungere anche la ricerca in diagonale (sia su ruote continue che non )? grazie
Codice:
Sub Main()
Dim ruote(2),posta(5),nu1(10),nu2(10),ruota(2),poste(5)
Dim manca,metti,posa
posta(2) = 2
poste(2) = 1:poste(3) = 1:poste(4) = .1
ce = CInt(InputBox("Quante estrazione vuoi controllare? ","Estrazione",7))
k = CInt(InputBox("Quanti colpi di gioco?","Colpi di gioco",3))
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To fin:Messaggio es
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
b = Estratto(es,r2,p1)
If Distanza(a,b) = 30 Then
n5 = Fuori90(a + b)
If a > b And(a - b) = 30 Then manca = Fuori90(a + 30)
If b > a And(b - a) = 30 Then manca = Fuori90(b + 30)
If a > b Then metti = b
If b > a Then metti = a
If a < b Then posa = b
If b < a Then posa = a
casi = casi + 1:Scrivi String(65,"•") & " caso n° " &(casi),1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] " & Format2(a) & " " &(p1) & "^ pos.",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] " & Format2(b) & " " &(p1) & "^ pos.",1
ColoreTesto 0 : Scrivi String(60,"-")
ruote(1) = r1:ruote(2) = r2
nu1(1) = n5
nu1(2) = metti
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = n5
nu2(2) = metti
nu2(3) = posa
nu2(4) = manca
ImpostaGiocata 2,nu2,ruote,poste,k
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Ultima modifica: