VISUAL BASIC

Visual Basic es un lenguaje de programación desarrollado por el alemán Alan Cooper para Microsoft. El lenguaje de programación es un dialecto de BASIC, con importantes agregados. Su primera versión fue presentada en 1991, con la intención de simplificar la programación utilizando un ambiente de desarrollo completamente gráfico que facilitara la creación de interfaces gráficas y, en cierta medida, también la programación misma. Desde el 2001 Microsoft ha propuesto abandonar el desarrollo basado en la API Win32 y pasar a trabajar sobre un framework o marco común de librerías independiente de la versión del sistema operativo, .NET Framework, a través de Visual Basic .NET (y otros lenguajes como C Sharp (C#) de fácil transición de código entre ellos).

Visual Basic (Visual Studio) constituye un IDE (entorno de desarrollo integrado, o, en inglés, Integrated Development Enviroment) que ha sido empaquetado como un programa de aplicación; es decir, consiste en un editor de código (programa donde se escribe el código fuente), un depurador (programa que corrige errores en el código fuente para que pueda ser bien compilado), un compilador (programa que traduce el código fuente a lenguaje de máquina), y un constructor de interfaz gráfica o GUI (es una forma de programar en la que no es necesario escribir el código para la parte gráfica del programa, sino que se puede hacer de forma visual).

Algunos ejemplos:

DISEÑO DE PANTALLA DEL FORMULARIO DE ALTA DE ALUMNO

PROPIEDADES DEL FORMULARIO

NOMBRE: Frm_Altaalumnos

CAPTION:ALUMNOS

Backcolor:

WindowState: 0- Normal

ControlBox: False

PROPIEDADES DE LOS MENUS

CAPTION: Registrar

NAME: Alumregistrar

CAPTION: Volver

NAME: Alumvolver

PROPIEDADES DE LAS ETIQUETAS

1	Nombre:	Lbl_Regisalum
	Caption:	Registro de alumnos
	Backstile:	0-Trasparent

2	Nombre:	Lbl_Ncontrol	3	Nombre:	Lbl_Apaterno
	Caption:	Numero de control:		Caption:	Apellido paterno:
	Backstile:	0-Trasparent		Backstile:	0-Transparent

4	Nombre:	Lbl_Amaterno	5	Nombre:	Lbl_Nombre
	Caption:	Apellido materno:		Caption:	Nombre:
	Backstile:	0-Trasparent		Backstile:	0-Transparent

6	Nombre:	Lbl_Generacion	7	Nombre:	Lbl_Ceritfi
	Caption:	Generación:		Caption:	No. De  Certificado:
	Backstile:	0-     Trasparent		Backstile:	0-Transparent

8	Nombre:	Lbl_NoCarta	9	Nombre:	Lbl_Espe
	Caption:	No. De Carta:		Caption:	Direccion:
	Backstile:	0-Trasparent		Backstile:	0-Transparent

Propiedades de los cuadros de texto

1	Nombre:	Txt_Ncontrol	2	Nombre:	Txt_Apaterno

3	Nombre:	Txt_Amaterno	4	Nombre:	Txt_Nombre
	Text:

5	Nombre:	Cbo_Gene	6	Nombre:	Txt_Ceritfi

7	Nombre:	Txt_NoCarta	8	Nombre:	Txt_Espe

CODIGO PARA EL FORMULARIO ALTA DE ALUMNOS

Private Sub Form_Load()

  Me.Cbo_Gene.Clear

  Me.Txt_Apaterno.Visible = False

  Me.Txt_Amaterno.Visible = False

  Me.Txt_Nombre.Visible = False

  Me.Cbo_Gene.Visible = False

  Me.Txt_Certifi.Visible = False

  Me.Txt_NoCarta.Visible = False

  Me.Txt_Espe.Visible = False

  consulta = "SELECT GENERACIONES.GENERACION From GENERACIONES;"

  ABREBD

  rs.Open consulta, conectar

 If Not rs.EOF Then

      Do While Not rs.EOF

          Me.Cbo_Gene.AddItem Trim(rs(0))

          rs.MoveNext

     Loop

   End If

  CIERRABD

      Call limpia

End Sub

Private Sub Image1_Click()

 fcbtis.Hide

End Sub

CODIGO PARA EL PROCEDIMIENTO LIMPIA

Private Sub limpia()

 Me.Txt_Apaterno = Delete

            Me.Txt_Amaterno = Delete

            Me.Txt_Nombre = Delete

            Me.Cbo_Gene = Delete

            Me.Txt_Certifi = Delete

            Me.Txt_NoCarta = Delete

            Me.Txt_Espe = Delete

            End Sub

CODIGO PARA EL CUADRO DE TEXTO Txt_Ncontrol

Private Sub Txt_Ncontrol_Change()

Me.Txt_Ncontrol.Refresh

clave1 = Me.Txt_Ncontrol

 If (Len(Trim(clave1))) = 14 Then

        consulta = "Select * from alumnos where ncontrol='" & Trim(Me.Txt_Ncontrol) & "' "

        ABREBD

        rs.Open consulta, conectar

        If Not rs.EOF Then

            MsgBox "El alumno ya esta registrado....o la clave ya existe", vbOKOnly, "Error.."

        Else

         

            Me.Txt_Apaterno.Visible = True

            Me.Txt_Amaterno.Visible = True

            Me.Txt_Nombre.Visible = True

            Me.Cbo_Gene.Visible = True

            Me.Txt_Certifi.Visible = True

            Me.Txt_NoCarta.Visible = True

            Me.Txt_Espe.Visible = True

                   End If

        CIERRABD

 Else

   Call Form_Load

 End If

End Sub

CODIGO PARA EL MENU REGISTRAR

Private Sub Alumregistrar_Click()

If (Me.Txt_Ncontrol <> "") AND (Me.Txt_Apaterno<>””) And (Me.Txt_Amaterno<>””) And (Me.Txt_Nombre<>””) And (Me.Txt_Cbo_Gene<>””) And (Me.Txt_Certifi<>”) And (Me.Txt_NoCarta<>””) And (Me.Txt_Espe<>”” Then

   consulta = "insert into alumnos (Ncontrol,Apaterno,Amaterno,Nombre,Generacion,Nocertificado,Nocarta,Especialidad) values ('" & Trim(Me.Txt_Ncontrol) & "', '" & Trim(Me.Txt_Apaterno) & "', '" & Trim(Me.Txt_Amaterno) & "', '" & Trim(Me.Txt_Nombre) & "', '" & Trim(Me.Cbo_Gene) & "'   , '" & Trim(Me.Txt_Certifi) & "' , '" & Trim(Me.Txt_NoCarta) & "', '" & Trim(Me.Txt_Espe) & "')"

    ABREBD

    conectar.Execute consulta

    conectar.Close

    MsgBox "Se ha dado de Alta.......c/Exito", vbOKOnly, "Registro..."

    Me.Txt_Ncontrol = " "

    Call limpia

 Else

    MsgBox "Por favor Llene todos los datos, sino, no sera posible dicha operacion....", vbOKOnly, "Registro..."

    Call limpia

  End If

End Sub

CODIGO PARA EL MENU VOLVER

Private Sub Alumvolver_Click()

Frm_Altaalumnos.Hide

End Sub