CÁLCULO Y COMPENSACION DE COTAS DE UNA NIVELACION CERRADA

...

t = 0

For x = 0 To n

t = f(x) + t

Next

h(x) = g(x) * herror / t

For x = 1 To n

c(x) = c(x - 1) + a(x) - b(x) - h(x)

ListBox3.Items.Add(Format(c(x), "###.###"))

Next

End Sub

CON LO QUE NUESTRO PORGRAMA CALCULA LAS COTAS CONPENSADAS

FUNCIONAMIENTO DEL PROGRAMA:

- Ingresamos los datos Cota conocida, Número de puntos, V.AT (Vistas atrás), V.AD (Vistas adelante), distancias en Kilómetros (d(km)),las V.AT y V.AD asiendo clic en el botón “INGRESAR”

[pic 9]

- Hacemos click en el botón HALLAR ERROR DE CIERRE y nos mostrara dicho resultado y si esta dentro de error permisible, si lo esta nos mostrara la conclucion de que la nivelación es conforme y si no lo esta lo contrario con lo trendremos que volver a tomar los datos de campo.

[pic 10]

- Para hallar las cotas compensadas damos un click al botón de GENERAR COTAS.

[pic 11]

LENGUAJE DE PROGRAMCIÓN

Public Class Form1

Dim a(100) As Double

Dim b(100) As Double

Dim c(100) As Double

Dim d(100) As Double

Dim f(100) As Double

Dim g(100), h(100) As Double

Dim herror, Emax, u, v, t, z As Double

Dim n, x, p, k, i As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Clear()

ListBox4.Items.Clear()

n = TextBox1.Text

For x = 1 To n

a(x) = InputBox("ingrese V.AT" & Str(x))

ListBox1.Items.Add(a(x))

Next

For x = 0 To n

d(x) = x

ListBox4.Items.Add(d(x))

Next

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ListBox2.Items.Clear()

n = TextBox1.Text

b(0) = 0

ListBox2.Items.Add(b(0))

For x = 1 To n

b(x) = InputBox("ingrese V.Ad" & Str(x))

ListBox2.Items.Add(b(x))

Next

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ListBox3.Items.Clear()

n = TextBox1.Text

c(0) = TextBox2.Text

ListBox3.Items.Add(c(0))

a(0) = 0

b(0) = 0

u = 0

For x = 0 To n

u = a(x) + u

Next

v = 0

For x = 0 To n

v = b(x) + v

Next

herror = u - v

h(0) = 0

For x = 0 To n

z = f(x) + z

h(x) = z

Next

t = 0

For x = 0 To n

t = f(x) + t

Next

For x = 1 To n

g(x) = h(x) * herror / t

Next

For x = 1 To n

c(x) = c(x - 1) + a(x) - b(x) - g(x)

ListBox3.Items.Add(c(x))

Next

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Close()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ListBox3.Items.Clear()

ListBox5.Items.Clear()

TextBox1.Text = " "

TextBox2.Text = " "

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

n = TextBox1.Text