RELOJ VB PRACTICA 1
'los comentarios se ponen con una coma
'realizar un EXE.
'Creamos un Label que diga en Caption:00:00:00 osea la hora por defaul
'Luego creamos un timer y dentro de sus propiedades ponemos en Intervalo 1000
'ahora vamos a agregar el codigo
' hacer doble click primero en el Label que dice 00:00:00
'Y dentro de este sin borrar nada de lo que viene escrito vamos a escribir en el medio.
'Private Sub Label1_Click()
'Label1.Caption = Time
'End Sub
'cambiamos el color de label1 con la opcion back color y lo cambiamos de color azul
'en la opcion Autosize cambiamos de false a true y se va a ajustar el reloj a su tamaño
'ahora solo nos falta el timer
' le damos clic en el timer para agregar el codigo del timer
'Private Sub Timer1_Timer()
'Label1.Caption = Time
'End Sub
'agregar un CommandBotton que diga en Caption:Salir
'Y dentro del codigo agregar End
'Agregar una imagen en el formulario
'para agregar la imagen buscamos la opcion dentro del formulario picture y seleccionemos la imagen deacuerdo a la ruta donde se encuetra la imagen
Private Sub Command1_Click()
End
End Sub
 
Private Sub Label1_Click()
Label1.Caption = Time
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
 





BOTON MULTI OPCCIONES  BOTON MULTI OPCCIONES PRACTICA 2


'PRIMERO AGREGAREMOS DOS BOTONES DE ACCION O COMMANBUTTON
'UNO QUE SE LLAME MULTIOPCION
'Y EL OTRO QUE SE LLAME SALIR
'EN EL BOTON UNO AGREGAREMOS EL SIGUIENTE CODIGO
Private Sub Command1_Click()

resultado = MsgBox("Hola Mundo", vbAbortRetryIgnore + vbQuestion, "Mensaje especial")
Select Case resultado
    Case vbOK:
        MsgBox "Se pulsó el botón Aceptar"
    Case vbCancel:
        MsgBox "Se pulsó el botón Cancelar"
    Case vbAbort:
        MsgBox "Se pulsó el botón Anular"
    Case vbRetry:
        MsgBox "Se pulsó el botón Reintentar"
    Case vbIgnore:
        MsgBox "Se pulsó el botón Omitir"
    Case vbYes:
        MsgBox "Se pulsó el botón Si"
    Case vbNo:
        MsgBox "Se pulsó el botón No"
End Select

End Sub
'EN EL BOTON SALIR SE AGREGARA LO SIGUENTE
Private Sub Command2_Click()
End

End Sub






CONVERSION DE HORAS A MINUTOS Y SEGUNDOS PRACTICA 3
'CONVERSION DE HORAS A MINUTOS Y SEGUNDOS
'AGREGAREMOS 3 TEXTBOX
'3 LABEL
'2 COMMANBUTTON
' PARA REALIZAR ESTE EJERCICIO
'DEBEMOS CONSIDERAR LO SIGUENTE:
'SI QUEREMOS CONVERTIR UNA HORA EN MINUTOS ¿CUANTOS MINUTOS TIENE UNA HORA?
'¿CUANTOS SEGUNDOS TIENE UN MINUTO?

AGREGAREMOS EN EL BOTTON 1 (CONVERTIR)
Private Sub Command1_Click()
Dim result, resulta As Double
result = Val(Text1.Text) * (60)
Text2.Text = Str(result)
resulta = Val(Text2.Text) * (60)
Text3.Text = Str(resulta)
End Sub

AGREGAREMOS EN EL BOTTON 2 (SALIR)
Private Sub Command2_Click()
End
End Sub




'REALIZAREMOS UN PROGRAMA DE IMPRIMIR Y SALIR PRACTICA 4 
'REALIZAREMOS UN PROGRAMA DE IMPRIMIR Y SALIR
'EL PROGRAMA IMPRIMIRA TEXTO EN EL FORMULARIO
'REALIZAREMOS TRES BOTONES CON COMMANBUTTON
'CAMBIAREMOS EL COLOR DEL FORMULARIO
'EN EL COMMANBUTON UNO LE CAMBIAREMOS  A:NOMBRE
'EN EL COMMANBUTTON DOS LE CAMBIAREMOS A:DESPEDIDA
'EN EL TERCERO CAMBIAREMOS A: SALIR
' CON EL SIGUENTE CODIGO:



Private Sub Command1_Click()
Dim Nombre As String * 20
Nombre = "IVAN HERNADEZ DIAZ"
saludo = "HOLA"
Print saludo; y; Nombre
End Sub
Private Sub Command2_Click()
saludo = "ADIOS"
Print saludo
End Sub

Private Sub Command3_Click()
End

End Sub



MENSAJE 1 PRACTICA 5

'AGREGAMOS UN TEXBOX
'UN  COMMAN BUTTON


Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then
MsgBox "DESEA SALIR"
End If
End Sub

Private Sub Form_Load()

End Sub




'SOLO AGREGAREMOS UN COMMANBUTTON
' UN FRAME
'CODIGO:
Private Sub Command1_Click()

MsgBox "Hola Ivan"
End Sub

 

MENSAJE 2 PRACTICA 6

 

MENSAJE 3 PRACTICA 7

'SOLO AGREGAREMOS UN FORMULARIO 
'CARGAREMOS UNA IMAGEN A EL FORMULARIO
'Y ESCRIBIR EL CODIGO EN EL FORMULARIO  

CODIGO:
Private Sub Form_Load()
MsgBox "DESEA REALIZAR OTRO MOVIMIENTO", vbYesNo + vbExclamation, "Mensaje especial"
End Sub


