UNIVERSIDAD DE GUAYAQUIL
FACULTAD DE FILOSOFIA LETRAS Y CIENCIA
DE LA EDUCACIÒN
CARPETA
DE:
PROGRAMACIÒN
PERTENECE
A LA SRTA:
ALVARADO ZURITA GEYLER KATHERINE
Curso:
4To
C1
PROFESOR:
MSC. JOHN ORELLANA
AÑO LECTIVO
2015 2016
SOFTWARE
Public Class Form1
Private Sub
TextBox1_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
txtcosto.TextChanged
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Dim costo As Double = 0
Dim iva As Double = 0
Dim total As Double = 0
Dim recaudado As Double = 0
'cargar elementos del combo box
cmbsoft.Items.Add("wordexpress")
cmbsoft.Items.Add("moodle")
End Sub
Private Sub
btvender_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btvender.Click
txtcosto.Text = (Val(txtcosto.Text) * 0.12) + Val(txtcosto.Text)
'acumulador
txttotalrecau.Text = (Val(txtcosto.Text) + Val(txttotalrecau.Text))
End Sub
Private Sub
btlimpiar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btlimpiar.Click
txtcosto.Clear()
cmbsoft.Text
= ""
End Sub
Private Sub
btsalir_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btsalir.Click
End
End Sub
Private Sub
txttotalrecau_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
txttotalrecau.TextChanged
End Sub
Private Sub
cmbsoft_SelectedValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
cmbsoft.SelectedValueChanged
If cmbsoft.SelectedItem = ("wordexpress")
Then
txtcosto.Text = 600
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Image
= Image.FromFile("C:\Users\Geyler\Documents\Visual
Studio 2008\Projects\4c1.exa1_Geyler\4c1.exa1_Geyler\wordexpress1.jpg")
Else
txtcosto.Text = 1000
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Image = Image.FromFile("C:\Users\Geyler\Documents\Visual Studio
2008\Projects\4c1.exa1_Geyler\4c1.exa1_Geyler\moodle1.jpg")
End If
End Sub
End Class
REPRODUCTOR MULTIMEDIA
Public Class Form1
Dim track As String
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
ListBox1.SelectedIndexChanged
'codificacion dentro del lisbox
AxWindowsMediaPlayer1.URL =
ListBox1.SelectedItem
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
End Sub
Private Sub
OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal
e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
For Each track As String In OpenFileDialog1.FileNames
ListBox1.Items.Add(track)
Next
End Sub
Private Sub
AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
AbrirToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
End Sub
Private Sub
CerrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
CerrarToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
AxWindowsMediaPlayer1.settings.rate = -4
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button3.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button4.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button5.Click
AxWindowsMediaPlayer1.settings.rate = 4
End Sub
Private Sub
TrackBar1_Scroll(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TrackBar1.Scroll
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
End Sub
Private Sub ToolStrip1_ItemClicked(ByVal
sender As System.Object, ByVal e As
System.Windows.Forms.ToolStripItemClickedEventArgs) Handles
ToolStrip1.ItemClicked
End Sub
End Class
LINEA BLANCA
Public Class FormFact
Private Sub FormFact_Load(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Cargar los elementos a mostrar
cmbmodelocon.Items.Add("Durex")
cmbmodelocon.Items.Add("Mabe")
cmbmodelocon.Items.Add("Phillips")
cmbmodelocon.Items.Add("Inducción")
'Asignar los
valores iniciales a los diferenciadores
txtdurex.Text = 100
txtmabe.Text
= 100
txtphillips.Text = 100
txtinduccion.Text = 100
End Sub
Private Sub
cmbmodelocon_SelectedValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
cmbmodelocon.SelectedValueChanged
'Cargar los elementos del
cmbmodelocon
If
cmbmodelocon.SelectedItem = "Durex"
Then
txtcosto.Text = 260
pictureboxmodelo.SizeMode =
PictureBoxSizeMode.StretchImage
pictureboxmodelo.Image = Image.FromFile("C:\Users\Geyler\Documents\Visual
Studio
2008\Projects\FacturaLineaBlanca_Deber03_4c1\FacturaLineaBlanca_Deber03_4c1\Durex.png")
ElseIf
cmbmodelocon.SelectedItem = "Mabe"
Then
txtcosto.Text = 280
pictureboxmodelo.SizeMode = PictureBoxSizeMode.StretchImage
pictureboxmodelo.Image = Image.FromFile("C:\Users\Geyler\Documents\Visual
Studio 2008\Projects\FacturaLineaBlanca_Deber03_4c1\FacturaLineaBlanca_Deber03_4c1\Mabe.jpg")
ElseIf cmbmodelocon.SelectedItem = "Phillips" Then
txtcosto.Text = 300
pictureboxmodelo.SizeMode = PictureBoxSizeMode.StretchImage
pictureboxmodelo.Image
= Image.FromFile("C:\Users\Geyler\Documents\Visual
Studio
2008\Projects\FacturaLineaBlanca_Deber03_4c1\FacturaLineaBlanca_Deber03_4c1\Phillips.gif")
Else : txtcosto.Text = 320
pictureboxmodelo.SizeMode = PictureBoxSizeMode.StretchImage
pictureboxmodelo.Image = Image.FromFile("C:\Users\Geyler\Documents\Visual
Studio
2008\Projects\FacturaLineaBlanca_Deber03_4c1\FacturaLineaBlanca_Deber03_4c1\Inducción.png")
End If
End Sub
Private Sub btotal_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles btotal.Click
If cmbmodelocon.SelectedItem = "Durex" Then
If (Val(txtcantidad.Text) > Val(txtdurex.Text)) Then
MessageBox.Show("No hay en stock la cantidad solicitada, ingrese la
cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
: txtdurex.Text = (Val(txtdurex.Text) - Val(txtcantidad.Text))
End If
ElseIf cmbmodelocon.SelectedItem = "Mabe" Then
If (Val(txtcantidad.Text) > Val(txtmabe.Text)) Then
MessageBox.Show("No hay en stock la cantidad solicitada, ingrese la
cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
: txtmabe.Text = (Val(txtmabe.Text) - Val(txtcantidad.Text))
End If
ElseIf cmbmodelocon.SelectedItem = "Phillips" Then
If (Val(txtcantidad.Text) > Val(txtphillips.Text))
Then
MessageBox.Show("No hay en stock la cantidad solicitada, ingrese la
cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
: txtphillips.Text = (Val(txtphillips.Text) - Val(txtcantidad.Text))
End If
Else
If (Val(txtcantidad.Text) >
Val(txtinduccion.Text)) Then
MessageBox.Show("No hay en stock la cantidad solicitada, ingrese la
cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
: txtinduccion.Text = (Val(txtinduccion.Text) - Val(txtcantidad.Text))
End If
End If
'Operaciones matemáticas
txtsubtotal.Text = (Val(txtcosto.Text)
* Val(txtcantidad.Text))
txtiva.Text = (Val(txtsubtotal.Text) *
0.12)
txttotalpagar.Text = (Val(txtiva.Text) +
Val(txtsubtotal.Text))
'Incemento de contador y
acumulador
txtnumven.Text = (Val(txtnumven.Text) +
1)
txtrecauvent.Text = (Val(txtrecauvent.Text) +
Val(txttotalpagar.Text))
End Sub
Private Sub
blimpiar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
blimpiar.Click
'Limpiar los textbox
txtcantidad.Clear()
txtcosto.Clear()
txtsubtotal.Clear()
txtiva.Clear()
txttotalpagar.Clear()
End Sub
Private Sub
binicont_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
binicont.Click
'Limpiar los contadores
txtnumven.Text = 0
txtrecauvent.Text = 0
End Sub
End Class
ICONO DE REPRODUCTOR
Public Class Form1
Private Sub
btplay_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btplay.Click
End Sub
Private Sub
btpause_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btpause.Click
End Sub
Private Sub
btavanzar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btavanzar.Click
End Sub
Private Sub
btregresar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btregresar.Click
End Sub
Private Sub
btstop_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btstop.Click
End Sub
Private Sub
btsalir_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btsalir.Click
End Sub
End Class
JUEGO DE MEMORIA
Public Class Form2
Dim Aciertos As Byte
Dim Fallas As Byte
Dim Clic As Byte
Dim Imag_Act As String
Dim Ele_Act As String
Dim Imag_Nue As String
Dim Ele_Nue As Byte
Dim Max As Integer
Dim Segundos As Byte
Private Function
Aleatorio(ByVal min As
Long, ByVal
maximo As Long)
As Long
Aleatorio = CLng((Minimo
- maximo) = Rnd() + maximo)
End Function
Sub ver_pareja()
If Imag_Nue = Imag_Act Then
Aciertos = Aciertos + 1
Label10.Text = Aciertos
ListBox1.Text = "ACERTASTES"
'DESHABILITAR
LAS IMAGENES
If
Aciertos = Max Then
ListBox1.Text = "FELICITACIONES,GANASTES"
Tmr_cronometro1.Stop()
Tmr_scrollbar1.Stop()
End If
Select Case (Ele_Nue)
Case 68 : PictureBox53.Enabled = False
Case 64 : PictureBox51.Enabled = False
Case 67 : PictureBox49.Enabled = False
Case 66 : PictureBox50.Enabled = False
Case 2 : PictureBox43.Enabled = False
Case
10 : PictureBox52.Enabled = False
Case 4 : PictureBox42.Enabled = False
Case 3 : PictureBox48.Enabled = False
Case 1 : PictureBox47.Enabled = False
Case 65 : PictureBox57.Enabled = False
Case 63 : PictureBox55.Enabled = False
Case 59 : PictureBox7.Enabled = False
Case 62 : PictureBox12.Enabled = False
Case 61 : PictureBox54.Enabled = False
Case 60 : PictureBox20.Enabled = False
Case 17 : PictureBox9.Enabled = False
Case 16 : PictureBox40.Enabled = False
Case 15 : PictureBox8.Enabled = False
Case 14 : PictureBox58.Enabled = False
Case 13 :
PictureBox56.Enabled = False
End Select
End If
End Sub
Private Sub
Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End
End Sub
Private Sub PictureBox68_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs)
'visualizacion de imagen
Select Case
PictureBox68.Tag
Case "68"
: PictureBox68.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox68.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox68.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox68.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox68.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox68.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox68.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox68.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox68.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox68.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox68.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox68.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox68.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox68.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox68.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox68.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox68.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox68.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox68.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox68.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox68.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox68.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox64_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox64.Click
'visualizacion de imagen
Select Case
PictureBox64.Tag
Case "68"
: PictureBox64.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox64.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox64.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox64.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox64.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox64.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox64.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox64.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox64.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox64.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox64.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox64.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox64.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox64.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox64.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox64.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox64.Image = PICTURE_17.IMAGE.JPG
Case "15" : PictureBox64.Image =
PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox64.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox64.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox64.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox64.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub PictureBox67_Click_1(ByVal sender As
System.Object, ByVal e As
System.EventArgs)
'visualizacion de imagen
Select PictureBox67.Tag
Case "68"
: PictureBox67.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox67.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox67.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox67.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox67.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox67.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox67.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox67.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox67.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox67.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox67.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox67.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox67.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox67.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox67.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox67.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox67.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox67.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox67.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox67.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox67.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox67.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox68_Click_1(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox68.Click
'visualizacion de imagen
Select Case
PictureBox68.Tag
Case "68"
: PictureBox68.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox68.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox68.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox68.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox68.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox68.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox68.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox68.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox68.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox68.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox68.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox68.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox68.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox68.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox68.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox68.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox68.Image = PICTURE_17.IMAGE.JPG
Case "15" : PictureBox68.Image =
PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox68.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox68.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox68.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox68.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub PictureBox67_Click_2(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles PictureBox67.Click
'visualizacion de imagen
Select Case
PictureBox67.Tag
Case "68"
: PictureBox67.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox67.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox67.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox67.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox67.Image = PICTURE_5.IMAGE.JPG
Case "10" : PictureBox67.Image =
PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox67.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox67.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox67.Image = PICTURE_9.IMAGE.JPG
Case "65" : PictureBox67.Image =
PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox67.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox67.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox67.Image = PICTURE_13.IMAGE.JPG
Case
"61" : PictureBox67.Image =
PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox67.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox67.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox67.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox67.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox67.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox67.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox67.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox67.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox66_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox66.Click
'visualizacion de imagen
Select Case
PictureBox66.Tag
Case "68"
: PictureBox66.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox66.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox66.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox66.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox66.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox66.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox66.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox66.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox66.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox66.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox66.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox66.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox66.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox66.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox66.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox66.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox66.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox66.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox66.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox66.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox66.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox66.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox2.Click
'visualizacion de imagen
Select Case
PictureBox2.Tag
Case "68"
: PictureBox2.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox2.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox2.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox2.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox2.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox2.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox2.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox2.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox2.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox2.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox2.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox2.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox2.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox2.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox2.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox2.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox2.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox2.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox2.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox2.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox2.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox2.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox10_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox10.Click
'visualizacion de imagen
Select Case
PictureBox10.Tag
Case "68"
: PictureBox10.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox10.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox10.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox10.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox10.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox10.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox10.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox10.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox10.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox10.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox10.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox10.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox10.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox10.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox10.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox10.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox10.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox10.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox10.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox10.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox10.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox10.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox4.Click
'visualizacion de imagen
Select Case
PictureBox4.Tag
Case "68"
: PictureBox4.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox4.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox4.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox4.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox4.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox4.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox4.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox4.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox4.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox4.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox4.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox4.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox4.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox4.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox4.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox4.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox4.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox4.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox4.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox4.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox4.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox4.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox3.Click
'visualizacion de imagen
Select Case
PictureBox3.Tag
Case "68"
: PictureBox3.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox3.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox3.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox3.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox3.Image = PICTURE_5.IMAGE.JPG
Case
"10" : PictureBox3.Image =
PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox3.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox3.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox3.Image = PICTURE_9.IMAGE.JPG
Case "65" : PictureBox3.Image =
PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox3.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox3.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox3.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox3.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox3.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox3.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox3.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox3.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox3.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox3.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox3.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox3.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox1.Click
'visualizacion de imagen
Select Case
PictureBox1.Tag
Case "68"
: PictureBox1.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox1.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox1.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox1.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox1.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox1.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox1.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox1.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox1.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox1.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox1.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox1.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox1.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox1.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox1.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox1.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox1.Image = PICTURE_17.IMAGE.JPG
Case "15" : PictureBox1.Image =
PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox1.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox1.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox1.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox1.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub PictureBox65_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles PictureBox65.Click
'visualizacion de imagen
Select Case
PictureBox65.Tag
Case "68"
: PictureBox65.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox65.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox65.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox65.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox65.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox65.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox65.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox65.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox65.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox65.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox65.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox65.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox65.Image = PICTURE_13.IMAGE.JPG
Case "61" : PictureBox65.Image =
PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox65.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox65.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox65.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox65.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox65.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox65.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox65.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox65.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox63_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox63.Click
'visualizacion de imagen
Select Case
PictureBox63.Tag
Case "68"
: PictureBox63.Image = PICTURE_1.IMAGE.JPG
Case "64" : PictureBox63.Image =
PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox63.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox63.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox63.Image = PICTURE_5.IMAGE.JPG
Case "10" : PictureBox63.Image =
PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox63.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox63.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox63.Image = PICTURE_9.IMAGE.JPG
Case "65" : PictureBox63.Image =
PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox63.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox63.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox63.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox63.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox63.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox63.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox63.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox63.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox63.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox63.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox63.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox63.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox59_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox59.Click
'visualizacion de imagen
Select Case
PictureBox59.Tag
Case "68"
: PictureBox59.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox59.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox59.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox59.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox59.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox59.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox59.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox59.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox59.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox59.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox59.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox59.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox59.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox59.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox59.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox59.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox59.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox59.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox59.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox59.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox59.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox59.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox62_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox62.Click
'visualizacion de imagen
Select Case
PictureBox62.Tag
Case "68"
: PictureBox62.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox62.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox62.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox62.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox62.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox62.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox62.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox62.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox62.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox62.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox62.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox62.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox62.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox62.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox62.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox62.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox62.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox62.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox62.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox62.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox62.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox62.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox61_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox61.Click
'visualizacion de imagen
Select Case
PictureBox61.Tag
Case "68"
: PictureBox61.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox61.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox61.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox61.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox61.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox61.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox61.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox61.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox61.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox61.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox61.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox61.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox61.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox61.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox61.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox61.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox61.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox61.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox61.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox61.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno"
& PictureBox61.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox61.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox60_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox60.Click
'visualizacion de imagen
Select Case
PictureBox60.Tag
Case "68"
: PictureBox60.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox60.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox60.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox60.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox60.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox60.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox60.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox60.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox60.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox60.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox60.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox60.Image = PICTURE_12.IMAGE.JPG
Case "62" : PictureBox60.Image =
PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox60.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox60.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox60.Image = PICTURE_16.IMAGE.JPG
Case
"16" : PictureBox60.Image =
PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox60.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox60.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox60.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox60.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act = PictureBox60.Tag
Ele_Nue =
4
ver_pareja()
End If
End Sub
Private Sub
PictureBox17_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox17.Click
'visualizacion de imagen
Select Case
PictureBox17.Tag
Case "68" : PictureBox17.Image =
PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox17.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox17.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox17.Image = PICTURE_4.IMAGE.JPG
Case "2" : PictureBox17.Image =
PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox17.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox17.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox17.Image = PICTURE_8.IMAGE.JPG
Case "1" : PictureBox17.Image =
PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox17.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox17.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox17.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox17.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox17.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox17.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox17.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox17.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox17.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox17.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox17.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox17.Tag)
End Select
'activar clic
If Clic
- 0 Then
'primer
clic,imagen activada
Clic = 1
Imag_Act = PictureBox17.Tag
Ele_Nue = 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox16_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox16.Click
'visualizacion de imagen
Select Case PictureBox16.Tag
Case "68"
: PictureBox16.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox16.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox16.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox16.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox16.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox16.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox16.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox16.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox16.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox16.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox16.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox16.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox16.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox16.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox16.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox16.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox16.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox16.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox16.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox16.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox16.Tag)
End Select
'activar clic
If Clic
- 0 Then
'primer
clic,imagen activada
Clic = 1
Imag_Act = PictureBox16.Tag
Ele_Nue = 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox15_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox15.Click
'visualizacion de imagen
Select Case PictureBox15.Tag
Case "68"
: PictureBox15.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox15.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox15.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox15.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox15.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox15.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox15.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox15.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox15.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox15.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox15.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox15.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox15.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox15.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox15.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox15.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox15.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox15.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox15.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox15.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox15.Tag)
End Select
'activar clic
If Clic
- 0 Then
'primer
clic,imagen activada
Clic = 1
Imag_Act = PictureBox15.Tag
Ele_Nue = 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox14_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox14.Click
'visualizacion de imagen
Select
Case PictureBox14.Tag
Case "68"
: PictureBox14.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox14.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox14.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox14.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox14.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox14.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox14.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox14.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox14.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox14.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox14.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox14.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox14.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox14.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox14.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox14.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox14.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox14.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox14.Image = PICTURE_19.IMAGE.JPG
Case "13" : PictureBox14.Image =
PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox14.Tag)
End Select
'activar clic
If Clic
- 0 Then
'primer
clic,imagen activada
Clic = 1
Imag_Act = PictureBox14.Tag
Ele_Nue = 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox13_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox13.Click
'visualizacion de imagen
Select Case PictureBox13.Tag
Case "68"
: PictureBox13.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox13.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox13.Image = PICTURE_3.IMAGE.JPG
Case "66"
: PictureBox13.Image = PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox13.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox13.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox13.Image = PICTURE_7.IMAGE.JPG
Case "3"
: PictureBox13.Image = PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox13.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox13.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox13.Image = PICTURE_11.IMAGE.JPG
Case "59" : PictureBox13.Image =
PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox13.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox13.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox13.Image = PICTURE_15.IMAGE.JPG
Case "17" : PictureBox13.Image =
PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox13.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox13.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox13.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox13.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox13.Tag)
End Select
'activar clic
If Clic
- 0 Then
'primer
clic,imagen activada
Clic = 1
Imag_Act = PictureBox13.Tag
Ele_Nue = 4
ver_pareja()
End If
End Sub
Private Sub
PictureBox69_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
PictureBox69.Click
'visualizacion de imagen
Select Case PictureBox69.Tag
Case "68"
: PictureBox69.Image = PICTURE_1.IMAGE.JPG
Case "64"
: PictureBox69.Image = PICTURE_2.IMAGE.JPG
Case "67"
: PictureBox69.Image = PICTURE_3.IMAGE.JPG
Case "66" : PictureBox69.Image =
PICTURE_4.IMAGE.JPG
Case "2"
: PictureBox69.Image = PICTURE_5.IMAGE.JPG
Case "10"
: PictureBox69.Image = PICTURE_6.IMAGE.JPG
Case "4"
: PictureBox69.Image = PICTURE_7.IMAGE.JPG
Case
"3" : PictureBox69.Image =
PICTURE_8.IMAGE.JPG
Case "1"
: PictureBox69.Image = PICTURE_9.IMAGE.JPG
Case "65"
: PictureBox69.Image = PICTURE_10.IMAGE.JPG
Case "63"
: PictureBox69.Image = PICTURE_11.IMAGE.JPG
Case "59"
: PictureBox69.Image = PICTURE_12.IMAGE.JPG
Case "62"
: PictureBox69.Image = PICTURE_13.IMAGE.JPG
Case "61"
: PictureBox69.Image = PICTURE_14.IMAGE.JPG
Case "60"
: PictureBox69.Image = PICTURE_15.IMAGE.JPG
Case "17"
: PictureBox69.Image = PICTURE_16.IMAGE.JPG
Case "16"
: PictureBox69.Image = PICTURE_17.IMAGE.JPG
Case "15"
: PictureBox69.Image = PICTURE_18.IMAGE.JPG
Case "14"
: PictureBox69.Image = PICTURE_19.IMAGE.JPG
Case "13"
: PictureBox69.Image = PICTURE_20.IMAGE.JPG
Case Else : MsgBox("ninguno" & PictureBox69.Tag)
End Select
'activar clic
If Clic - 0 Then
'primer clic,imagen activada
Clic = 1
Imag_Act
= PictureBox69.Tag
Ele_Nue
= 4
ver_pareja()
End If
End Sub
Private Sub
Tmr_cronometro1_Tick(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Tmr_cronometro1.Tick
End Sub
Private Sub
Tmr_scrollbar1_Tick(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Tmr_scrollbar1.Tick
If ProgressBary.value = 100 Then
Me.Opacity = 0.07
If Me.Opacity = 0.0 Then
End If
End If
End Sub
End Class
LINK DE UNA PAGINA WEB
Public Class Form1
Private Sub
LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal
e As
System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel1.LinkClicked
LinkLabel1.LinkVisited = True
System.Diagnostics.Process.Start("http://www.google.com.ec")
End Sub
Private Sub
LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal
e As
System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
LinkLabel2.LinkClicked
LinkLabel2.LinkVisited = True
System.Diagnostics.Process.Start("http://www.hostinger.co")
End Sub
Private Sub
LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
Handles LinkLabel3.LinkClicked
LinkLabel3.LinkVisited = True
System.Diagnostics.Process.Start("http://www.yahoo.com")
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
VALIDAR USUARIO Y CONTRASEÑA
Public Class
txt_form1
'definir variables del ejercicio
Dim cce As Integer
Dim error1 As String
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
cce = 0
txt_username.Focus()
End Sub
Private Sub
cmd_validar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmd_validar.Click
If ((txt_username.Text = "GKAZ"
Or txt_username.Text = "GKAZ")
And (txt_password.Text = "12345" Or
txt_password.Text = "12345")) Then
MsgBox("USUARIO
IDENTIFICADO", MsgBoxStyle.OkOnly)
Me.Hide()
Form2.Show()
Else
cce =
cce + 1
MsgBox("USER
Y/O PASSWORD INCORRECTOS", MsgBoxStyle.Exclamation)
If cce < 3
Then
error1 = MsgBox("UD. SE HA EQUIVOCADO POR " & cce & "VEZ, INTENTA
OTRA VEZ", MsgBoxStyle.YesNo)
If
error1 = vbYes Then
txt_username.Clear()
txt_password.Clear()
txt_password.Text = ""
txt_username.Focus()
Else
End
End If
Else
MsgBox("HASTA LA VISTA BABY")
End
End If
End If
End Sub
End Class
CLAVE DE INGRESO
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
REPRODUCTOR WMP
Public Class Form1
Private Sub
SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SalirToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
End Sub
Private Sub
SalirToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SalirToolStripMenuItem1.Click
End
End Sub
Private Sub
MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal
e As
System.Windows.Forms.ToolStripItemClickedEventArgs) Handles
MenuStrip1.ItemClicked
End Sub
Private Sub
OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal
e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
REPRODUCTOR WMP
Public Class Form1
Private Sub
btotalizar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btotalizar.Click
'Operacion matematica
txttotaliva.Text = (Val(txtcosto.Text) * Val(txtcantidad.Text) * 0.12) +
(Val(txtcantidad.Text) * Val(txtcosto.Text))
'Incremento de contador
txtventa.Text = (Val(txtventa.Text) +
1)
'Incremento
del acumulador
txtrecauda.Text = (Val(txtrecauda.Text)
+ Val(txttotaliva.Text))
End Sub
Private Sub
blimpiar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
blimpiar.Click
txtcantidad.Clear()
txtcosto.Clear()
txttotaliva.Clear()
txtventa.Clear()
txtrecauda.Clear()
End Sub
Private Sub cmbsoftware_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cmbsoftware.SelectedValueChanged
If cmbsoftware.SelectedItem = "Window 8" Then
txtcosto.Text = 320
Else
cmbsoftware.SelectedItem = "Office
2013"
txtcosto.Text = 280
End If
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
'definir las variables
cmbsoftware.Items.Add("Window 8")
cmbsoftware.Items.Add("Office
2013")
End Sub
End Class
AHORCADO
Public Class Form1
Private Sub
Label1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs)
End Sub
Private Sub
cmb_0_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_0.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible = True
label2.Visible = False
label2a.Visible = True
label2b.Visible = True
label3.Visible = True
End Sub
Private Sub
cmb_6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_6.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible = False
label2.Visible
= True
label2a.Visible = True
label2b.Visible = True
label3.Visible = True
End Sub
Private Sub
cmb_8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_8.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible = True
label2.Visible = True
label2a.Visible = True
label2b.Visible = True
label3.Visible = True
End Sub
Private Sub
cmb_A_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_A.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible = True
label2.Visible = True
label2a.Visible = True
label2b.Visible = True
label3.Visible = False
End Sub
Private Sub
label1_Click_3(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
label1.Click
End Sub
Private Sub
label1a_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
label1a.Click
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
MATRICULA
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
'Definir variables del ejercicio
Dim
nomape As String
Dim curso As String
Dim sueldo As Double
'ingreso de datos a las variables
nomape = InputBox("Ingrese su nombre y apellido")
curso = InputBox("Ingrese el curso y el paralelo donde esta
matriculado")
MsgBox("Sr/a: " + nomape + " Usted esta
matriculado en el curso " +
curso)
End Sub
End Class
VENTA
DE CUADRO O PINTURAS
Public Class frmVtacuadro
'Definición de variables de
ejercicio
Dim costo As
Double = 0
Dim cantidad As Integer = 0
Dim subtotal As Double = 0
Dim iva As Double = 0
Dim descuento As Double
Dim liquido As Double = 0
Private Sub
frmVtacuadro_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
'Cargar los elementos del combobox
cbxmodelo.Items.Add("Oleo1")
cbxmodelo.Items.Add("Acrílico")
cbxmodelo.Items.Add("Acuarela")
End Sub
Private Sub
cbxmodelo_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cbxmodelo.SelectedIndexChanged
End Sub
Private Sub
cbxmodelo_SelectedValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
cbxmodelo.SelectedValueChanged
If cbxmodelo.SelectedItem = "Oleo1"
Then
costo =
200
txtcosto.Text = costo
pbxcuadro.SizeMode = PictureBoxSizeMode.StretchImage
pbxcuadro.Image
= Image.FromFile("C:\Users\Geyler\Documents\Visual
Studio
2008\Projects\WindowsApplication1-4C1-ejercicio-03\WindowsApplication1-4C1-ejercicio-03\F1oleo.jpg")
ElseIf cbxmodelo.SelectedItem = "Acrílico" Then
costo =
300
txtcosto.Text = costo
pbxcuadro.SizeMode =
PictureBoxSizeMode.StretchImage
pbxcuadro.Image = Image.FromFile("C:\Users\Geyler\Documents\Visual Studio
2008\Projects\WindowsApplication1-4C1-ejercicio-03\WindowsApplication1-4C1-ejercicio-03\F3acrilica.jpg")
Else
costo = 400
txtcosto.Text = costo
pbxcuadro.SizeMode =
PictureBoxSizeMode.StretchImage
pbxcuadro.Image = Image.FromFile("C:\Users\Geyler\Documents\Visual
Studio 2008\Projects\WindowsApplication1-4C1-ejercicio-03\WindowsApplication1-4C1-ejercicio-03\F2acuarela.jpg")
End If
End Sub
Private Sub
cmbtotalizar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbtotalizar.Click
txtsubtotal.Text = (Val(txtcosto.Text) * Val(txtcantidad.Text))
txtiva.Text
= (Val(txtsubtotal.Text) * 0.12)
txtdescuento.Text = (Val(txtsubtotal.Text) * 0.05)
txtliquido.Text = (Val(txtiva.Text) + Val(txtsubtotal.Text) - Val(txtdescuento.Text))
End Sub
Private Sub
cmblimpiar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmblimpiar.Click
txtcantidad.Clear()
txtcosto.Clear()
txtsubtotal.Clear()
txtiva.Clear()
txtdescuento.Clear()
txtliquido.Clear()
End Sub
End Class
BOLETO
Public Class frmvariable
Private Sub
ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles cbxdestino.SelectedValueChanged
If cbxdestino.SelectedItem = "Gquil
- Quito" Then
txtcosto.Text = 230
ElseIf cbxdestino.SelectedItem = "Gquil - Cuenca" Then
txtcosto.Text = 170
ElseIf cbxdestino.SelectedItem = "Gquil - Machala" Then
txtcosto.Text = 130
Else : txtcosto.Text = 400
End If
End Sub
Private Sub
frmvariable_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
'Carga los elementos del combobox
cbxdestino
cbxdestino.Items.Add("Gquil - Quito")
cbxdestino.Items.Add("Gquil - Cuenca")
cbxdestino.Items.Add("Gquil - Machala")
cbxdestino.Items.Add("Gquil - Galapagos")
' Asignar los
valores iniciales a los diferenciadores
txtgquilqto.Text = 100
txtgquilcuen.Text = 100
txtgquilmach.Text = 100
txtgquilgalap.Text = 50
End Sub
Private Sub
cbxdestino_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cbxdestino.SelectedIndexChanged
End Sub
Private Sub
cmbtotalizar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbtotalizar.Click
'Decremento de los diferenciadores
en el contador y acumulador;ademas de mostrar mensaje de error por sobrepasar
la cantidad de boletos
If
cbxdestino.SelectedItem = "Gquil - Quito"
Then
If (Val(txtcantidad.Text) > Val(txtgquilqto.Text))
Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilqto.Text =
(Val(txtgquilqto.Text) - Val(txtcantidad.Text))
End If
ElseIf cbxdestino.SelectedItem = "Gquil - Cuenca" Then
If (Val(txtcantidad.Text) >
Val(txtgquilcuen.Text)) Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilcuen.Text =
(Val(txtgquilcuen.Text) - Val(txtcantidad.Text))
End If
ElseIf cbxdestino.SelectedItem = "Gquil - Machala" Then
If (Val(txtcantidad.Text) >
Val(txtgquilmach.Text)) Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilmach.Text =
(Val(txtgquilmach.Text) - Val(txtcantidad.Text))
End If
Else
If (Val(txtcantidad.Text) >
Val(txtgquilgalap.Text)) Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilgalap.Text =
(Val(txtgquilgalap.Text) - Val(txtcantidad.Text))
End
If
End If
'
txtsubtotal.Text = (Val(txtcosto.Text)
* Val(txtcantidad.Text))
txtiva.Text = (Val(txtsubtotal.Text) *
0.12)
txtliquido.Text = (Val(txtiva.Text) + Val(txtsubtotal.Text))
'Incremento de contador y
acumulador
txtnumven.Text = (Val(txtnumven.Text) +
1)
txttoreven.Text = (Val(txttoreven.Text) +
Val(txtliquido.Text))
End Sub
Private Sub
cmblimpiar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmblimpiar.Click
txtcantidad.Clear()
txtcosto.Clear()
txtsubtotal.Clear()
txtiva.Clear()
txtliquido.Clear()
End Sub
Private Sub
Label7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label7.Click
End Sub
Private Sub
txtcantidad_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
txtcantidad.TextChanged
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
txtnumven.Text = 0
txttoreven.Text = 0
End Sub
Private Sub
Button1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
Button1.MouseMove
End Sub
End Class
JUEGO DE LETRA
Public Class frmvariable
Private Sub
ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles cbxdestino.SelectedValueChanged
If cbxdestino.SelectedItem = "Gquil
- Quito" Then
txtcosto.Text = 230
ElseIf cbxdestino.SelectedItem = "Gquil - Cuenca" Then
txtcosto.Text = 170
ElseIf cbxdestino.SelectedItem = "Gquil - Machala" Then
txtcosto.Text = 130
Else : txtcosto.Text = 400
End If
End Sub
Private Sub
frmvariable_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
'Carga los elementos del combobox
cbxdestino
cbxdestino.Items.Add("Gquil - Quito")
cbxdestino.Items.Add("Gquil - Cuenca")
cbxdestino.Items.Add("Gquil - Machala")
cbxdestino.Items.Add("Gquil - Galapagos")
' Asignar los
valores iniciales a los diferenciadores
txtgquilqto.Text = 100
txtgquilcuen.Text = 100
txtgquilmach.Text = 100
txtgquilgalap.Text = 50
End Sub
Private Sub
cbxdestino_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cbxdestino.SelectedIndexChanged
End Sub
Private Sub
cmbtotalizar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbtotalizar.Click
'Decremento de los diferenciadores
en el contador y acumulador;ademas de mostrar mensaje de error por sobrepasar
la cantidad de boletos
If
cbxdestino.SelectedItem = "Gquil - Quito"
Then
If (Val(txtcantidad.Text) > Val(txtgquilqto.Text))
Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilqto.Text =
(Val(txtgquilqto.Text) - Val(txtcantidad.Text))
End If
ElseIf cbxdestino.SelectedItem = "Gquil - Cuenca" Then
If (Val(txtcantidad.Text) >
Val(txtgquilcuen.Text)) Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilcuen.Text =
(Val(txtgquilcuen.Text) - Val(txtcantidad.Text))
End If
ElseIf cbxdestino.SelectedItem = "Gquil - Machala" Then
If (Val(txtcantidad.Text) >
Val(txtgquilmach.Text)) Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilmach.Text =
(Val(txtgquilmach.Text) - Val(txtcantidad.Text))
End If
Else
If (Val(txtcantidad.Text) >
Val(txtgquilgalap.Text)) Then
MessageBox.Show("No tiene disponible la cantidad solicitada,ingresar
la cantidad que este disponible.")
txtcantidad.Clear()
txtcantidad.Focus()
Else
txtgquilgalap.Text =
(Val(txtgquilgalap.Text) - Val(txtcantidad.Text))
End
If
End If
'
txtsubtotal.Text = (Val(txtcosto.Text)
* Val(txtcantidad.Text))
txtiva.Text = (Val(txtsubtotal.Text) *
0.12)
txtliquido.Text = (Val(txtiva.Text) + Val(txtsubtotal.Text))
'Incremento de contador y
acumulador
txtnumven.Text = (Val(txtnumven.Text) +
1)
txttoreven.Text = (Val(txttoreven.Text) +
Val(txtliquido.Text))
End Sub
Private Sub
cmblimpiar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmblimpiar.Click
txtcantidad.Clear()
txtcosto.Clear()
txtsubtotal.Clear()
txtiva.Clear()
txtliquido.Clear()
End Sub
Private Sub
Label7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label7.Click
End Sub
Private Sub
txtcantidad_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
txtcantidad.TextChanged
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
txtnumven.Text = 0
txttoreven.Text = 0
End Sub
Private Sub
Button1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
Button1.MouseMove
End Sub
End Class
JUEGO DE LETRA
Public Class frm_ahorcado
Private Sub
label1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
label1.Click
End Sub
Private Sub
label2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
label2.Click
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_g.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible
= True
label2.Visible = True
label2a.Visible = False
label2b.Visible = True
label3.Visible = True
label3a.Visible = False
label3b.Visible = True
label4.Visible = True
label4a.Visible
= True
label4b.Visible = True
label5.Visible = True
label5a.Visible = True
label5b.Visible = True
label6.Visible = True
label7.Visible = False
label8.Visible = False
label9.Visible = False
label10.Visible = False
label11.Visible = True
label12.Visible = False
label13.Visible = False
label14.Visible = False
label15.Visible = True
End Sub
Private Sub
Button1_Click_1(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_r.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible = True
label2.Visible = True
label2a.Visible = False
label2b.Visible = False
label3.Visible = True
label3a.Visible = False
label3b.Visible = False
label4.Visible = True
label4a.Visible = True
label4b.Visible = False
label5.Visible = True
label5a.Visible = True
label5b.Visible
= True
label6.Visible = True
label7.Visible = False
label8.Visible = False
label9.Visible = False
label10.Visible = True
label11.Visible = True
label12.Visible = False
label13.Visible = False
label14.Visible = True
label15.Visible = False
End Sub
Private Sub
Button1_Click_2(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
label6.Click
End Sub
Private Sub
cmb_d_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_d.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible = True
label2.Visible = True
label2a.Visible = False
label2b.Visible = True
label3.Visible = True
label3a.Visible = False
label3b.Visible = True
label4.Visible = True
label4a.Visible = False
label4b.Visible = True
label5.Visible = True
label5a.Visible = True
label5b.Visible
= True
label6.Visible = True
label7.Visible = False
label8.Visible = False
label9.Visible = False
label10.Visible = True
label11.Visible = True
label12.Visible = False
label13.Visible = False
label14.Visible = False
label15.Visible = True
End Sub
Private Sub
Button1_Click_3(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_t.Click
label1.Visible = True
label1a.Visible = False
label1b.Visible = False
label2.Visible = True
label2a.Visible = False
label2b.Visible = False
label3.Visible = True
label3a.Visible = True
label3b.Visible = True
label4.Visible = True
label4a.Visible = False
label4b.Visible = False
label5.Visible = True
label5a.Visible = False
label5b.Visible = False
label6.Visible = False
label7.Visible = False
label8.Visible = True
label9.Visible = False
label10.Visible = False
label11.Visible = False
label12.Visible = False
label13.Visible = True
label14.Visible = False
label15.Visible = False
End Sub
Private Sub
cmb_e_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmb_e.Click
label1.Visible = True
label1a.Visible = True
label1b.Visible = True
label2.Visible = True
label2a.Visible = True
label2b.Visible = True
label3.Visible = True
label3a.Visible = True
label3b.Visible = True
label4.Visible = True
label4a.Visible = True
label4b.Visible = True
label5.Visible = True
label5a.Visible = True
label5b.Visible
= True
label6.Visible = True
label7.Visible = False
label8.Visible = False
label9.Visible = False
label10.Visible = False
label11.Visible = True
label12.Visible = False
label13.Visible = False
label14.Visible = False
label15.Visible = False
End Sub
Private Sub
frm_ahorcado_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
DECAMERON
Option Explicit On
Public Class Form1
'Declaracion de Variables y
Constantes
Dim cantpaqven As
Integer
Dim totrecvent As Integer
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
'Cargar los elementos del
cmbtipohabit
cbxtipohabit.Items.Add("Básico")
cbxtipohabit.Items.Add("Ejecutivo")
cbxtipohabit.Items.Add("De Lujo")
'Desabilitar controles
txtnombre.Enabled = False
txtcedula.Enabled = False
txtcantperso.Enabled = False
txtdias.Enabled = False
cbxpaquetes.Enabled = False
txtcostoxpers.Enabled = False
txtsubtotal.Enabled = False
txtiva.Enabled = False
txtinteres.Enabled = False
txttotalpagar.Enabled = False
lblcantpaqvent.Enabled = False
txtcantpaqven.Visible = False
lbltotventrec.Enabled = False
txttotrecvent.Visible = False
lsxReserCliente.Enabled = False
Panel1.Enabled = False
cmbNuevo.Enabled = True
cmbMostrar.Enabled = False
cmbGrabar.Enabled = False
cmbOtraReser.Enabled = False
cmbLimpiar.Enabled = False
cmbBorrar.Enabled = False
cmbSalir.Enabled = True
End Sub
Private Sub cmbNuevo_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmbNuevo.Click
'Habilitar y deshabilitar cajas de
texto
txtnombre.Enabled = True
txtcedula.Enabled = True
txtcantperso.Enabled = True
txtdias.Enabled = True
cbxpaquetes.Enabled = True
txtcostoxpers.Enabled = True
txtsubtotal.Enabled = False
txtiva.Enabled = False
txtinteres.Enabled = False
txttotalpagar.Enabled = False
lblcantpaqvent.Enabled = False
txtcantpaqven.Visible = False
lbltotventrec.Enabled = False
txttotrecvent.Visible = False
lsxReserCliente.Enabled = True
Panel1.Enabled = True
cmbNuevo.Enabled = False
cmbMostrar.Enabled = False
cmbGrabar.Enabled = True
cmbOtraReser.Enabled = False
cmbLimpiar.Enabled = False
cmbBorrar.Enabled = False
cmbSalir.Enabled = True
txtnombre.Focus()
'Cargar
contenido de cbxpauetes
cbxpaquetes.Items.Add("PAQUETE1")
cbxpaquetes.Items.Add("PAQUETE2")
cbxpaquetes.Items.Add("PAQUETE3")
End Sub
Private Sub
cbxpaquetes_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cbxpaquetes.SelectedIndexChanged
End Sub
Private Sub
cbxpaquetes_SelectedValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
cbxpaquetes.SelectedValueChanged
If cbxpaquetes.SelectedItem = "PAQUETE1" Then
txtcostoxpers.Text = 500
ElseIf cbxpaquetes.SelectedItem = "PAQUETE2" Then
txtcostoxpers.Text = 700
Else
txtcostoxpers.Text = 800
End If
txtcantperso.Focus()
End Sub
Private Sub
cmbValfp_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbValfp.Click
Panel1.Enabled = True
MsgBox("Seleccione
su forma de pago, antes de totalizar")
Panel1.Focus()
End Sub
Private Sub rbContado_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
rbContado.CheckedChanged
'Calculos de esta reservación
txtsubtotal.Text =
(Val(txtcantperso.Text) * Val(txtcostoxpers.Text) * Val(txtdias.Text))
txtiva.Text = (Val(txtsubtotal.Text) * 0.12)
'Validar la forma
If rbContado.Checked = True
Then
txtinteres.Text = 0
End If
txttotalpagar.Text = (Val(txtsubtotal.Text) + Val(txtiva.Text) +
Val(txtinteres.Text))
End Sub
Private Sub
rbMastercard_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
rbMastercard.CheckedChanged
'Calculos de esta reservación
txtsubtotal.Text =
(Val(txtcantperso.Text) * Val(txtcostoxpers.Text) * Val(txtdias.Text))
txtiva.Text = (Val(txtsubtotal.Text) * 0.12)
If rbMastercard.Checked = True
Then
'Interes del 3% sobre el subtotal
txtinteres.Text = (Val(txtsubtotal.Text) * 0.03)
End If
txttotalpagar.Text = (Val(txtsubtotal.Text) + Val(txtiva.Text) +
Val(txtinteres.Text))
End Sub
Private Sub
rbVisa_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
rbVisa.CheckedChanged
'Calculos de esta reservación
txtsubtotal.Text =
(Val(txtcantperso.Text) * Val(txtcostoxpers.Text) * Val(txtdias.Text))
txtiva.Text = (Val(txtsubtotal.Text) * 0.12)
If rbVisa.Checked = True
Then
'Interes del 2% sobre el subtotal
txtinteres.Text = (Val(txtsubtotal.Text) * 0.02)
End If
txttotalpagar.Text = (Val(txtsubtotal.Text) + Val(txtiva.Text) +
Val(txtinteres.Text))
End Sub
Private Sub
lsxReserCliente_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
lsxReserCliente.SelectedIndexChanged
End Sub
Private Sub
cmbGrabar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbGrabar.Click
txtnombre.Enabled = True
txtcedula.Enabled = True
txtcantperso.Enabled = True
txtdias.Enabled = True
cbxpaquetes.Enabled = True
txtcostoxpers.Enabled = True
txtsubtotal.Enabled = True
txtiva.Enabled = True
txtinteres.Enabled = True
txttotalpagar.Enabled = True
lblcantpaqvent.Enabled = True
txtcantpaqven.Visible = True
lbltotventrec.Enabled = True
txttotrecvent.Visible = True
lsxReserCliente.Enabled = True
Panel1.Enabled
= True
cmbNuevo.Enabled = False
cmbMostrar.Enabled = True
cmbGrabar.Enabled = True
cmbOtraReser.Enabled = False
cmbLimpiar.Enabled = True
cmbBorrar.Enabled = True
cmbSalir.Enabled = True
Me.lsxReserCliente.Items.Add(txtnombre.Text)
Me.lsxReserCliente.Items.Add(txtcedula.Text)
Me.lsxReserCliente.Items.Add(txtcantperso.Text)
Me.lsxReserCliente.Items.Add(txtdias.Text)
Me.lsxReserCliente.Items.Add(txtcostoxpers.Text)
Me.lsxReserCliente.Items.Add(txttotalpagar.Text)
'Incemento de contador y
acumulador
txtcantpaqven.Text =
(Val(txtcantpaqven.Text) + 1)
txttotrecvent.Text =
(Val(txttotrecvent.Text) + Val(txttotalpagar.Text))
End Sub
Private Sub
cmbMostrar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbMostrar.Click
txtnombre.Enabled = True
txtcedula.Enabled = True
txtcantperso.Enabled = True
txtdias.Enabled = True
cbxpaquetes.Enabled = True
txtcostoxpers.Enabled = True
txtsubtotal.Enabled = False
txtiva.Enabled = False
txtinteres.Enabled = False
txttotalpagar.Enabled = False
lblcantpaqvent.Enabled = True
txtcantpaqven.Visible = True
lbltotventrec.Enabled = True
txttotrecvent.Visible = True
lsxReserCliente.Enabled = True
Panel1.Enabled = True
cmbNuevo.Enabled = False
cmbMostrar.Enabled = True
cmbGrabar.Enabled
= True
cmbOtraReser.Enabled = False
cmbLimpiar.Enabled = True
cmbBorrar.Enabled = False
cmbSalir.Enabled = True
End Sub
Private Sub
cmbLimpiar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbLimpiar.Click
txtnombre.Enabled = True
txtcedula.Enabled = True
txtcantperso.Enabled = True
txtdias.Enabled = True
cbxpaquetes.Enabled = True
txtcostoxpers.Enabled = True
txtsubtotal.Enabled
= True
txtiva.Enabled = True
txtinteres.Enabled = True
txttotalpagar.Enabled = True
lblcantpaqvent.Enabled = True
txtcantpaqven.Visible = True
lbltotventrec.Enabled = True
txttotrecvent.Visible = True
lsxReserCliente.Enabled = True
Panel1.Enabled = True
cmbNuevo.Enabled = False
cmbMostrar.Enabled = True
cmbGrabar.Enabled = True
cmbOtraReser.Enabled = True
cmbLimpiar.Enabled = True
cmbBorrar.Enabled = True
cmbSalir.Enabled = True
'Limpiar los
textbox
txtnombre.Clear()
txtcantperso.Clear()
txtcedula.Clear()
txtcostoxpers.Clear()
txtdias.Clear()
txtinteres.Clear()
txtiva.Clear()
txtsubtotal.Clear()
txttotalpagar.Clear()
cbxpaquetes.Text = ""
End Sub
Private Sub
cmbSalir_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbSalir.Click
End
End Sub
Private Sub
cmbBorrar_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbBorrar.Click
'Limpiar los contadores
txtcantpaqven.Text = 0
txttotrecvent.Text = 0
lsxReserCliente.Text = ""
End Sub
Private Sub
cmbOtraReser_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cmbOtraReser.Click
'Habilitar y deshabilitar cajas de
texto
txtnombre.Enabled = True
txtcedula.Enabled = True
txtcantperso.Enabled = True
txtdias.Enabled = True
cbxpaquetes.Enabled = True
txtcostoxpers.Enabled = True
txtsubtotal.Enabled = False
txtiva.Enabled = False
txtinteres.Enabled = False
txttotalpagar.Enabled
= False
lblcantpaqvent.Enabled = False
txtcantpaqven.Visible = False
lbltotventrec.Enabled = False
txttotrecvent.Visible = False
lsxReserCliente.Enabled = True
Panel1.Enabled = True
cmbNuevo.Enabled
= True
cmbMostrar.Enabled = False
cmbGrabar.Enabled = True
cmbOtraReser.Enabled = True
cmbLimpiar.Enabled = False
cmbBorrar.Enabled = False
cmbSalir.Enabled = True
txtnombre.Focus()
End Sub
Private Sub
cbxtipohabit_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
cbxtipohabit.SelectedIndexChanged
End Sub
Private Sub
cbxtipohabit_SelectedValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
cbxtipohabit.SelectedValueChanged
If cbxtipohabit.SelectedItem = "Básico"
Then
pctbasic1.SizeMode =
PictureBoxSizeMode.StretchImage
pctbasic1.Image = Image.FromFile("C:\Users\Guillermo Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Básica1.jpg")
pctbasic2.SizeMode =
PictureBoxSizeMode.StretchImage
pctbasic2.Image = Image.FromFile("C:\Users\Guillermo Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Básica2.jpg")
pctbasic3.SizeMode =
PictureBoxSizeMode.StretchImage
pctbasic3.Image = Image.FromFile("C:\Users\Guillermo Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Básica3.jpg")
pctbasic4.SizeMode =
PictureBoxSizeMode.StretchImage
pctbasic4.Image = Image.FromFile("C:\Users\Guillermo Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Básica4.jpg")
ElseIf
cbxtipohabit.SelectedItem = "Ejecutivo"
Then
pctejecutivo1.SizeMode =
PictureBoxSizeMode.StretchImage
pctejecutivo1.Image =
Image.FromFile("C:\Users\Guillermo
Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Ejecutivo1.jpg")
pctejecutivo2.SizeMode =
PictureBoxSizeMode.StretchImage
pctejecutivo2.Image =
Image.FromFile("C:\Users\Guillermo
Lopez\Documents\Visual Studio 2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Ejecutivo2.jpg")
pctejecutivo3.SizeMode =
PictureBoxSizeMode.StretchImage
pctejecutivo3.Image =
Image.FromFile("C:\Users\Guillermo
Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Ejecutivo3.jpg")
pctejecutivo4.SizeMode =
PictureBoxSizeMode.StretchImage
pctejecutivo4.Image =
Image.FromFile("C:\Users\Guillermo
Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Ejecutivo4.jpg")
Else
pctdelujo1.SizeMode =
PictureBoxSizeMode.StretchImage
pctdelujo1.Image =
Image.FromFile("C:\Users\Guillermo
Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Delujo1.jpg")
pctdelujo2.SizeMode = PictureBoxSizeMode.StretchImage
pctdelujo2.Image = Image.FromFile("C:\Users\Guillermo Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Delujo2.jpg")
pctdelujo3.SizeMode =
PictureBoxSizeMode.StretchImage
pctdelujo3.Image = Image.FromFile("C:\Users\Guillermo Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Delujo3.jpg")
pctdelujo4.SizeMode =
PictureBoxSizeMode.StretchImage
pctdelujo4.Image = Image.FromFile("C:\Users\Guillermo Lopez\Documents\Visual Studio
2008\Projects\WindowsApplication1-4c1-ejercicio05-multicapa\WindowsApplication1-4c1-ejercicio05-multicapa\Delujo4.jpg")
End If
End Sub
Private Sub
Panel1_Paint(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
End Sub
End Class
PROMEDIO
DE NOTAS
PublicClass Form1
PrivateSub calcular_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'ingreso de variables
Dim num1 AsInteger
= TextBox1.Text
Dim num2 AsInteger
= TextBox2.Text
Dim num3 AsInteger
= TextBox3.Text
Dim num4 AsInteger
= TextBox4.Text
Dim num5 AsInteger
= TextBox5.Text
TextBox6.Text = CInt(num1 + num2 + num3 + num4 + num5) / 5
EndSub
PrivateSub limpiar_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
EndSub
FORM
PublicClass Form1
PrivateSub Timer1_Tick(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
PictureBox1.Left -= 10
If PictureBox1.Left <= -Width Then
PictureBox1.Left = Width
EndIf
PictureBox2.Left -= 10
If PictureBox2.Left <= -Width Then
PictureBox2.Left = Width
EndIf
EndSub
EndClass
FECHA
DE NACIMIENTO
PublicClass Form1
PrivateSub Btncalcular_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Btncalcular.Click
Dim fnac AsDate =
Convert.ToDateTime(TextBox1.Text())
Dim Edad As Int32
Dim Diferencia As
TimeSpan
Diferencia = Today.Subtract(fnac)
Edad = Fix(Diferencia.TotalDays /
365.25)
TextBox2.Text() =
Diferencia.TotalDays.ToString
TextBox3.Text() =
Diferencia.TotalHours.ToString
TextBox4.Text() = Edad.ToString
EndSub
PrivateSub TextBox1_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
If IsDate(TextBox1.Text) Then
Btncalcular.Enabled = True
Else
Btncalcular.Enabled = False
EndIf
EndSub
PrivateSub Btnsalir_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Btnsalir.Click
Dim r As
Int32
r =
MessageBox.Show("Esta seguro de salir",
"salir", _
MessageBoxButtons.YesNo,
MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button1)
If r = Windows.Forms.DialogResult.Yes Then
Application.Exit()
Else
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox1.Focus()
EndIf
EndSub
PrivateSub Btnlimpiar_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Btnlimpiar.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox1.Focus()
EndSub
EndClass
