VISUAL STUDIO .

net

REQUERIMIENTOS Y CARACTERÍSTICAS

 Visual Studio tiene reservadas determinadas palabras clave para su uso

exclusivo. Por ejemplo, si se usan las palabras clave o reservadas en Visual
Studio como If, while, [Link] una sesión de la declaración o programación del
código, se estará indicando a visual Studio que debe realizar dicha función.

 Debe evitar usar una palabra clave reservada como nombre de un objeto. Si el
nombre de un objeto coincide con una palabra clave, cada vez que se haga
referencia al objeto debe aparecer entre identificadores delimitadores, como
dobles comillas (“ ”) o corchetes ([ ]).

 Para hacer un comentario en una línea se puede poner una comilla simple
antes de éste (‘). Ejm.: ’la declaración se hace así

Visual Studio no distingue las mayúsculas de las minúsculas

DECLARACIÓN DE VARIABLES

La declaración de las variables en Visual Basic 2005 se hace por medio de la

instrucción Dim seguida del nombre de la constante y del tipo de datos que esta
contendrá. Con una misma instrucción Dim podemos declarar más de una variable,
incluso de tipos diferentes, tal como veremos a continuación.

La siguiente línea de código declara una variable de tipo entero:

Dim i As Integer

Tal como hemos comentado, también podemos declarar en una misma línea más
de una variable:

Dim a, b, c, As Integer

En este caso, las tres variables las estamos definiendo del mismo tipo, que es el
indicado al final de la declaración.

CONCATENACIÓN DE CADENAS

El operador de concatenación de cadenas (+) concatena valores de cadena. El

resto de las operaciones con cadenas se controla mediante las funciones de
cadena.

PROGRAMACIÓN APLICADA I
-1-
 INICIANDO VISUAL STUDIO 2010

Para iniciar el trabajo con Visual seguiremos los siguientes pasos:

 Buscamos el icono de Microsoft Visual Studio 2010 en el escritorio y hacemos doble

clic.

 Podemos escribir la siguiente dirección en el cuadro Ejecutar: “C:\Program Files

(x86)\Microsoft Visual Studio 10.0\Common7\IDE\[Link]” y pulsar ENTER.

Es la ruta que adquiere el programa de Visual Studio 2010 en la instalación estándar.

 Si no encontramos éste icono en el escritorio y no podemos ejecutar lo anterior

hacemos lo siguiente:

o Clic en el botón inicio.

o Clic en todos los programas.

o Clic en Microsoft Visual Studio 2010.

PROGRAMACIÓN APLICADA I
-2-
 o Y finalmente hacemos clic en Microsoft Visual Studio 2010.

 Esperamos que cargue…

 Observamos el Entorno de Visual Studio 2010.

PROGRAMACIÓN APLICADA I
-3-
CREAR UN NUEVO PROYECTO DE WINDOWS FORMS APPLICATION

 Para crear un nuevo proyecto hacemos clic primero en File (Archivo).

 Luego hacemos clic en New Project… (Nuevo Proyecto).

 Clic en Visual Basic…

 Seguidamente hacemos clic en Windows Forms Application.

PROGRAMACIÓN APLICADA I
-4-
 Finalmente hacemos clic en OK.

 Podemos observar la Form1 donde se trabajará en modo de diseño.

 Y también se trabajará programando como en la siguiente ventana, para empezar a

programar:

PROGRAMACIÓN APLICADA I
-5-
ENTORNO DE VISUAL BASIC:

Después de haber creado un Proyecto de Windows Forms Application, se mostrará la

ventana de Visual Basic:

VENTANA EXPLORADOR DE PROYECTO

CTRL+R,
CTRL+ALT+L

PROGRAMACIÓN APLICADA I
-6-
CUADRO DE HERRAMIENTAS

CTRL+ALT+X

VENTANA DE PROPIEDADES

F4

PROGRAMACIÓN APLICADA I
-7-
VENTANA EDITOR DE CÓDIGO

F7

VENTANA DE DEPURACIÓN

CTRL+G

VENTANA DEL FORMULARIO

SHIFT+F7

PROGRAMACIÓN APLICADA I
-8-
TERMINOLOGÍA

OBJETOS
Instancia de la clase, tiene propiedades atributos.

CLASE
Concepto, idea, las características y comportamientos comunes de los objetos.

PROPIEDADES
Características de los objetos, calificativo.

MÉTODOS
Se programa.

