Salve, allora se Vuoi potresti aggiornarlo per avere in una sola passata tutte e 10 le Ruote:
se non hai gia' trovato da te, ho inserito lo script: Tabella4Elementi.ls Nuova:
'
' 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)
' If IndiceMensile(es) = pos Then
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
:::::::::::::: Le novita' sono che esegue anche una ricerca con Ambetti :
Ricorda di impostare da 0 a 4 il parametro Pos ! perche' all 'inizio dell'archivio corrente si ha un funzionamento Corretto !!
0409032115
