TAVOLA SETTENARIA

Sub main()
Dim ruota(2)
Dim numeri(5),numeri1(5),numeri2(5),amb(5)
Dim posta(2)
Dim poste(2),postee(5)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
es=InputBox("Quante estrazioni vuoi analizzare?","TABELLA SETTENARIA",162)
im=InputBox("1° Pronostico dall'estrazione mensile numero? (0=ultima estrazione)","TABELLA SETTENARIA",1)
p1=InputBox("2° Considerare il numero in quale posizione? (1°..2°..3°..4°..5°)","TABELLA SETTENARIA",1)

y=InputBox("3° Vuoi fare il gioco con il vertibile?? SI o NO? SCRIVI...1...per SI SCRIVI...2...per NO","TABELLA SETTENARIA",1)
cp=InputBox("Per quanti colpi vuoi giocare?","TABELLA SETTENARIA",12)
r=ScegliRuota
ruota(1)=r
'ruota(2)=11
ini=EstrazioneFin-eval(es)
fin=EstrazioneFin
For n=ini To fin

Messaggio DataEstrazione (n)

If(((eval(im)=0)And(n=fin))Or((IndiceMensile(n)=eval(im)And(eval(im)>0))Or((IndiceMensile(n+1)=1)And(eval(im)=0))))Then

If y=1 Then n1=Vert(Estratto(n,r,p1))
If y=2 Then n1=Estratto(n,r,p1)



casi=casi+1:

