R
Roby
Guest
Ciao.
Qualcuno potrebbe dirmi dove sbaglio?
Grazie.
Sub Main()
Dim a
With Testo
.Titolo "Esempio Cadenze"
.Out "Ruota di " + NomeRuota(csBA)
.Out "Visualizza le estrazioni con almeno 2 nr. della Cadenza 3"
.Out
.Colore csRosso
End With
For a = Estrazione.Inizio("bari") To Estrazione.Fine
If Estratti.Cadenza (a, csBA, 5) > 2 Then
Testut Estrazione.Data(a, 1), Estrazione.Estratti(a, csBA)
End If
Next
End Sub
L'ho trovato dove non ricordo.
Grazie.
Qualcuno potrebbe dirmi dove sbaglio?
Grazie.
Sub Main()
Dim a
With Testo
.Titolo "Esempio Cadenze"
.Out "Ruota di " + NomeRuota(csBA)
.Out "Visualizza le estrazioni con almeno 2 nr. della Cadenza 3"
.Out
.Colore csRosso
End With
For a = Estrazione.Inizio("bari") To Estrazione.Fine
If Estratti.Cadenza (a, csBA, 5) > 2 Then
Testut Estrazione.Data(a, 1), Estrazione.Estratti(a, csBA)
End If
Next
End Sub
L'ho trovato dove non ricordo.
Grazie.