Visual Basic II - Clase I - Conceptos

Conceptos:

Bases de Datos:
Es un conjunto de información que pertenece al mismo contexto.(Concepto general)
Es un conjunto de tablas relacionadas lógicamente entre sí. (Concepto desde el punto de vista de la programación)

Tabla:
Es un archivo que permite almacenar datos en base a una estructura formada por filas y columnas. Trabajaremos con bases de datos hechas en Access. La extensión de estos archivos será ".mdb". Para tener una idea de su apariencia se pueden comparar a una hoja de Excel.

Registro:
Es la información completa que se guarda de las entidades que se están procesando. Un registro se le llama a cada fila de cada tabla de la base de datos.

Campos:
Es cada uno de los datos que se guarda de cada entidad que se está procesando. Un campo es cada cuadrito de una misma fila en la tabla.

Indices:
Son los que permiten relacionar físicamente las tablas. Están formados por uno o más campos y su función es ordenar los datos para facilitar las búsquedas, además permiten restringir la entrada de datos en algunos casos. Hay dos tipos de índice:
Clave Primaria o Principal: No acepta claves duplicadas o datos nulos.
Clave Normal: Permite claves duplicadas y datos nulos.

En resumen, los índices sirven para ordenar, buscar, restringir y relacionar tablas. Los tipos de relación entre tablas pueden ser:
De uno a uno
De uno a muchos

Visual Basic - Clase VIII - Control de Alumnos, Control de Productos, Screensaver y Visor de Imágenes

En este enlace pongo los códigos de la última tarea del módulo:



Al descargar es un archivo .rar, adentro está ControlProductos - VisualBasicProject. Ese es el archivo que tienen que abrir con VB6 para ver los códigos.

Visual Basic - Clase VII - Reloj y Semáforo

Hoy veremos como hacer un Reloj Digital y un semáforo que al cambiar a verde haga que se muevan dos vehículos y al cambiar a amarillo uno disminuya la velocidad y se detenga finalmente en rojo. Arriba está la imagen de muestra y a continuación el código:

Reloj Digital:

Private Sub Form_Load()
TmrM.Enabled = False
TmrH.Enabled = False
LblP1.Caption = ""
LblP2.Caption = ""
End Sub


Private Sub TmrS_Timer()
LblS.Caption = LblS.Caption + 1
If LblS.Caption Mod 2 = 0 Then
LblP1.Caption = ""
LblP2.Caption = ""
ElseIf LblS.Caption Mod 2 <> 0 Then
LblP1.Caption = ":"
LblP2.Caption = ":"
End If
If LblS.Caption = 59 Then
TmrM.Enabled = True
LblS.Caption = 0
End If
End Sub

Private Sub TmrM_Timer()
If TmrM.Enabled = True Then
LblM.Caption = LblM.Caption + 1
TmrM.Enabled = False
If LblM.Caption = 59 Then
LblM.Caption = 0
End If
End If
End Sub


Es de tomar en cuenta que:

• Los numeros del reloj van a ir en Labels. También los dos puntos que los separan.
• Lbl es el prefijo de Label.
• LblS es el prefijo del Label de los segundo, LblM para minutos y LblH para las horas.
• Tmr es el prefijo de Timer.
• TmrS es el Timer de los segundos, TmrM para minutos y TmrH para las horas.
• LblP1 y LblP2 son los Labels de los dos puntos.
• El intervalo(Interval) que se le asignará a TmrS en la Ventana de Propiedades es 1000.
• El interval que se le asignará a TmrM y TmrH va a ser de 50 y Enabled=False para estos dos.
• LblP1 y LblP2 tendrán en la propiedad Caption esto ":" .

• LblS, LblM y LblH tendrán en Caption el valor 0, y la Alineación (Alignment) en Center.

Cualquier duda pregunten.


Este es el código del semáforo:


Private Sub Form_Initialize()
ShpV.BackColor = vbGreen
TmrV.Enabled = True
TmrA.Enabled = False
TmrR.Enabled = False
TmrWin.Enabled = False
Label1.Visible = False
Label2.Visible = False
End Sub

