Simulador ascensores

Planteamiento del Problema
Problema
El hotel Green Sea tiene 10 pisos mas su planta baja sumando un total de 11, y no se cuenta aun con un sistema de ascensor. El problema aquí es si será costeable tener un ascensor. Y si seria posible sistematizarlo para reducir costos.

Objetivo
Crear un sistema inteligente para el manejo de 2 ascensores que serán instalados, el cual reducirá los costosmanejando de manera eficiente el ascenso y descenso de estos.
Preguntas de Investigación
Cuantas personas aproximadas abordarían los elevadores 1 y 2 del hotel en un dia?
Cuanto gasta en watts el elevador en cada movimiento de piso a piso?
(un movimiento seria el desplazamiento entre un piso y otro)
Cuantos movimientos realiza el elevador en un dia?
Que costo en pesos ($) tiene esto para el hotelGreen Sea?
Justificación
Un elevador aparte de dar prestigio al hotel, disminuiría muchísimo el tiempo y el esfuerzo de nuestros huéspedes, el hacer una simulación nos permite ver varias de las circunstancias que podrían surgir y permitiría calcular con mayor exactitud nuestro presupuesto.
Viabilidad
Tenemos acceso a las instalaciones y se cuenta con los conocimientos asi como con el SW y elcapital para su desarrollo lo que hace viable nuestro proyecto.
Consecuencias
Puede incrementarse la clientela del hotel, ya que al ofrecer comodidades para usuarios, será atractivo para los que deseen alquilar un cuarto de hotel, aparte de que el ofrecer este servicio permitiría incrementar las tarifas Permitiendo el desarrollo económico de la empresa.

Documentacion del codigo

DECLARACION DELAS VARIABLES Y LA CLASE FORMA.

Public Class Form1


Dim d, cont_mov, e, g, c, distancia, x1, x2, y, y2, a, b, i, z As Integer
Dim elev1_num, elev2_num, n_piso, piso_destino As Integer
Dim n, personas, num_personas As Integer
Dim boton_apretado, ascensor_cerrado, ascensor_abierto, boton_noapretado As String
Dim bandera, bandera2, cargado, cargado2 As Boolean
Dim contadorAs Integer
Dim watts As Decimal



Aqui viene el codigo que se ejecuta cuando se carga la forma1.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cargado = False
cargado2 = False
locacion_elev1()
locacion_elev2()

contador = 0
i = 0
a = 0
b = 0T_abreycierra2.Enabled = False
T_abreycierra.Enabled = False
Combopiso.SelectedItem = "PB"
y = 271
bandera = False
bandera2 = False
boton_apretado = ("C:\Users\Dieggo\Pictures\flechitaencendida.jpg")
boton_noapretado = ("C:\Users\Dieggo\Pictures\flechita.jpg")
ascensor_abierto = ("C:\Users\Dieggo\Desktop\Simulacion Elevador\e_abierto0.jpg")ascensor_cerrado = ("C:\Users\Dieggo\Desktop\Simulacion Elevador\e_cerrado0.jpg")
Combodatos()
num_personas = personas + num_personas
E_numpersonas.Text = ("Personas que han llegado en el dia:" & " " & CStr(num_personas))

End Sub

AQUI REGISTRAMOS LAS LOCACIONES DE LOS ELEVADORES LOCACION_ELEV1 Y LOCACION_ELEV2 PARA CADA UNO DE LOS DOS ELEVADORESRESPECTIVAMENTE OTORGANDOLE VALORES A LAS VARIABLES ELEV1_NUMY ELEV2_NUM.

Private Sub locacion_elev1()

Select Case elev1.Location.Y

Case 271
elev1_num = 0
E_indicador1.Text = "PB"
Case 247
elev1_num = 1
E_indicador1.Text = CStr(elev1_num)
Case 223
elev1_num = 2E_indicador1.Text = CStr(elev1_num)
Case 199
elev1_num = 3
E_indicador1.Text = CStr(elev1_num)
Case 175
elev1_num = 4
E_indicador1.Text = CStr(elev1_num)
Case 151
elev1_num = 5
E_indicador1.Text = CStr(elev1_num)
Case 127
elev1_num = 6...