EVENTOS
Es una acción que se aplica a los objetos.

ALGUNOS OBJETOS Y CONTROLES

 Formularios (Form)
 Botones de comando (Button)
 Etiquetas (Label)
 Cuadros de textos (TextBox)
 CheckBox
 RadioButton
 ListBox

ALGUNAS PROPIEDADES

 Name (nombre)
 Caption (título)
 Text (texto)
 Font (fuente)
 Fore color (color de primer plano)
 Backcolor (color de fondo)
 Enabled (disponible)

ALGUNOS MÉTODOS

SET FOCUS (ENTREGAR EL ENFOQUE)

Este método se utiliza para hacer que un objeto reciba el enfoque. Este método es
uno de los más usados para los controles de Visual Basic 6.0.

DRAG

Inicia, termina o cancela una operación de arrastre de cualquier control, excepto

loscontroles Line, Menu, Shape, Timer o CommonDialog.

MOVE

Se utiliza para mover un control o formulario, especificando sus coordenadas (Top,

Left)y su tamaño (Width, Height).

PROGRAMACIÓN APLICADA I
-9-
ALGUNOS EVENTOS

CLICK

Al hacer click. Ocurre cuando el usuario presiona y suelta un botón del mouse
sobre un objeto.

DBLCLICK

Ocurre cuando el usuario presiona y suelta dos veces un botón del mouse sobre
unobjeto.

DRAGDROP

Ocurre como resultado de arrastrar y soltar con el mouse un control sobre un

determinado tipo de objeto.

KEYDOWN

Ocurre cuando el usuario mantiene presionada una tecla.

KEYUP

Ocurre cuando el usuario termina la operación de pulsar una tecla. Se podría decir,
que este evento ocurre precisamente al terminar el evento KeyDown.

KEYPRESS

Ocurre como resultado de presionar y soltar una tecla.

MOUSEDOWN

Ocurre cuando el usuario presiona un botón del mouse, pero a diferencia del
evento.

MOUSEUP

El evento MouseUp se produce cuando el usuario suelta el botón del mouse. Es un

compañero útil a los eventos MouseDown y MouseMove.

MOUSEMOVE

Este evento ocurre mientras el usuario mueve o desplaza el puntero del mouse
sobre un objeto.

CHANGE

Al cambiar

LOAD

Al cargarse en memoria

PROGRAMACIÓN APLICADA I
- 10 -
 ESTRUCTURA SELECTIVA

ESTRUCTURA DE SELECCIÓN SIMPLE IF

Calcular el descuento según las especificaciones

Sueldo Descuento
350-1200 22%
1200-2500 19%
2500-5000 15%
5000-10000 9%
10000-A mas 3%

Public Class Form2

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim vsuel, vdessoles, vneto As Double
Dim vdespor As Integer
If Not [Link]([Link]) And
Not [Link]([Link]) Then
vsuel = [Link]
If vsuel >= 350 Then
If vsuel <= 1200 Then
vdespor = 22
vdessoles = vsuel * 0.22
ElseIf vsuel <= 2500 Then
vdespor = 19
vdessoles = vsuel * 0.19
ElseIf vsuel <= 5000 Then
vdespor = 15
vdessoles = vsuel * 0.15
ElseIf vsuel <= 10000 Then
vdespor = 9
vdessoles = vsuel * 0.09
ElseIf vsuel > 10000 Then
vdespor = 3
vdessoles = vsuel * 0.03

PROGRAMACIÓN APLICADA I
- 11 -
 Else
vdespor = 0
vdessoles = vsuel
End If
vneto = vsuel - vdessoles
[Link] = vdespor
[Link] = vdessoles
[Link] = vneto

Else
[Link]("EL SUELDO DEBE SER MAYOR O IGUAL A 350")
[Link]("ARREGLALO")
End If
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link]([Link]) Or Asc([Link]) = 46 Or Asc([Link]) = 8 Then
[Link] = False
Else
[Link] = True

End If
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 12 -
"para que no acepte un char que no sea número"

PROGRAMACIÓN APLICADA I
- 13 -
  Notas

Public Class Form1

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim vn1, vn2, vn3, vnp As Double
'ingresar notas
vn1 = CDbl([Link])
vn2 = CDbl([Link])
vn3 = CDbl([Link])
vnp = (vn1 + vn2 + vn3) / 3