Private Sub TmrV_Timer()
If TmrV.Enabled = True Then
TmrBlack.Enabled = True
TmrBlue.Enabled = True
End If
If TmrV.Interval = 3000 Then
ShpV.BackColor = vbBlack
TmrV.Enabled = False
TmrA.Enabled = True
End If
ShpA.BackColor = vbYellow
End Sub

Private Sub TmrA_Timer()
If TmrA.Interval = 1000 Then
ShpA.BackColor = vbBlack
TmrA.Enabled = False
TmrR.Enabled = True
End If
ShpR.BackColor = vbRed
TmrWin.Enabled = True
End Sub

Private Sub TmrR_Timer()
If TmrR.Interval = 3000 Then
ShpR.BackColor = vbBlack
TmrR.Enabled = False
TmrV.Enabled = True
End If
ShpV.BackColor = vbGreen
BlackCar.Left = 0
BlueCar.Left = 0
End Sub

Private Sub TmrBlack_Timer()
If ShpV.BackColor = vbGreen Then
BlackCar.Left = BlackCar.Left + 55
BlueCar.Left = BlueCar.Left + 36
End If
If ShpA.BackColor = vbYellow Then
BlueCar.Left = BlueCar.Left + 7
End If
End Sub

Private Sub TmrWin_Timer()
If ShpR.BackColor = vbRed Then
Label1.Visible = True
Label2.Visible = True
Label1.Top = Label1.Top + 8
Label2.Top = Label2.Top + 8
End If
If ShpV.BackColor = vbGreen Then
Label1.Visible = False
Label2.Visible = False
Label1.Top = 1560
Label2.Top = 1920
End If
End Sub

Diseño:

• La calle, las líneas blancas, la línea cuadriculada, el rectángulo amarillo del semáforo y los tres círculos que tiene el semáforo son todos objetos Shape, su prefijo será Shp.
• ShpV, ShpA, ShpR son los tres círculos del semáforo; verde, amarillo y rojo respectivamente.
• Habrán tres objetos Timer(Tmr), uno para cada Shp del semáforo. Estos Timers se llamarán TmrV, TmrA, y TmrR las ShpV, ShpA y ShpR respectivamente.
• Al ejecutarse el programa el ShpV tiene que estar en verde y los demás en negro.
• Las propiedades que tendrán que cambiar en los objetos ShpV, ShpA y ShpR serán: Shape:Circle, BackStyle:Opaque.
• La propiedad Interval de TmrV y TmrR será igual a 3000.
• La propiedad Interval de TmrA será igual a 1000.

Es todo, dudas o comentarios pueden escribir al e-mail o como comentario de ésta entrada.

FIN DE CLASE VII.

Visual Basic I - Clase VI

TAREA 3:
Hacer dos calculadoras con la apariencia vista en clases.


RESOLUCION

Calculadora 1:

Private Sub Form_Initialize()
TxtV1.Enabled = False
TxtV2.Enabled = False
LstOp.Enabled = False
TxtResult.Enabled = False
CmdOut.Enabled = False
TxtV1.Text = ""
TxtV2.Text = ""
TxtResult.Text = ""
End Sub

Private Sub CmdNew_Click()
TxtV1.Enabled = True
TxtV1.SetFocus
TxtV2.Enabled = True
TxtV1.Text = ""
TxtV2.Text = ""
TxtResult.Text = ""
CmdOut.Enabled = False
CmdNew.Enabled = False
End Sub

Private Sub TxtV1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub ' Esto es por si presiona el BackSpace
If KeyAscii <48 Or KeyAscii> 57 Then ' Esto no permite presionar una tecla que no sea un numero
KeyAscii = 0
End If
End Sub

Private Sub TxtV1_Validate(Cancel As Boolean)
If TxtV1.Text = "" Then
MsgBox ("Por favor, escriba un valor.")
Cancel = True
End If
End Sub

Private Sub TxtV2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii <48 Or KeyAscii> 57 Then
KeyAscii = 0
End If
End Sub

Private Sub TxtV2_Validate(Cancel As Boolean)
If TxtV2.Text = "" Then
MsgBox ("Por favor, escriba un valor.")
Cancel = True
End If
End Sub

