|
|
| 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
|
| |