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:
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
Publicar un comentario