Private Sub TxtV2_LostFocus()
LstOp.Enabled = True
LstOp.SetFocus
End Sub

Private Sub LstOp_Click()
CmdNew.Enabled = True
CmdOut.Enabled = True
CmdNew.SetFocus
If LstOp.Text = "Suma" Then
TxtResult.Text = Val(TxtV1.Text) + TxtV2.Text
ElseIf LstOp.Text = "Resta" Then
TxtResult.Text = Val(TxtV1.Text) - TxtV2.Text
ElseIf LstOp.Text = "Multiplicación" Then
TxtResult.Text = Val(TxtV1.Text) * TxtV2.Text
ElseIf LstOp.Text = "División" And TxtV1.Text <> 0 And TxtV2.Text <> 0 Then
TxtResult.Text = Val(TxtV1.Text) / TxtV2.Text
ElseIf LstOp.Text = "División" And TxtV1.Text = 0 And TxtV2.Text = 0 Then
MsgBox ("Esta división no se puede realizar.")
End If
End Sub

Private Sub CmdOut_Click()
Unload Me
End Sub


Calculadora 2:

Dim Seleccion As Integer

Private Sub Form_Initialize()
CmdNew.Enabled = True
TxtV1.Enabled = False
TxtV2.Enabled = False
TxtResult.Enabled = False
CmdCalcular.Enabled = False
CmdOut.Enabled = False
OptSuma.Enabled = False
OptResta.Enabled = False
OptMultiplicacion.Enabled = False
OptDivision.Enabled = False
End Sub

Private Sub CmdNew_Click()
CmdNew.Enabled = False
CmdOut.Enabled = False
TxtV1.Enabled = True
TxtV2.Enabled = True
TxtV1.Text = ""
TxtV2.Text = ""
TxtResult.Text = ""
TxtV1.SetFocus
OptSuma.Value = False
OptResta.Value = False
OptMultiplicacion.Value = False
OptDivision.Value = False
End Sub

Private Sub TxtV1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub ' Esto es Por si presiona el BackSpace
If KeyAscii <48 Or KeyAscii> 57 Then ' Si presiono una tecla que no es un numero
KeyAscii = 0
End If
End Sub

Private Sub TxtV1_Validate(Cancel As Boolean)
If TxtV1.Text = "" Then
MsgBox ("Por favor, escriba un valor.")
Cancel = True
End If
End Sub

Private Sub TxtV2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii "<"48 Or KeyAscii">" 57 Then
KeyAscii = 0
End If
End Sub

Private Sub TxtV2_Validate(Cancel As Boolean)
If TxtV2.Text = "" Then
MsgBox ("Por favor, escriba un valor.")
Cancel = True
End If
End Sub

Private Sub TxtV2_LostFocus()
OptSuma.Enabled = True
OptResta.Enabled = True
OptMultiplicacion.Enabled = True
OptDivision.Enabled = True
CmdCalcular.Enabled = True
OptSuma.SetFocus
TxtV1.Enabled = False
TxtV2.Enabled = False
End Sub

Private Sub CmdCalcular_Click()
If OptSuma.Value = True Then
Seleccion = 1
ElseIf OptResta.Value = True Then
Seleccion = 2
ElseIf OptMultiplicacion.Value = True Then
Seleccion = 3
ElseIf OptDivision.Value = True Then
Seleccion = 4
End If
Select Case Seleccion
Case 1
TxtResult.Text = Val(TxtV1.Text) + TxtV2.Text
Case 2
TxtResult.Text = TxtV1.Text - TxtV2.Text
Case 3
TxtResult.Text = TxtV1.Text * TxtV2.Text
Case 4
If OptDivision.Value = True And TxtV1.Text <> 0 And TxtV2.Text <> 0 Then
TxtResult.Text = TxtV1.Text / TxtV2.Text
ElseIf OptDivision.Value = True And TxtV1.Text = 0 And TxtV2.Text = 0 Then
MsgBox ("Esta división no se puede realizar.")
End If
End Select
CmdCalcular.Enabled = False
CmdNew.Enabled = True
CmdOut.Enabled = True
CmdNew.SetFocus
End Sub

