E RARO CHE SI VEDE UN TERNO SECCO SU RUOTA E ACOLPO QUI.......SI !!!!!

[mastrogino]

Salve Mastro, ho esaminato anche MI ( sabato la somma era 27 ), hai visto quasi TERNO ( 34, 23 E 51 AL POSTO DI 50 ! )

Estrazione generatrice del pronostico 10756 [187 - 22/11/2025]
G 0001 Numeri in gioco : 07.50.23.34 su MI NZ per Estratto,Ambo,Terno,Quaterna

Ho notato che alcuni sviluppi di questa Tavola, sono combinare anche i Vertibili e i Diametrali:
inoltre ho trovato che da programmi simili la tavola usata e' di 5 elementi al posto di 4, ti risulta anche che viene usata ?
Buona giornata e Grazie per l'attenzione

SI DOVREI AVERE ANCHE LA VERSIONE DEI 5 NUMERI , DA QUALCHE PARTE .........TI CHIEDO INVECE HO NOTATO CHE HAI FATTO IL LISTATO , LO POTRESTI GIRARLO X TUTTI ? SAREBBE GRADITA
GRAZIE .
PS
QUESTA SETTIMANA HO IL TURNO POMERIDIANO NELLA PROX
TROVERO IL TEMPO EVVENTUALMENTE VI POSTERO LA TAVOLA CON I NUMERI E QUALCHE METODINO , AI TEMPI STUDIATO

 

[mastrogino]

Salve Mastro, ho esaminato anche MI ( sabato la somma era 27 ), hai visto quasi TERNO ( 34, 23 E 51 AL POSTO DI 50 ! )

Estrazione generatrice del pronostico 10756 [187 - 22/11/2025]
G 0001 Numeri in gioco : 07.50.23.34 su MI NZ per Estratto,Ambo,Terno,Quaterna

Ho notato che alcuni sviluppi di questa Tavola, sono combinare anche i Vertibili e i Diametrali:
inoltre ho trovato che da programmi simili la tavola usata e' di 5 elementi al posto di 4, ti risulta anche che viene usata ?
Buona giornata e Grazie per l'attenzione

SI DOVREI AVERE ANCHE LA VERSIONE DEI 5 NUMERI , DA QUALCHE PARTE .........TI CHIEDO INVECE HO NOTATO CHE HAI FATTO IL LISTATO , LO POTRESTI GIRARLO X TUTTI ? SAREBBE GRADITA
GRAZIE .
PS
QUESTA SETTIMANA HO IL TURNO POMERIDIANO NELLA PROX
TROVERO IL TEMPO EVVENTUALMENTE VI POSTERO LA TAVOLA CON I NUMERI E QUALCHE METODINO , AI TEMPI STUDIATO

 

[mastrogino]

PS.
FIRENZE E VENEZIA HANNO LA STESSA SOMMA
AMBATA 13.
13.61.21.53.

 

[dorina56]

OKKIO IL CALCOLO DI IERI SU BARI DA DI NUOVO IL 20.
20.33.62.53.

Scusa,Mastro ma a me risulta 33. Fatto la somma dei 5 numeri.

 

[LoneWolf]

SI DOVREI AVERE ANCHE LA VERSIONE DEI 5 NUMERI , DA QUALCHE PARTE .........TI CHIEDO INVECE HO NOTATO CHE HAI FATTO IL LISTATO , LO POTRESTI GIRARLO X TUTTI ? SAREBBE GRADITA
GRAZIE .
PS
QUESTA SETTIMANA HO IL TURNO POMERIDIANO NELLA PROX
TROVERO IL TEMPO EVVENTUALMENTE VI POSTERO LA TAVOLA CON I NUMERI E QUALCHE METODINO , AI TEMPI STUDIATO

Come richiesto da MastroGino , posso inserire lo script:

'
' Script: Tabella4Elementi.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

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
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 = 9
pos = 0
clp = 4
'
pos = CInt(InputBox("Posizione precedente che vuoi trattare? ",,pos))
' Ini = CInt(InputBox("Inserisci l'estrazione iniziale",,Ini))
clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",,co))
R1 = CInt(InputBox(" Ambata su quale Ruota? ",,R1))
'
rt(1) = R1
'
Ini = fin -(pos + 2)

For es = Ini To fin
'
Messaggio(es)

