CREAR UN USER NAME Y PASWORD

CREAR UN USER NAME Y PASWORD

Public Class Form1

    'DEFINICION DE 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

        txtuser.Focus()

    End Sub

    Private Sub cmbvalidar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbvalidar.Click

        If ((txtuser.Text = "4C1" Or txtuser.Text = "4c1") And (txtpasword.Text = "12345" Or txtpasword.Text = "09856")) Then

            MsgBox("usuario identificado", MsgBoxStyle.OkOnly)

            Me.Hide()

            Form2.Show()

        Else

            cce = cce + 1

            MsgBox("USER y/o paasword incorrecto", MsgBoxStyle.Exclamation)

            If cce < 3 Then

                error1 = MsgBox("usted se ha equivocado" & cce & "veces", MsgBoxStyle.YesNo)

                If error1 = vbYes Then

                    txtuser.Clear()

                    txtpasword.Text = ""

                    txtuser.Focus()

                Else

                    End

                End If

            Else

                MsgBox("bye bye")

            End If

        End If

    End Sub

End Class

ENLACES EN VISUAL BASIC

ENLACES EN VISUAL BASIC

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.honstinger.com.ec")

    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.ec")

    End Sub

    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked

        LinkLabel4.LinkVisited = True

        System.Diagnostics.Process.Start("C:\Program Files\Microsoft Office\Office14\excel.exe")

    End Sub

    Private Sub LinkLabel5_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked

        LinkLabel5.LinkVisited = True

        System.Diagnostics.Process.Start("C:\Users\LAB11\Documents\MANUAL\unity.pdF")

    End Sub

End Class

EXAMEN DEL PRIMER PARCIAL

EXAMEN DEL PRIMER PARCIAL

Public Class Form1

    Dim costo As Double = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbsalir.Click

        End

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'CARGAR ELEMENTOS DEL COMBOBOX'

        cbxmodelo.Items.Add("PLATAFORMA MOODLE")

        cbxmodelo.Items.Add("WEBSITE WORDPRESS")

    End Sub

    Private Sub cbxmodelo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxmodelo.SelectedIndexChanged

        'VALIDAR EL COMBOBOX'

        If cbxmodelo.SelectedItem = "PLATAFORMA MOODLE" Then

            txtcostoIva.Text = 1000

            txtcostoIva.Text = (1000 * 0.12) + 1000

            pbxcuadro.SizeMode = PictureBoxSizeMode.StretchImage

            pbxcuadro.Image = Image.FromFile("C:\Users\LAB3 PC1\AppData\Local\Temporary Projects\4C1.EXA1_RAFAEL_BAQUE\IMAGEN2.JPG")

        Else

            txtcostoIva.Text = 600

            txtcostoIva.Text = (600 * 0.12) + 600

            pbxcuadro.SizeMode = PictureBoxSizeMode.StretchImage

            pbxcuadro.Image = Image.FromFile("C:\Users\LAB3 PC1\AppData\Local\Temporary Projects\4C1.EXA1_RAFAEL_BAQUE\IMAGEN1.PNG")

        End If

    End Sub

    Private Sub cmbvender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbvender.Click

        ' ACUMULADOR'

        txtreca.Text = (Val(txtreca.Text) + Val(txtcostoIva.Text))

    End Sub

    Private Sub cmblimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmblimpiar.Click

        'LIMPIAR EL PROGRAMA'

        txtcostoIva.Text = ""

        cbxmodelo.Focus()

    End Sub

End Class

INGRESO DE NOMBRE Y APELLIDOS

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Definir variables'

        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("  ENTRE EL CURSO Y EL PARALELO  ")

        MsgBox("sr/a/ta  " + nomape + "Ud. Esta matriculado en el curso" + curso)

JUEGO DE LETRAS Y NUMEROS