Private Sub CmdOut_Click()
End
End Sub


Si alguna parte del código no es entendible entonces pregunten. Solo como aclaración:

En la calculadora 1: FrmCalculadora1 se refiere al nombre del formulario. TxtV1, TxtV2 y TxtResult son las tres casillas de texto. LstOp es la ComboBox donde se elige la operación. CmdNew y CmdOut son los botones de Nuevo y Salir respectivamente. Y en la vista de diseño del programa (osea cuando aparecen los objetos, no el código), se van a la ventana de propiedades de la ComboBox y en Style seleccionan DropDown List.

Para la calculadora 2: FrmCalculadora2 se refiere al nombre del formulario. TxtV1, TxtV2 y TxtResult son las casillas de texto. OptSuma, OptResta, OptMultiplicación y OptDivisión son las opciones que se presentan a la derecha de la pantalla. CmdCalcular, CmdNew y CmdOut son los botones de Calcular, Nuevo y Salir respectivamente.

Si quieren poner imagen en los botones entonces con un boton seleccionado se van a la ventana de propiedades del botón y ahí buscan donde dice Style y lo cambian a Graphical, con eso pueden poner una imagen cualquiera o cambiar el color del fondo del botón.

El código que puse ya está hecho bajo todas las condiciones que el maestro pidió:

1. No se permiten divisiones de 0 entre 0. Aparece un MsgBox cuando eso se intenta.
2. En ninguna casilla de texto(TextBox) se permite digitar letras ni signos, SOLO números.
3. El botón Resultado(CmdResult) siempre está deshabilitado.
4. El botón Nuevo(CmdNew) borra todo.
5. El cursor siempre empieza ubicado en la primera casilla.
6. No se pueden hacer operaciones con números negativos ni decimales.

Los dos códigos cumplen con esas condiciones como les repito. Cualquier duda comentar esta entrada.

FIN DE CLASE VI

Taringa Hackeado

Acabo de entrar a internet, como siempre a publicar en el blog, bajar pelis o algo y entro a Taringa y que me aparece una pagina rara. Creí que era algo con el DNS pero NO! HACKEARON TARINGA.NET. Los responsables son un equipo turco de 7 hackers que se autonombrean NetDevilz Co. sus sobrenombres son ZeberuS- GeCeCi - MiLaNo -SersaK - h4ckinger - The_Bekir - KinSize. Taringa! Inteligencia colectiva jaja!

Visual Basic I - Clase V

Hoy haremos un ejercicio, se tiene que hacer una calculadora sencilla, que solamente sume dos elementos. Se tiene que hacer lo siguiente:

1. Poner 4 casillas de texto alineadas verticalmente a la derecha y 4 Labels alieneados paralelamente a las casillas. Los labels serán llamados Valor1, Valor2, Operación y Resultado.
2. Hacer que el cursor aparezca en la primera casilla al iniciar el programa.
3. Hacer que despues que el usuario introduzca la palabra "Suma" y cambie de casilla presionando TAB, se haga automàticamente la suma y se muestre el resultado en la casilla ùltima.

Una forma de hacer el código sería así:

Private Sub Form_Initialize()
TxtV1.SetFocus()
End Sub

Private Sub TxtV1_GotFocus()
TxtV1.Text = ""
TxtV2.Text = ""
TxtOp.Text = ""
TxtResult.Text = ""
End Sub

Private Sub TxtOp_LostFocus()
If TxtOp.Text <> "Suma" Then
MsgBox ("Error de escritura")
Else
If TxtOp.Text = "Suma" Then
TxtResult.Text = Val(TxtV1.Text) + Val(TxtV2.Text)
End If
End If

Lo único que hay que explicar son los eventos, GotFocus es el evento que ocurre cuando a un objeto, en este caso la casilla de texto, le llega el cursor, con cursor me refiero a la barrita intermitente que aparece cuando uno va a escribir.
El evento LostFocus es cuando un objeto pierde el cursor, es decir cuando desplazamos el cursosr al siguiente objeto con TAB.
La palabra reservada Val lo que hace es convertir un cadena de caracteres en enteros, en este caso ingresaremos en las casillas 1 y 2 valores para que los sume, por eso se tiene que hacer una conversión para que el programa entienda que está trabajando con números no con letras, esa es la función de Val.
Los caracteres <> son Operadores Relacionales. Significan "diferente de", podría ser = "igual que", o > "mayor que", o < "menor que". Las palabras If, Then, Else y End If son una estructura condicional, hay varios tipos de estructuras condicionales, las iremos viendo poco a poco.

