DEPOSITO DE COMBUSTIBLE

-En este proyecto de visual basic crearemos un deposito de combustible que se debera llenar y vaciar:

-El deposito debera vaciarse al hacer clic en el optionbutton de "vaciar" y llenarse con el boton "llenar"  con el siguiente codigo en el correspondiente timer:

Private Sub Timer2_Timer()

If Option1.Value = True Then

incremento = 20

Else

incremento = -20

End If

If Text1.Top - incremento <= Picture1.Top + Picture1.Height * 0.9 Then

If Text1.Height + incremento <= Picture1.Height Then

Text1.Height = Text1.Height + incremento

Text1.Top = Text1.Top - incremento

Else

Text1.Height = Picture1.Height

End If

End If

End Sub

-Tambien deberemos poner un BOTON para iniciar el llenado con codigo siguiente:

Private Sub start_Click()

Timer2.Enabled = True

End Sub

 

-Cuando clickemos en el option buton vaciar el bidon se vaciara, debera tener el siguiente aspecto: