PRODUCTO 1.
LLENADO DE TANQUE DE AGUA
El siguiente programa controla una VerticalProgressBar para simular el llenado de un tanque
intercomunicado a válvulas, tuberías y una bomba, esto mediante la declaración de una nueva clase
dentro del programa Visual Studio.
Se utilizaron las siguientes herramientas y controles para la realización del programa:
1. Timer
2. Button
3. ProgressBar
4. PictureBox
5. TextBox
6. Label
A continuación, se muestra el código del programa:
Public Class Form1
Private Sub apagado_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = True
[Link] = False
[Link] = False
End Sub
Friend WithEvents Timer1 As [Link]
Friend WithEvents Timer2 As [Link]
Private Sub encendido_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = True
End Sub
Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = False
[Link] = True
[Link] = False
[Link] = True
[Link] = True
[Link] = False
[Link] = True
[Link] = False
[Link] = False
[Link] = True
[Link] = True
[Link] = False
[Link] = True
[Link] = False
[Link] = litros
[Link] = litros
litros = litros + 1
If litros = 100 Then
[Link] = False
[Link] = True
End If
End Sub
Friend WithEvents Label1 As [Link]
Friend WithEvents TextBox1 As [Link]
Private Sub Timer2_Tick(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = True
[Link] = False
[Link] = True
[Link] = False
[Link] = False
[Link] = True
[Link] = False
[Link] = True
[Link] = True
[Link] = False
[Link] = False
[Link] = True
[Link] = False
[Link] = True
[Link] = litros
[Link] = litros
litros = litros - 1
If litros = 0 Then
[Link] = True
[Link] = False
End If
End Sub
Friend WithEvents Label2 As [Link]
Friend WithEvents Label3 As [Link]
Friend WithEvents Tanque1 As [Link]
Friend WithEvents Label4 As [Link]
Friend WithEvents Label5 As [Link]
Friend WithEvents Button1 As [Link]
End Class
Debido a que la herramienta de ProgressBar está diseñada para mostrarse de manera horizontal, se
utilizó el siguiente código para crear una clase que nos permitiera observar el aumento de la barra
de forma vertical, con el objetivo de simular el llenado del tanque.
Imports System
Imports [Link]
Public Class tanque
Inherits ProgressBar
Protected Overrides ReadOnly Property CreateParams As CreateParams
Get
Dim cp As CreateParams = [Link]
[Link] = [Link] Or &H4
Return cp
End Get
End Property
End Class
Ejecución del programa:
Imagen 1.1 Llenado del tanque de agua
Imagen 1.2 Vaciado del tanque de agua
Video del funcionamiento del programa:
