Zetrix |
|
| Sub Main()
yes = InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",0)
ini = EstrazioneFin - yes
fin = EstrazioneFin
For es = Ini To EstrazioneFin
ColoreTesto 1 : Scrivi String(7,".") & " " & DataEstrazione(es) & " " & String(7,"."),1 : ColoreTesto 0
ColoreTesto 2
Scrivi " numeri scomposti a differenza ",1
ColoreTesto 1
Scrivi " numeri scomposti a somma",1
Scrivi
For r = 1 To 10
For p = 1 To 5
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 5
a = Estratto(es,r,p): b = Estratto(es,r1,p1)
'-------------------------------
'If Distanza(a , b) = 21 Then
x = FuoriX(a + b)
If x = 59 Then
y = Abs ( a - b)
If y = 59 Then
'--------------------------------------
If x = y Then ColoreTesto 2 Else ColoreTesto 1
'If y = y Then ColoreTesto 2 'Else ColoreTesto 1
Scrivi " " & Format2(p) & " " & FormatSpace(SiglaRuota(r),4) & FormatSpace((a),6),0,0
Scrivi Format2(p1) & " " & FormatSpace(SiglaRuota(r1),4) &(b)
End If
End If
Next
Next
Next
Next
Scrivi
Next
End Sub
ciao Enplein volevo chiederti come si mette il codice per evidenziare due colori
diversi per output dello script ho provato cosi ma non legge niente
su un colore legge ma su due colori non va
vedi se riesci te forse e sbagliato il codice eppure mi sembra che si fa cosi
ti allego il listato script
grazie
|
| | |
