Visual Basic para Aplicaciones - AREA DE UN POLIGIONO POR EL METODO DE COORDENADAS

Life is soft - evento anual de software empresarial
   
Vista:

AREA DE UN POLIGIONO POR EL METODO DE COORDENADAS

Publicado por Erica (2 intervenciones) el 01/12/2008 18:56:51
Necesito crear un programa en VISUAL BASIC FOR APPLICATIONS EXCELL , que me calcule el area de un poligiono por le metodo de coordenadas... e que tengo que usar arrays pero nose como empezarlo...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:AREA DE UN POLIGIONO POR EL METODO DE COORDENAD

Publicado por JuanC (431 intervenciones) el 01/12/2008 22:01:14
si dieras más info quizá pueda ayudarte...

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AREA DE UN POLIGIONO POR EL METODO DE COORDENAD

Publicado por Erica (2 intervenciones) el 01/12/2008 22:34:44
Necesito crear un programa que tenga como input el número de vertices del poligono y otro input que sea cada coordenada de los vertices del poligono. Con esa infomacion debe salir un msgbox que diga el area del poligono.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:AREA DE UN POLIGIONO POR EL METODO DE COORDENAD

Publicado por JuanC (431 intervenciones) el 02/12/2008 14:33:18
Option Explicit
Option Base 0

Type Point
x As Double
y As Double
End Type

Sub test()
Dim vert(6) As Point
Dim A#
vert(0).x = 0
vert(0).y = 2

vert(1).x = 1
vert(1).y = 1

vert(2).x = 1
vert(2).y = 0

vert(3).x = 0
vert(3).y = 0

vert(4).x = vert(0).x
vert(4).y = vert(0).y

vert(5).x = vert(1).x
vert(5).y = vert(1).y

A = area2D_Polygon(4, vert)

MsgBox A
End Sub

Function area2D_Polygon(n As Integer, V() As Point) As Double
Dim area As Double
area = 0#
Dim i%, j%, k%
j = 2: k = 0
For i = 1 To n
area = area + V(i).x * (V(j).y - V(k).y)
Next
area2D_Polygon = Abs(area) / 2#
End Function

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar