Arreglos Visual Basic 2012

El siguiente código en visual basic 2012 es para demostrar como realizar un una aplicación para solicitar acceso utilizando arreglos: 



 arreglos-visual-basic-2012


Public Class Form1
    Public clave(5) As Integer
    Public usuario(5) As String
    Public i As Integer
    Public encontrado As Integer
    Private Sub btnaceptar_Click(sender As System.Object, e As System.EventArgs)
        clave(1) = 79
        clave(2) = 18
        clave(3) = 35
        clave(4) = 1
        clave(5) = 234
        usuario(1) = "maria"
        usuario(2) = "laura"
        usuario(3) = "teresa"
        usuario(4) = "julia"
        usuario(5) = "luis"
                For Me.i = 1 To clave.Length
            Try
                If clave(Me.i) = Val(TextBox1.Text) Then
                    Form2.Show()
                    Exit For
                End If
            Catch ex As Exception
                MessageBox.Show("CODIGO NO EXISTE")
                Exit For
            End Try
        Next i 
    End Sub
    Private Sub btnsalir_Click(sender As System.Object, e As System.EventArgs)



Comentarios

Entradas populares de este blog

codigo para calcular area de un triangulo

Qué son las extensiones de archivos

Como hacer una Calculadora con Vsual Basic 2010.net