REGALO DI NATALE ANTICIPATO ( FATENE BUON USO )

[Sheena1]

Ho preso la ruota di napoli ,perché da 31?

1° estratto 21
21+21=42

Tabella n.42= 45 13 61 87

45+87=42
13+61=74

74+42= 116-90 = 26 per ambata

Non so se stia sbagliando qualcosa io, ma ho seguito le indicazioni di Mastro

Giusto 26 ho errato io

 

[ares5]

​

dalla tavola del buon mastrogino a Mi penultima estrazione somma estratti 75ieri a colpo ha dato 54 37 e 74 invece di 75 in cinquina o quartina .andate a vedere..a colpo.. ma che bravo Mastro​

 

[LoneWolf]

​

dalla tavola del buon mastrogino a Mi penultima estrazione somma estratti 75ieri a colpo ha dato 54 37 e 74 invece di 75 in cinquina o quartina .andate a vedere..a colposo ma che bravo Mastro​

Buon Giorno ares, sono andato a vedere... secondo la mia tabella, riporto perche' non gioco il 75; il resto e' ambo su quartina !! Sempre MI
Estrazione generatrice del pronostico 10779 [ 2 - 03/01/2026]
G 0001 Numeri in gioco : 54.37.52.39 su MI NZ per Estratto,Ambo,Terno
In corso per altre 1 estrazioni
Trovo che e' abbastanza vincente la tavola di Mastro
Saluti

 

[ares5]

si al 75 corrisponde sulla tavola 54 37 52 39.uscito a colpo 54 37 Milano ruota di calcolo

 

[mastrogino]

si al 75 corrisponde sulla tavola 54 37 52 39.uscito a colpo 54 37 Milano ruota di calcolo

Buongiorno grazie...... è Mitica,
Vi avevo accennato che la quartina x il gioco dell' ambo si poteva separare in due in questo caso ambo secco 54.37.
Ambo in terzina ,ambo in quartina su ruota secca
Buona Epifania a tutti

 

[giomausa]

Complimenti mastrogino tanta roba!
Avrei una domanda per LoneWolf o scaricato lo script ma mi da errore ho un altro programma da Spaziometria che gestisce anche lui gli script puo' essere quello? e se si c'e' un modo per farlo girare? grazie mille per risposta

 

[MANCIN072]

Complimenti mastrogino tanta roba!
Avrei una domanda per LoneWolf o scaricato lo script ma mi da errore ho un altro programma da Spaziometria che gestisce anche lui gli script puo' essere quello? e se si c'e' un modo per farlo girare? grazie mille per risposta

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

 

[mastrogino]

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

Grazie mille

 

[17mikele]

Girovagando eccomi qui, intanto auguri di un buon anno a tutti voi che seguite questo forum e al il Sig. Matrogino, che ha regalato questo metodo, ne ho seguito alcuni nell' anno precedente ma la mia poca esperienza e sfortuna non ha avuto quel che speravo, quindi anno nuovo metodo nuovo . Curiosità, ma bisogna fare solo la somma all' ultima estrazione del mese o la si può fare in qualsiasi momento? Se ho capito bene visto che non ho programmi, si prende una ruota , si fa la somma e il numero corrispondente si va a prendere la stringa creata dal Sig. Maatrogino. Credo che sia cosi

 

[giomausa]

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 per
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

Grazie Mancino72 per celerta mi da pero ancora questo errore su questa riga
If EstrattoRitardo(R1, n1(Ind)) < pos Then
io ahime sono ignorante in materia se sai dirmi che fare grazie

 

[LoneWolf]

Grazie Mancino72 per celerta mi da pero ancora questo errore su questa riga
If EstrattoRitardo(R1, n1(Ind)) < pos Then
io ahime sono ignorante in materia se sai dirmi che fare grazie

per giomausa ho provato questo script, aggiungo il blocco da posizionare:

