Visual studio 2010 parte i

MANUAL DE VISUAL BASIC
PARTE I

Manual de Visual Basic Parte I 2012
Estrada Aguilar, Karen Johana | PROGRAMACIÓN APLICADA I
- 3 -
CAPÍTULO I.............................................................................................................................- 5 -
VISUAL STUDIO 2010.......................................................................................................... - 5 -
1.1. REQUERIMIENTOS Y CARACTERÍSTICAS....................................................- 5 -
1.2. DECLARACIÓN DE VARIABLES.......................................................................... - 5 -
1.3. CONCATENACIÓN DE CADENAS ...................................................................... - 5 -
1.4. INICIANDO VISUAL STUDIO 2010......................................................................- 6 -
1.5. CREAR UN NUEVO PROYECTO DE WINDOWS FORMS APPLICATION ........- 8 -
1.6. ENTORNO DE VISUAL BASIC: ...........................................................................- 10 -
1.6.1. VENTANA EXPLORADOR DE PROYECTO.............................................. - 10 -
1.6.2. CUADRO DE HERRAMIENTAS.................................................................. - 11 -
1.6.3. VENTANA DE PROPIEDADES ................................................................... - 11 -
1.6.4. VENTANA EDITOR DE CÓDIGO...............................................................- 12 -
1.6.5. VENTANA DE DEPURACIÓN ....................................................................- 12 -
1.6.6. VENTANA DEL FORMULARIO..................................................................- 12 -
1.7. TERMINOLOGÍA .................................................................................................- 13 -
1.7.1. OBJETOS......................................................................................................- 13 -
1.7.2. CLASE...........................................................................................................- 13 -
1.7.3. PROPIEDADES ............................................................................................- 13 -
1.7.4. MÉTODOS ...................................................................................................- 13 -
1.7.5. EVENTOS.....................................................................................................- 13 -
1.8. ALGUNOS OBJETOS Y CONTROLES .................................................................- 13 -
1.9. ALGUNAS PROPIEDADES ..................................................................................- 13 -
1.10. ALGUNOS MÉTODOS.....................................................................................- 13 -
1.10.1. SET FOCUS (ENTREGAR EL ENFOQUE) ..................................................- 13 -
1.10.2. DRAG............................................................................................................- 13 -
1.10.3. MOVE...........................................................................................................- 13 -
1.11. ALGUNOS EVENTOS.......................................................................................- 14 -
1.11.1. CLICK .......................................................................................................... - 14 -
1.11.2. DBLCLICK................................................................................................... - 14 -
1.11.3. DRAGDROP................................................................................................ - 14 -
1.11.4. KEYDOWN.................................................................................................. - 14 -
1.11.5. KEYUP ......................................................................................................... - 14 -
1.11.6. KEYPRESS ................................................................................................... - 14 -
1.11.7. MOUSEDOWN........................................................................................... - 14 -
1.11.8. MOUSEUP................................................................................................... - 14 -
1.11.9. MOUSEMOVE ............................................................................................ - 14 -
1.11.10. CHANGE ..................................................................................................... - 14 -

- 4 -
1.11.11. LOAD........................................................................................................... - 14 -
CAPITULO II...........................................................................................................................- 15 -
ESTRUCTURA SELECTIVA ................................................................................................- 15 -
2.1. ESTRUCTURA DE SELECCIÓN SIMPLE IF ........................................................- 15 -
EJERCICIOS ...........................................................................................................................- 20 -
RADIOBUTTON....................................................................................................................- 27 -
EJERCICIOS ...........................................................................................................................- 29 -
EJERCICIOS DE REFORZAMIENTO ....................................................................................- 36 -
EJERCICIOS ...........................................................................................................................- 59 -
JUEGO DE TRES EN RAYA.............................................................................................- 68 -
INCLUIR JUEGOS........................................................................................................... - 72 -
JUEGO DE BUSCAMINAS.............................................................................................. - 72 -
JUEGO DE MEMORIA....................................................................................................- 79 -
OBJETO TIMER .....................................................................................................................- 89 -
LEFT,HEIGHT,WIDTH,TOP.................................................................................................- 90 -
MOVIENDO UN OBJETO CON KEYPRESS.........................................................................- 93 -
MOVIENDO UN OBJETO QUE LE SIGA AL MOUSE CON EL EVENTO MOUSEMOVE- 98 -
MOVER UNA IMAGEN SOBRE UN OBJETO ARRASTRE ................................................. - 99 -
RECEPCIONANDO UNA IMAGEN EN UNA MATRIZ EJEMPLO EL JUEGO DE TRES EN
RAYA ..................................................................................................................................... - 101 -
ARMAR UN ROMPECABEZAS ............................................................................................- 103 -
CON ARRASTRE COPIAR EL TEXTO DE UN TEXTBOX A OTRO.................................. - 106 -
VENTANAS CON MENÚ .................................................................................................... - 108 -
REALIZACIÓN DE UN PROYECTO DE SOFTWARE......................................................... - 112 -
EJERCICIOS ..........................................................................................................................- 128 -
OBJETO TOOLSTRIP CON IMAGELIST............................................................................- 135 -
MOVIMIENTOS DE LAS PIEZAS DEL AJEDREZ ...............................................................- 142 -

- 5 -
VISUAL STUDIO 2010
1.1. 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
1.2. 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.
1.3. 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.

- 6 -
1.4. 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.0Common7IDEdevenv.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.

- 7 -
o Y finalmente hacemos clic en Microsoft Visual Studio 2010.
 Esperamos que cargue…
 Observamos el Entorno de Visual Studio 2010.

- 8 -
1.5. 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.

- 9 -
 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:

- 10 -
1.6. ENTORNO DE VISUAL BASIC:
Después de haber creado un Proyecto de Windows Forms Application, se mostrará la
ventana de Visual Basic:
1.6.1. VENTANA EXPLORADOR DE PROYECTO
CTRL+R,
CTRL+ALT+L

- 11 -
1.6.2. CUADRO DE HERRAMIENTAS
1.6.3. VENTANA DE PROPIEDADES
CTRL+ALT+X
F4

- 12 -
1.6.4. VENTANA EDITOR DE CÓDIGO
1.6.5. VENTANA DE DEPURACIÓN
1.6.6. VENTANA DEL FORMULARIO
CTRL+G
F7
SHIFT+F7

- 13 -
1.7. TERMINOLOGÍA
1.7.1. OBJETOS
Instancia de la clase, tiene propiedades atributos.
1.7.2. CLASE
Concepto, idea, las características y comportamientos comunes de los objetos.
1.7.3. PROPIEDADES
Características de los objetos, calificativo.
1.7.4. MÉTODOS
Se programa.
1.7.5. EVENTOS
Es una acción que se aplica a los objetos.
1.8. ALGUNOS OBJETOS Y CONTROLES
 Formularios (Form)
 Botones de comando (Button)
 Etiquetas (Label)
 Cuadros de textos (TextBox)
 CheckBox
 RadioButton
 ListBox
1.9. ALGUNAS PROPIEDADES
 Name (nombre)
 Caption (título)
 Text (texto)
 Font (fuente)
 Fore color (color de primer plano)
 Backcolor (color de fondo)
 Enabled (disponible)
1.10. ALGUNOS MÉTODOS
1.10.1. 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.
1.10.2. DRAG
Inicia, termina o cancela una operación de arrastre de cualquier control, excepto
loscontroles Line, Menu, Shape, Timer o CommonDialog.
1.10.3. MOVE
Se utiliza para mover un control o formulario, especificando sus coordenadas (Top,
Left)y su tamaño (Width, Height).

