Deposito Gasolinera

Practica Deposito

En esta practica haremos un programa para simular el deposito de una gasolinera.
primero en el formulario ponemos un PictureBox donde dentro pondremos un TextBox donde ira rellenadno el PictureBox, un boton para iniciar el deposito, dos OptionButton; uno con la palabra llenar y otro con la palabra vaciar y al final pondremos un timer donde se iniciara todo el programa.



En el Timer pondremos un codigo donde realizara todo el programa al apretar el boton Start:

Private Sub Timer1_Timer()
'Timer1.Interval = HScroll1.Value
If Option1.Value = True Then 'pone el valor de option1 en true
incremento = 20 'incrementa a 20
Else
incremento = -20 'incrementa a -20
End If
If Text1.Top - incremento <= Picture1.Top + Picture1.Height * 0.85 Then 'mantiene el text1 ael top del picture 1

If Text1.Height + incremento <= Picture1.Height Then 'pone el text1 al top del picture1
Text1.Height = Text1.Height + incremento 'incrementa el height del text1
Text1.Top = Text1.Top - incremento 'diminuye el incremento del text1
Else
Text1.Height = Picture1.Height
End If
End If
End Sub

En el Boton de Start pondremos un codigo para que cuando se cliquee se inicie el programa desde el Timer:

Private Sub BStart_Click()
Timer1.Enabled = True
If BStart.Caption = "Start" Then 'pone el nombre de start
BStart.Caption = "Stop" 'pone el nombre de stop
Else
BStart.Caption = "Start" ' pone el nombre de start
End If
If BStart.Caption = "Start" Then Timer1.Enabled = False 'inicia el programa
If BStart.Caption = "Stop" Then Timer1.Enabled = True 'para el programa
End Sub

Finalmente cambiamos la apariencia del Fromulario poniendo la fecha y hora, cambiando la estetica como por ejemplo una imgen de gasolinera, y al final podemos poner un HScroll donde se podra variar la velocidad del deposito.