' Verifica Ambetti (Analisi rapida nel report)
If scelta = 1 Then
For es2 = es + 1 To es + co
If es2 <= EstrazioneFin Then per <---- ( Errore Corretto in: 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
_____________________________________________________________________

e l'unico errore che mi ha dato e' in questa istruzione:
If es2 <= EstrazioneFin Then per
Allora basta correggere in :
If es2 <= EstrazioneFin Then ( Tolto: per )
Fammi sapere se e' a posto
Buon lavoro

 

[giomausa]

per giomausa ho provato questo script, aggiungo il blocco da posizionare:

' Verifica Ambetti (Analisi rapida nel report)
If scelta = 1 Then
For es2 = es + 1 To es + co
If es2 <= EstrazioneFin Then per <---- ( Errore Corretto in: 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
_____________________________________________________________________

e l'unico errore che mi ha dato e' in questa istruzione:
If es2 <= EstrazioneFin Then per
Allora basta correggere in :
If es2 <= EstrazioneFin Then ( Tolto: per )
Fammi sapere se e' a posto
Buon lavoro

Ciao e ancora grazie del attenzione
fatto ma mi restituisce ancora un errore differente te lo trascrivo
Errore 1014: Previsto 'End' (Riga 539)
grazie per attenzione

 

[Reacher]

Forse ti chiede la chiusura del codice
End sub

 

[giomausa]

Forse ti chiede la chiusura del codice
End sub

Ciao no provato ma continua a darmi errore

 

[LoneWolf]

Ciao no provato ma continua a darmi errore

Per Verificare lo script completo, da sostituire Interamente:

'
' Script: ConsuTestTabella.ls - Del 15 Nov. 2025
'
' Link - https://forum.lottoced.com/threads/due-quartine-su-mi-na-pa-alla-6°-estrazione.2225372/
'
'
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,flaco
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

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 1
Importi(2,4) = 1
Importi(2,5) = 2
Importi(2,6) = 2
Importi(2,7) = 2
Importi(2,8) = 3
Importi(2,9) = 3
Importi(2,10) = 4
Importi(2,11) = 4
Importi(2,12) = 5

' --- 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 : flaco = 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)) Lascio default 9 Colpi
flaco = CInt(InputBox("Vuoi fermarti al primo risultato? (0 = Si) ","1 = No",flaco))
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,vbMagenta ' vbBlue
End If
Next

' Giocata
rt(1) = R1 : rt(2) = 12 ' Ruota R1 e Nazionale

ImpostaGiocata 1,n1,rt,pt,co,flaco

ImpostaProgressione 1,Importi

Gioca es,,,1 ' Mostra il report della giocata

' 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
Scrivi "Casi totali Ambetti rilevati: " & ambtt,1
Scrivi ""
ScriviResoconto
'
Scrivi "Tempo trascorso: " & TempoTrascorso
End Sub
'

 

[giomausa]

Per Verificare lo script completo, da sostituire Interamente:

'
' Script: ConsuTestTabella.ls - Del 15 Nov. 2025
'
' Link - https://forum.lottoced.com/threads/due-quartine-su-mi-na-pa-alla-6°-estrazione.2225372/
'
'
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,flaco
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

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 1
Importi(2,4) = 1
Importi(2,5) = 2
Importi(2,6) = 2
Importi(2,7) = 2
Importi(2,8) = 3
Importi(2,9) = 3
Importi(2,10) = 4
Importi(2,11) = 4
Importi(2,12) = 5

' --- 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 : flaco = 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)) Lascio default 9 Colpi
flaco = CInt(InputBox("Vuoi fermarti al primo risultato? (0 = Si) ","1 = No",flaco))
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,vbMagenta ' vbBlue
End If
Next

' Giocata
rt(1) = R1 : rt(2) = 12 ' Ruota R1 e Nazionale

ImpostaGiocata 1,n1,rt,pt,co,flaco

ImpostaProgressione 1,Importi

Gioca es,,,1 ' Mostra il report della giocata

' 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
Scrivi "Casi totali Ambetti rilevati: " & ambtt,1
Scrivi ""
ScriviResoconto
'
Scrivi "Tempo trascorso: " & TempoTrascorso
End Sub
'

Ciao e ancora grazie sono vergognoso ma ahime coninua a dare errore adesso cambiato nella finestra esce
Errore13: Tipo non corrispondente: 'EstrattoRitardo' ( riga 171 )

If EstrattoRitardo(R1,n1(Ind)) < pos Then

 

[MANCIN072]

Ciao e ancora grazie sono vergognoso ma ahime coninua a dare errore adesso cambiato nella finestra esce
Errore13: Tipo non corrispondente: 'EstrattoRitardo' ( riga 171 )

If EstrattoRitardo(R1,n1(Ind)) < pos Then

copia tutto il seguito. ho adesso eseguito lo script su spaziometria e funziona. togli all'inizio pero'

Option Explicit
Sub Main

End Sub
per non copiare parti doppie di codice.

grazie a LoneWolf per aver apportato migliorie

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,flaco
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

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 1
Importi(2,4) = 1
Importi(2,5) = 2
Importi(2,6) = 2
Importi(2,7) = 2
Importi(2,8) = 3
Importi(2,9) = 3
Importi(2,10) = 4
Importi(2,11) = 4
Importi(2,12) = 5

' --- 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 : flaco = 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)) Lascio default 9 Colpi
flaco = CInt(InputBox("Vuoi fermarti al primo risultato? (0 = Si) ","1 = No",flaco))
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,vbMagenta ' vbBlue
End If
Next

' Giocata
rt(1) = R1 : rt(2) = 12 ' Ruota R1 e Nazionale

ImpostaGiocata 1,n1,rt,pt,co,flaco

ImpostaProgressione 1,Importi

Gioca es,,,1 ' Mostra il report della giocata

' 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
Scrivi "Casi totali Ambetti rilevati: " & ambtt,1
Scrivi ""
ScriviResoconto
'
Scrivi "Tempo trascorso: " & TempoTrascorso
End Sub

 

[giomausa]

copia tutto il seguito. ho adesso eseguito lo script su spaziometria e funziona. togli all'inizio pero'

Option Explicit
Sub Main

End Sub
per non copiare parti doppie di codice.

grazie a LoneWolf per aver apportato migliorie

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,flaco
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

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 1
Importi(2,4) = 1
Importi(2,5) = 2
Importi(2,6) = 2
Importi(2,7) = 2
Importi(2,8) = 3
Importi(2,9) = 3
Importi(2,10) = 4
Importi(2,11) = 4
Importi(2,12) = 5

' --- 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 : flaco = 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)) Lascio default 9 Colpi
flaco = CInt(InputBox("Vuoi fermarti al primo risultato? (0 = Si) ","1 = No",flaco))
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,vbMagenta ' vbBlue
End If
Next

' Giocata
rt(1) = R1 : rt(2) = 12 ' Ruota R1 e Nazionale

ImpostaGiocata 1,n1,rt,pt,co,flaco

ImpostaProgressione 1,Importi

Gioca es,,,1 ' Mostra il report della giocata

' 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
Scrivi "Casi totali Ambetti rilevati: " & ambtt,1
Scrivi ""
ScriviResoconto
'
Scrivi "Tempo trascorso: " & TempoTrascorso
End Sub

Grazzie mille sia a Mancino72 che a LoneWolf per disponibilità e pazienza TOP
fatto che scaricare Spaziometria e gira che un amore
ancora grazie

 

[MANCIN072]

Se ti puo' servire sto studiando 3 estrazioni indietro, opzione vertibile e 4 colpi di gioco. il resto lascia come e'.
Stasera rimane indietro solo la ruota di Genova. Le altre tutte sortite.
Buona giocata a tutti

 

[LoneWolf]

Ciao e ancora grazie sono vergognoso ma ahime coninua a dare errore adesso cambiato nella finestra esce
Errore13: Tipo non corrispondente: 'EstrattoRitardo' ( riga 171 )

If EstrattoRitardo(R1,n1(Ind)) < pos Then

Credo che dipenda dalla scelta di default lasciata a 0

Se ti puo' servire sto studiando 3 estrazioni indietro, opzione vertibile e 4 colpi di gioco. il resto lascia come e'.
Stasera rimane indietro solo la ruota di Genova. Le altre tutte sortite.
Buona giocata a tutti

Quindi seguo il tuo pronostico per GE - NZ : 83.61.84.60 + ( 59 solo Ambata )
Estrazione generatrice del pronostico 10777 [208 - 30/12/2025]
G 0001 Numeri in gioco : 83.61.84.60 su GE NZ per Estratto,Ambo,Terno