prova questo lievemente modificato:
Option Explicit
'---------------------------------------------------------------------------------
' SCRIPT PER SPAZIOMETRIA: Analisi Tavola Numerica con Vertibili, Diametrali e Ambetti
'---------------------------------------------------------------------------------
Sub Main()
Dim rt(2),pt(4),n1(7),clp,Ini,fin,co,es,casi,Somma,Somma_F90,R1,pos,Ind,scelta,es2,retnum,retvinc,ambo1(4),ambtt,flasom
Dim tavola(90,4)
' --- Caricamento Tavola ---
tavola(1,1) = 45 : tavola(1,2) = 38 : tavola(1,3) = 37 : tavola(1,4) = 46
tavola(2,1) = 79 : tavola(2,2) = 67 : tavola(2,3) = 65 : tavola(2,4) = 81
tavola(3,1) = 23 : tavola(3,2) = 06 : tavola(3,3) = 03 : tavola(3,4) = 26
tavola(4,1) = 57 : tavola(4,2) = 35 : tavola(4,3) = 31 : tavola(4,4) = 61
tavola(5,1) = 01 : tavola(5,2) = 64 : tavola(5,3) = 59 : tavola(5,4) = 06
tavola(6,1) = 35 : tavola(6,2) = 03 : tavola(6,3) = 87 : tavola(6,4) = 41
tavola(7,1) = 69 : tavola(7,2) = 32 : tavola(7,3) = 25 : tavola(7,4) = 76
tavola(8,1) = 13 : tavola(8,2) = 61 : tavola(8,3) = 53 : tavola(8,4) = 21
tavola(9,1) = 47 : tavola(9,2) = 90 : tavola(9,3) = 81 : tavola(9,4) = 56
tavola(10,1) = 81 : tavola(10,2) = 29 : tavola(10,3) = 19 : tavola(10,4) = 01
tavola(11,1) = 24 : tavola(11,2) = 47 : tavola(11,3) = 36 : tavola(11,4) = 25
tavola(12,1) = 48 : tavola(12,2) = 76 : tavola(12,3) = 64 : tavola(12,4) = 60
tavola(13,1) = 08 : tavola(13,2) = 15 : tavola(13,3) = 02 : tavola(13,4) = 05
tavola(14,1) = 26 : tavola(14,2) = 44 : tavola(14,3) = 30 : tavola(14,4) = 40
tavola(15,1) = 60 : tavola(15,2) = 73 : tavola(15,3) = 58 : tavola(15,4) = 75
tavola(16,1) = 04 : tavola(16,2) = 12 : tavola(16,3) = 86 : tavola(16,4) = 20
tavola(17,1) = 38 : tavola(17,2) = 41 : tavola(17,3) = 24 : tavola(17,4) = 55
tavola(18,1) = 72 : tavola(18,2) = 70 : tavola(18,3) = 52 : tavola(18,4) = 90
tavola(19,1) = 16 : tavola(19,2) = 09 : tavola(19,3) = 80 : tavola(19,4) = 35
tavola(20,1) = 50 : tavola(20,2) = 38 : tavola(20,3) = 18 : tavola(20,4) = 70
tavola(21,1) = 73 : tavola(21,2) = 56 : tavola(21,3) = 35 : tavola(21,4) = 04
tavola(22,1) = 17 : tavola(22,2) = 85 : tavola(22,3) = 63 : tavola(22,4) = 39
tavola(23,1) = 51 : tavola(23,2) = 24 : tavola(23,3) = 01 : tavola(23,4) = 74
tavola(24,1) = 85 : tavola(24,2) = 53 : tavola(24,3) = 29 : tavola(24,4) = 19
tavola(25,1) = 29 : tavola(25,2) = 82 : tavola(25,3) = 57 : tavola(25,4) = 54
tavola(26,1) = 63 : tavola(26,2) = 21 : tavola(26,3) = 85 : tavola(26,4) = 89
tavola(27,1) = 07 : tavola(27,2) = 50 : tavola(27,3) = 23 : tavola(27,4) = 34
tavola(28,1) = 41 : tavola(28,2) = 79 : tavola(28,3) = 51 : tavola(28,4) = 69
tavola(29,1) = 75 : tavola(29,2) = 18 : tavola(29,3) = 79 : tavola(29,4) = 14
tavola(30,1) = 19 : tavola(30,2) = 47 : tavola(30,3) = 17 : tavola(30,4) = 49
tavola(31,1) = 42 : tavola(31,2) = 65 : tavola(31,3) = 34 : tavola(31,4) = 73
tavola(32,1) = 76 : tavola(32,2) = 04 : tavola(32,3) = 62 : tavola(32,4) = 18
tavola(33,1) = 20 : tavola(33,2) = 33 : tavola(33,3) = 90 : tavola(33,4) = 53
tavola(34,1) = 54 : tavola(34,2) = 62 : tavola(34,3) = 28 : tavola(34,4) = 88
tavola(35,1) = 88 : tavola(35,2) = 01 : tavola(35,3) = 56 : tavola(35,4) = 33
tavola(36,1) = 32 : tavola(36,2) = 30 : tavola(36,3) = 84 : tavola(36,4) = 68
tavola(37,1) = 66 : tavola(37,2) = 59 : tavola(37,3) = 22 : tavola(37,4) = 13
tavola(38,1) = 10 : tavola(38,2) = 88 : tavola(38,3) = 50 : tavola(38,4) = 48
tavola(39,1) = 44 : tavola(39,2) = 27 : tavola(39,3) = 78 : tavola(39,4) = 83
tavola(40,1) = 78 : tavola(40,2) = 56 : tavola(40,3) = 16 : tavola(40,4) = 80
tavola(41,1) = 11 : tavola(41,2) = 74 : tavola(41,3) = 33 : tavola(41,4) = 52
tavola(42,1) = 45 : tavola(42,2) = 13 : tavola(42,3) = 61 : tavola(42,4) = 87
tavola(43,1) = 79 : tavola(43,2) = 42 : tavola(43,3) = 89 : tavola(43,4) = 32
tavola(44,1) = 23 : tavola(44,2) = 71 : tavola(44,3) = 27 : tavola(44,4) = 67
tavola(45,1) = 77 : tavola(45,2) = 10 : tavola(45,3) = 55 : tavola(45,4) = 32
tavola(46,1) = 01 : tavola(46,2) = 39 : tavola(46,3) = 83 : tavola(46,4) = 47
tavola(47,1) = 35 : tavola(47,2) = 68 : tavola(47,3) = 21 : tavola(47,4) = 82
tavola(48,1) = 69 : tavola(48,2) = 07 : tavola(48,3) = 49 : tavola(48,4) = 27
tavola(49,1) = 13 : tavola(49,2) = 36 : tavola(49,3) = 77 : tavola(49,4) = 62
tavola(50,1) = 47 : tavola(50,2) = 65 : tavola(50,3) = 15 : tavola(50,4) = 07
tavola(51,1) = 70 : tavola(51,2) = 83 : tavola(51,3) = 32 : tavola(51,4) = 31
tavola(52,1) = 14 : tavola(52,2) = 22 : tavola(52,3) = 60 : tavola(52,4) = 66
tavola(53,1) = 48 : tavola(53,2) = 51 : tavola(53,3) = 88 : tavola(53,4) = 11
tavola(54,1) = 82 : tavola(54,2) = 80 : tavola(54,3) = 26 : tavola(54,4) = 49
tavola(55,1) = 26 : tavola(55,2) = 19 : tavola(55,3) = 54 : tavola(55,4) = 81
tavola(56,1) = 60 : tavola(56,2) = 48 : tavola(56,3) = 82 : tavola(56,4) = 06
tavola(57,1) = 04 : tavola(57,2) = 77 : tavola(57,3) = 20 : tavola(57,4) = 61
tavola(58,1) = 38 : tavola(58,2) = 16 : tavola(58,3) = 48 : tavola(58,4) = 06
tavola(59,1) = 72 : tavola(59,2) = 45 : tavola(59,3) = 76 : tavola(59,4) = 41
tavola(60,1) = 16 : tavola(60,2) = 74 : tavola(60,3) = 14 : tavola(60,4) = 76
tavola(61,1) = 39 : tavola(61,2) = 02 : tavola(61,3) = 31 : tavola(61,4) = 10
tavola(62,1) = 73 : tavola(62,2) = 31 : tavola(62,3) = 59 : tavola(62,4) = 45
tavola(63,1) = 17 : tavola(63,2) = 60 : tavola(63,3) = 87 : tavola(63,4) = 80
tavola(64,1) = 51 : tavola(64,2) = 89 : tavola(64,3) = 25 : tavola(64,4) = 52
tavola(65,1) = 85 : tavola(65,2) = 28 : tavola(65,3) = 53 : tavola(65,4) = 60
tavola(66,1) = 29 : tavola(66,2) = 57 : tavola(66,3) = 81 : tavola(66,4) = 05
tavola(67,1) = 63 : tavola(67,2) = 86 : tavola(67,3) = 19 : tavola(67,4) = 40
tavola(68,1) = 07 : tavola(68,2) = 25 : tavola(68,3) = 47 : tavola(68,4) = 75
tavola(69,1) = 41 : tavola(69,2) = 54 : tavola(69,3) = 75 : tavola(69,4) = 20
tavola(70,1) = 75 : tavola(70,2) = 83 : tavola(70,3) = 13 : tavola(70,4) = 55
tavola(71,1) = 08 : tavola(71,2) = 11 : tavola(71,3) = 30 : tavola(71,4) = 79
tavola(72,1) = 42 : tavola(72,2) = 40 : tavola(72,3) = 58 : tavola(72,4) = 24
tavola(73,1) = 76 : tavola(73,2) = 69 : tavola(73,3) = 86 : tavola(73,4) = 59
tavola(74,1) = 20 : tavola(74,2) = 08 : tavola(74,3) = 24 : tavola(74,4) = 04
tavola(75,1) = 54 : tavola(75,2) = 37 : tavola(75,3) = 52 : tavola(75,4) = 39
tavola(76,1) = 88 : tavola(76,2) = 66 : tavola(76,3) = 80 : tavola(76,4) = 74
tavola(77,1) = 32 : tavola(77,2) = 05 : tavola(77,3) = 18 : tavola(77,4) = 19
tavola(78,1) = 66 : tavola(78,2) = 34 : tavola(78,3) = 46 : tavola(78,4) = 54
tavola(79,1) = 10 : tavola(79,2) = 63 : tavola(79,3) = 74 : tavola(79,4) = 89
tavola(80,1) = 44 : tavola(80,2) = 02 : tavola(80,3) = 12 : tavola(80,4) = 34
tavola(81,1) = 43 : tavola(81,2) = 20 : tavola(81,3) = 29 : tavola(81,4) = 38
tavola(82,1) = 81 : tavola(82,2) = 49 : tavola(82,3) = 57 : tavola(82,4) = 73
tavola(83,1) = 35 : tavola(83,2) = 78 : tavola(83,3) = 85 : tavola(83,4) = 28
tavola(84,1) = 59 : tavola(84,2) = 17 : tavola(84,3) = 23 : tavola(84,4) = 53
tavola(85,1) = 03 : tavola(85,2) = 46 : tavola(85,3) = 51 : tavola(85,4) = 88
tavola(86,1) = 37 : tavola(86,2) = 75 : tavola(86,3) = 79 : tavola(86,4) = 33
tavola(87,1) = 71 : tavola(87,2) = 14 : tavola(87,3) = 17 : tavola(87,4) = 68
tavola(88,1) = 15 : tavola(88,2) = 43 : tavola(88,3) = 45 : tavola(88,4) = 34
tavola(89,1) = 49 : tavola(89,2) = 72 : tavola(89,3) = 73 : tavola(89,4) = 48
tavola(90,1) = 83 : tavola(90,2) = 11 : tavola(90,3) = 38 : tavola(90,4) = 19
' --- Impostazioni ---
pt(1) = 1 : pt(2) = 1.5 : pt(3) = 0.5 : pt(4) = 0.5 ' Posta per Estratto/Ambo/Ambetto
pos = 0 : scelta = 1 : co = 9 : flasom = 0
pos = CInt(InputBox("Indice estrazione da analizzare (0=ultima, 1=penultima, ecc.)", "Analisi", pos))
scelta = CInt(InputBox("Scegli: 1=Originale, 2=Vertibili, 3=Diametrali", "Metodologia", scelta))
co = CInt(InputBox("Quanti colpi di gioco?", "Colpi", co))
flasom = CInt(InputBox("Vuoi forzare manualmente la somma Fuori90? (1=Sì, 0=No)", "Forza Somma", flasom))
fin = EstrazioneFin
Ini = fin - (pos + 1)
ambtt = 0
For es = Ini To fin
If es = fin - pos Then
For R1 = 1 To 10
casi = casi + 1
Scrivi String(80, "=") & " Caso n° " & casi, 1
Somma = SommaEstratti(es, R1)
Somma_F90 = Fuori90(Somma)
If flasom > 0 Then
Somma_F90 = CInt(InputBox("Totale calcolato " & Somma_F90 & ". Inserisci nuova somma:", "Forzatura", Somma_F90))
End If
' Selezione numeri in base alla scelta
If scelta = 1 Then
n1(1) = tavola(Somma_F90, 1) : n1(2) = tavola(Somma_F90, 2)
n1(3) = tavola(Somma_F90, 3) : n1(4) = tavola(Somma_F90, 4)
ElseIf scelta = 2 Then
n1(1) = Vert(tavola(Somma_F90, 1)) : n1(2) = Vert(tavola(Somma_F90, 2))
n1(3) = Vert(tavola(Somma_F90, 3)) : n1(4) = Vert(tavola(Somma_F90, 4))
ElseIf scelta = 3 Then
n1(1) = Diametrale(tavola(Somma_F90, 1)) : n1(2) = Diametrale(tavola(Somma_F90, 2))
n1(3) = Diametrale(tavola(Somma_F90, 3)) : n1(4) = Diametrale(tavola(Somma_F90, 4))
End If
' Output informativo
Scrivi "Data: " & DataEstrazione(es) & " | Ruota: " & NomeRuota(R1) & " | Somma F90: " & Somma_F90, 1
Scrivi "Numeri in gioco: " & StringaNumeri(n1)
For Ind = 1 To 4
ambo1(Ind) = n1(Ind) ' Carica per verifica ambetto
If EstrattoRitardo(R1, n1(Ind)) < pos Then
Scrivi " Numero: " & Format2(n1(Ind)) & " uscito di recente (Rit: " & EstrattoRitardo(R1, n1(Ind)) & ")", 0, 1, vbRed
Else
Scrivi " Numero: " & Format2(n1(Ind)) & " BUONO - Ritardo: " & EstrattoRitardo(R1, n1(Ind)), 0, 1, vbBlue
End If
Next
' Giocata
rt(1) = R1 : rt(2) = 12 ' Ruota R1 e Nazionale
ImpostaGiocata 1, n1, rt, pt, co
' Verifica Ambetti (Analisi rapida nel report)
If scelta = 1 Then
For es2 = es + 1 To es + co
If es2 <= EstrazioneFin Then
retvinc = VerificaAmbetto(ambo1, R1, es2, retnum, retvinc)
If retvinc > 0 Then
Scrivi " >>> TROVATO AMBETTO: " & retnum & " in data " & DataEstrazione(es2), 1, 1, vbMagenta
ambtt = ambtt + 1
End If
End If
Next
End If
Gioca es, True ' Mostra il report della giocata
Next
End If
Next
ScriviResoconto
Scrivi "Casi totali Ambetti rilevati: " & ambtt, 1
Scrivi "Tempo trascorso: " & TempoTrascorso
End Sub