- 14 -
1.11. ALGUNOS EVENTOS
1.11.1. CLICK
Al hacer click. Ocurre cuando el usuario presiona y suelta un botón del mouse
sobre un objeto.
1.11.2. DBLCLICK
Ocurre cuando el usuario presiona y suelta dos veces un botón del mouse sobre
unobjeto.
1.11.3. DRAGDROP
Ocurre como resultado de arrastrar y soltar con el mouse un control sobre un
determinado tipo de objeto.
1.11.4. KEYDOWN
Ocurre cuando el usuario mantiene presionada una tecla.
1.11.5. 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.
1.11.6. KEYPRESS
Ocurre como resultado de presionar y soltar una tecla.
1.11.7. MOUSEDOWN
Ocurre cuando el usuario presiona un botón del mouse, pero a diferencia del
evento.
1.11.8. 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.
1.11.9. MOUSEMOVE
Este evento ocurre mientras el usuario mueve o desplaza el puntero del mouse
sobre un objeto.
1.11.10. CHANGE
Al cambiar
1.11.11. LOAD
Al cargarse en memoria

- 15 -
ESTRUCTURA SELECTIVA
2.1. 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
vdespor = 15
vdespor = 9
ElseIf vsuel > 10000 Then
vdespor = 3

- 16 -
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

- 17 -
"para que no acepte un char que no sea número"

- 18 -
 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)
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
'borrar las nota para ingresarlas nuevamente
TextBox1.Text = Space(0)
'empezar a llenar desde la nota1
TextBox1.Focus()
End Sub
End Class

- 19 -

- 20 -
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

- 21 -
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

- 22 -
Calcular promedios eliminando la menor nota
Public Class Form3
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

- 23 -
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

- 24 -
Contando la cantidad de checkbox seleccionados
Public Class Form5
Dim C As Integer
C = 0
If CheckBox1.Checked Then
C = C + 1
C = C + 1
End If
C = C + 1
End If
MessageBox.Show("Han sido seleccionados " + Str(C) + " checkbox")
End If
End Sub
End Class

- 25 -
Sueldos y sus descuentos

- 26 -
Public Class Form1
Dim VSB, VDES As Double
VDES = 0
VSB = CDbl(TextBox4.Text)
VDES = VDES + VSB * 0.11
End If
VDES = VDES + 15
End If
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

- 27 -
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
OTRO = SUEL * 0.2
T = SUEL + OTRO
TextBox3.Text = T
End Sub
OTRO = SUEL * 0.35
T = SUEL + OTRO
TextBox3.Text = T
End Sub
End Class

- 28 -

- 29 -
EJERCICIOS
INTERFAZ:
1. GENERAR NUMEROS ALEATORIOS Y COMPARARLOS
COMPARAR
Public Class Form6
Form5.ShowDialog()
End Sub
Form1.ShowDialog()
End Sub
Form2.ShowDialog()
End Sub
Form3.ShowDialog()
End Sub
Form4.ShowDialog()
End Sub
Me.Close()
End Sub
End Class

- 30 -
Public Class Form5
Dim NUM1, NUM2 As Integer
NUM1 = 1 + Math.Truncate(Rnd() * 12)
NUM2 = 1 + Math.Truncate(Rnd() * 12)
TextBox1.Text = NUM1
TextBox2.Text = NUM2
If NUM1 = NUM2 Then
TextBox3.Text = " = "
ElseIf NUM1 > NUM2 Then
TextBox3.Text = " > "
Else
TextBox3.Text = " < "
End If
End Sub
End Class

- 31 -
2. CALCULAR LA SERIE Y SUMA DE LOS N PRIMEROS NUMEROS DE LA SIGUIENTE
SERIE:

- 32 -
SERIE:
Public Class Form1
Dim X, I, TEMP As Integer
Dim S As Double
Dim CAD As String
X = TextBox1.Text
TEMP = 1
CAD = CStr(TEMP)
S = 1
For I = 2 To X Step 1
TEMP = I
CAD = CAD + " , " + CStr(TEMP)
S = S + TEMP
Next
TextBox2.Text = CAD
TextBox3.Text = S
End Sub
End Class

- 33 -
SERIE:
Public Class Form2
Dim S As Double
Dim CAD As String
X = TextBox1.Text
TEMP = 2
CAD = CStr(TEMP)
S = TEMP
For I = 2 To X Step 1
TEMP = I * 2
S = S + TEMP
Next
TextBox2.Text = CAD
TextBox3.Text = S
End Sub
End Class

- 34 -
SERIE:
Public Class Form3
Dim S As Double
Dim CAD As String
S = 5
X = TextBox1.Text
TEMP = 5
CAD = CStr(TEMP)
For I = 1 To X - 1 Step 1
TEMP = TEMP + I
S = S + TEMP
Next
TextBox2.Text = CAD
TextBox3.Text = S
End Sub
End Class

- 35 -
Public Class Form4
Dim S As Double
Dim CAD As String
S = 2
X = TextBox1.Text * 2
TEMP = 2
CAD = CStr(TEMP)
For I = 1 To X - 2 Step 2
TEMP = TEMP + I + 2
S = S + TEMP
Next
TextBox2.Text = CAD
TextBox3.Text = S
End Sub
End Class

- 36 -
EJERCICIOS DE REFORZAMIENTO
1.
X Calcular
Y Resultado
Z
RESOLUCIÓN:
EN MODO DE DISEÑO:
EL CÓDIGO:
𝑅 =
𝑥4 + 𝑥𝑦2 𝑧 + 𝑥2
𝑦
+ 𝑥2 𝑦2 𝑧2
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim X, Y, Z, R As Double
X = TextBox1.Text
Y = TextBox2.Text
Z = TextBox3.Text
R = (Math.Sqrt(3 * Math.Pow(X, 4) + 2 * X * Math.Pow(Y, 2) * Z) + 5 * Math.Pow(X, 2)
* Y) / (3 + Math.Pow(X, 2) * Math.Pow(Y, 2) * Math.Pow(Z, 2))
TextBox4.Text = R
End Sub
End Class

- 37 -
PANTALLAS (FUNCIONAMIENTO):
2.
ÁNGULO
Calcular
COSENO
SENO
TANGENTE
RESOLUCIÓN:
EN MODO DE DISEÑO:

- 38 -
EL CÓDIGO:

- 39 -
3.
N1 N3
N2 N4
Calcular
MAYOR MENOR
RESOLUCIÓN:
EN MODO DE DISEÑO:

- 40 -
EL CÓDIGO:

- 41 -
4.
SUELDO BRUTO
10 %
S/. 15
Otro
Calcular
TOTAL BONIFICACIÓN TOTAL DESCUENTO
SUELDO NETO
RESOLUCIÓN:
EN MODO DE DISEÑO:
BONIFICACIÓN DESCUENTO

- 42 -
EL CÓDIGO:
Public Class Form2
Dim suel, bon, desc, suelnet As Double
desc = 0
suel = TextBox1.Text
desc = desc + suel * 0.1
End If
desc = desc + 15
End If
desc = desc + CDbl(TextBox3.Text)
End If
If RadioButton1.Checked Then
bon = suel * 0.08
End If
bon = 500
End If
bon = CDbl(TextBox2.Text)
End If
suelnet = suel + bon - desc
TextBox4.Text = bon
TextBox5.Text = desc
TextBox6.Text = suelnet
End Sub
End Class