' If IndiceMensile(es) = pos Then

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
If EstrattoRitardo(R1,n1(Ind)) < pos Then
Scrivi " Numero: " & Format2(n1(Ind)) & " Sortito " & " Ritardo: " & Format2(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

Somma_F90 = CInt(InputBox(" Totale calcolato : ",,Somma_F90)) ' Serve SOLO per FORZARE un test di Somma DIFFERENTE - Dare invio per mantenere invariato

ImpostaGiocata 1,n1,rt,pt,clp,0

' 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 " & " Ritardo: " & Format2(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

' 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 " & " Ritardo: " & Format2(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

Gioca es,,,1

End If

Next

Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
Scrivi TempoTrascorso

End Sub
'

Le aggiunte con i ritardi correnti potrebbero servire per una scelta eventuale della Ruota.

Spero sia utile a qualcuno; Mastro se hai novita' riguardo la tabella di 5 Elementi o altro, sono ben accette

Buona giornata

 

[AngelaV]

Ciao, scusa come si legge questa lista?

Come richiesto da MastroGino , posso inserire lo script:

'
' Script: Tabella4Elementi.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

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
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 = 9
pos = 0
clp = 4
'
pos = CInt(InputBox("Posizione precedente che vuoi trattare? ",,pos))
' Ini = CInt(InputBox("Inserisci l'estrazione iniziale",,Ini))
clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",,co))
R1 = CInt(InputBox(" Ambata su quale Ruota? ",,R1))
'
rt(1) = R1
'
Ini = fin -(pos + 2)

For es = Ini To fin
'
Messaggio(es)

' If IndiceMensile(es) = pos Then

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
If EstrattoRitardo(R1,n1(Ind)) < pos Then
Scrivi " Numero: " & Format2(n1(Ind)) & " Sortito " & " Ritardo: " & Format2(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

Somma_F90 = CInt(InputBox(" Totale calcolato : ",,Somma_F90)) ' Serve SOLO per FORZARE un test di Somma DIFFERENTE - Dare invio per mantenere invariato

ImpostaGiocata 1,n1,rt,pt,clp,0

' 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 " & " Ritardo: " & Format2(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

' 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 " & " Ritardo: " & Format2(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

Gioca es,,,1

End If

Next

Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
ScriviDistribuzioneEsiti(True)
ScriviDistribuzioneCasiInCorso(True)
Scrivi TempoTrascorso

End Sub
'

Le aggiunte con i ritardi correnti potrebbero servire per una scelta eventuale della Ruota.

Spero sia utile a qualcuno; Mastro se hai novita' riguardo la tabella di 5 Elementi o altro, sono ben accette

Buona giornata

 

[LoneWolf]

Ciao, scusa come si legge questa lista?

Angela, se carichi lo script con Spaziometria, puoi eseguirlo :
Ultima Riga: End Sub

Togli la fine:

Le aggiunte con i ritardi correnti potrebbero servire per una scelta eventuale della Ruota.

Spero sia utile a qualcuno; Mastro se hai novita' riguardo la tabella di 5 Elementi o altro, sono ben accette

Buona giornata

 

[AngelaV]

Angela, se carichi lo script con Spaziometria, puoi eseguirlo :
Ultima Riga: End Sub

Togli la fine:

Le aggiunte con i ritardi correnti potrebbero servire per una scelta eventuale della Ruota.

Spero sia utile a qualcuno; Mastro se hai novita' riguardo la tabella di 5 Elementi o altro, sono ben accette

Buona giornata

Capisco, devo scaricare ma non so dove sia il link, abbi pazienza non sono una cima

 

[LoneWolf]

Capisco, devo scaricare ma non so dove sia il link, abbi pazienza non sono una cima

AngelaV passi a due messaggi fa, il #46; all'interno dalla riga UNO: fino alla fine meno quattro righe trovi End Sub
'
' Script: Tabella4Elementi.ls - Del 25 Nov. 2025
.... dopo 530 righe !!
CUT
'.....
End Sub
'

Fai selezione , copy e incolli su un tuo script Vuoto .

Hai Spaziometria aggiornata ? Spero di si .

Ciao fammi sapere.

 

[Coccobello]

Scusami Mastrogino l' ultima estrazione su Bari da somma 33 nella tabella la riga del 33 dà 20 33 90 53 cosa sbaglio,mi puoi dire? grazie!

 

[Coccobello]

Perché vorrei giocare ed essere sicura di non avere capito male! ancora grazie!