En correr la programacion, ¿ porque no funciona la proxima ? prefiero este OO, que el Ex.
No conozco sobre el Attribute bien. Ni se parece que conoce OO como usar Valuar la Celula.
Por fa - Sinceramente Cuco
Rem Attribute VBA_ModuleType=VBADocumentModule
Rem Sub Hoja1
Rem
Rem Private Sub CommandButton1_Click()
Sub CommandButton1_Click()
Dim PTOS(1 To 100, 1 To 2) As Double
Rem 'PROGRAMA PAA CALCULAR PROPIEDADES GEOMÉTRICAS
Rem 'INICIALIZO EN CEROS, LAS VARIABLES
AREA = 0
XCEN = 0
YCEN = 0
IXX = 0
IYY = 0
DIFER = 0
IXY = 0
IXXC = 0
IYYC = 0
IXYC = 0
Rem 'LEO EL NÚMERO DE PUNTOS
Rem N = Cells(3, 2).Value
N = Range("B3").Value
Rem 'LOS METO EN UNA MATRIZ
For I = 1 To N
PTOS(I, 1) = Cells(5 + I, 2).Value
PTOS(I, 2) = Cells(5 + I, 3).Value
Next
N = N + 1
PTOS(N, 1) = PTOS(1, 1)
PTOS(N, 2) = PTOS(1, 2)
Rem 'CALCULO LAS PROPIEDADES
For I = 1 To N - 1
X1 = PTOS(I, 1): Y1 = PTOS(I, 2)
X2 = PTOS(I + 1, 1): Y2 = PTOS(I + 1, 2)
AREA = AREA + (Y2 - Y1) * (X2 + X1) / 2
XCEN = XCEN + (Y2 - Y1) / 8 * ((X2 + X1) ^ 2 + (X2 - X1) ^ 2 / 3)
YCEN = YCEN + (X2 - X1) / 8 * ((Y2 + Y1) ^ 2 + (Y2 - Y1) ^ 2 / 3)
IXX = IXX + (X2 - X1) * (Y2 + Y1) / 24 * ((Y2 + Y1) ^ 2 + (Y2 - Y1) ^ 2)
IYY = IYY + (Y2 - Y1) * (X2 + X1) / 24 * ((X2 + X1) ^ 2 + (X2 - X1) ^ 2)
DIFER = X2 - X1
If DIFER = 0 Then DIFER = 0.000001
IXY = IXY + (1 / 8 * (Y2 - Y1) ^ 2 * (X2 + X1) * (X2 ^ 2 + X1 ^ 2) + 1 / 3 * (Y2 - Y1) * (X2 * Y1 - X1 * Y2) * (X2 ^ 2 + X2 * X1 + X1 ^ 2) + 1 / 4 * (X2 * Y1 - X1 * Y2) ^ 2 * (X2 + X1)) / DIFER
Next
AREA = -AREA
Cells(6, 7).Value = AREA
XCEN = -XCEN / AREA
YCEN = YCEN / AREA
IYY = -IYY
IXXC = IXX - AREA * YCEN ^ 2
IYYC = IYY - AREA * XCEN ^ 2
IXYC = IXY - AREA * XCEN * YCEN
RESTA = IXXC - IYYC
If RESTA = 0 Then RESTA = 0.000001
TETA = 0.5 * Atn(-2 * IXYC / RESTA)
Pi = 4 * Atn(1)
TETA = TETA * 180 / Pi
R = (IXXC / AREA) ^ (1 / 2)
Rem 'IMPRIME RESULTADOS
Cells(8, 7).Value = IXX
Cells(10, 7).Value = IYY
Cells(12, 7).Value = IXY
Cells(14, 7).Value = XCEN
Cells(16, 7).Value = YCEN
Cells(18, 7).Value = IXXC
Cells(20, 7).Value = IYYC
Cells(22, 7).Value = IXYC
Cells(24, 7).Value = TETA
Cells(26, 7).Value = R
End Sub
Rem
Rem End Sub
