PROGRAMACION VISUAL

    Blog

    Menú

    | Más

    Vínculos

    Si buscas hosting web, dominios web, correos empresariales o crear páginas web gratis, ingresa a PaginaMX
    Por otro lado, si buscas crear códigos qr online ingresa al Creador de Códigos QR más potente que existe


    CONVERSION DE CENTIGRADOS A FARENHEIT PRACTICA 14

     ‘REALIZAREMOS UN PROGRAMA DONDE UTILIZAREMOS LO SIGUIENTE
    ‘2 TEXBOX:
    EN EL TEXBOX UNO CAMBIAMOS EL NAME POR (txtcm)
    EN EL TEXBOX 2 CAMBIAMOS EL NAME A: (txtpul)
    ‘3 LABEL
      PRIMERO CONVERSION DE °C A °F
    EN EL SEGUNDO: °F
    EN EL TERCERO: °K
    EN EL PRIMER COMMANBUTTON PONEMOS LO SIGUIENTE:
    PRIMER COMMANBUTTO CALCULAR
    SEGUNDO COMMANBUTON LIMPIAR
    TERCER COMMANBUTTO SALIR.

    Private Sub Command1_Click()
    cm = Val(txtcm.Text)
    pul = Val(txtpul.Text)
    pul = (cm * -273.15) + 32
    txtpul.Text = pul
    End Sub

    Private Sub Command2_Click()
    txtcm.Text = ""
    txtpul.Text = ""

    End Sub

    Private Sub Command3_Click()
    End
    End Sub

    Private Sub Text1_Change()

    End Sub

    CONTADOR PRACTICA 15



    AGREGAREMOS DOS COMMANDBUTTON
    UN LABEL
    DAMOS UN DOBLE CLICK EN EL FORMULARIO  Y DONDE DICE FORM SELECCIONAMOS LA OPCION DE GENERAL PARA DECLARAR LA SIGUIENTE VARIABLE
    Public contador As Integer
    PARA EL COMMANBUTTON AGREGAMOS EL SIGUIENTE CODIGO
    contador = contador + 1
    Label1.Caption = contador
    PARA EL BOTON LIMPIAR EL SIGUIENTE CODIGO  
    contador =0
    Label1.caption = ("0")



    CALCULAR AREAS DE  CUADRADO, TRIANGULO,RECTANGULO PRACTICA 16



    AGREGAREMOS LO SIGUIENTE
    8 TEXBOX
    8 LABEL
    5 COMMANBUTTON
    EN LOS LABEL AGREGAREMOS LO SIGUIENTE:
    LABEL 1,2 PARA EL CUADRADO
    LABEL 1 VALOR DE LADO
    LABEL2 AREA
    LABEL 3, 4,5 PARA EL RECTANGULO
    LABEL3 LADO MENOR
    LABEL4 LADO MAYOR
    LABEL5 AREA
    LABEL 6,7,8 PARA EL TRINAGULO
    LABEL6 BASE
    LABEL 7 ALTURA
    LABEL 8 AREA
     
     
    Option Explicit
    Private Sub Command1_Click()
    Text2 = Val(Text1.Text) * Val(Text1.Text)
    End Sub
    Private Sub Command2_Click()
    Text5 = Val(Text3.Text) * Val(Text4.Text)
    End Sub
    Private Sub Command3_Click()
    Text8 = Val(Text6.Text) * Val(Text7.Text) / 2
    End Sub
    Private Sub Command4_Click()
    End
    End Sub
    Private Sub Command5_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
     
    End Sub

    CAMBIAMOS COLORES PRACTICA 17


    REALIZAREMOS LO SIGUIENTE
    PRIMERO COLOCAREMOS 2 FRAME ES EL QUE TIENE XY
    AGREGAREMOS 6 OPTION BUTTON
    UN COMMANDBUTTON CON NOMBRE EN ELCAPTION DE SALIR
    UN LABEL DONDE CAMBIAREMOS EL NAME A: txtcaja
     
    EN EL PRIMERO FRAME COLOCAREMOS 4 OPTIONBUTTON
    CADA OPTION BUTTON TIENE NOMBRE EN EL CAPTION
    AZUL   EN EL NAME CAMBIA A: Optazul
    ROJO EN EL NAME CAMBIA A: Optrojo
    VERDE EN EL NAME CAMBIA A: Optverde
    AMARILLO EN EL NAME CAMBIA A: optamarillo
    EN EL SEGUNDO FRAME COLOCAREMOS OTROS 2 OPTION BUTTON
    CADA UNO CON NOMBRE EN EL CAPTION
    ARRIBA EN EL NAME CAMBIA A: optarriba
    ABAJO EN EL NAME CAMBIA A: optabajo
     
    CODIGO:
    Private Sub Option5_Click()
     
    End Sub
     
    Private Sub Command1_Click()
    End
     
    End Sub
     
    Private Sub optabajo_Click()
    txtcaja.Top = frmcolores0.ScaleHeight - txtcaja.Height
     
     
    End Sub
     
    Private Sub optamarillo_Click()
    txtcaja.BackColor = vbYellow
     
    End Sub
     
    Private Sub optarriba_Click()
    txtcaja.Top = 0
     
    End Sub
     
    Private Sub Optazul_Click()
    txtcaja.BackColor = vbBlue
     
    End Sub
     
    Private Sub Optrojo_Click()
    txtcaja.BackColor = vbRed
     
    End Sub
     
    Private Sub Optverde_Click()
    txtcaja.BackColor = vbGreen
     
    End Sub
     
    Private Sub txtcaja_Click()
     
    End Sub
    CALCULAR EDAD PRACTICA 18




    Crea un formulario con tres etiquetas, dos cajas de texto y tres botones, escribe el siguiente código:
    El botón Calcular la Edad
    Private Sub Command1_Click()
    Dim fecnac As Date, edad As Integer
    fecnac = CDate(Text1)
    edad = CInt((Date - fecnac) / 365)
    Text2 = Str(edad) & " años"
    End Sub
    El botón Nuevo Cálculo
    Private Sub Command2_Click()
    Text1 = ""
    Text2 = ""
    Text1.SetFocus
    End Sub
    El botón Salir
    Private Sub Command3_Click()
    Unload Me
    End
    End Sub



      SEMINARIO DE SISTEMAS PROYECTO FINAL 19
     
    Tu Sitio Web Gratis
    © 2025 PROGRAMACION VISUAL