If es una estructura condicional simple, sirve para evaluar una condición lógica y permite ejecutar instrucciones diferentes para cuando resulte verdadera y falsa.
Las condiciones se cumplen o no por medio de los operadores relacionales que se usen (=, <, >, <>), se abre una condición con If y se cierra con End If. La sintaxis es simle:

If "Condición a cumplir" Then
"Acción que se hará al cumblir la condición"
End If

La estructura condicional doble plantea una acción en caso de que se cumpla y otra acción en caso de que no se cumpla, la sintaxis es esta:

If "Condición a cumplir" Then
"Acción que se hará al cumplir la condición"
Else
"Acción que se hará en caso de que no se cumpla la condición"
End If

La estructura simple anidada es cuando se encadenan una serie de condiciones en la misma estructura, se hace de la siguiente manera:

If "Condición a cumplir" Then
"Acción que se hará al cumplir la condición"
Else
If "Otra condición que se podría cumplir" Then
"Acción que se hará en este caso"
Else
If...
.
.
End If
End If
End If

La forma que nosotros estaremos utilizando más seguido es la siguiente:

If "condición" Then
"Acciones"
Else If "Otra condición" Then
"Acciones"
...
...
End If

Como podemos ver esto ofrece ventaja ya que no tenemos que cerrar tantas condiciones con End If sino que solamente una.
FIN DE CLASE V.

Visual Basic I - Clase IV

Ahora empezaremos profuncizando un poco en algunos eventos y métodos que estaremos usando:
1. Initialize.
2. Refresh.
3. Load.

Refresh es un método, es decir, es ordenado por el usuario, no es automático. Es bueno hacer que en cada botón exista este método, sirve para actualizar la información que esta siendo presentada.
Cuando se ejecuta un formulario ocurren dos eventos: Load y Initialize.
Load ocurre cuando el formulario es cargdo de la memoria de la PC, todos los objetos tienen un evento Load.
Initialize se ocupa para establecer valores predeterminados a los objetos y para inicializar variables. Como ejemplo, en la tarea donde teniamos que habilitar las TextBox porque aparecían deshabilitadas por default, las pusimos deshabilitadas con la propiedad Enabled=False en la ventana de propiedades; pero si lo hubieramos querido hacer con código, se daba doble click en el formulario, y luego buscamos el código para el evento "initialize", eso esta en la lista de arriba a la derecha. Entonces entre

Private Sub Form_Initialize()
End Sub

ahi en medio se pone Text1.Enabled=False y asi con todos los que queramos deshabilitar al principio.

Private Sub y End Sub marcan el ninicio y final respectivamente de un procedimiento.

TAREA 2:
Hacer en el código de la TAREA 1 lo siquiente:
1. Aparezcan deshabilitadas las 5 casillas desde el inicio, pero hacerlo con código, no con la ventana de propiedades.
2. Se habiliten solo las primeras tres de las cinco casillas al dar click en "Nuevo".
3. Borrar la información que haya en las 5 casillas al dar click en "Nuevo"
3. Se ponga el cursor sobre la casilla de texto 1(Text1) al habilitar las casillas con "Nuevo".

RESOLUCION:
Private Sub Command1_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Form_Initialize()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub

Text1.SetFocus lo que hace es que cuando se da click al botón 1, automáticamente situa el cursor en la casilla de texto 1.
Text1.Text = "" lo que hace es que cuando se da click al botón 1, borre lo que sea que este escrito en la casilla uno. Las comillas significan espacio en blanco.

FIN DE CLASE IV

Visual Basic I - Clase III

Esta clase es práctica, veremos el entorno de VB6, por lo cual se recomienda ir leyendo y haciendo cada cosa en el programa.

Barra de Herramientas:

