Ciao... ho la tavola settenaria ruota di Torino....
Scrivi"TAVOLA SETTENARIA RUOTA TORINO"
Sub Main()
Dim num1(5)
Dim num2(5)
Dim num3(5)
Dim num4(5)
Dim num5(5)
Dim num6(5)
Dim num7(5)
Dim num8(5)
Dim ruote(10)
Dim poste(5)
poste(1) = 0
poste(2) = 1
poste(3) = 1
poste(4) = 0
poste(5) = 0
tmp = InputBox("Quante estrazioni controllo??",,1000)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
r = 9
ruote(1) = 9
For p = 1 To 3
For p1 = p + 1 To 4
a1 = Estratto(es,r,p):a2 = Estratto(es,r,p1)
If a1 = Diametrale(a2)Then
s = Figura(a1)
If s = 1 Or s = 4 Or s = 5 Or s = 7 Or s = 8 Or s = 9 Then
If a1 = 1 Then
b1 = 13:b2 = 78:b3 = 1:b4 = 14:b5 = 90
End If
If a1 = 2 Then
b1 = 26:b2 = 65:b3 = 2:b4 = 14:b5 = 89
End If
If a1 = 3 Then
b1 = 39:b2 = 52:b3 = 3:b4 = 21:b5 = 88
End If
If a1 = 4 Then
b1 = 52:b2 = 39:b3 = 4:b4 = 28:b5 = 87
End If
If a1 = 5 Then
b1 = 65:b2 = 26:b3 = 5:b4 = 35:b5 = 86
End If
If a1 = 6 Then
b1 = 78:b2 = 13:b3 = 6:b4 = 42:b5 = 85
End If
If a1 = 7 Then
b1 = 1:b2 = 90:b3 = 7:b4 = 49:b5 = 84
End If
If a1 = 8 Then
b1 = 14:b2 = 77:b3 = 8:b4 = 56:b5 = 83
End If
If a1 = 9 Then
b1 = 27:b2 = 64:b3 = 9:b4 = 63:b5 = 82
End If
If a1 = 10 Then
b1 = 40:b2 = 51:b3 = 10:b4 = 70:b5 = 81
End If
If a1 = 11 Then
b1 = 53:b2 = 38:b3 = 11:b4 = 77:b5 = 80
End If
If a1 = 12 Then
b1 = 66:b2 = 25:b3 = 12:b4 = 84:b5 = 79
End If
If a1 = 13 Then
b1 = 79:b2 = 12:b3 = 13:b4 = 1:b5 = 78
End If
If a1 = 14 Then
b1 = 2:b2 = 89:b3 = 14:b4 = 8:b5 = 77
End If
If a1 = 15 Then
b1 = 15:b2 = 76:b3 = 15:b4 = 15:b5 = 76
End If
If a1 = 16 Then
b1 = 28:b2 = 63:b3 = 16:b4 = 22:b5 = 75
End If
If a1 = 17 Then
b1 = 41:b2 = 50:b3 = 17:b4 = 29:b5 = 74
End If
If a1 = 18 Then
b1 = 54:b2 = 37:b3 = 18:b4 = 36:b5 = 73
End If
If a1 = 19 Then
b1 = 67:b2 = 24:b3 = 19:b4 = 43:b5 = 72
End If
If a1 = 20 Then
b1 = 80:b2 = 11:b3 = 20:b4 = 50:b5 = 71
End If
If a1 = 21 Then
b1 = 3:b2 = 88:b3 = 21:b4 = 57:b5 = 70
End If
If a1 = 22 Then
b1 = 16:b2 = 75:b3 = 22:b4 = 64:b5 = 69
End If
If a1 = 23 Then
b1 = 29:b2 = 62:b3 = 23:b4 = 71:b5 = 68
End If
If a1 = 24 Then
b1 = 42:b2 = 49:b3 = 24:b4 = 78:b5 = 67
End If
If a1 = 25 Then
b1 = 55:b2 = 36:b3 = 25:b4 = 85:b5 = 66
End If
If a1 = 26 Then
b1 = 68:b2 = 23:b3 = 26:b4 = 2:b5 = 65
End If
If a1 = 27 Then
b1 = 81:b2 = 10:b3 = 27:b4 = 9:b5 = 64
End If
If a1 = 28 Then
b1 = 4:b2 = 87:b3 = 28:b4 = 16:b5 = 63
End If
If a1 = 29 Then
b1 = 17:b2 = 74:b3 = 29:b4 = 23:b5 = 62
End If
If a1 = 30 Then
b1 = 30:b2 = 61:b3 = 30:b4 = 30:b5 = 61
End If
If a1 = 31 Then
b1 = 43:b2 = 48:b3 = 31:b4 = 37:b5 = 60
End If
If a1 = 32 Then
b1 = 56:b2 = 35:b3 = 32:b4 = 44:b5 = 59
End If
If a1 = 33 Then
b1 = 69:b2 = 22:b3 = 33:b4 = 51:b5 = 58
End If
If a1 = 34 Then
b1 = 82:b2 = 9:b3 = 34:b4 = 58:b5 = 57
End If
If a1 = 35 Then
b1 = 5:b2 = 86:b3 = 35:b4 = 65:b5 = 56
End If
If a1 = 36 Then
b1 = 18:b2 = 73:b3 = 36:b4 = 72:b5 = 55
End If
If a1 = 37 Then
b1 = 31:b2 = 60:b3 = 37:b4 = 79:b5 = 54
End If
If a1 = 38 Then
b1 = 44:b2 = 47:b3 = 38:b4 = 86:b5 = 53
End If
If a1 = 39 Then
b1 = 57:b2 = 34:b3 = 39:b4 = 3:b5 = 52
End If
If a1 = 40 Then
b1 = 70:b2 = 21:b3 = 40:b4 = 10:b5 = 51
End If
If a1 = 41 Then
b1 = 83:b2 = 8:b3 = 41:b4 = 17:b5 = 50
End If
If a1 = 42 Then
b1 = 6:b2 = 85:b3 = 42:b4 = 24:b5 = 49
End If
If a1 = 43 Then
b1 = 19:b2 = 72:b3 = 43:b4 = 31:b5 = 48
End If
If a1 = 44 Then
b1 = 32:b2 = 59:b3 = 44:b4 = 38:b5 = 47
End If
If a1 = 45 Then
b1 = 45:b2 = 46:b3 = 45:b4 = 45:b5 = 46
End If
If a1 = 46 Then
b1 = 58:b2 = 33:b3 = 46:b4 = 52:b5 = 45
End If
If a1 = 47 Then
b1 = 71:b2 = 20:b3 = 47:b4 = 59:b5 = 44
End If
If a1 = 48 Then
b1 = 84:b2 = 7:b3 = 48:b4 = 66:b5 = 43
End If
If a1 = 49 Then
b1 = 7:b2 = 84:b3 = 49:b4 = 73:b5 = 42
End If
If a1 = 50 Then
b1 = 20:b2 = 71:b3 = 50:b4 = 80:b5 = 41
End If
If a1 = 51 Then
b1 = 33:b2 = 58:b3 = 51:b4 = 87:b5 = 40
End If
If a1 = 52 Then
b1 = 46:b2 = 45:b3 = 52:b4 = 4:b5 = 39
End If
If a1 = 53 Then
b1 = 59:b2 = 32:b3 = 53:b4 = 11:b5 = 38
End If
If a1 = 54 Then
b1 = 72:b2 = 19:b3 = 54:b4 = 18:b5 = 37
End If
If a1 = 55 Then
b1 = 85:b2 = 6:b3 = 55:b4 = 25:b5 = 36
End If
If a1 = 56 Then
b1 = 8:b2 = 83:b3 = 56:b4 = 32:b5 = 35
End If
If a1 = 57 Then
b1 = 21:b2 = 70:b3 = 57:b4 = 39:b5 = 34
End If
If a1 = 58 Then
b1 = 34:b2 = 57:b3 = 58:b4 = 46:b5 = 33
End If
If a1 = 59 Then
b1 = 47:b2 = 44:b3 = 59:b4 = 53:b5 = 32
End If
If a1 = 60 Then
b1 = 60:b2 = 31:b3 = 60:b4 = 60:b5 = 31
End If
If a1 = 61 Then
b1 = 73:b2 = 18:b3 = 61:b4 = 67:b5 = 30
End If
If a1 = 62 Then
b1 = 86:b2 = 5:b3 = 62:b4 = 74:b5 = 29
End If
If a1 = 63 Then
b1 = 9:b2 = 82:b3 = 63:b4 = 81:b5 = 28
End If
If a1 = 64 Then
b1 = 22:b2 = 69:b3 = 64:b4 = 88:b5 = 27
End If
If a1 = 65 Then
b1 = 35:b2 = 56:b3 = 65:b4 = 5:b5 = 26
End If
If a1 = 66 Then
b1 = 48:b2 = 43:b3 = 66:b4 = 12:b5 = 25
End If
If a1 = 67 Then
b1 = 61:b2 = 30:b3 = 67:b4 = 19:b5 = 24
End If
If a1 = 68 Then
b1 = 74:b2 = 17:b3 = 68:b4 = 26:b5 = 23
End If
If a1 = 69 Then
b1 = 87:b2 = 4:b3 = 69:b4 = 33:b5 = 22
End If
If a1 = 70 Then
b1 = 10:b2 = 81:b3 = 70:b4 = 40:b5 = 21
End If
If a1 = 71 Then
b1 = 23:b2 = 68:b3 = 71:b4 = 47:b5 = 20
End If
If a1 = 72 Then
b1 = 36:b2 = 55:b3 = 72:b4 = 54:b5 = 19
End If
If a1 = 73 Then
b1 = 49:b2 = 42:b3 = 73:b4 = 61:b5 = 18
End If
If a1 = 74 Then
b1 = 62:b2 = 29:b3 = 74:b4 = 68:b5 = 17
End If
If a1 = 75 Then
b1 = 75:b2 = 16:b3 = 75:b4 = 75:b5 = 16
End If
If a1 = 76 Then
b1 = 88:b2 = 3:b3 = 76:b4 = 82:b5 = 15
End If
If a1 = 77 Then
b1 = 11:b2 = 80:b3 = 77:b4 = 89:b5 = 14
End If
If a1 = 78 Then
b1 = 24:b2 = 67:b3 = 78:b4 = 6:b5 = 13
End If
If a1 = 79 Then
b1 = 37:b2 = 54:b3 = 79:b4 = 13:b5 = 12
End If
If a1 = 80 Then
b1 = 50:b2 = 41:b3 = 80:b4 = 20:b5 = 11
End If
If a1 = 81 Then
b1 = 63:b2 = 28:b3 = 81:b4 = 27:b5 = 10
End If
If a1 = 82 Then
b1 = 76:b2 = 15:b3 = 82:b4 = 34:b5 = 9
End If
If a1 = 83 Then
b1 = 89:b2 = 2:b3 = 83:b4 = 41:b5 = 8
End If
If a1 = 84 Then
b1 = 12:b2 = 79:b3 = 84:b4 = 48:b5 = 7
End If
If a1 = 85 Then
b1 = 25:b2 = 66:b3 = 85:b4 = 55:b5 = 6
End If
If a1 = 86 Then
b1 = 38:b2 = 53:b3 = 86:b4 = 62:b5 = 5
End If
If a1 = 87 Then
b1 = 51:b2 = 40:b3 = 87:b4 = 69:b5 = 4
End If
If a1 = 88 Then
b1 = 64:b2 = 27:b3 = 88:b4 = 76:b5 = 3
End If
If a1 = 89 Then
b1 = 77:b2 = 14:b3 = 89:b4 = 83:b5 = 2
End If
If a1 = 90 Then
b1 = 90:b2 = 1:b3 = 90:b4 = 90:b5 = 1
End If
If a2 = 1 Then
b6 = 13:b7 = 78:b8 = 1:b9 = 14:b10 = 90
End If
If a2 = 2 Then
b6 = 26:b7 = 65:b8 = 2:b9 = 14:b10 = 89
End If
If a2 = 3 Then
b6 = 39:b7 = 52:b8 = 3:b9 = 21:b10 = 88
End If
If a2 = 4 Then
b6 = 52:b7 = 39:b8 = 4:b9 = 28:b10 = 87
End If
If a2 = 5 Then
b6 = 65:b7 = 26:b8 = 5:b9 = 35:b10 = 86
End If
If a2 = 6 Then
b6 = 78:b7 = 13:b8 = 6:b9 = 42:b10 = 85
End If
If a2 = 7 Then
b6 = 1:b7 = 90:b8 = 7:b9 = 49:b10 = 84
End If
If a2 = 8 Then
b6 = 14:b7 = 77:b8 = 8:b9 = 56:b10 = 83
End If
If a2 = 9 Then
b6 = 27:b7 = 64:b8 = 9:b9 = 63:b10 = 82
End If
If a2 = 10 Then
b6 = 40:b7 = 51:b8 = 10:b9 = 70:b10 = 81
End If
If a2 = 11 Then
b6 = 53:b7 = 38:b8 = 11:b9 = 77:b10 = 80
End If
If a2 = 12 Then
b6 = 66:b7 = 25:b8 = 12:b9 = 84:b10 = 79
End If
If a2 = 13 Then
b6 = 79:b7 = 12:b8 = 13:b9 = 1:b10 = 78
End If
If a2 = 14 Then
b6 = 2:b7 = 89:b8 = 14:b9 = 8:b10 = 77
End If
If a2 = 15 Then
b6 = 15:b7 = 76:b8 = 15:b9 = 15:b10 = 76
End If
If a2 = 16 Then
b6 = 28:b7 = 63:b8 = 16:b9 = 22:b10 = 75
End If
If a2 = 17 Then
b6 = 41:b7 = 50:b8 = 17:b9 = 29:b10 = 74
End If
If a2 = 18 Then
b6 = 54:b7 = 37:b8 = 18:b9 = 36:b10 = 73
End If
If a2 = 19 Then
b6 = 67:b7 = 24:b8 = 19:b9 = 43:b10 = 72
End If
If a2 = 20 Then
b6 = 80:b7 = 11:b8 = 20:b9 = 50:b10 = 71
End If
If a2 = 21 Then
b6 = 3:b7 = 88:b8 = 21:b9 = 57:b10 = 70
End If
If a2 = 22 Then
b6 = 16:b7 = 75:b8 = 22:b9 = 64:b10 = 69
End If
If a2 = 23 Then
b6 = 29:b7 = 62:b8 = 23:b9 = 71:b10 = 68
End If
If a2 = 24 Then
b6 = 42:b7 = 49:b8 = 24:b9 = 78:b10 = 67
End If
If a2 = 25 Then
b6 = 55:b7 = 36:b8 = 25:b9 = 85:b10 = 66
End If
If a2 = 26 Then
b6 = 68:b7 = 23:b8 = 26:b9 = 2:b10 = 65
End If
If a2 = 27 Then
b6 = 81:b7 = 10:b8 = 27:b9 = 9:b10 = 64
End If
If a2 = 28 Then
b6 = 4:b7 = 87:b8 = 28:b9 = 16:b10 = 63
End If
If a2 = 29 Then
b6 = 17:b7 = 74:b8 = 29:b9 = 23:b10 = 62
End If
If a2 = 30 Then
b6 = 30:b7 = 61:b8 = 30:b9 = 30:b10 = 61
End If
If a2 = 31 Then
b6 = 43:b7 = 48:b8 = 31:b9 = 37:b10 = 60
End If
If a2 = 32 Then
b6 = 56:b7 = 35:b8 = 32:b9 = 44:b10 = 59
End If
If a2 = 33 Then
b6 = 69:b7 = 22:b8 = 33:b9 = 51:b10 = 58
End If
If a2 = 34 Then
b6 = 82:b7 = 9:b8 = 34:b9 = 58:b10 = 57
End If
If a2 = 35 Then
b6 = 5:b7 = 86:b8 = 35:b9 = 65:b10 = 56
End If
If a2 = 36 Then
b6 = 18:b7 = 73:b8 = 36:b9 = 72:b10 = 55
End If
If a2 = 37 Then
b6 = 31:b7 = 60:b8 = 37:b9 = 79:b10 = 54
End If
If a2 = 38 Then
b6 = 44:b7 = 47:b8 = 38:b9 = 86:b10 = 53
End If
If a2 = 39 Then
b6 = 57:b7 = 34:b8 = 39:b9 = 3:b10 = 52
End If
If a2 = 40 Then
b6 = 70:b7 = 21:b8 = 40:b9 = 10:b10 = 51
End If
If a2 = 41 Then
b6 = 83:b7 = 8:b8 = 41:b9 = 17:b10 = 50
End If
If a2 = 42 Then
b6 = 6:b7 = 85:b8 = 42:b9 = 24:b10 = 49
End If
If a2 = 43 Then
b6 = 19:b7 = 72:b8 = 43:b9 = 31:b10 = 48
End If
If a2 = 44 Then
b6 = 32:b7 = 59:b8 = 44:b9 = 38:b10 = 47
End If
If a2 = 45 Then
b6 = 45:b7 = 46:b8 = 45:b9 = 45:b10 = 46
End If
If a2 = 46 Then
b6 = 58:b7 = 33:b8 = 46:b9 = 52:b10 = 45
End If
If a2 = 47 Then
b6 = 71:b7 = 20:b8 = 47:b9 = 59:b10 = 44
End If
If a2 = 48 Then
b6 = 84:b7 = 7:b8 = 48:b9 = 66:b10 = 43
End If
If a2 = 49 Then
b6 = 7:b7 = 84:b8 = 49:b9 = 73:b10 = 42
End If
If a2 = 50 Then
b6 = 20:b7 = 71:b8 = 50:b9 = 80:b10 = 41
End If
If a2 = 51 Then
b6 = 33:b7 = 58:b8 = 51:b9 = 87:b10 = 40
End If
If a2 = 52 Then
b6 = 46:b7 = 45:b8 = 52:b9 = 4:b10 = 39
End If
If a2 = 53 Then
b6 = 59:b7 = 32:b8 = 53:b9 = 11:b10 = 38
End If
If a2 = 54 Then
b6 = 72:b7 = 19:b8 = 54:b9 = 18:b10 = 37
End If
If a2 = 55 Then
b6 = 85:b7 = 6:b8 = 55:b9 = 25:b10 = 36
End If
If a2 = 56 Then
b6 = 8:b7 = 83:b8 = 56:b9 = 32:b10 = 35
End If
If a2 = 57 Then
b6 = 21:b7 = 70:b8 = 57:b9 = 39:b10 = 34
End If
If a2 = 58 Then
b6 = 34:b7 = 57:b8 = 58:b9 = 46:b10 = 33
End If
If a2 = 59 Then
b6 = 47:b7 = 44:b8 = 59:b9 = 53:b10 = 32
End If
If a2 = 60 Then
b6 = 60:b7 = 31:b8 = 60:b9 = 60:b10 = 31
End If
If a2 = 61 Then
b6 = 73:b7 = 18:b8 = 61:b9 = 67:b10 = 30
End If
If a2 = 62 Then
b6 = 86:b7 = 5:b8 = 62:b9 = 74:b10 = 29
End If
If a2 = 63 Then
b6 = 9:b7 = 82:b8 = 63:b9 = 81:b10 = 28
End If
If a2 = 64 Then
b6 = 22:b7 = 69:b8 = 64:b9 = 88:b10 = 27
End If
If a2 = 65 Then
b6 = 35:b7 = 56:b8 = 65:b9 = 5:b10 = 26
End If
If a2 = 66 Then
b6 = 48:b7 = 43:b8 = 66:b9 = 12:b10 = 25
End If
If a2 = 67 Then
b6 = 61:b7 = 30:b8 = 67:b9 = 19:b10 = 24
End If
If a2 = 68 Then
b6 = 74:b7 = 17:b8 = 68:b9 = 26:b10 = 23
End If
If a2 = 69 Then
b6 = 87:b7 = 4:b8 = 69:b9 = 33:b10 = 22
End If
If a2 = 70 Then
b6 = 10:b7 = 81:b8 = 70:b9 = 40:b10 = 21
End If
If a2 = 71 Then
b6 = 23:b7 = 68:b8 = 71:b9 = 47:b10 = 20
End If
If a2 = 72 Then
b6 = 36:b7 = 55:b8 = 72:b9 = 54:b10 = 19
End If
If a2 = 73 Then
b6 = 49:b7 = 42:b8 = 73:b9 = 61:b10 = 18
End If
If a2 = 74 Then
b6 = 62:b7 = 29:b8 = 74:b9 = 68:b10 = 17
End If
If a2 = 75 Then
b6 = 75:b7 = 16:b8 = 75:b9 = 75:b10 = 16
End If
If a2 = 76 Then
b6 = 88:b7 = 3:b8 = 76:b9 = 82:b10 = 15
End If
If a2 = 77 Then
b6 = 11:b7 = 80:b8 = 77:b9 = 89:b10 = 14
End If
If a2 = 78 Then
b6 = 24:b7 = 67:b8 = 78:b9 = 6:b10 = 13
End If
If a2 = 79 Then
b6 = 37:b7 = 54:b8 = 79:b9 = 13:b10 = 12
End If
If a2 = 80 Then
b6 = 50:b7 = 41:b8 = 80:b9 = 20:b10 = 11
End If
If a2 = 81 Then
b6 = 63:b7 = 28:b8 = 81:b9 = 27:b10 = 10
End If
If a2 = 82 Then
b6 = 76:b7 = 15:b8 = 82:b9 = 34:b10 = 9
End If
If a2 = 83 Then
b6 = 89:b7 = 2:b8 = 83:b9 = 41:b10 = 8
End If
If a2 = 84 Then
b6 = 12:b7 = 79:b8 = 84:b9 = 48:b10 = 7
End If
If a2 = 85 Then
b6 = 25:b7 = 66:b8 = 85:b9 = 55:b10 = 6
End If
If a2 = 86 Then
b6 = 38:b7 = 53:b8 = 86:b9 = 62:b10 = 5
End If
If a2 = 87 Then
b6 = 51:b7 = 40:b8 = 87:b9 = 69:b10 = 4
End If
If a2 = 88 Then
b6 = 64:b7 = 27:b8 = 88:b9 = 76:b10 = 3
End If
If a2 = 89 Then
b6 = 77:b7 = 14:b8 = 89:b9 = 83:b10 = 2
End If
If a2 = 90 Then
b6 = 90:b7 = 1:b8 = 90:b9 = 90:b10 = 1
End If
cont = cont + 1
ColoreTesto 2
Scrivi "Pronostico n° " & Format2(cont) & " ----" & DataEstrazione(es) & " ---- " & _
Left(NomeRuota(r),2) & " " & StringaEstratti(es,r) & " " & Format2(a1) & "." & Format2(a2),1
ColoreTesto 0
num1(1) = b3:num1(2) = b1:num1(3) = b7:num1(4) = b9:num1(5) = b10
num2(1) = b3:num2(2) = b2:num2(3) = b6:num2(4) = b9:num2(5) = b10
num3(1) = b3:num3(2) = b4:num3(3) = b6:num3(4) = b7:num3(5) = b10
num4(1) = b3:num4(2) = b5:num4(3) = b6:num4(4) = b7:num4(5) = b9
num5(1) = b8:num5(2) = b6:num5(3) = b1:num5(4) = b4:num5(5) = b5
num6(1) = b8:num6(2) = b7:num6(3) = b1:num6(4) = b4:num6(5) = b5:
num7(1) = b8:num7(2) = b9:num7(3) = b1:num7(4) = b2:num7(5) = b5
num8(1) = b8:num8(2) = b10:num8(3) = b1:num8(4) = b2:num8(5) = b4
ImpostaGiocata 1,num1,ruote,poste,10,2
ImpostaGiocata 2,num2,ruote,poste,10,2
ImpostaGiocata 3,num3,ruote,poste,10,2
ImpostaGiocata 4,num4,ruote,poste,10,2
ImpostaGiocata 5,num5,ruote,poste,10,2
ImpostaGiocata 6,num6,ruote,poste,10,2
ImpostaGiocata 7,num7,ruote,poste,10,2
ImpostaGiocata 8,num8,ruote,poste,10,2
Gioca es',True
For x = 1 To 8
For xx = 1 To 8
ImpostaInterruzioni x,xx,2
Next
Next
Scrivi"*****************************************************************"
End If
End If
Next
Next
Next
ScriviResoconto
End Sub
2837274010