Scrivi
Scrivi
ColoreTesto 2 :Scrivi " *********************** Previsione ricavata alla "&(im)&"°estrazione del mese ************************* ",1
ColoreTesto 9
Scrivi
Scrivi String(44,"=")&" TABELLA SETTENARIA ==========================",1
Scrivi DataEstrazione(n,1)&" [ "&siglaRuota(r)& " - "&StringaEstratti(n,r)&" ] [ "&_
Format2(n1)&" ] numero o vertibile del numero in "&(p1)&"°Posizione",1
ColoreTesto 0
Scrivi String(70,"-")
If n1 =1 Then amb(1)=7:amb(2)=13:amb(3)=78:amb(4)=90
If n1 =2 Then amb(1)=14:amb(2)=26:amb(3)=65:amb(4)=89
If n1 =3 Then amb(1)=21:amb(2)=39:amb(3)=52:amb(4)=88
If n1 =4 Then amb(1)=28:amb(2)=52:amb(3)=39:amb(4)=87
If n1 =5 Then amb(1)=35:amb(2)=65:amb(3)=26:amb(4)=86
If n1 =6 Then amb(1)=42:amb(2)=78:amb(3)=13:amb(4)=85
If n1 =7 Then amb(1)=49:amb(2)=1:amb(3)=90:amb(4)=84
If n1 =8 Then amb(1)=56:amb(2)=14:amb(3)=77:amb(4)=83
If n1 =9 Then amb(1)=63:amb(2)=27:amb(3)=64:amb(4)=82
If n1 =10 Then amb(1)=70:amb(2)=40:amb(3)=51:amb(4)=81
If n1 =11 Then amb(1)=77:amb(2)=53:amb(3)=38:amb(4)=80
If n1 =12 Then amb(1)=84:amb(2)=66:amb(3)=25:amb(4)=79
If n1 =13 Then amb(1)=1:amb(2)=79:amb(3)=12:amb(4)=78
If n1 =14 Then amb(1)=8:amb(2)=2:amb(3)=89:amb(4)=77
If n1 =15 Then amb(1)=15:amb(2)=15:amb(3)=76:amb(4)=76
If n1 =16 Then amb(1)=22:amb(2)=28:amb(3)=63:amb(4)=75
If n1 =17 Then amb(1)=29:amb(2)=41:amb(3)=50:amb(4)=74
If n1 =18 Then amb(1)=36:amb(2)=54:amb(3)=37:amb(4)=73
If n1 =19 Then amb(1)=43:amb(2)=67:amb(3)=24:amb(4)=72
If n1 =20 Then amb(1)=50:amb(2)=11:amb(3)=11:amb(4)=71
If n1 =21 Then amb(1)=57:amb(2)=3:amb(3)=88:amb(4)=70
If n1 =22 Then amb(1)=64:amb(2)=16:amb(3)=75:amb(4)=69
If n1 =23 Then amb(1)=71:amb(2)=29:amb(3)=62:amb(4)=68
If n1 =24 Then amb(1)=78:amb(2)=42:amb(3)=49:amb(4)=67
If n1 =25 Then amb(1)=85:amb(2)=55:amb(3)=36:amb(4)=66
If n1 =26 Then amb(1)=2:amb(2)=68:amb(3)=23:amb(4)=65
If n1 =27 Then amb(1)=9:amb(2)=81:amb(3)=10:amb(4)=64
If n1 =28 Then amb(1)=16:amb(2)=4:amb(3)=87:amb(4)=63
If n1 =29 Then amb(1)=23:amb(2)=17:amb(3)=74:amb(4)=62
If n1 =30 Then amb(1)=30:amb(2)=30:amb(3)=61:amb(4)=61
If n1 =31 Then amb(1)=37:amb(2)=43:amb(3)=48:amb(4)=60
If n1 =32 Then amb(1)=44:amb(2)=56:amb(3)=35:amb(4)=59
If n1 =33 Then amb(1)=51:amb(2)=69:amb(3)=22:amb(4)=58
If n1 =34 Then amb(1)=58:amb(2)=82:amb(3)=9:amb(4)=57
If n1 =35 Then amb(1)=65:amb(2)=5:amb(3)=86:amb(4)=56
If n1 =36 Then amb(1)=72:amb(2)=18:amb(3)=73:amb(4)=55
If n1 =37 Then amb(1)=79:amb(2)=31:amb(3)=60:amb(4)=54
If n1 =38 Then amb(1)=86:amb(2)=44:amb(3)=47:amb(4)=53
If n1 =39 Then amb(1)=3:amb(2)=57:amb(3)=34:amb(4)=52
If n1 =40 Then amb(1)=10:amb(2)=70:amb(3)=21:amb(4)=51
If n1 =41 Then amb(1)=17:amb(2)=83:amb(3)=8:amb(4)=50
If n1 =42 Then amb(1)=24:amb(2)=6:amb(3)=85:amb(4)=49
If n1 =43 Then amb(1)=31:amb(2)=19:amb(3)=72:amb(4)=48
If n1 =44 Then amb(1)=38:amb(2)=32:amb(3)=59:amb(4)=47
If n1 =45 Then amb(1)=45:amb(2)=45:amb(3)=46:amb(4)=46
If n1 =46 Then amb(1)=52:amb(2)=58:amb(3)=33:amb(4)=45
If n1 =47 Then amb(1)=59:amb(2)=71:amb(3)=20:amb(4)=44
If n1 =48 Then amb(1)=66:amb(2)=84:amb(3)=7:amb(4)=43
If n1 =49 Then amb(1)=73:amb(2)=7:amb(3)=84:amb(4)=42
If n1 =50 Then amb(1)=80:amb(2)=20:amb(3)=71:amb(4)=41
If n1 =51 Then amb(1)=87:amb(2)=33:amb(3)=58:amb(4)=40
If n1 =52 Then amb(1)=4:amb(2)=46:amb(3)=45:amb(4)=39
If n1 =53 Then amb(1)=11:amb(2)=59:amb(3)=32:amb(4)=38
If n1 =54 Then amb(1)=18:amb(2)=72:amb(3)=19:amb(4)=37
If n1 =55 Then amb(1)=25:amb(2)=85:amb(3)=6:amb(4)=36
If n1 =56 Then amb(1)=32:amb(2)=8:amb(3)=83:amb(4)=35
If n1 =57 Then amb(1)=39:amb(2)=21:amb(3)=70:amb(4)=34
If n1 =58 Then amb(1)=46:amb(2)=34:amb(3)=57:amb(4)=33
If n1 =59 Then amb(1)=53:amb(2)=47:amb(3)=44:amb(4)=32
If n1 =60 Then amb(1)=60:amb(2)=31
If n1 =61 Then amb(1)=67:amb(2)=73:amb(3)=18:amb(4)=30
If n1 =62 Then amb(1)=74:amb(2)=86:amb(3)=5:amb(4)=29
If n1 =63 Then amb(1)=81:amb(2)=9:amb(3)=82:amb(4)=28
If n1 =64 Then amb(1)=88:amb(2)=22:amb(3)=69:amb(4)=27
If n1 =65 Then amb(1)=5:amb(2)=35:amb(3)=56:amb(4)=26
If n1 =66 Then amb(1)=12:amb(2)=48:amb(3)=43:amb(4)=25
If n1 =67 Then amb(1)=19:amb(2)=61:amb(3)=30:amb(4)=24
If n1 =68 Then amb(1)=26:amb(2)=74:amb(3)=17:amb(4)=23
If n1 =69 Then amb(1)=33:amb(2)=87:amb(3)=4:amb(4)=22
If n1 =70 Then amb(1)=40:amb(2)=10:amb(3)=81:amb(4)=21
If n1 =71 Then amb(1)=47:amb(2)=23:amb(3)=68:amb(4)=20
If n1 =72 Then amb(1)=54:amb(2)=36:amb(3)=55:amb(4)=19
If n1 =73 Then amb(1)=61:amb(2)=49:amb(3)=42:amb(4)=18
If n1 =74 Then amb(1)=68:amb(2)=62:amb(3)=29:amb(4)=17
If n1 =75 Then amb(1)=75:amb(2)=75:amb(3)=16:amb(4)=16
If n1 =76 Then amb(1)=82:amb(2)=88:amb(3)=3:amb(4)=15
If n1 =77 Then amb(1)=89:amb(2)=11:amb(3)=80:amb(4)=14
If n1 =78 Then amb(1)=6:amb(2)=24:amb(3)=67:amb(4)=13
If n1 =79 Then amb(1)=13:amb(2)=37:amb(3)=54:amb(4)=12
If n1 =80 Then amb(1)=20:amb(2)=50:amb(3)=41:amb(4)=11
If n1 =81 Then amb(1)=27:amb(2)=63:amb(3)=28:amb(4)=10
If n1 =82 Then amb(1)=34:amb(2)=76:amb(3)=15:amb(4)=9
If n1 =83 Then amb(1)=41:amb(2)=89:amb(3)=2:amb(4)=8
If n1 =84 Then amb(1)=48:amb(2)=12:amb(3)=79:amb(4)=7
If n1 =85 Then amb(1)=55:amb(2)=25:amb(3)=66:amb(4)=6
If n1 =86 Then amb(1)=62:amb(2)=38:amb(3)=53:amb(4)=5
If n1 =87 Then amb(1)=69:amb(2)=51:amb(3)=40:amb(4)=4
If n1 =88 Then amb(1)=76:amb(2)=64:amb(3)=27:amb(4)=3
If n1 =89 Then amb(1)=83:amb(2)=77:amb(3)=14:amb(4)=2
If n1 =90 Then amb(1)=90:amb(2)=90:amb(3)=1:amb(4)=1
ruota(1)=r:co=0



numeri1(1)=amb(1)
numeri1(2)=amb(2)

ImpostaGiocata 1,numeri1,ruota,poste,eval(cp),2

numeri1(1)=amb(1)
numeri1(2)=amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,eval(cp),3

numeri1(1)=amb(1)
numeri1(2)=amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,eval(cp),3
numeri1(1)=amb(2)
numeri1(2)=amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,eval(cp),3
numeri1(1)=amb(2)
numeri1(2)=amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,eval(cp),3
numeri1(1)=amb(3)
numeri1(2)=amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,eval(cp),3
numeri2(1)=amb(1)
numeri2(2)=amb(2)
numeri2(3)=amb(3)
numeri2(4)=amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,eval(cp),4

Gioca n

End If

Next

Scrivi

ScriviResoconto
ColoreTesto 2
Scrivi "================================================TABELLA SETTENARIA ",1
Scrivi "================================================Listato DjNomade",1
ColoreTesto 0

End Sub