Explorador Imagenes

Explorador imagenes

En esta practica haremos que se puedan ver las imgenes que tenemos. En el fromulario pondremos un DriveListBox, un DirListBox, un FileListBox donde se mostrara todas la imagenes que tengamos en la carpeta seleccionada, un Image y cutro CommandButton.



En los ListBox que hemos puesto ponemos este codigo:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
Dir1.Path = Drive1.Drive
End Sub

Private Sub Drive1_Change()
On Error Resume Next

Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path & "/" & File1.FileName)
End Sub

En los Botones que hemos puesto, entramos en el codigo y ponemos este codigo en cada uno de ellos que sera uno para ir para atras, otro para ir a la siguiente imagen y otro para que las imagenes se pasen solas y otro para parar la visualización automatica.

Private Sub Command2_Click()
On Error Resume Next

File1.Selected(File1.ListIndex - 1) = True
End Sub
Private Sub Command1_Click()
On Error Resume Next

File1.Selected(File1.ListIndex + 1) = True
End Sub

Private Sub Command4_Click()
Timer2.Enabled = True

End Sub

Private Sub Command5_Click()
Timer2.Enabled = False
End Sub

Al final cambiamos la estetica del Formulario como cambiar el color de fondo y poner la fecha y hora.

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.