FELICES VACACIONES

VB: ABRIR ARCHIVOS

Private Sub cmdBlog_Click()
Shell "Explorer " & "http://informaticaiesandorra.blogspot.com.es/", vbNormalFocus
End Sub

Private Sub cmdGoogle_Click()
Shell "Explorer " & "https://www.google.es/", vbNormalFocus
End Sub

Private Sub cmdHeraldo_Click()
Shell "C:\Archivos de programa\Mozilla Firefox\firefox.EXE www.heraldo.es/", vbNormalFocus
End Sub

Private Sub cmdJuancarlos_Click()
Shell "explorer.exe root = E:\juan carlos", vbNormalFocus
End Sub

Private Sub cmdNotas_Click()
Shell "C:\Archivos de programa\Microsoft Office\OFFICE11\EXCEL.exe E:\juancarlos\TINF", vbNormalFocus
End Sub

VB:TIMER-FRM

Private Sub Timer1_Timer()

Static tiempo As Long
tiempo = tiempo + 1
If tiempo = 1 Then
   tiempo = 0
   'accion a realizar
   Unload Me
End If

End Sub


Private Sub cmdEleccion_Click()
If Val(Text1.Text) < 100 Then
frmCoche.Show
MsgBox "Comprate un coche"
Else
frmmoto.Show
MsgBox "Comprate una moto"
End If
End Sub

VB: ENTREGA VISUAL BASIC

En posteriores días iré actualizando la fecha de entrega y algún otro detalle.
De momento estos son los ejercicios de entrega:

• Calculadora.
• Conversor de unidades o similar.
•  Indicador de zona climática.
• Formularios. Carga y cierre temporizado de formularios.

Se deberá publicar un comentario con el enlace a la carpeta donde tenéis guardados los ejecutables (.exe)

Aseguraros que los programas funcionan y que al entrar sin el usuario se puede acceder a la carpeta contenedora:

FECHA DE ENTREGA: PRÓXIMAMENTE

VB:CODIGO EJEMPLO 4

Private Sub cmdBorrar_Click()
hscTemperatura.Value = 0
txtBarra.Text = ""
txtResultado.Text = ""

txtResultado.Left = 1920
txtResultado.BackColor = vbWhite
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False


End Sub

Private Sub cmdSalir_Click()
End
End Sub

Private Sub Form_Load()
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False
txtResultado.Left = 1920
End Sub

Private Sub hscTemperatura_Change()
lblPresentacion.Visible = False

txtBarra.Text = hscTemperatura.Value
If Val(txtBarra.Text) > 30 Then
txtResultado.Text = "HACE MUCHO CALOR"
txtResultado.BackColor = vbRed
txtResultado.ForeColor = vbBlack
txtResultado.Left = 3840
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = True
Else
If Val(txtBarra.Text) > 8 Then
txtResultado.Text = "ZONA CONFORT"
txtResultado.BackColor = vbGreen
txtResultado.ForeColor = vbRed
txtResultado.Left = 1920
PictureFrio.Visible = False
PictureConfort.Visible = True
PictureCalor.Visible = False
Else
txtResultado.Text = "HACE MUCHO FRIO"
txtResultado.BackColor = vbBlue
txtResultado.ForeColor = vbWhite
txtResultado.Left = 500
PictureFrio.Visible = True
PictureConfort.Visible = False
PictureCalor.Visible = False
End If
End If

End Sub