Pasos para crear un DLL para aplicaciones. (SEMANA 30)

 1.- PRIMERAMENTE INICIALIZAMOS EL PROGRAMA Y SELECCIONAMOS UN DLL ACTIVEX

 2.- SEGUIDAMENTE codificamos nuestra nueva clase con la siguiente codificación

Public Sub clave(cp As String)

Dim i As Integer

Dim codigo(3) As String

codigo(0) = "00000"

codigo(1) = "11111"

codigo(2) = "22222"

codigo(3) = "33333"

If cp <> "" Then

 For i = 0 To 3

 If codigo(i) = cp Then

 MsgBox ("LA CLAVE ES CORRECTA PRODUCTO ACTIVADO")

 Exit For

 Else

 MsgBox ("LA CLAVE INGRESADA ES INCORRECTA")

 Exit For

 End If


 Next

Else

 MsgBox ("FAVOR INGRESE UN CODIGO")

 End If


End Sub

LUEGO DAMOS CLIC EN EL ICONO DE GUARDAR , Y LE ASIGNAMOS AL PRIMER ARCHIVO  EL  NOMBRE“CLAVE” Y AL PROYECTO “DLLCLAVE”TODO ESTO EN UNA CARPETA

LUEGO DE HACER ESTE PROCESO NOS DIRIGIMOS AL MENÚ ARCHIVO-GENERAR PROYECTO Y SELECCIONAMOS EL ARCHIVO ANTES CREADO Y ACEPTAR

POSTERIORMENTE CREAMOS UN NUEVO PROYECTO EXE ESTÁNDAR CON UN NUEVO FORMULARIO

UNA VEZ CREADO ESTE NUEVO FORMULARIO DAMOS CLIC EN EL TEXTBOX Y NOS

UBICAMOS EN EL MENÚ PROYECTO Y SELECCIONAMOS LA OPCION “AGREGAR MODULO

DE CLASE”, DAMIS CLIC EN EXISTENTE, SELECCIONAMOS CLASE Y ABRIR.

SEGUIDAMENTE EN EL MISMO TEXBOX SELECCIONADO VOLVEMOS A INGRESAR AL

MENÚ PROYECTO Y SELECCIONAMOS LA OPCIÓN REFERENCIAS -EXAMINAR-BUSCAMOS

LA CARPETA DONDE TENEMOS GUARDADOS NUESTRA CLASE Y PROYECTO

SELECIONAMOS EL ARCHIVO GENERADO Y ACEPTAR

BUENO LLEGO LA HORA DE PROGRAMAR EN EL PRIMER FORMULARIO EN EL BOTON

“INGRESAR CLAVE PONEMOS EL SIGIENTE CODIGO

Private Sub Command1_Click()

cmdprincipal.Hide

fmractivar.Show

End Sub”

LUEGO EN EL SEGUNDO FORMULARIO EN EL BOTON ACTIVAR PONEMOS LA SIGUIENTE

CODIFICACION

Dim cl As New Class1

Private Sub Command1_Click()

cl.clave txtcodigo.Text

txtcodigo.Text = ""

txtcodigo.SetFocus

End Sub

BUENO AHORA A CORRER EL PROGRAMA DEPURADO ANTERIORMENTE.



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 y que calcule el salario de un trabajador. (SEMANA 31)

Imagen
  CALCULAR EL SALARIO DE UN TRABAJADOR  1.- PRIMERAMENTE CREAMOS UN EXE ESTÁNDAR , LUEGO DISEÑAMOS NUESTRO FORMULARIO Y LE COLOCAMOS UN FONDO DE PREFERENCIA DEL COLOR QUE UD DECIDA , LUEGO UBICAMOS 4 LABEL DONDE SE SE LE APLICARA A CADA UNA LA PROPIEDAD (BACKSTYLE - TRANSPARENTE) PARA QUE SE LE QUITE EL FONDO DE LA LABEL Y SE VEA EL FONDO DEL FORMULARIO VEAMOS LA IMAGEN; ADEMAS INSERTAREMOS 3 TEXTBOX A LADO DE CADA LABEL, 2 COMANDBUTTON. 2. LE PONEMOS LOS SIGUIENTES CODIGOS A LOS BOTONES PARA EL BOTON SALARIO Private Sub Command1_Click() total = "EL SALARIO TOTAL ES: $ " & ph * ht If ht >= 40 Then total = "EL SALARIO TOTAL ES : $ " & phe * (ht - 40) + 40 + ph End If End Sub PARA EL BOTON BORRAR Private Sub Command2_Click() ph = "" phe = "" ht = "" End Sub 3. EJECUTAMOS EL FORMULARIO 
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