Salve a tutti ho trovato uno script di un metodo ma mi da errore di compilazione, sub o function non definita, io non sono capace con gli script, qualcuno può correggerlo. Grazie anticipatamente
' lotto_cinquina Macro
'
Sub Main()
Dim Nu(3), na(2), nb(2), nm(5), n(4), num(5), aN(2), bN(5), Ru(5), R(5), Ruo(5), Ruo1(5), T, V, Posta(5), post(5), poste(5), poste1(5)
Posta(1) = 1
post(2) = 1
poste(2) = 1
poste(3) = 1
poste1(2) = 1
poste1(3) = 0.5
poste1(4) = 0.5
ini = EstrazioneFin - 160
fin = EstrazioneFin
T = Array(T, "Casi", "Info Data", "Numeri Cercati", "1° Terno", "2° Ambo", " TernoQuate", "Verifica Ambata/Ambo TT", "clp 1A", "Verifica 2° Ambo", "Clp 2A", "Verifica Terno-Quate", "Clp 3A")
Call InitTabella(T)
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini, fin, es)
If IndiceMensile(es) = 1 Then
k = k + 1
a = Estratto(es, MI_, 1)
b = Estratto(es, NA_, 1)
If a > b Then
na(1) = a - b
Nu(1) = a - b
aN(1) = a - b
Else
na(1) = b - a
Nu(1) = b - a
aN(1) = b - a
End If
Nu(2) = a
c = Estratto(es, PA_, 1)
aN(2) = c
bN(1) = Nu(1)
bN(2) = Vert(Nu(1))
bN(3) = c
bN(4) = Estratto(es, NA_, 5)
bN(5) = Vert(Estratto(es, NA_, 5))
Ruo(1) = 5
Ruo(2) = 6
Ruo1(1) = 7
R(1) = 11
Ru(1) = 6
a = Estratto(es, 5, 1)
b = Estratto(es, 6, 1)
c = Estratto(es, 6, 5)
d = Estratto(es, 7, 1)
If a > b Then
e = a - b
End If
If a < b Then
e = b - a
End If
f = Fuori90(Vert(e))
g = Fuori90(Vert(c))
' h = 90 -(e)
'---
nm(1) = e
'---
na(1) = e
nb(1) = e
na(2) = Estratto(es, MI_, 1)
nb(2) = Estratto(es, NA_, 1)
n(1) = a ' primo MI
n(2) = d ' primo PA
n(3) = e ' Ambata
'---
Nu(1) = e ' Ambata
Nu(2) = f ' Vertibile Ambata
Nu(3) = c ' Quinto NA
'---
num(1) = e ' Ambata
num(2) = f ' Vertibile Ambata
num(3) = d ' Primo PA
num(4) = c ' Quinto NA
num(5) = g ' Vertibile Quinto NA
Call VerificaEsito(Nu, R, es + 1, 1, 18, , esito1, clp1, es1, id1)
Call VerificaEsito(aN, Ruo1, es + 1, 1, 18, , esito2, clp2, es2, id2)
Call VerificaEsito(num, R, es + 1, 3, 18, , esito3, clp3, es3, id3)
Call VerificaEsito(bN, R, es + 1, 4, 18, , esito3, clp4, es4, id3)
V = Array(V, k, GetInfoEstrazione(es), a & " + " & b, StringaNumeri(Nu), StringaNumeri(aN), StringaNumeri(bN), es1, clp1, es2, clp2, es3, clp3, clp4)
Call AddRigaTabella(V)
ImpostaGiocata 1, nm, Ruo, Posta, 14 ' Giocata ambata su MI NA
ImpostaGiocata 2, na, R, post, 14 ' Giocata su TT
ImpostaGiocata 3, nb, R, post, 14 ' Giocata su TT
ImpostaGiocata 4, n, R, poste, 14 ' Giocata su TT
ImpostaGiocata 5, Nu, R, poste, 14 ' Giocata su TT
ImpostaGiocata 6, num, Ru, poste1, 14 ' Giocata su NA
ImpostaGiocata 7, num, R, poste1, 14 'Giocata su TT
Call Gioca(es, , , , , 1)
End If
Next
Scrivi " "
Scrivi "AMBATA : la Differenza matematica tra il 01° Estratto di Milano e il 01° Estratto di Napoli - 1° AMBO : Ambata e 01° estratto di Milano" & " è (In questo caso):" & a, 1, , , 1, 3
Scrivi " 2° AMBO : Ambata + 01° estratto di PA - Terno / Quaterna: con il Vertibile di Ambata, 05° estratto di Napoli + il suo Vertibile:" & g, 1, , , 1, 3
Scrivi " "
CreaTabella
ScriviResoconto
'
End Sub
' lotto_cinquina Macro
'
Sub Main()
Dim Nu(3), na(2), nb(2), nm(5), n(4), num(5), aN(2), bN(5), Ru(5), R(5), Ruo(5), Ruo1(5), T, V, Posta(5), post(5), poste(5), poste1(5)
Posta(1) = 1
post(2) = 1
poste(2) = 1
poste(3) = 1
poste1(2) = 1
poste1(3) = 0.5
poste1(4) = 0.5
ini = EstrazioneFin - 160
fin = EstrazioneFin
T = Array(T, "Casi", "Info Data", "Numeri Cercati", "1° Terno", "2° Ambo", " TernoQuate", "Verifica Ambata/Ambo TT", "clp 1A", "Verifica 2° Ambo", "Clp 2A", "Verifica Terno-Quate", "Clp 3A")
Call InitTabella(T)
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini, fin, es)
If IndiceMensile(es) = 1 Then
k = k + 1
a = Estratto(es, MI_, 1)
b = Estratto(es, NA_, 1)
If a > b Then
na(1) = a - b
Nu(1) = a - b
aN(1) = a - b
Else
na(1) = b - a
Nu(1) = b - a
aN(1) = b - a
End If
Nu(2) = a
c = Estratto(es, PA_, 1)
aN(2) = c
bN(1) = Nu(1)
bN(2) = Vert(Nu(1))
bN(3) = c
bN(4) = Estratto(es, NA_, 5)
bN(5) = Vert(Estratto(es, NA_, 5))
Ruo(1) = 5
Ruo(2) = 6
Ruo1(1) = 7
R(1) = 11
Ru(1) = 6
a = Estratto(es, 5, 1)
b = Estratto(es, 6, 1)
c = Estratto(es, 6, 5)
d = Estratto(es, 7, 1)
If a > b Then
e = a - b
End If
If a < b Then
e = b - a
End If
f = Fuori90(Vert(e))
g = Fuori90(Vert(c))
' h = 90 -(e)
'---
nm(1) = e
'---
na(1) = e
nb(1) = e
na(2) = Estratto(es, MI_, 1)
nb(2) = Estratto(es, NA_, 1)
n(1) = a ' primo MI
n(2) = d ' primo PA
n(3) = e ' Ambata
'---
Nu(1) = e ' Ambata
Nu(2) = f ' Vertibile Ambata
Nu(3) = c ' Quinto NA
'---
num(1) = e ' Ambata
num(2) = f ' Vertibile Ambata
num(3) = d ' Primo PA
num(4) = c ' Quinto NA
num(5) = g ' Vertibile Quinto NA
Call VerificaEsito(Nu, R, es + 1, 1, 18, , esito1, clp1, es1, id1)
Call VerificaEsito(aN, Ruo1, es + 1, 1, 18, , esito2, clp2, es2, id2)
Call VerificaEsito(num, R, es + 1, 3, 18, , esito3, clp3, es3, id3)
Call VerificaEsito(bN, R, es + 1, 4, 18, , esito3, clp4, es4, id3)
V = Array(V, k, GetInfoEstrazione(es), a & " + " & b, StringaNumeri(Nu), StringaNumeri(aN), StringaNumeri(bN), es1, clp1, es2, clp2, es3, clp3, clp4)
Call AddRigaTabella(V)
ImpostaGiocata 1, nm, Ruo, Posta, 14 ' Giocata ambata su MI NA
ImpostaGiocata 2, na, R, post, 14 ' Giocata su TT
ImpostaGiocata 3, nb, R, post, 14 ' Giocata su TT
ImpostaGiocata 4, n, R, poste, 14 ' Giocata su TT
ImpostaGiocata 5, Nu, R, poste, 14 ' Giocata su TT
ImpostaGiocata 6, num, Ru, poste1, 14 ' Giocata su NA
ImpostaGiocata 7, num, R, poste1, 14 'Giocata su TT
Call Gioca(es, , , , , 1)
End If
Next
Scrivi " "
Scrivi "AMBATA : la Differenza matematica tra il 01° Estratto di Milano e il 01° Estratto di Napoli - 1° AMBO : Ambata e 01° estratto di Milano" & " è (In questo caso):" & a, 1, , , 1, 3
Scrivi " 2° AMBO : Ambata + 01° estratto di PA - Terno / Quaterna: con il Vertibile di Ambata, 05° estratto di Napoli + il suo Vertibile:" & g, 1, , , 1, 3
Scrivi " "
CreaTabella
ScriviResoconto
'
End Sub
