|
|
| Doppi complimenti Silop!  Aggiungo altro script: CODICE ' CINQUINE SINCRONE A PASSO X per AMBO in GIOCO anche SU ALTRE RUOTE- Ritardi attuali
Sub Main()
Dim num(5)
Dim ruota(1)
Dim rita(13,13)
For ep = 1 To 3 '
Messaggio "passo " & ep
Scrivi "=====================================================================================PASS0 " & ep
Scrivi "|||||||||||||||||||||RUOTA DI PROVENIENZA cinquina|||||||||||||||||--->indice RUOTA DI GIOCO",0,1
Scrivi
Scrivi Space(4),0,0
For rg = 1 To 11
If rg = 11 Then rg = 12
Scrivi FormatSpace(SiglaRuota(rg),6),0,0
If rg = 12 Then Scrivi
ruota(1) = rg
eini = EstrazioneFin - 420
efin = EstrazioneFin
For i = eini To efin
For rr = 1 To 11
If rr = 11 Then rr = 12
For p = 1 To 5
num(p) = Fuori90(Estratto(i - ep,rr,p) + x)
Next
If SerieFreq(i,i,num,ruota,2) > 0 Then
rita(rg,rr) = 0
Else
rita(rg,rr) = rita(rg,rr) + 1
End If
Next
Next
Next
For z = 1 To 11
If z = 11 Then z = 12
rita(z,13) = z
Next
ScriviMatrice rita
Erase rita
Next
End Sub Saluti |
| | |
