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, etc.En 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\devenv.exe” 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 System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim vsuel, vdessoles, vneto As Double
Dim vdespor As Integer
If Not String.IsNullOrEmpty(TextBox1.Text) And
Not String.IsNullOrWhiteSpace(TextBox1.Text) Then
vsuel = TextBox1.Text
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
TextBox2.Text = vdespor
TextBox3.Text = vdessoles
TextBox4.Text = vneto

Else
MessageBox.Show("EL SUELDO DEBE SER MAYOR O IGUAL A 350")
MessageBox.Show("ARREGLALO")
End If
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsDigit(e.KeyChar) Or Asc(e.KeyChar) = 46 Or Asc(e.KeyChar) = 8 Then
e.Handled = False
Else
e.Handled = 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 System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim vn1, vn2, vn3, vnp As Double
'ingresar notas
vn1 = CDbl(TextBox1.Text)
vn2 = CDbl(TextBox2.Text)
vn3 = CDbl(TextBox3.Text)
vnp = (vn1 + vn2 + vn3) / 3

TextBox5.Text = vnp
If vnp >= 10.5 Then
TextBox5.ForeColor = Color.Blue
MessageBox.Show("Aprobado")
Else
TextBox5.ForeColor = Color.Red
MessageBox.Show("Desaprobado")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
'borrar las nota para ingresarlas nuevamente
TextBox1.Text = Space(0)
TextBox2.Text = Space(0)
TextBox3.Text = Space(0)
TextBox5.Text = Space(0)
'empezar a llenar desde la nota1
TextBox1.Focus()
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
System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
If Me.BackColor = Color.Blue Then
Me.BackColor = Color.Red
ElseIf Me.BackColor = Color.Red Then
Me.BackColor = Color.Blue
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 System.Object, ByVal e As System.EventArgs)

Handles Button1.Click
Dim x, y, z, r As Double
x = TextBox1.Text
y = TextBox2.Text
z = TextBox3.Text
r = ((2 * Math.Pow(x, 4)) + 3 * Math.Pow(x, 2) * Math.Pow(y, 2)) / (y +
(Math.Sqrt(4 * x * y * Math.Pow(z, 2))) - 2 * z)
TextBox4.Text = 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 System.Object, ByVal e As System.EventArgs)

Handles Button1.Click
Dim n1, n2, n3, n4, v, p As Double
n1 = TextBox1.Text
n2 = TextBox2.Text
n3 = TextBox3.Text
n4 = TextBox4.Text
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
TextBox5.Text = 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 System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim n1, n2 As Double
n1 = TextBox1.Text
n2 = TextBox2.Text
If n1 > n2 Then
MessageBox.Show("El número mayor es " & n1)
Else
MessageBox.Show("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 System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim C As Integer
C=0
If CheckBox1.Checked Then
C=C+1

If CheckBox2.Checked Then
C=C+1
End If
If CheckBox3.Checked Then
C=C+1
End If
MessageBox.Show("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 System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim VSB, VDES As Double
VDES = 0
VSB = CDbl(TextBox4.Text)

If CheckBox1.Checked Then
VDES = VDES + VSB * 0.11
End If
If CheckBox2.Checked Then
VDES = VDES + 15
End If
If CheckBox3.Checked Then
VDES = VDES + CDbl(TextBox1.Text)
End If
TextBox2.Text = VDES
TextBox3.Text = CStr(VSB - VDES)
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles CheckBox3.CheckedChanged
TextBox1.Enabled = CheckBox3.Checked
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
End Sub

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

System.EventArgs) Handles TextBox1.EnabledChanged
TextBox1.Clear()
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
System.EventArgs) Handles RadioButton1.Click
Dim SUEL, OTRO, T As Double
SUEL = TextBox1.Text
OTRO = SUEL * 0.1
T = SUEL + OTRO
TextBox2.Text = OTRO
TextBox3.Text = T
'MessageBox.Show("HOLA SOY EL RADIO BUTTON 1")
End Sub

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

System.EventArgs) Handles RadioButton2.Click
Dim SUEL, OTRO, T As Double
SUEL = TextBox1.Text
OTRO = SUEL * 0.2
T = SUEL + OTRO
TextBox2.Text = OTRO
TextBox3.Text = T
'MessageBox.Show("HOLA SOY EL RADIO BUTTON 2")
End Sub

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

System.EventArgs) Handles RadioButton3.Click
Dim SUEL, OTRO, T As Double
SUEL = TextBox1.Text
OTRO = SUEL * 0.35
T = SUEL + OTRO
TextBox2.Text = OTRO
TextBox3.Text = T
'MessageBox.Show("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 -