Alexandre Neves 13/2/2013, 20:59
Joana,
A mim aparece com a referida substituição
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'1 AvgOfInteresse dos assuntos tratados
'2 AvgOfAplicabilidade à função
'3 AvgOfDesempenho dos formadores
'4 AvgOfAdequação dos meios didaticos
'5 AvgOfAdequação das instalações
'6 AvgOfDocumentação
Dim x0 As Integer, y0 As Integer, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, r As Integer, Limite As Integer
ScaleMode = 3
DrawWidth = 2
x0 = Me.ScaleWidth / 2
y0 = Me.ScaleHeight / 2 + 200
r = 50 * 11.8
Circle (x0, y0), r
Line (x0, y0 - r)-(x0, y0 + r)
Line (x0 - 0.87 * r, y0 - 0.5 * r)-(x0 + 0.87 * r, y0 + 0.5 * r)
Line (x0 - 0.87 * r, y0 + 0.5 * r)-(x0 + 0.87 * r, y0 - 0.5 * r)
Limite = [AvgOfInteresse dos assuntos tratados]
If [AvgOfAplicabilidade à função] > Limite Then Limite = [AvgOfAplicabilidade à função]
If [AvgOfDesempenho dos formadores] > Limite Then Limite = [AvgOfDesempenho dos formadores]
If [AvgOfAdequação dos meios didaticos] > Limite Then Limite = [AvgOfAdequação dos meios didaticos]
If [AvgOfAdequação das instalações] > Limite Then Limite = [AvgOfAdequação das instalações]
If [AvgOfDocumentação] > Limite Then Limite = [AvgOfDocumentação]
'1
x1 = x0
y1 = y0 - [AvgOfInteresse dos assuntos tratados] * r / Limite
x2 = x0 + [AvgOfAplicabilidade à função] * r / Limite * 0.87
y2 = y0 - [AvgOfAplicabilidade à função] * r / Limite * 0.5
Line (x1, y1)-(x2, y2)
'2
x1 = x2
y1 = y2
x2 = x0 + [AvgOfDesempenho dos formadores] * r / Limite * 0.87
y2 = y0 + [AvgOfDesempenho dos formadores] * r / Limite * 0.5
Line (x1, y1)-(x2, y2)
'3
x1 = x2
y1 = y2
x2 = x0
y2 = y0 + [AvgOfAdequação dos meios didaticos] * r / Limite
Line (x1, y1)-(x2, y2)
'4
x1 = x2
y1 = y2
x2 = x0 - [AvgOfAdequação das instalações] * r / Limite * 0.87
y2 = y0 + [AvgOfAdequação das instalações] * r / Limite * 0.5
Line (x1, y1)-(x2, y2)
'5
x1 = x2
y1 = y2
x2 = x0 - [AvgOfDocumentação] * r / Limite * 0.87
y2 = y0 - [AvgOfDocumentação] * r / Limite * 0.5
Line (x1, y1)-(x2, y2)
'6
x1 = x2
y1 = y2
x2 = x0
y2 = y0 - [AvgOfInteresse dos assuntos tratados] * r / Limite
Line (x1, y1)-(x2, y2)
End Sub