- 43 -
5.
ORACLE ng (S/. 80.99)
SQL SERVER 2008 (S/. 75.00)
PHP Y MY SQL (S/. 65.50)
Google APPS (S/. 150.00)
Windows Server 2008 (S/. 180.75)
Calcular
Cantidad de Libros
Monto a Pagar
LIBROS

- 44 -
RESOLUCIÓN:
EN MODO DE DISEÑO:
EL CÓDIGO:
Public Class Form3
Dim c, monto As Double
c = 0
monto = 0
c = c + 1
monto = monto + 80.99
End If
c = c + 1
End If
c = c + 1
End If
c = c + 1
End If
c = c + 1
End If
TextBox1.Text = c
TextBox2.Text = monto
End Sub
End Class

- 45 -

- 46 -
OPERACIÓN
6.
Número 1 Número 2
RESPUESTA
RESOLUCIÓN:
EN MODO DE DISEÑO:

- 47 -
EL CÓDIGO:
Public Class Form4
TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
'RadioButton1.Checked = False
End Sub
TextBox3.Text = CDbl(TextBox1.Text) - CDbl(TextBox2.Text)
End Sub
If TextBox2.Text = 0 Then
MessageBox.Show("NO SE PUEDE DIVIDIR ENTRE 0")
Else
TextBox3.Text = CDbl(TextBox1.Text) / CDbl(TextBox2.Text)
End If
End Sub
TextBox3.Text = CDbl(TextBox1.Text) * CDbl(TextBox2.Text)
End Sub
End Class

- 48 -
7.
Número 1 Número 2
Verificar

- 49 -
RESOLUCIÓN:
EN MODO DE DISEÑO:
EL CÓDIGO:
Public Class Form1
If TextBox1.Text > TextBox2.Text Then
Label3.Text = " > "
ElseIf TextBox1.Text < TextBox2.Text Then
Label3.Text = " < "
Else
Label3.Text = " = "
End If
End Sub
End Class

- 50 -
8.
NÚMERO AL AZAR (1-100)
MOSTRAR
SUMA DE NÚMEROS
MÁXIMO NÚMERO
MÍNIMO NÚMERO
PROMEDIO

- 51 -
RESOLUCIÓN:
EN MODO DE DISEÑO:
EL CÓDIGO:
Public Class Form8
Randomize()
End Sub
Dim X, temp As Integer
Dim S, MAY, MEN, i As Double
Dim cad As String
X = TextBox1.Text
temp = CInt(1 + Rnd() * 100)
S = temp
cad = CStr(temp)
MAY = temp
MEN = temp
For i = 2 To X
temp = CInt(1 + Rnd() * 100)
cad = cad + " - " + CStr(temp)
S = S + temp
MAY = Math.Max(MAY, temp)
MEN = Math.Min(MEN, temp)
Next
TextBox2.Text = S
TextBox3.Text = MAY
TextBox4.Text = MEN
TextBox5.Text = S / X
TextBox6.Text = cad
End Sub
End Class

- 52 -

- 53 -
EJERCICOS
RESOLVER LAS SIGUIENTES SERIES
 INTERFAZ PARA TODAS LAS SERIES:
1.
2, 5, 10, 17, 26, ...
Public Class Form1
Dim s, c, t, nt, incre As Integer
s = 0
c = 1
t = 2
nt = TextBox1.Text
incre = 3
While c <= nt
Label4.Text = Label4.Text + CStr(t)
If c <= nt Then
Label4.Text = Label4.Text + ", "
s = s + t
t = t + incre
c = c + 1
incre = incre + 2
End If
End While
TextBox2.Text = s
End Sub
End Class

- 54 -
2.
2, -4, 6, -8, 10, -12, ...
Public Class Form1
Dim s, c, t, nt As Integer
s = 0
c = 1
t = 2
nt = TextBox1.Text
While c <= nt
' Label4.Text = Label4.Text + CStr(t)
If c Mod 2 = 0 Then
t = t * -1
End If
Label4.Text &= CStr(t)
If c < nt Then
Label4.Text &= ", "
If c = 10 Then
Label4.Text &= Label4.Text + Chr(13)
End If
End If
s = s + t
t = Math.Abs(t) + 2
c = c + 1
End While
TextBox2.Text = s
End Sub
End Class

- 55 -
3.
-5, 10, -15, 20, -25, 30, ...
Public Class Form1
Dim s, c, t, nt As Integer
s = 0
c = 1
t = 5
nt = TextBox1.Text
While c <= nt
' Label4.Text = Label4.Text + CStr(t)
If c Mod 2 = 0 Then
t = t * -1
End If
Label4.Text &= CStr(t)
If c < nt Then
Label4.Text &= ", "
If c = 10 Then
Label4.Text &= Label4.Text + Chr(13)
End If
End If
s = s + t
t = Math.Abs(t) + 5
c = c + 1
End While
TextBox2.Text = s
End Sub
End Class

- 56 -
////////////////TAREA///////////////////////
1, 1, 2, 4, 7, 13, 24, ...
4. Serie de Fibonacci: LOS PRIMEROS N NÚMEROS DE LA SERIE Y LA SUMA
1, 1, 2, 3, 5, 8, 13, 21, ...
Public Class Form1
Dim c, tant, tact, nt, temp, s As Integer
c = 2
tant = 1
tact = 1
s = tant
nt = TextBox1.Text
Label1.Text = CStr(tant)
While c <= nt
Label1.Text = Label1.Text + ", " + CStr(tact)
s = s + tact
temp = tact
tact = tant + tact
tant = temp
c = c + 1
End While
TextBox2.Text = s
End Sub
End Class

- 57 -
LISTBOX
Public Class Form2
Dim I As Integer
ListBox1.Items.Add(TextBox1.Text)
End Sub
TextBox2.Text = ListBox1.Items.Count
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ListBox1.SelectedIndexChanged
TextBox3.Text = ListBox1.SelectedItem(ListBox1.SelectedIndex)
TextBox3.Text = ListBox1.SelectedItem
TextBox4.Text = ListBox1.SelectedIndex + 1
ListBox1.Items.RemoveAt(0)
'ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End Sub
End Class

- 58 -

- 59 -
EJERCICIOS
1.
ALUMNOS:
AGREGAR
LISTA DE ALUMNOS:
TOTAL DE ALUMNOS:
Public Class Form1
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If Trim(TextBox1.Text) = "" Then
MessageBox.Show("ingresa un alumno")
TextBox1.Focus()
Else : ListBox1.Items.Add(TextBox1.Text)
TextBox2.Text = ListBox1.Items.Count()
TextBox1.Focus()
End If
End Sub
End Class

- 60 -
2. LIBROS
 HAREMOS CLICK EN EL PRIMER BOTÓN ELIGIENDO EL LIBRO QUE DESEAMOS
COMPRAR; ASÍ PASARÁ A LA LISTA DE LIBROS POR COMPRAR
Public Class Form2
ListBox1.Items.Add("SQL SERVER 2008")
ListBox1.Items.Add("BASE DE DATOS AVANZADAS")
ListBox1.Items.Add("ORACLE")
ListBox1.Items.Add("VISUAL STUDIO 2010")
ListBox1.Items.Add("OFICCE")
ListBox1.Items.Add("MACROMEDIA FLASH MX")
ListBox1.Items.Add("WINDOWS 2008")
ListBox1.Items.Add("TIMERS")
ListBox1.Items.Add("TEXTOS DE CUENTOS")
ListBox1.Items.Add("HOJAS DE CALCUOLO")
End Sub
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End Sub
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
End Sub
End Class

