Prácticas en C++

Práctica. Hola mundo
Programador: Itzel Olivares Méndez
Objetivo: Crear un proyecto en Visual Basic 2008 utilizando los controles formulario, label, button, picturebox y textbox

Descripción: Al correr el programa muestra una caja de texto en el cual se tiene que ingresar el nombre del usuario, en seguida le da click en el botón “haz click ;)” y mostrara una leyenda en la cual dirá “hola[nombre de usuario] bienvenido al mundo visual basic” y la imagen cambiara por otra.

Código:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nombre As String
nombre = TextBox1.Text
'MessageBox.Show("Hola" & nombre & " bienvenido al mundo visual basic!")
Label3.Text ="Hola " & nombre & " bienvenido al mundo visual basic!"
PictureBox1.ImageLocation = "C:\Users\3º AMP\Desktop\sdgg.jpg"
End Sub

Private Sub PictureBox1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
PictureBox1.ImageLocation = "C:\Users\3º AMP\Desktop\sdgg.jpg"
End Sub

Private SubPictureBox1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
PictureBox1.ImageLocation = "C:\Users\Public\Pictures\Sample Pictures\Lighthouse.jpg"
End Sub
End Class

Diseño de interface:

Práctica 1. Memorama interactivo
Programador: Itzel Olivares Méndez
Objetivo: Crear un proyecto en Visual Basic 2008 que simule el juego de memorama utilizandolos controles (objetos) siguientes: formulario, label, button, panel, picturebox y textbox

Descripción: Al correr el programa muestra una tableta de 16 cartas con la figura oculta, el jugador introduce su nombre, y comienza a voltear las cartas haciendo click en una pareja, si muestra figuras iguales permanece así, si las figuras mostradas son diferentes, el jugador arrastra el ratón con elbotón izquierdo presionando hacia la carta a voltear.
El programa cuenta el número de intentos hasta resolver el memorama. El botón nuevo juego, reinicia el programa y el botón salir termina la ejecución del programa.

Código:

Public Class Form1
Dim intentos As Integer
Dim clic2 As Boolean
Private Sub Form1_Load()
intentos = 0
clic2 = False
End SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox2.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox3.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox4.ImageLocation ="C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox5.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox6.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox7.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox8.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"PictureBox9.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox10.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox11.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox12.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox13.ImageLocation = "C:\Users\3ºAMP\Documents\imagenes\WB00516L.jpg"
PictureBox14.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox15.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
PictureBox16.ImageLocation = "C:\Users\3º AMP\Documents\imagenes\WB00516L.jpg"
End Sub

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