Es la barra ubicada a la izquierda de la pantalla, contiene todos los elementos para diseñar.

Explorador de Proyectos:

Es una de las secciones ubicadas a la derecha de la pantalla. Permite ver los proyectos que tenemos abiertos.

Ventana de Propiedades:

Es donde se controlan las características de los objetos, en caso de cerrarla accidentalmente, se puede restaurar con F4

Si queremos ver el funcionamiento en tiempo real de nuestro programa se presiona F5, y esto correrá nuestro programa de acuerdo al código programado. En la ventana de propiedades, ahi varias propiedades que estaremos usando con frecuencia, entre estas están:

Nombre:

Cambia el nombre con el cual es almacenado un objeto en memoria, para facilitar el manejo de estos objetos se utilizan prefijos. Para un Formulario(Form) al cambiar el nombre siempre tendrá como prefijo "Frm" sin comillas y seguido del nombre que queramos(FrmEmpleados, FrmPlanilla, etc.), los objetos TextBox(Text) tendrán siempre el prefijo "Txt" y los botones(command) tendrán "Cmd"

Caption:

A diferencia de "Nombre", esta propiedad cambia únicamente el texto que se muestra en un objeto, pero no se puede hacer referencia a un objeto por medio de la propiedad Caption, por ejemplo si queremos que un botón diga encima "Salir", esta propiedad es la que contendrá este nombre.

Height:

Permite cambiar la altura de un objeto.

BackColor:

En el objeto Form, cambia el color de fondo de la ventana; está propiedad está en varios objetos.

BackStyle:

Indica la transparencia u opacidad de un objeto generalmente Label.

Autosize:

Determina si un control es redimensionado automáticamente de acuerdo al texto(caption) que tiene.

MinButton:

Cuando está en False, quita el botón para minimizar ventana de nuestro programa.

MaxButton:

Cuando está en False, quita el botón para maximizar ventana de nuestro programa.

ControlBox:

Cuando está en False deshabilita los botones de minimizar, maximizar y salir del programa.

WindowState:

Siempre lo tendremos en normal, esta propiedad determina la forma como aparece la pantalla al ejecutar el programa. Puede ser minimizada, maximizada, o normal, que es el tamaño predeterminado que uno le da.

BorderStyle:

Siempre lo tendremos como Sizabled, este modo permite modificar el tamaño de la ventana durante la ejecución del programa, todos las demás opciones de esta propiedad no lo permiten.

Picture:

Esta propiedad permite poner una imagen como fondo de nuestro programa.

Icon:

En la ventana donde estamos diseñando nuestro programa, la que dice Form, al lado izquierdo de ese nombre está un icono pequeño. Esta propiedad noc permite ponerle un icono de nuestra elección.(La imagen tiene que estar en formato .ico)

El ejercicio que haremos es el siguiente:
1. Abrir VB6, y luego seleccionamos la opción Standard EXE.
2. Ubicar 4 objetos "Label" en el la ventana de nuestro formulario.
3. Ahora, seleccionar los 4 Label(tecla Ctrl+Click en cada uno).
4. Con los 4 seleccionados buscar en la Ventana de Propiedades la opción BackStyle y ponerla en Transparent; y la propiedad AutoSize ponerla en True.
5. Cambiar el texto mostrado en cada Label para que digan Código, Nombre, Sueldo y Descuento respectivamente.
6. Poner 4 objetos TextBox, cada uno al lado de uno de los Label.
7. Seleccionar los 4 TextBox y borrar el texto que tienen(Caption).
8. Con los 4 TextBox aún seleccionados, cambiar la propiedad Height a 350.

De aquí en adelante pueden ir experimentando para que sirve cada propiedad dentro de este nuevo proyecto que hicimos. Ahora estamos tratando principalmente la interfz gráfica del VB6, en clases posteriores se verá la codificación de este mismo programa.

FIN DE CLASE III

Visual Studio 6 Enterprise Edition - Descarga

Este es el programa que estaremos utilizando en el curso, todos los códigos serán en base al Visual Basic 6, incluido en el paquete. Visual Studio 6 NO es compatible con Windows Vista, solo de XP para abajo. Al dar click en descargar, bajaran un torrent el cual pueden luego abrir con un gestor de descarga cualquiera. Yo en lo personal uso FlashGet, es rápido e intuitivo, no es para nada complicado. Para cualquier duda comentar esta entrada.