- 61 -
 CUANDO NOS EQUIVOQUEMOS EN ELEGIR UN LIBRO HAREMOS CLIC EN EL
SEGUNDO BOTÓN ELIGIENDO EL LIBRO YA NO DESEADO, ENTONCES PASARÁ
A LA LISTA DE LIBROS

- 62 -
3. CODIGOS
CÓDIGO
NOMBRE ARTÍCULO
PRECIO
STOCK
A001
A002
A003
A004
A005
A006
Public Class Form3
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
TextBox1.Text = ListBox1.SelectedItem
PictureBox1.Image = Image.FromFile("I" + CStr(ListBox1.SelectedIndex) + ".jpg")
Select Case (ListBox1.SelectedIndex)
Case 0
TextBox2.Text = "laptop"
TextBox3.Text = "2800"
TextBox4.Text = "5"
Case 1
TextBox2.Text = "teclado"
Case 2
TextBox2.Text = "mouse"
Case 3
TextBox2.Text = "monitor"
Case 4
TextBox2.Text = "CPU"
Case Else
TextBox2.Text = "otrito"
End Select
End Sub
End Class

- 63 -

- 64 -
4.
Public Class Form4
Private Sub Button1_Click(ByVal sender As
Button1.Click
Dim n1, n2, n3 As Integer
Dim saldo As Integer
n1 = (Math.Truncate(Rnd() * 5))
PictureBox1.Image = Image.FromFile("I" +
CStr(n1) + ".jpg")
CStr(n2) + ".jpg")
CStr(n3) + ".jpg")
If n1 = n2 = n3 Then
MessageBox.Show("Ganaste!!!")
ElseIf n1 = 0 And n2 = 0 And n3 = 0 Then
MessageBox.Show("ganaste!!!" + CStr(100))
End If
saldo = 50
saldo = saldo - 1
saldo = saldo
Label6.Text = saldo
End Sub
End Class

- 65 -

- 66 -
5.
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
Dim N1, N2 As Integer
N1 = (Math.Truncate(Rnd() * 11) + 1)
N2 = (Math.Truncate(Rnd() * 11) + 1)
PictureBox1.Image = Image.FromFile("C" + CStr(N1) + ".png")
PictureBox2.Image = Image.FromFile("C" + CStr(N2) + ".png")
If N1 > N2 Then
Label1.Text = " > "
ElseIf N1 < N2 Then
Label1.Text = " < "
Else
Label1.Text = " = "
End If
End Sub
End Class

- 67 -

- 68 -
JUEGO DE TRES EN RAYA
El Tres en Raya es un juego muy popular.
Objetivo: El objetivo de este juego es lograr formar una línea recta con “X” o “0” en forma
horizontal, vertical o diagonal.
Reglas:
 Se puede jugar solamente entre dos personas “X” y “0”.
 Se seleccionará aquel que empiece primero “x” o “0”.
 Después de hacer clic en las celdas en los diferentes turnos de cada jugador. Ganará
aquel que haya cumplido con el objetivo del juego, iniciando así otro juego.
Juego en Visual Basic:
Modo Diseño:
Modo de programación o ejecución
Public Class Form1
Dim nj As Integer
Dim c As Integer
Sub REINICIAR()
Dim OBJ As Control
For Each OBJ In Me.Controls
If TypeOf OBJ Is PictureBox Then
Dim IMG As PictureBox
OBJ.Tag = ""
IMG = OBJ
IMG.Image = Nothing
End If
'MessageBox.Show(OBJ.Name)
nj = 0
c = 0
RadioButton1.Enabled = True
RadioButton1.Checked = True
RadioButton2.Checked = False
RadioButton2.Enabled = True
Next
End Sub

- 69 -
Private Sub C11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C11.Click, C12.Click, C13.Click, C21.Click,
C22.Click, C23.Click, C31.Click, C32.Click, C33.Click
If nj <= 1 Then
RadioButton1.Enabled = False
RadioButton2.Enabled = False
End If
If sender.tag = "" Then
If nj Mod 2 = 0 Then
sender.image = Image.FromFile("I:x.png")
sender.tag = "x"
Else
sender.image = Image.FromFile("I:o.png")
sender.tag = "o"
End If
nj += 1
c += 1
Else
MessageBox.Show("Celda Ocupada por: " + sender.tag)
End If
If C11.Tag = sender.tag And C12.Tag = sender.tag And C13.Tag = sender.tag Then
MsgBox("BIEN HECHO, GANO " + sender.tag, MsgBoxStyle.Information, "ACIERTO")
REINICIAR()
ElseIf C11.Tag = sender.tag And C21.Tag = sender.tag And C31.Tag = sender.tag Then
REINICIAR()
REINICIAR()
REINICIAR()
REINICIAR()
REINICIAR()
REINICIAR()
REINICIAR()
ElseIf c = 9 Then
MsgBox("EL JUEGO TERMINÓ, NO HAY GANADOR", MsgBoxStyle.Critical, "DESACIERTO")
REINICIAR()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nj = 1
c = 0
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton1.CheckedChanged
nj = 0
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
nj = 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
REINICIAR()
End Sub
End Class

- 70 -
¿Cómo funciona?
Como determinado esta check el aspa o cruz, se empieza a jugar:
Caso cuando gana “X”:
Se puede elegir que empiece el círculo:

- 71 -
Cuando se arrepienten del juego se puede reiniciar:
Caso cuando gana la “o”:
Caso que no hay ganador:

- 72 -
INCLUIR JUEGOS
JUEGO DE BUSCAMINAS
1. El Buscaminas es un juego aparentemente sencillo de memoria y lógica, además
de ser uno de los juegos más populares.
Objetivo: Encontrar los recuadros vacíos y evitar las minas.
El tablero: Es una matriz de 6 x 6 (seis filas y seis columnas) y aleatoriamente están 6
minas en diferentes casilleros.
Cómo jugar
Las reglas del Buscaminas son simples:
1. Si se descubre una mina termina el juego. Se hace clic en el botón Reiniciar para
empezar otro.
2. Si se desea reiniciar antes se hace clic en el botón Reiniciar.
3. Si se descubre una carta de un as corazones sigue el juego.
En Visual Basic
Modo de diseño
Código:

- 73 -
PublicClassBuscaminas
DimV(36) AsInteger
Dim I, N AsInteger
SubREINICIAR()
Dim OBJ AsControl
ForEach OBJ InMe.Controls
IfTypeOf OBJ IsPictureBoxThen
Dim IMG AsPictureBox
OBJ.Tag = ""
IMG = OBJ
IMG.Image = Nothing
IMG.Enabled = True
EndIf
I = 0
N = 0
Next
EndSub
Subaleatorio()
Randomize()
Dim VAR, C AsInteger
VAR = 1
While VAR > 0
VAR = 0
I = Math.Truncate(Rnd() * 36 + 1) 'genera un numero aleatorio en un rango de 1-36
For C = 0 To N
If V(C) = I Then
VAR += 1
EndIf
Next
EndWhile
V(N) = I
N += 1
EndSub
PrivateSub C11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles C11.Click, C12.Click, C13.Click, C14.Click, C15.Click, C16.Click, C21.Click,
C22.Click, C23.Click, C24.Click, C25.Click, C26.Click, C31.Click, C32.Click, C33.Click,
C62.Click, C63.Click, C64.Click, C65.Click, C66.Click
aleatorio()
sender.tag = CStr(i)
If I = 1 Or I = 2 Or I = 3 Or I = 4 Or I = 5 Or I = 6 Then
sender.image = Image.FromFile("f:cartas0.png")
MsgBox("MINA, PERDISTE", MsgBoxStyle.Critical, "DESACIERTO")
DimobjAsControl
ForEachobjInMe.Controls
IfTypeOfobjIsPictureBoxAndobj.Tag = ""Then