JUEGO DE LETRAS Y NUMEROS

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles letrae.Click

        Label1.Visible = True

        Label1a.Visible = True

        Label1b.Visible = False

        Label2.Visible = True

        Label2a.Visible = True

        Label2b.Visible = False

        Label3.Visible = True

    End Sub

    Private Sub numero3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numero3.Click

      

        Label1.Visible = True

        Label1a.Visible = False

        Label1b.Visible = True

        Label2.Visible = True

        Label2a.Visible = False

        Label2b.Visible = True

        Label3.Visible = True

    End Sub

    Private Sub numero6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numero6.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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Visible = True

        Label1a.Visible = True

        Label1b.Visible = True

        Label2.Visible = True

        Label2a.Visible = False

        Label2b.Visible = True

        Label3.Visible = True

    End Sub

    Private Sub letrao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles letrao.Click

        Label1.Visible = True

        Label1a.Visible = True

        Label1b.Visible = True

        Label2.Visible = False

        Label2a.Visible = True

        Label2b.Visible = True

        Label3.Visible = True

    End Sub

End Class

"MULTICAPAS" CATALOGO DEL HOTEL DECAMERON

CATALOGO DEL HOTEL DECAMERON

Option Explicit On

Public Class Form1

    ' declaracion de variables

    Dim CanPaqVen As Integer

    Dim TotRecVen As Double

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'cargar los elementos al combo box'

        cbxpaquete.Text = "OPCIONES DE TURISMO"

        cbxpaquete.Items.Add("PAQUETE 1 BASICO")

        cbxpaquete.Items.Add("PAQUETE 2 STANDAR")

        cbxpaquete.Items.Add("PAQUETE 3 ESPECIAL")

        txtN.Enabled = False

        txtC.Enabled = False

        cbxpaquete.Enabled = False

        txtCantidad.Enabled = False

        txtDias.Enabled = False

        txtCosto.Enabled = False

        txtSubtotal.Enabled = False

        txtIva.Enabled = False

        txtInteres.Enabled = False

        txtTotalpagar.Enabled = False

        txtCanPaqVen.Enabled = False

        txtTotRecVen.Enabled = False

        cmbGrabar.Enabled = False

        cmbLimpiar.Enabled = False

        cmbOtrares.Enabled = False

        cmbMostrar.Enabled = False

        panel1.Enabled = False

        txtCanPaqVen.Visible = False

        txtTotRecVen.Visible = False

        fondoacu1.Visible = False

        fondioacu2.Visible = False

        fondoacu3.Visible = False

        fondoacu4.Visible = False

       

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Close()

    End Sub

    Private Sub cmbEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Me.Close()

    End Sub

    Private Sub cmbNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNuevo.Click

        txtN.Enabled = True

        txtC.Enabled = True

        cbxpaquete.Enabled = True

        txtCantidad.Enabled = True

        txtDias.Enabled = True

        txtCosto.Enabled = False

        txtSubtotal.Enabled = False

        txtIva.Enabled = False

        txtInteres.Enabled = False

        txtTotalpagar.Enabled = False

        txtCanPaqVen.Enabled = False

        txtTotRecVen.Enabled = False

        cmbGrabar.Enabled = False

        cmbLimpiar.Enabled = True

        cmbOtrares.Enabled = False

        cmbMostrar.Enabled = False

        panel1.Enabled = False

        cmbNuevo.Enabled = False

        txtN.Focus()

       

    End Sub

    Private Sub cbxpaquete_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbxpaquete.SelectedValueChanged

        If cbxpaquete.SelectedItem = "PAQUETE 1 BASICO" Then

            txtCosto.Text = 500

            txtCantidad.Focus()

        ElseIf cbxpaquete.SelectedItem = "PAQUETE 2 STANDAR" Then

            txtCosto.Text = 1000

            txtCantidad.Focus()

        Else

            txtCosto.Text = 1500

            txtCantidad.Focus()

        End If

    End Sub

 

    Private Sub rbcontado_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbcontado.Click

        txtSubtotal.Text = (Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))

        txtInteres.Text = 0

        txtIva.Text = Val(txtSubtotal.Text) * 0.12

        txtTotalpagar.Text = Val(txtSubtotal.Text) + Val(txtIva.Text)

        cmbOtrares.Enabled = True

        cmbGrabar.Enabled = True

    End Sub

    Private Sub rbMaster_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbMaster.Click

        txtSubtotal.Text = (Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))

        txtInteres.Text = Val(txtSubtotal.Text) * 0.03

        txtIva.Text = Val(txtSubtotal.Text) * 0.12

        txtTotalpagar.Text = Val(txtSubtotal.Text) + Val(txtIva.Text)

        cmbOtrares.Enabled = True

        cmbGrabar.Enabled = True

    End Sub

    Private Sub rbVisa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbVisa.Click

        txtSubtotal.Text = (Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))

        txtInteres.Text = Val(txtSubtotal.Text) * 0.02

        txtIva.Text = Val(txtSubtotal.Text) * 0.12

        txtTotalpagar.Text = Val(txtSubtotal.Text) + Val(txtIva.Text)

        cmbOtrares.Enabled = True

        cmbGrabar.Enabled = True

    End Sub

   

    Private Sub Validacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Validacion.Click

        MsgBox("SELECIONE SU FORMA DE PAGO", MsgBoxStyle.Information)

        panel1.Enabled = True

        panel1.Focus()

    End Sub

    Private Sub cmbOtrares_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbOtrares.Click

        txtN.Text = txtN.Text

        txtC.Text = txtC.Text

        txtCosto.Clear()

        txtCantidad.Clear()

        txtDias.Clear()

        txtSubtotal.Clear()

        txtIva.Clear()

        txtInteres.Clear()

        txtTotalpagar.Clear()

        cbxpaquete.ResetText()

        panel1.Enabled = False

    End Sub

    Private Sub cmbLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLimpiar.Click

        txtN.Enabled = False

        txtN.Clear()

        txtC.Enabled = False

        txtC.Clear()

        cbxpaquete.Enabled = False

        cbxpaquete.Text = ""

        txtCantidad.Enabled = False

        txtCantidad.Clear()

        txtDias.Enabled = False

        txtDias.Clear()

        txtCosto.Enabled = False

        txtCosto.Clear()

        txtSubtotal.Enabled = False

        txtSubtotal.Clear()

        txtIva.Enabled = False

        txtIva.Clear()

        txtInteres.Enabled = False

        txtInteres.Clear()

        txtTotalpagar.Enabled = False

        txtTotalpagar.Clear()

        txtCanPaqVen.Enabled = False

        txtTotRecVen.Enabled = False

        cmbGrabar.Enabled = False

        cmbLimpiar.Enabled = False

        cmbOtrares.Enabled = False

        cmbMostrar.Enabled = False

        cmbNuevo.Enabled = True

        panel1.Enabled = False

        txtCanPaqVen.Visible = False

        txtTotRecVen.Visible = False

        fondoacu1.Visible = False

        fondioacu2.Visible = False

        fondoacu3.Visible = False

        fondoacu4.Visible = False

    End Sub

    Private Sub cmbGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGrabar.Click

        Me.lsxReserCliente.Items.Add(cbxpaquete.Text)

        Me.lsxReserCliente.Items.Add(txtN.Text)

        Me.lsxReserCliente.Items.Add(txtC.Text)

        Me.lsxReserCliente.Items.Add(txtCosto.Text)

        Me.lsxReserCliente.Items.Add(txtCantidad.Text)

        Me.lsxReserCliente.Items.Add(txtDias.Text)

        Me.lsxReserCliente.Items.Add(txtSubtotal.Text)

        Me.lsxReserCliente.Items.Add(txtIva.Text)

        Me.lsxReserCliente.Items.Add(txtInteres.Text)

        Me.lsxReserCliente.Items.Add(txtTotalpagar.Text)

    End Sub

   

    Private Sub cmbMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbMostrar.Click

        'CONTADOR Y ACUMULADOR'

        txtCanPaqVen.Text = (Val(txtCanPaqVen) + 1)

        txtTotRecVen.Text = (Val(txtTotRecVen) + Val(txtTotalpagar))

        panel1.Enabled = True

        txtCanPaqVen.Visible = True

        txtTotRecVen.Visible = True

        fondoacu1.Visible = True

        fondioacu2.Visible = True

        fondoacu3.Visible = True

        fondoacu4.Visible = True

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        PictureBox1.Visible = True

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = True

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = True

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = True

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox6.Visible = True

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox6.Visible = False

        PictureBox7.Visible = True

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox6.Visible = False

        PictureBox7.Visible = False

        PictureBox8.Visible = True

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox6.Visible = False

        PictureBox7.Visible = False

        PictureBox8.Visible = False

        PictureBox9.Visible = True

    End Sub

    Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click

    End Sub

End Class