R
Roby
Guest
Ciao Daniel, questo e' un tuo listato che calcola i 90 quadratini della tavola settenaria e siccome l'argomento mi affascina da molto tempo mi e' venuta un 'idea un po' originale
.....vengo al dunque:
si potrebbe modificare il listato con opzioni :
1) per quale estrazione del mese estraggo i 2 quadratini casuali tra i 90?
2) su quale ruota estraggo i 2 quadratini tra i 90 ?
Siccome possiedo una certa sensitivita' dalla nascita[:I]..volevo sfrutarla anche a vostro favore estraendo per me e tutti voi una previsione con questo tipo di metodo originale...che ne pensi Daniel
..si puo' fare?
Sub main()
For x=1 To 90
a=Fuori90(x*13)
b=91-a
c=Fuori90(x*7)
d=91-x
Scrivi Format2(a)&" "&Format2(b),True
ColoreTesto 1
Scrivi " "&Format2(x)&" <----numero centrale",True
ColoreTesto 0
Scrivi Format2(c)&" "&Format2(d),True
Scrivi"------"
Next
End Sub

si potrebbe modificare il listato con opzioni :
1) per quale estrazione del mese estraggo i 2 quadratini casuali tra i 90?
2) su quale ruota estraggo i 2 quadratini tra i 90 ?
Siccome possiedo una certa sensitivita' dalla nascita[:I]..volevo sfrutarla anche a vostro favore estraendo per me e tutti voi una previsione con questo tipo di metodo originale...che ne pensi Daniel

Sub main()
For x=1 To 90
a=Fuori90(x*13)
b=91-a
c=Fuori90(x*7)
d=91-x
Scrivi Format2(a)&" "&Format2(b),True
ColoreTesto 1
Scrivi " "&Format2(x)&" <----numero centrale",True
ColoreTesto 0
Scrivi Format2(c)&" "&Format2(d),True
Scrivi"------"
Next
End Sub