- 74 -
aleatorio()
If I = 1 Or I = 2 Or I = 3 Or I = 4 Or I = 5 Or I = 6 Then
DimimagenAsPictureBox
imagen = obj
imagen.Image = Image.FromFile("f:cartas0.png")
EndIf
obj.Tag = CStr(I)
EndIf
Next
Else
sender.image = Image.FromFile("f:cartas1.png")
If N = 30 Then
MsgBox("BIEN HECHO, GANASTE!!!", MsgBoxStyle.Information, "ACIERTO")
REINICIAR()
EndIf
EndIf
EndSub
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)
REINICIAR()
EndSub
EndClass
Pantallas de su funcionamiento
Hacemos clic en Juego de Buscaminas

- 75 -
Se abre El juego
Hacemos clic en cualquiera de las celdas

- 76 -
Se puede encontrar una mina

- 77 -
Enseguida sale el mensaje de Mina, perdiste y aceptamos
Aparecen las seis minas escondidas, hacemos clic en reiniciar para jugar de nuevo

- 78 -
En otra jugada
Otra jugada

- 79 -
JUEGO DE MEMORIA
1. El Juego de Memoria, denominado también pescador es un juego, que como el
nombre indica, se necesita tener buena memoria para poder ganarlo.
Objetivo: Encontrar la pareja de una de las imágenes dentro de un grupo de imágenes.
El tablero: Es una matriz de 4 x 4 (cuatro filas y cuatro columnas) y aleatoriamente están
dispuestas 8 imágenes con sus respectivas parejas.
Al hablar de parejas se hace mención a la misma imagen.
Cómo jugar
Las reglas del Juego de Memoria son las siguientes:
a) Si se descubre la pareja de la imagen, previamente seleccionada; ambas se
ocultan. Si se desea reiniciar antes se hace clic en el botón Reiniciar.
b) Si no se descubre la imagen, ambas se voltean.
En Visual Basic
Modo de diseño

- 80 -
Código:
Public Class Memoria
Dim ig1 As New PictureBox
Dim ig2 As New PictureBox
Dim imag(16) As PictureBox
Dim vector1(16) As Integer
Dim j, cClick As Integer
Private Sub Memoria_Load(ByVal sender As System.Object, ByVal e As
Randomize()
cClick = 0
j = -1
End Sub
Function buscaRepet(ByVal ParamArray vector2() As Integer) As Integer 'ASIGNA UN
NUMERO ALEATORIO (1-8) A CADA PICTUREBOX
Dim cont, estado, numero As Integer 'QUE SÓLO
SE REPITA DOS VECES
estado = 0
j = j + 1
While estado < 1
numero = Int(Rnd() * 8) + 1
cont = 0
For k As Integer = 0 To j
If numero = vector2(k) Then
cont = cont + 1
End If
Next
If cont <= 1 Then
vector2(j) = numero
estado = 1
End If
End While
Return numero
End Function
Sub AsinaImagen(ByVal imagen As PictureBox)
If imagen.Tag Is Nothing Then
imagen.Tag = buscaRepet(vector1)
imagen.Image = Image.FromFile(Application.StartupPath + "IMAGS" +
CStr(imagen.Tag) + ".jpg") ' APPLICATION.STARTUPPATH PARA TENER LAS IMÁGENES EN EL
MISMO PROYECTO
imag(j) = imagen
Else
If imagen.BackColor <> Color.Black Then
imagen.Image = Image.FromFile(Application.StartupPath + "IMAGS" +
CStr(imagen.Tag) + ".jpg")
End If
End If
End Sub
Private Sub P34_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles P11.Click, P12.Click, P13.Click, P14.Click, P21.Click, P22.Click, P23.Click,

- 81 -
P24.Click, P31.Click, P32.Click, P33.Click, P34.Click, P41.Click, P42.Click,
P43.Click, P44.Click
Dim imgValida As New PictureBox
imgValida = sender
If imgValida.Image Is Nothing And imgValida.BackColor = Color.Pink Then
cClick = cClick + 1
End If
If (cClick = 1) Then
ig1 = sender
AsinaImagen(ig1)
ElseIf (cClick = 2) Then
ig2 = sender
AsinaImagen(ig2)
Else
If ig1.Tag = ig2.Tag Then
ig1.BackColor = Color.Black
ig2.BackColor = Color.Black
ig1.Image = Nothing
ig2.Image = Nothing
ig1 = sender
AsinaImagen(ig1)
ElseIf ig2.Image Is Nothing = False Then
ig1.Image = Nothing
ig2.Image = Nothing
ig1 = sender
AsinaImagen(ig1)
End If
cClick = 1
End If
End Sub
For Z As Integer = 0 To j
imag(Z).BackColor = Color.Pink
imag(Z).Image = Nothing
imag(Z).Tag = Nothing
vector1(Z) = 0
Next
j = -1
cClick = 0
End Sub
End Class

- 82 -
Pantallas de su funcionamiento
Hacemos clic en Juego de Memoria
Se abre El juego

- 83 -
Hacemos clic en cualquiera de las celdas, se nos mostrará una imagen
Hacemos clic en cualquiera de las celdas, para encontrar la pareja

- 84 -
Como las imágenes so son las mismas, se “voltearán”, haremos click en otra
Seguiremos buscando la imagen de la última mostrada, al encontrarla; ambas se
ocultarán:

- 85 -
Al hacer click en otra imagen, las imágenes encontradas anteriormente se
ocultarán:
Se seguirá la misma secuencia, hasta que se termine el juego:

- 86 -

- 87 -

- 88 -
Al hacer click en el botón: “Reiniciar Juego”, se nos mostrará nuevamente la interfaz de
inicio

- 89 -
OBJETO TIMER
OBJETO NO VISIBLE SE ACTIVA EN FUNCIÓN DEL TIEMPO
METODOS:
TIMER1.START()
TIMER1.STOP() DETENER EL CRONOMETRO
INTERVAL=INTERVALO DE TIEMPO ENTRE CADA EVENTO
1. CAMBIAR DE COLOR AL FORMULARIO.
Public Class Form1
Private Sub Timer1_Tick(sender As
System.Object, e As System.EventArgs)
Handles Timer1.Tick
If Me.BackColor = Color.Blue
Then
Me.BackColor = Color.Red
Else
End If
End Sub
Private Sub Button1_Click(sender As
System.Object, e As System.EventArgs)
If Button1.Text = "INICIAR"
Then
Timer1.Start()
Button1.Text = "DETENER"
Else
Timer1.Stop()
Button1.Text = "INICIAR"
End If
End Sub
End Class

- 90 -
LEFT,HEIGHT,WIDTH,TOP
HSCROLLBAR

- 91 -
Programando el mismo ejemplo con radioButton:

- 92 -
Public Class Form3
Dim direccion As Boolean
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs)
Handles MyBase.Load
direccion = True
HScrollBar1.Value = Timer1.Interval
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As
System.EventArgs) Handles Timer1.Tick
If direccion = True Then
If (PictureBox1.Width + PictureBox1.Left + 10) < Me.Width Then
PictureBox1.Left = PictureBox1.Left + 100
Else
direccion = False
End If
Else
If PictureBox1.Left > 9 Then
PictureBox1.Left = PictureBox1.Left - 100
Else
direccion = True
End If
End If
End Sub
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Timer1.Interval = 10000 - HScrollBar1.Value
TextBox1.Text = HScrollBar1.Value
End Sub
If Button1.Text = "Iniciar" Then
Timer1.Start()
Button1.Text = "Parar"
Else
Timer1.Stop()
Button1.Text = "Iniciar"
End If
End Sub
End Class