REALIZAREMOS UN BOTON QUE MUESTRE EL SIGUIENTE FROM
NECESITAMOS DOS FORM
UN COMMANBOTTON PARA CADA FROM
EL BOTON DEL PRIMER FORM SE LLAMARA SIGUIENTE
EL SEGUNDO CERRAR EL PROGRAMA
EL CODIGO DEL PRIMER FORM SERIA ASI:
Private Sub Command1_Click()
Form2.Show
Unload Me
End Sub
EL SEGUNDO SOLO AGRAGAMOS
End



 

VALOR DE SUMA PRACTICA 8

Escribir un programa que agregue un valor de la suma

Se debe crear:

3 Label (En el tercer Label cambia el BorderStyle de 0 - None a 1 - Fixed Single)

1 TextBox

1 CommandButton

Debe quedar así Código:
Private Sub Command1_Click()
 Dim Valor As Double
    Valor = Text1
    Suma = Suma + Valor
    Label3 = Suma
End Sub



 

TEMPORIZADOR PRACTICA 9

En el siguiente proyecto hay un temporizador Timer 1 con un Interval inicial de 10000 indicado en la ventana de propiedades, pero en tiempo de ejecución el interval dependerá de una barra de desplazamiento horizontal llamada HScroll1. En la caja de texto Text1 aparecerá un texto que cambiará de "Esperando a cambiar" a "Tiempo cumplido". Una etiqueta llamada Label1 indicará el valor que tomará interval según la posición de la barra de desplazamiento horizontal. Habrá también un botón de nombre CmdFinalizar para terminar el programa.




Private Sub CmdFinalizar_Click()
End
End Sub
 
 
Private Sub Form_Load()
 
HScroll1.Min = 100
HScroll1.Max = 2500
HScroll1.SmallChange = 10
HScroll1.LargeChange = 200
Timer1.Enabled = True
End Sub
 
 
 
Private Sub HScroll1_Change()
Label1.Caption = HScroll1.Value
Timer1.Interval = HScroll1.Value
End Sub
   
Private Sub HScroll1_Scroll()
Label1.Caption = HScroll1.Value
End Sub
 
Private Sub Timer1_Timer()
If Text1.Text = "Esperando a cambiar" Then
Text1.Text = "Tiempo cumplido"
Else: Text1.Text = "Esperando a cambiar"
End If
End Sub
 

NUMEROS CONDICIONALES PRACTICA  10

 
 
En este primer ejercicio trata de identificar cual es el número mayor de dos números dados
AÑADIREMOS 2 LABEL
3 TEXTBOX
1 COMANBUTTON
EN EL LABEL 3 CAMBIAMOS EL  NOMBRE  txtResultado
 
 
Le damos doble click al botón de comando y tecleamos lo siguiente:
Private Sub Command1_Click()
If Val(Text1.Text) > Val(Text2.Text) Then
txtResultado.Text = "El mayor es: " & Text1.Text
Else
txtResultado.Text = "El mayor es: " & Text2.Text
End If
End Sub

VOCALES O CONSONANTES PRACTICA  11

Consiste en que al dar una letra te diga si es consonante o si es vocal
 
Agregaremos 1 Label
2 textbox
1 commambutton
En el textbox 1 le cambiamos  en NOMBRE: a  txtletra
En el textbox 2 le cambiamos  en NOMBRE: a  txtresultado
Ahora el siguiente código:
Private Sub Command1_Click()
If txtletra.Text = "a" Or txtletra.Text = "e" Or txtletra.Text = "i" Or txtletra.Text = "o" Or txtletra.Text = "u" Then
txtresultado.Text = "la letra ingresada es una vocal"
Else
txtresultado.Text = "la letra es una consonante"
End If

End Sub
 

MAYOR O MENOR DE EDAD PRACTICA 12

Consiste en que al darle el nombre y la edad de una persona te diga si es mayor o menor de edad
Agregaremos 2 label
3 texbox
1commanbutton
En el texbox 2 cambiamos el nombre: txtedad
En el texbox 3 cambiamos el nombre a: txtresultado
 
Para eso la codificación es la siguiente:
Private Sub Command1_Click()
If txtedad.Text >= 18 Then
txtresultado.Text = "es mayor de edad"
Else
txtresultado.Text = "es menor de edad"  
End If
End Sub
 

LISTA MULTI OPCION PRACTICA  13

consiste en que debes realizar una lista de carreras en el que al escoger una de ellas te salga el costo
AGREGAREMOS: 1 LABEL
1 COMBOBOX
1 TEXBOX
EN EL COMBOBOX CAMBIAMOS EL NOMBRE A: cbocarrera
EN EL TEXBOX CAMBIAMOS EL NOMBRE A: txtresultado
 
Para lo cual debemos asignarle la siguiente codificación:
En el formulario:
Private Sub Form_Load()
cbocarrera.Clear
cbocarrera.AddItem "Administrador"
cbocarrera.AddItem "Profesor"
cbocarrera.AddItem "Ingeniero"
cbocarrera.AddItem "webmaster"
End Sub
En el combo1:
Private Sub cbocarrera_Click()
If cbocarrera.Text = "Administrador" Then
txtresultado.Text = "El costo de su carrera es $5000(Administración)"
Else
End If
If cbocarrera.Text = "Profesor" Then
txtresultado.Text = "El costo de su carrera es $2000(Profesor)"
Else
End If
If cbocarrera.Text = "Ingeniero" Then
txtresultado.Text = "El costo de su carrera es $8000(Ingeniero)"
Else
End If
If cbocarrera.Text = "Webmaster" then
txtresultado.Text = "El costo de su carrera es $65(Webmaster)"
Else
End If
End Sub