Veramente ho risposto all'altra discussione: Link
E GRAZIE ALLA MIA TAVOLA TUTTO E POSSIBILE YESSSSSSS
Riporto la risposta prime tre righe:
Salve Mastro, ho capito cosa stai chiedendo, ma per essere sicuro ti riporto una versione aggiornata che ho preparato Gia'
ma ti premetto che la gestione dei ritardi e' Onerosa, almeno come ho risolto in mesi di salvataggi con tabella Ritardi ( 90 X 11 = 990 elementi )
l' output ho eseguito 4 estrazioni precedenti, vedi se e' chiaro:
==============
Il Nuovo Script con la modifica richiesta da MastroGino e' pronto !
'
' Script: Tabella4ElemNEW.ls - Del 25 Nov. 2025
'
'
Option Explicit
'
' CONDIZIONI aggiunti test con Vertibili e Diametrali
' -------------------- per ogni previsione dare pos = 0 - Risulteranno evidenziati i ritardi Correnti per la Ruota richiesta, di ogni estratto
'
'
Sub Main()
Dim rt(2),pt(4),n1(7),clp,Ini,fin,co,es,casi,cif,Indice,Somma,Somma_F90,R1,pos,Ind,scelta,k,es2,retnum,retvinc,ambo1(4),ambetto,ambtt,flasom
Dim tavola(90,4)
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) = 7
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
pt(1) = 1 ' 1 qui eventuale 2, 4, 8, .. montante
pt(2) = 2
pt(3) = 0.5
pt(4) = 0.5
clp = 13
rt(1) = 5 ' 5
rt(2) = 12 ' 6
R1 = 5
Ini = 10741
fin = EstrazioneFin
co = 4
pos = 0
clp = 4
ambtt = 0
flasom = 0
scelta = 1
'
pos = CInt(InputBox("Posizione precedente che vuoi trattare? ",,pos))
scelta = CInt(InputBox("Inserisci 1-3 (Originale, reversi, diametrali",,scelta))
clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",,co))
flasom = CInt(InputBox(" Vuoi impostare diversamente le Somme ( > 0) ? ",,flasom))
'
Ini = fin - (pos + 2)
For es = Ini To fin
'
Messaggio(es)
For R1 = 1 To 10
rt(1) = R1
'
If es = fin - pos Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
'
' Eseguo la somma degli Estratti, fuori90 per Posizionare nella Tavola
' Tot = 0
Somma = SommaEstratti(es,R1)
Somma_F90 = Fuori90(Somma)
n1(1) = tavola(Somma_F90,1)
n1(2) = tavola(Somma_F90,2)
n1(3) = tavola(Somma_F90,3)
n1(4) = tavola(Somma_F90,4)
Scrivi " Totale fuori90 = " & Somma_F90 & " Caso n° " & casi
Scrivi String(9,"*") & " Ruota " & NomeRuota(R1)
For Ind = 1 To 4
ambo1(Ind) = n1(Ind)
If EstrattoRitardo(R1,n1(Ind)) < pos Then
Scrivi " Numero: " & Format2(n1(Ind)) & " Sortito al N° Estrazione: " & Format2(fin - EstrattoRitardo(R1,n1(Ind))) & " Ruota: " & NomeRuota(R1),0,1,1,5
Else
Scrivi " Numero: " & Format2(n1(Ind)) & " BUONO " & " Ritardo: " & Format2(EstrattoRitardo(R1,n1(Ind))) & " Ruota: " & NomeRuota(R1),0,1,1,5
End If
Next
If flasom > 0 Then
Somma_F90 = CInt(InputBox(" Totale calcolato : ",,Somma_F90)) ' Serve SOLO per FORZARE un test di Somma DIFFERENTE - Dare invio per mantenere invariato
End If
ImpostaGiocata 1,n1,rt,pt,clp,0
If scelta = 2 Then ' analizzo Vertibili
' Vertibili Test
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))
Scrivi String(9,"*") & " Ruota " & NomeRuota(R1)
For Ind = 1 To 4
If EstrattoRitardo(R1,n1(Ind)) < pos Then
Scrivi " Numero: " & Format2(n1(Ind)) & " Sortito al N° Estrazione: " & Format2(fin - EstrattoRitardo(R1,n1(Ind))) & " Ruota: " & NomeRuota(R1),0,1,1,5
Else
Scrivi " Numero: " & Format2(n1(Ind)) & " BUONO " & " Ritardo: " & Format2(EstrattoRitardo(R1,n1(Ind))) & " Ruota: " & NomeRuota(R1),0,1,1,5
End If
Next
ImpostaGiocata 2,n1,rt,pt,clp,0
End If
If scelta = 3 Then ' analizzo Diametrali
' Diametrali Test
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))
Scrivi String(9,"*") & " Ruota " & NomeRuota(R1)
For Ind = 1 To 4
If EstrattoRitardo(R1,n1(Ind)) < pos Then
Scrivi " Numero: " & Format2(n1(Ind)) & " Sortito al N° Estrazione: " & Format2(fin - EstrattoRitardo(R1,n1(Ind))) & " Ruota: " & NomeRuota(R1),0,1,1,5
Else
Scrivi " Numero: " & Format2(n1(Ind)) & " BUONO " & " Ritardo: " & Format2(EstrattoRitardo(R1,n1(Ind))) & " Ruota: " & NomeRuota(R1),0,1,1,5
End If
Next
ImpostaGiocata 3,n1,rt,pt,clp,0
End If ' Solo tavola Originale
Gioca es,,,1
' End If ' Nidifica ambetto
' Next ' Nidificato per Ambetti
If scelta = 1 Then
' --- Verifica Ambetti SOLO su MI e NZ (come richiesto) ---
Scrivi Space(20) & "VERIFICA AMBETTI - Bari - NZ: ",1,,,2
For clp = 1 To pos
es2 = es + clp
If es2 > fin Then Exit For
' ? Ruote per ambetto: BA, NZ
' Ruo1(1) = 1 : Ruo1(2) = 12
' --- Prima terzina: Ba e NZ ---
ambetto = VerificaAmbetto(ambo1,R1,es2,retnum,retvinc)
If ambetto > 0 Then
Scrivi " Ambetto : " & retnum & " del " & DataEstrazione(es2),1
Scrivi " Vincita: " & retvinc & "x",1
' End If
ambtt = ambtt + 1
Scrivi " Es: " & es2
Scrivi " Amb: " & ambetto
Scrivi " Estr. 1: " & ambo1(1)
Scrivi " Estr. 2: " & ambo1(2)
Scrivi " Estr. 3: " & ambo1(3)
Scrivi " Estr. 4: " & ambo1(4)
End If ' Nidificato Test !!
Next
End If ' if scelta
End If
Next
Next
Scrivi : Scrivi "Casi Rilevati Ambetti " & CInt(ambtt)
ScriviResoconto
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
Scrivi TempoTrascorso
End Sub
