Pasos para crear una tabla de multiplicar. (SEMANA 27)

 Proceso:


1.Iniciar el programa.

2.Apertuamos un EXE ESTANDAR.

3.En el formulario insertamos los siguientes objetos (label, 2 textbox y 3 comandbutton).

4.Adjuntamos los códigos de los comandbutton.

Private Sub Command1_Click()                                                                  
    Dim N As Integer
 
N = Val(Text1.Text)
 
    For i = 1 To 12
 
        Text1.AddItem i & " x " & N & " = " & i * N
 
    Next
 
End Sub

Private Sub Command2_Click()
    Text1.Text = ""
End Sub

Private Sub Command3_Click()
    End
End Sub

5.. Por ultimo ejecutamos el programa.

Comentarios

Publicar un comentario

Entradas más populares de este blog

Pasos para crear un formulario. (SEMANA 22)

Imagen
    Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.      Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).      Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.      Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de X con f...
Leer más

PASOS PARA CREAR UNA CALCULADORA DEL IMC (ÍNDICE DE MASA CORPORAL) DE UNA PERSONA. (SEMANA 28)

Imagen
  PRIMERAMENTE INICIALIZAMOS VISUAL, LUEGO CREAMOS UN EXE ESTÁNDAR  SEGUIDAMENTE DISEÑAMOS NUESTRO FORMULARIO CON 3 LABEL, 3 CAJAS DE TEXTO, 2 BOTONES Y UN PICTUREBOX PARA INSERTAR UNA IMAGEN (TABLA IMC EN FORMATO JPG) EN EL DISEÑO DEL FORMULRIO DEBEN ASIGNAR UN NOMBRE AL FORMULARIO EN SU PROPIEDAD CAPTION , LUEGO EN BACKCOLOR ASIGNAR UN COLOR DE FONDO; EL MISMO COLOR SE DEBERÁ ASIGNAR A LAS LABEL. BUENO AHORA COMENZAR A PROGRAMAR PRIMERAMENTE EL FORMULARIO CON LA SIGUIENTE LINEA DE CODIGO QUE PREVIAMENTE DEBEN ELIMINAR LO QUE COMUNMENTE APARECERA AL DAR DOBLE CLIC EN EL FORMULARIO . Dim peso, talla, resultado As Double CÓDIGO DEL BOTON CALCULAR Private Sub Command1_Click() peso = Textpeso.Text talla = Texttalla.Text resultado = peso / (talla * talla) Textresultado.Text = resultado Textpeso.Text = "" Texttalla.Text = "" Textpeso.SetFocus CÓDIGO PARA QUE LA CAJA DE TEXTO DONDE APARECE EL RESULTADO NO SE PUEDA INGRESAR ABSOLUTAMENTE NADA Private Sub Form_Load() Textre...
Leer más

Como crear un efecto de animación o en movimiento como marquesina. (SEMANA 29)

Imagen
  1,- PRIMERAMENTE INICIALIZAMOS EL PROGRAMA Y SELECCIONAMOS UN EXE ESTÁNDAR; LUEGO AL FORMULARIO QUE APARECE LE MODIFICAMOS SU TAMAÑO. 2.- SEGUIDAMENTE DISEÑAMOS NUESTRO NUEVO FORMULARIO COLOCANDO UNA LABEL CON UNA FRASE, INSERTAMOS 2 TIMER Y CAMBIAMOS EL FONDO DEL FORMULARIO Y DE LA FUENTE Y FONDO DE LA LABEL . 3.- ESCRIBIMOS LA SIGUIENTE CODIFICACIÓN EN EL PRIMER TIMER Private Sub Timer1_Timer() If Label1.Left <= Form1.ScaleWidth - Label1.Width Then Label1.Left = Label1.Left + 75 Else Timer2.Enabled = True Timer1.Enabled = False End If End Sub 4.- Y ESTA NUEVA CODIFICACION PARA EL SEGUNDO TIMER Private Sub Timer2_Timer() If Label1.Left >= Form1.ScaleLeft Then Label1.Left = Label1.Left - 75 Else Timer1.Enabled = True Timer2.Enabled = False End If End Sub BUENO AHORA A CORRER EL PROGRAMA DEPURADO ANTERIORMENTE Y OBSERVAREMOS LA SIGUIENTE VENTANA 
Leer más