|
|
| Spero di farvi cosa gradita, lo Script effettua il calcolo delle previsioni per la ruota di NA ma potete a vostro piacimento modificare, basta sostituire l'indice, ed avrete la possibilitą di verificarne il risultato anche sulle altre ruote. La mia preferita č FIRENZE. PS OKKI, io lo metto qui spero vada bene visto che il POST sulle tavole č tuo. 'Tavole di Agrippa su FIRENZE
Scrivi "=============== Tavole di Agrippa su FIRENZE ================"
Scrivi "=============== =By Giacomone =="
Scrivi "================================================================"
Sub main()
Dim nu1(10)
Dim ruote(10),ruota(10)
Dim poste(10)
Dim G(5)
Poste(1)=1
Poste(2)=1
Poste(3)=.5
Poste(4)=.5
Poste(6)=1
Poste(7)=1
Poste(8)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
If IndiceMensile(es)=1 Then '(Alla prima del Mese)
AvanzamentoElab ini,fin,es
'Seleziona Tavola
Select Case Mese(es)
Case 1
G(1)=19:G(2)=27:G(3)=42:G(4)=88:G(5)=16
Case 2
G(1)=75:G(2)=90:G(3)=60:G(4)=01:G(5)=56
Case 3
G(1)=45:G(2)=03:G(3)=89:G(4)=66:G(5)=18
Case 4
G(1)=07:G(2)=04:G(3)=57:G(4)=75:G(5)=81
Case 5
G(1)=75:G(2)=45:G(3)=47:G(4)=80:G(5)=17
Case 6
G(1)=13:G(2)=51:G(3)=62:G(4)=70:G(5)=82
Case 7
G(1)=34:G(2)=10:G(3)=69:G(4)=45:G(5)=19
Case 8
G(1)=01:G(2)=09:G(3)=75:G(4)=51:G(5)=63
Case 9
G(1)=06:G(2)=46:G(3)=59:G(4)=90:G(5)=66
Case 10
G(1)=01:G(2)=90:G(3)=63:G(4)=17:G(5)=14
Case 11
G(1)=17:G(1)=77:G(1)=82:G(1)=51:G(1)=05
Case 12
G(1)=72:G(1)=74:G(1)=90:G(1)=02:G(1)=07
End Select
co=0
For r1=3 To 3
If r1=11 Then r1=12
Scrivi "Estrazione : " & es & "< "&siglaRuota(r1)& " > " & G(1) & "." &G(2) & "." &G(3) & "." &G(4) & "." &G(5)
ruote(1)=r1:k=9:ruota(1)=11
co=co+1
ImpostaGiocata co,G,ruote,poste,k
Next
End If
Gioca es
Next
ScriviResoconto
Scrivi "=============== Tavole di Agrippa su FIRENZE ================"
Scrivi "=============== =By Giacomone =="
Scrivi "================================================================"
End Sub |
| | |
