Practica VB
Enviado por mirerick • 20 de Septiembre de 2015 • Práctica o problema • 562 Palabras (3 Páginas) • 173 Visitas
CURSO: Lenguaje de Programación Visual Basic
INSTRUCTOR: L.I. Raymundo Lumbreras López
Nombre del participante: __________________________________________________________________
Práctica No. 1A
Objetivo: Que el participante experimente con la programación utilizando los objetos vistos durante las clases y pueda incorporar algunos métodos y pueda hacer uso de los eventos propios de cada uno de esos objetos. |
Instrucciones: Capture la siguiente información tomando en consideración que debe modificar algunas de las propiedades de los diferentes objetos como: Formularios, Botones de Comando, Caja de Gráfico, etc. |
Desarrollo:
[pic 2]
[pic 3]
Objeto | Name | Caption | AutoRedraw | BackColor |
CommandButton | cmdOpera | Operaciones | ||
CommandButton | cmdLimpia | Limpiar | ||
CommandButton | cmdInstr | Instr | ||
CommandButton | cmdString | String/Str | ||
CommandButton | cmdVal | Val | ||
CommandButton | cmdNow | Now | ||
CommandButton | cmdSpace | Space/Date/Time | ||
PictureBox | picOpera | True | &H00FFFFFF& | |
Form | frmApoyo | Operaciones Básicas |
Private Sub cmdInstr_Click()
Dim CadenaA As String, CadenaB As String
CadenaA = "Programación con Visual Basic"
CadenaB = "Gram"
picOpera.Print CadenaA, CadenaB
picOpera.Print InStr(CadenaA, CadenaB), InStr(6, CadenaA, CadenaB)
End Sub
Private Sub cmdLimpia_Click()
picOpera.Cls
End Sub
Private Sub cmdNow_Click()
Dim CadenaA As String
CadenaA = Now
picOpera.Print Format(CadenaA, "d-m-yy")
picOpera.Print Format(CadenaA, "dd/mm/yy")
picOpera.Print Format(CadenaA, "dd-mmm-yyyy")
picOpera.Print Format(CadenaA, "d-mmm m-yyyy")
picOpera.Print Format(CadenaA, "dddd dd - mmm m - yyyy")
picOpera.Print Format(CadenaA, "h:m:s, d-mmm-yy")
picOpera.Print Format(CadenaA, "hh:mm:ss AM/PM, dd-mmm-yyyy")
picOpera.Print Format(CadenaA, "dddd d"); " de "; Format(CadenaA, " mmmm"); " de "; Format(CadenaA, "yyyy")
...