- 93 -
MOVIENDO UN OBJETO CON KEYPRESS
MOVIENDO OBJETOS CON KEY DOW
KEY PREVIEW=TRUE
Mover un objeto con las letras:
A=izquieda
S=derecha
W=arriba
Z=abajo

- 94 -
Se puede reemplazar el código:
Por un iif anidado:
'If Char.ToUpper(e.KeyChar) = "A" Then
'PictureBox1.Left -= 10
'ElseIf Char.ToUpper(e.KeyChar) = "S" Then
'PictureBox1.Left += 10
'ElseIf Char.ToUpper(e.KeyChar) = "W" Then
'PictureBox1.Top -= 10
'ElseIf Char.ToUpper(e.KeyChar) = "Z" Then
'PictureBox1.Top += 10
'End If
Public Class Form1
Private Sub Form1_KeyPress(sender As Object, e As
System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
PictureBox1.Left -= IIf(Char.ToUpper(e.KeyChar) = "A", 1, 0)
PictureBox1.Left += IIf(Char.ToUpper(e.KeyChar) = "D", 1, 0)
PictureBox1.Top -= IIf(Char.ToUpper(e.KeyChar) = "W", 1, 0)
PictureBox1.Top += IIf(Char.ToUpper(e.KeyChar) = "Z", 1, 0)
End Sub
End Class

- 95 -

- 96 -
 Moviendo una imagen con las flechas de desplazamiento
Public Class Form1
Private Sub Form1_KeyDown(sender As Object, e As
System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
PictureBox2.Left -= IIf(e.KeyCode = Keys.Left, 10, 0)
PictureBox2.Left += IIf(e.KeyCode = Keys.Right, 10, 0)
PictureBox2.Top -= IIf(e.KeyCode = Keys.Up, 10, 0)
PictureBox2.Top += IIf(e.KeyCode = Keys.Down, 10, 0)
'tambien se puede usar el siguiente código alternativo
'PictureBox2.Left -= IIf(e.KeyCode = 37, 10, 0)
'PictureBox2.Left += IIf(e.KeyCode = 39, 10, 0)
'PictureBox2.Top -= IIf(e.KeyCode = 38, 10, 0)
'PictureBox2.Top += IIf(e.KeyCode = 40, 10, 0)
End Sub
End Class

- 97 -

- 98 -
MOVIENDO UN OBJETO QUE LE SIGA AL MOUSE CON EL EVENTO MOUSEMOVE
Public Class EJER2
Private Sub EJER2_MouseMove(sender As Object, e As
System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
'PictureBox1.Left = PictureBox1.Left + 10
'PictureBox1.Location = MousePosition
Label1.Text = "X: " + CStr(e.X) + " y: " + CStr(e.Y)
PictureBox1.Left = e.X
PictureBox1.Top = e.Y
End Sub
Private Sub PictureBox1_MouseMove(sender As Object, e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Label2.Text = "X: " + CStr(e.X) + " y: " + CStr(e.Y)
PictureBox1.Left += e.X
PictureBox1.Top += e.Y
End Sub
End Class

- 99 -
MOVER UNA IMAGEN SOBRE UN OBJETO ARRASTRE
Public Class Form1
'el picture 2 podrá recepcionar el objeto arrastrado
PictureBox2.AllowDrop = True
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As
PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.Copy)
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox2.Click
' clic compuesto por dos mouse down y mouse up
End Sub
Private Sub PictureBox2_DragDrop(sender As Object, e As
System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop
PictureBox2.Image = e.Data.GetData(DataFormats.Bitmap)
End Sub
Private Sub PictureBox2_DragEnter(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragEnter
If e.Data.GetDataPresent(DataFormats.Bitmap) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub
End Class

- 100 -

- 101 -
RECEPCIONANDO UNA IMAGEN EN UNA MATRIZ EJEMPLO EL JUEGO
DE TRES EN RAYA

- 102 -
Public Class Form2
Dim c As Integer
Private Sub Form2_Load(sender As System.Object, e As
'LAS CELDAS podráN recepcionar el objeto arrastrado
c11.AllowDrop = True
End Sub
End Sub
End Sub
Private Sub PictureBox2_Click(sender As System.Object, e As
System.EventArgs) Handles PictureBox2.Click
' clic compuesto por dos mouse down y mouse up
End Sub
Private Sub c11_DragDrop(sender As Object, e As
System.Windows.Forms.DragEventArgs) Handles c11.DragDrop, c12.DragDrop,
c13.DragDrop, c21.DragDrop, c22.DragDrop, c23.DragDrop, c31.DragDrop,
c32.DragDrop, c33.DragDrop
sender.Image = e.Data.GetData(DataFormats.Bitmap)
End Sub
Private Sub c11_DragEnter(sender As Object, e As
System.Windows.Forms.DragEventArgs) Handles c11.DragEnter, c12.DragEnter,
c13.DragEnter, c21.DragEnter, c22.DragEnter, c23.DragEnter,
c31.DragEnter, c32.DragEnter, c33.DragEnter
Else
e.Effect = Not (DragDropEffects.None)
End If
End Sub
End Class

- 103 -
ARMAR UN ROMPECABEZAS

- 104 -
Public Class Form3
Dim var As Integer
Dim objeto As PictureBox
Private Sub Form2_Load(sender As System.Object, e As
End Sub
Private Sub PictureBox5_DragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles PictureBox5.DragDrop,
PictureBox6.DragDrop, PictureBox7.DragDrop, PictureBox8.DragDrop
sender.Image = e.Data.GetData(DataFormats.Bitmap)
End Sub
Private Sub PictureBox5_DragEnter(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles PictureBox5.DragEnter,
PictureBox6.DragEnter, PictureBox7.DragEnter, PictureBox8.DragEnter
If sender.tag = var Then
' objeto.Image = Nothing
End If
End If
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove,
PictureBox2.MouseMove, PictureBox3.MouseMove, PictureBox4.MouseMove
sender.DoDragDrop(sender.Image, DragDropEffects.Copy)
var = CInt(sender.tag)
objeto = sender
End Sub
End Class

- 105 -

- 106 -
CON ARRASTRE COPIAR EL TEXTO DE UN TEXTBOX A OTRO
Public Class Form4
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
TextBox1.AllowDrop = True
End Sub
Private Sub TextBox2_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseMove
If TextBox2.Text = "" Then
Else : TextBox1.DoDragDrop(TextBox2.Text, DragDropEffects.Copy)
End If
End Sub
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
sender.text = e.Data.GetData(DataFormats.Text)
End Sub
Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
If TextBox2.Text = "" Then
Else
If e.Data.GetDataPresent(DataFormats.Text) Then
Else
e.Effect = DragDropEffects.None
End If
End If
TextBox2.Text = ""
TextBox2.Focus()
End Sub
End Class

- 107 -

- 108 -
VENTANAS CON MENÚ
Para llamar a un aformulario
Dim FM1 As New consulta2
FM1.MdiParent = Me 'FM1 PERYENECE A UN FORM MDI Y SU PADRE ES ME.FORM1
FM1.Show()
Para cerrar un formulario que está abierto con una opción se escribe el siguiente código
Me.Close()
Un formulario consulta1 sin codigo
Public Class Form1
Private Sub
ProductosPorCategoriaToolStripMenuItem_Click(ByVa
l sender As System.Object, ByVal e As
System.EventArgs) Handles
ProductosPorCategoriaToolStripMenuItem.Click
FM1.MdiParent = Me 'FM1 PERYENECE A UN
FORM MDI Y SU PADRE ES ME.FORM1
FM1.Show()
End Sub
Private Sub
ClientesPorCiudadToolStripMenuItem_Click(sender
As System.Object, e As System.EventArgs) Handles
ClientesPorCiudadToolStripMenuItem.Click
FM1.MdiParent = Me 'FM1 PERYENECE A UN
FORM MDI Y SU PADRE ES ME.FORM1
FM1.Show()
End Sub
Private Sub
SALIRToolStripMenuItem1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles SALIRToolStripMenuItem1.Click
Me.Close()
End Sub
Private Sub
SALIRToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)

- 109 -
Un formulario consulta20 sin codigo
Funcionamiento

- 110 -

- 111 -

- 112 -
REALIZACIÓN DE UN PROYECTO DE SOFTWARE
Empezaremos con crear el programa:
 Crear la ventana principal menú

- 113 -
 creando los formularios
o De la conferencia Cloud Computing
Public Class Form1
Private Sub CLOUDCOMPUTINGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CLOUDCOMPUTINGToolStripMenuItem.Click
Dim frn As New Form2
frn.MdiParent = Me
frn.Show()
CLOUDCOMPUTINGToolStripMenuItem.Enabled = False
End Sub
Private Sub WIFIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles WIFIToolStripMenuItem.Click
frn.MdiParent = Me
frn.Show()
WIFIToolStripMenuItem.Enabled = False
End Sub
Private Sub VideoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles VideoToolStripMenuItem.Click
frn.MdiParent = Me
frn.Show()
VideoToolStripMenuItem.Enabled = False
End Sub
Private Sub BISNESSINTELLIGENCEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles BISNESSINTELLIGENCEToolStripMenuItem.Click
frn.MdiParent = Me
frn.Show()
BISNESSINTELLIGENCEToolStripMenuItem.Enabled = False
End Sub
Private Sub CASCADAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CASCADAToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub HORIZONTALToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles HORIZONTALToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub VERTICALToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles VERTICALToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub SALIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SALIRToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Me.MenuStrip1.MdiWindowListItem = VENTANAToolStripMenuItem
End Sub
End Class

- 114 -
o Un formulario para nvegar por el internet (Wifi)
Public Class Form2
Form1.CLOUDCOMPUTINGToolStripMenuItem.Enabled = True
Try
PictureBox1.Image = Image.FromFile("cloud.png")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Try
RichTextBox1.LoadFile("Compu.rtf")
End Try
End Sub
End Class

- 115 -
Public Class Form3
'WebBrowser1.Navigate("www.google.com")
Form1.WIFIToolStripMenuItem.Enabled = True
End Sub
WebBrowser1.Navigate(TextBox1.Text)
End Sub
End Class

- 116 -
o Un formulario donde se pueda observar el video
o Un formulario para la conferencia bisness intelligence
Public Class Form4
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
AxWindowsMediaPlayer1.URL = "Wildlife.wmv"
Form1.VideoToolStripMenuItem.Enabled = True
End Sub
End Class

- 117 -
Public Class Form5
Private Sub Form5_Disposed(sender As Object, e As
System.EventArgs) Handles Me.Disposed
Form1.BISNESSINTELLIGENCEToolStripMenuItem.Enabled = True
End Sub
End Class

- 118 -
Funcionamiento
 Pantalla principal
 Escogiendo la opción bisness Intelligent

- 119 -
 Escogiendo la opción Cloud computing

- 120 -
 Escogiendo la opción wifi

- 121 -
 Escogiendo la opción video

- 122 -
 Escogiendo la opción ventanacascada

- 123 -
 Escogiendo la opción ventanahorizontal

- 124 -
 Escogiendo la opción ventanavertical

- 125 -
 Escogiendo que formulario deseamos que esté en primer plano

- 126 -
 Escogiendo la opción salir

- 127 -

- 128 -
EJERCICIOS
1. CREAR UN FORMULARIO DONDE SI SE SELECCIONA UNA DETERMINADA CIUDAD
APARECERÁ UNA INFORMACIÓN DE ELLA, UNA FOTO Y UN VIDEO.

- 129 -
Public Class Form1
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles
RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
If RadioButton1.Checked = True Then
Try
PictureBox1.Image = Image.FromFile("Lighthouse.jpg")
End Try
Try
RichTextBox1.LoadFile("Corazón Nuevo.rtf")
End Try
AxWindowsMediaPlayer1.URL = "hindu01.wmv"
AxWindowsMediaPlayer1.Ctlcontrols.stop()
ElseIf RadioButton2.Checked = True Then
Try
PictureBox1.Image = Image.FromFile("Desert.jpg")
End Try
Try
RichTextBox1.LoadFile("CUZCO.rtf")
End Try
ElseIf RadioButton3.Checked = False Then
Try
PictureBox1.Image = Image.FromFile("Hydrangeas.jpg")
End Try
Try
RichTextBox1.LoadFile("AREQUIPA.rtf")
End Try
End If
End Sub
Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles
Try
PictureBox1.Image = Image.FromFile("Hydrangeas.jpg")
End Try
Try
RichTextBox1.LoadFile("AREQUIPA.rtf")
End Try
End Sub
End Class

- 130 -
SELECCIONANDO LA CIUDAD DE CAJAMARCA SELECCIONANDO LA CIUDAD DE CUZCO
SELECCIONANDO LA CIUDAD DE AREQUIPA

- 131 -
2. SELECICIONANDO DE UNA LISTA A UNA PÁGINA WEB RÁPIDAMENTE SE DEBERÁ
MOSTRAR DICHA PÁGINA EN EL LADO DERECHO:
Public Class Form2
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Case 0
WebBrowser1.Navigate("WWW.GOOGLE.COM")
Case 1
WebBrowser1.Navigate("WWW.UNC.EDU.PE")
Case 2
WebBrowser1.Navigate("WWW.CALETA.COM")
Case 3
WebBrowser1.Navigate("WWW.HOTMAIL.COM")
Case 4
WebBrowser1.Navigate("WWW.FACEBOOK.COM")
Case 5
WebBrowser1.Navigate("WWW.WIKIPEDIA.COM")
Case Else
End Select
End Sub
End Class

- 132 -

- 133 -
3. INICIAR UN VIDEO A TRAVÉS DE UN RADIOBOTTON APARECERÁ EL SÍMBOLO DE
PLAY PARA INICIAR EL VIDEO, CAMBIARÁ AL SÍMBOLO DE PARAR PARA REINICIAR
EL VIDEO.
Public Class Form3
Dim P As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
If P = 1 Then
Button1.Image = Image.FromFile("I1.JPG")
P = 2
ElseIf P = 2 Then
AxWindowsMediaPlayer1.Ctlcontrols.play()
P = 1
End If
End Sub
P = 2
Button1.Text = ""
End Sub
End Class

- 134 -
FUNCIONAMIENTO

- 135 -
OBJETO TOOLSTRIP CON IMAGELIST
4. CREAR UN MENÚ Y LLAMAR ATRAVÉS DE UN TOOLSTRIP PONER IMÁGENES Y
LLAMAR A CUATRO FORMULARIOS

- 136 -
LOS FORMULARIOS TENDRÁN DIFEENTE COLOR PARA PODERLOS DISTINGUIR

- 137 -
PARA CUANDO PASE EL MOUSE ENCIMA DE UNA IMAGEN SALDRÁ EL NOMBRE DE
UNA ACTIVIDAD: ESTO ES CON LA PROPIEDAD TOOLTIPTEX.
EJEMPLO:
VISTA PREVIA:

- 138 -
CÓDIGO:
Public Class Form5
ToolStrip1.ImageList = ImageList1
ToolStripButton1.ImageIndex = 0
End Sub
Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim FRM As New Form6
FRM.MdiParent = Me
FRM.Show()
End Sub
FRM.MdiParent = Me
FRM.Show()
End Sub
FRM.MdiParent = Me
FRM.Show()
End Sub
FRM.MdiParent = Me
FRM.Show()
End Sub
Private Sub SALIRToolStripMenuItem_Click(ByVal sender As
SALIRToolStripMenuItem.Click
Me.Close()
End Sub
End Class

- 139 -
FUNCIONAMIENTO
SELECCIONANDO BAÑOS DEL INCA:
SELECCIONANDO COMIDAS:

- 140 -
SELECCIONANDO IGLESIAS:

- 141 -
SELECCIONANDO MÚSICA:
SALIENDO

- 142 -
MOVIMIENTOS DE LAS PIEZAS DEL AJEDREZ
DISEÑO DEL TABLERO DE AJEDREZ

- 143 -
CÓDIGO:
DIBUJANDO EL TABLERO COMPLETO CON TODAS LAS PIEZAS EN SU LUGAR
Public Class Form1
Dim c_actual, c_nuevo As PictureBox
Dim fa, ca, fn, cn As Integer
'DIBUJANDO EL TABLERO COMPLETO CON TODAS LAS PIEZAS EN SU LUGAR
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
'Colocando las piezas negras en sus respectivos lugares
c1.Image = Image.FromFile("Torren.png")
c3.Image = Image.FromFile("alfiln.png")
c2.Image = Image.FromFile("caballon.png")
c4.Image = Image.FromFile("reyn.png")
c5.Image = Image.FromFile("reynan.png")
c9.Image = Image.FromFile("peonn.png")
c8.Image = Image.FromFile("Torren.png")
c6.Image = Image.FromFile("alfiln.png")
c7.Image = Image.FromFile("caballon.png")
'Colocando las piezas blancas en sus respectivos lugares
c57.Image = Image.FromFile("torreb.png")
c58.Image = Image.FromFile("alfilb.png")
c59.Image = Image.FromFile("caballob.png")
c60.Image = Image.FromFile("reyb.png")
c61.Image = Image.FromFile("reinab.png")
c49.Image = Image.FromFile("peonb.png")
c64.Image = Image.FromFile("Torreb.png")
c63.Image = Image.FromFile("alfilb.png")
c62.Image = Image.FromFile("caballob.png")
c_actual = c1
End Sub

- 144 -
LLAMANDO A LAS FUNCIONES DE LOS MOVIMIENTOS DE LAS PIEZAS
EL CÓDIGO DE LAS FUNCIONES DE LOS MOVIMIENTOS DE CADA PIEZA DE AJEDREZ SON:
TORRE
Private Sub c8_Click(sender As System.Object, e As System.EventArgs) Handles c8.Click, c1.Click,
c2.Click, c3.Click, c4.Click, c5.Click, c6.Click, c7.Click, c9.Click, c10.Click, c11.Click,
c57.Click, c58.Click, c59.Click, c60.Click, c61.Click, c62.Click, c63.Click, c64.Click
c_nuevo = sender
If c_actual.Tag <> c_nuevo.Tag Then
fa = Microsoft.VisualBasic.Left(c_actual.Tag, 1)
ca = Microsoft.VisualBasic.Right(c_actual.Tag, 1)
fn = Microsoft.VisualBasic.Left(c_nuevo.Tag, 1)
cn = Microsoft.VisualBasic.Right(c_nuevo.Tag, 1)
Case 0
mover_torre()
Case 1
mover_alfil()
Case 2
mover_caballo()
Case 3
mover_rey()
Case 4
mover_reina()
Case 5
mover_peon()
End Select
Else
MessageBox.Show("Hey estas en la misma celda!!!!!")
End If
End Sub
' MOVIMIENTO DE LA TORRE
Sub mover_torre()
If (fa = fn) Or (ca = cn) Then
c_nuevo.Image = c_actual.Image
c_actual.Image = Nothing
c_actual = c_nuevo
Else
MessageBox.Show("Movimiento incorrecto!!!")
End If
End Sub

- 145 -
ALFIL
REYNA
CABALLO
' MOVIMIENTO DEL ALFIL
Sub mover_alfil()
If (Math.Abs(fa - fn) = Math.Abs(ca - cn)) Then
c_actual = c_nuevo
Else
End If
End Sub
' MOVIMIENTO DE LA REINA
Sub mover_reina()
If (Math.Abs(fa - fn) = Math.Abs(ca - cn)) Or (fa = fn) Or (ca = cn) Then
c_actual = c_nuevo
Else
End If
End Sub
' MOVIMIENTO DEL CABALLO
Sub mover_caballo()
If (Math.Abs(fa - fn) = 2 And Math.Abs(ca - cn) = 1) Or
(Math.Abs(fa - fn) = 1 And Math.Abs(ca - cn) = 2) Then
c_actual = c_nuevo
Else
End If
End Sub

- 146 -
REY
PEÓN
ASIGNANDO LAS IMÁGENES DE LAS PIEZAS DE ACUERDO A CADA CASO:
' MOVIMIENTO DEL REY
Sub mover_rey()
If (Math.Abs(fa - fn) <= 1 And Math.Abs(ca - cn) <= 1) Or ((fa - fn) = 1) Or ((ca - cn) = 1) Then
c_actual = c_nuevo
Else
End If
End Sub
' MOVIMIENTO DEL PEÓN
Sub mover_peon()
If ((fn - fa) = 1) And ((ca = cn)) Then
c_actual = c_nuevo
Else
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As
Select Case ListBox1.SelectedIndex
Case 0
c_actual.Image = Image.FromFile("Torren.png")
Case 1
c_actual.Image = Image.FromFile("alfiln.png")
Case 2
c_actual.Image = Image.FromFile("caballon.png")
Case 3
c_actual.Image = Image.FromFile("reyn.png")
Case 4
c_actual.Image = Image.FromFile("reynan.png")
Case 5
c_actual.Image = Image.FromFile("peonn.png")
End Select
End Sub
End Class

- 147 -
FUNCIONAMIENTO
CUANDO SE HACE CLIC EN LA MISMA CELDA DONDE ESTÁ LA PIEZA A MOVER SQLE UN
MENSAJE DE ATENCIÓN “HEY ESTÁS EN LA MISMA CELDA!!!!!”

- 148 -
SI EL MOVIMIENTO QUE SE HACE NO CORRESPONDE CON LOS MOVIMIENTOS PROPIOS
DE LA PIEZA SELECCIONADA SALE UN MENSAJE DE “MOVIMIENTO INCORRECTO”
MOVER COMO TORRE

- 149 -

- 150 -
MOVER COMO ALFIL

- 151 -
MOVER COMO CABALLO

- 152 -
MOVER COMO REY

- 153 -
MOVER COMO REYNA

- 154 -
MOVER COMO PEÓN

- 155 -

Visual studio 2010 parte i

Más contenido relacionado

La actualidad más candente (12)

Destacado (20)

Similar a Visual studio 2010 parte i (20)

Visual studio 2010 parte i