[Link] = vnp
If vnp >= 10.5 Then
[Link] = [Link]
[Link]("Aprobado")
Else
[Link] = [Link]
[Link]("Desaprobado")
End If
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
'borrar las nota para ingresarlas nuevamente
[Link] = Space(0)
[Link] = Space(0)
[Link] = Space(0)
[Link] = Space(0)
'empezar a llenar desde la nota1
[Link]()
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 14 -
PROGRAMACIÓN APLICADA I
- 15 -
 EJERCICIOS

Cambiar de color al formulario con el evento doubleclick. Programar el cambio del color de
fondo del formulario al dar doble click. Cambia al dar doble click, cambia de azul a rojo y de
rojo a azul.

Public Class Form1

Private Sub Form1_MouseDoubleClick(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] = [Link] Then
[Link] = [Link]
ElseIf [Link] = [Link] Then
[Link] = [Link]
End If
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 16 -
 Resolviendo una ecuación con tres variables

Public Class Form2

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]
Dim x, y, z, r As Double
x = [Link]
y = [Link]
z = [Link]
r = ((2 * [Link](x, 4)) + 3 * [Link](x, 2) * [Link](y, 2)) / (y +
([Link](4 * x * y * [Link](z, 2))) - 2 * z)
[Link] = r

End Sub
End Class

PROGRAMACIÓN APLICADA I
- 17 -
 Calcular promedios eliminando la menor nota

Public Class Form3

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])

Handles [Link]
Dim n1, n2, n3, n4, v, p As Double
n1 = [Link]
n2 = [Link]
n3 = [Link]
n4 = [Link]
v = n1
If n2 < v Then
v = n2
End If
If n3 < v Then
v = n3
End If
If n4 < v Then
v = n4
End If
p = (n1 + n2 + n3 + n4 - v) / 3
[Link] = p
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 18 -
Calculando el número mayor

Public Class Form4

Private Sub Button1_Click(ByVal sender As [Link],
ByVal e As [Link]) Handles [Link]
Dim n1, n2 As Double
n1 = [Link]
n2 = [Link]
If n1 > n2 Then
[Link]("El número mayor es " & n1)
Else
[Link]("El número mayor es " & n2)
End If
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 19 -
Contando la cantidad de checkbox seleccionados

Public Class Form5

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim C As Integer
C=0
If [Link] Then
C=C+1

If [Link] Then
C=C+1
End If
If [Link] Then
C=C+1
End If
[Link]("Han sido seleccionados " + Str(C) + " checkbox")
End If
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 20 -
Sueldos y sus descuentos

PROGRAMACIÓN APLICADA I
- 21 -
Public Class Form1

Private Sub Button1_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim VSB, VDES As Double
VDES = 0
VSB = CDbl([Link])

If [Link] Then
VDES = VDES + VSB * 0.11
End If
If [Link] Then
VDES = VDES + 15
End If
If [Link] Then
VDES = VDES + CDbl([Link])
End If
[Link] = VDES
[Link] = CStr(VSB - VDES)
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As [Link], ByVal
e As [Link]) Handles [Link]
[Link] = [Link]
End Sub

Private Sub Form1_Load(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
[Link] = False
End Sub

Private Sub TextBox1_EnabledChanged(ByVal sender As Object, ByVal e As

[Link]) Handles [Link]
[Link]()
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 22 -
 RADIOBUTTON
Sueldos y sus bonificaciones

Public Class Form2

Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
Dim SUEL, OTRO, T As Double
SUEL = [Link]
OTRO = SUEL * 0.1
T = SUEL + OTRO
[Link] = OTRO
[Link] = T
'[Link]("HOLA SOY EL RADIO BUTTON 1")
End Sub

Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As

[Link]) Handles [Link]
Dim SUEL, OTRO, T As Double
SUEL = [Link]
OTRO = SUEL * 0.2
T = SUEL + OTRO
[Link] = OTRO
[Link] = T
'[Link]("HOLA SOY EL RADIO BUTTON 2")
End Sub

Private Sub RadioButton3_Click(ByVal sender As Object, ByVal e As

[Link]) Handles [Link]
Dim SUEL, OTRO, T As Double
SUEL = [Link]
OTRO = SUEL * 0.35
T = SUEL + OTRO
[Link] = OTRO
[Link] = T
'[Link]("HOLA SOY EL RADIO BUTTON 3")
End Sub
End Class

PROGRAMACIÓN APLICADA I
- 27 -
PROGRAMACIÓN APLICADA I
- 28 -
PROGRAMACIÓN APLICADA I
- 29 -