Para descargar el torrent de Visual Studio 6 dar CLICK en la imagen.


Para descargar el gestor de descargas FlashGet dar CLICK en la imagen.

Visual Basic I - Clase II

Términos que se usaran:
Variable: Es un espacio en memoria con un nombre que puede contener datos de cualquier tipo y que su contenido puede variar durante la ejecucion del programa.
Identificador: Es la forma de identificar variables (tambien constantes, objetos,y casi todo lo que utilizamos en programación).
Programa: Es uan aplicación diseñada para resolver uan tarea. Es una serie de comandos ordenados lógicamente que permiten indicarle a la computadora un proceso o tarea a ejecutar.
Lenguaje de Programación: Es una serie de comandos con una sintaxis predeterminada y son para poder comunicarse con la computadora.
Comando: Es una palabra reservada de cualquier lenguaje de programación, lo que significa que no la podemos usar como identificador de una variable que hagamos.
Formulario: Llamaremos así a la estructura general donde están todos los objetos, es todo el código de un programa. Lo primero que se hace para iniciar un código es declarar las variables que utilizaremos en el. Dim es el comando utilizado para declarar variables que vamos a utilizar en un código. Un ejemplo de declaración de una variable es este:

Dim Nombre As String

Que significa que vamos a utilizar una variable llamada Nombre dentro del programa y que contendrá el tipo de dato llamado Cadena(string).

Hay muchos tipos de datos, eso pueden googlearlo. La escritura cambia en Visual Basic, aqui están los tipos de datos básicos con su denominación en VB:
Carácter o Cadena(String): Son caracteres alfanuméricos, osea que pueden ser letras y números. Ejemplos pueden ser un nombre, una dirección, e incluso un número de carnet debido a que lleva guiones.
Numérico(Single, Integer, Double, Long): Son caracteres numéricos y su variedad depende de la cantidad de decimales que tendrá el numero. Por ejemplo si una variable es declarada como Integer entonces solo podrá almacenar números enteros(sin decimales). Single maneja hasta 9 decimales, Double maneja hasta 14 decimales y Long maneja hasta 17.
Lógico(Boolean): Solo puede tener dos valores y son Falso(False) y Verdadero(True). Por ejemplo si tenemos un TextBox y vemos sus propiedades, una de ellas es Enabled que aparecerá por default como True. (TextBox1.Enabled=True).
Fecha(Date): Por lógica se deduce que maneja fechas dentro de un código.

Ahora, como ya mencionamos, se usan identificadores para nombrar variables, estos identificadores tienen estas reglas:
1. No pueden llevar espacios en blanco.
2. No deben llevar puntos, porque en VB y en la POO, el punto (.) indica pertenencia. En el ejemplo anterior vemos "TextBox.Enabled=True", nos dice la propiedad Enabled que pertenece a el objeto TextBox tiene como valor True.
3. No pueden llevar caracteres especiales.
4. No pueden ser palabras reservadas del lenguaje de programación.

Las variables, además de poseer un tipo de dato, también tienen un alcance: Local y Pública. Las Locales solo existen en la porción de código donde se declaran, mientras que las Públicas existen o tendrán validez en todo el formulario(código) que hacemos y se declaran en una parte del formulario llamada "Genaral - Declaraciones", todo lo que se pone ahí, incluídas variables, será Público.

TAREA 1:
Hacer un formulario con 5 casillas de texto (Text) llamadas Código, Nombre, Sueldo, Descuento y Sueldo Líquido. Y dos botones(Command) llamados "Nuevo" y "Salir".
Las casillas de texto tienen que estar deshabilitadas(la propiedad Enabled) por default, hacer que al apretar el botón "Nuevo" Las casillas se habiliten.
Recordar que estamos trabajando en VB6, no es igual a VB 2005 Express Edition.

RESOLUCION:
Private Sub Command1_Click()
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.Enabled=True
Text5.Enabled=True
End Sub
FIN DE CLASE II.