Trabajar con Arrays (Buscar, Añadir, Borrar)

[davidd991]

tengo un problema con un programa...
pediria porfavor di alguien fuese tan amable de resolverlo
se lo agradecere
el enunciado es el siguiente:

un empresa "Y" necesita guardar los datod de sus trabajadores (codigo de trabajador, nombre, domicilio, sueldo, horas extra, sueldo total) en una estructura tipo array, que nos ha de permitir recorrer toda la lista y encontrar un trabajador cualquiera.
Ademas el progrma necesita añadir o borrar un trabajador del listado, asi como calcular el sueldo total en funcion del sueldo y las horas extra.

por favor necesito ayuda urgente lo e de hacer y no se como.
Gracias

[David]

Por favor, elige títulos más adecuados para las preguntas.

Muéstranos qué has intentado y qué parte no logras realizar, así podremos orientarte.

[davidd991]

Código:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim codigo(20) As String
        Dim nombre(20) As String
        Dim domicilio(20) As String
        Dim sueldo(20) As String
        Dim horas(20) As String
        Dim sueldot(20) As String
        Dim i As Integer
        For i = 1 To 20
            codigo(i) = TextBox1.Text
            nombre(i) = TextBox2.Text
            domicilio(i) = TextBox3.Text
            sueldo(i) = TextBox4.Text
            horas(i) = TextBox5.Text
            sueldot(i) = TextBox6.Text
            TextBox12.Text = codigo(i)
            TextBox11.Text = nombre(i)
            TextBox10.Text = domicilio(i)
            TextBox9.Text = sueldo(i)
            TextBox8.Text = horas(i)
            TextBox7.Text = sueldot(i)
next
end sub

esto es loq ue llevo puesto pero es que no se hacer nada mas
estoy muy perdido ahora mismo
Gracias

[Bravenap]

Y si cambia el número de empleados y ya no son 20 (esperemos que contraten a más gente y aumente). El código ya no te valdría.
Puedes o bien ir redimensionando tu vector:

Código PHP:

  Redim Preserve codigo(21)  
   

O bien utilizar ArrayList que te permiten añadir y eliminar elementos más fácilmente. En un ArrayList puedes almacenar cualquier tipo de objeto o por ejemplo una estructura.

En este sentido, podrías crearte una estructura para almancenar los datos del empleado:

Código:

Public Structure Empleado
		Dim Codigo As String
		Dim Nombre As String
		Dim Domicilio As String
		Dim Sueldo As Double
		Dim Horas As Integer
		Function SueldoTotal() As Double
			Return Sueldo * Horas
		End Function
	End Structure
	
	    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim arrEmpleados As New ArrayList
		For i As Integer = 0 To X
			Dim Emp As New Empleado
			Emp.Codigo = TextBox1.Text
			Emp.Nombre = TextBox2.Text
			Emp.Domicilio = TextBox3.Text
			Emp.Sueldo = TextBox4.Text
			Emp.Horas = TextBox5.Text
			arrEmpleados.Add(Emp)
			TextBox12.Text = Emp.Codigo
			TextBox11.Text = Emp.Nombre
			TextBox10.Text = Emp.Domicilio
			TextBox9.Text = Emp.Sueldo
			TextBox8.Text = Emp.Horas
			TextBox7.Text = Emp.SueldoTotal
		Next
	End Sub

[Raikir0]

Yo soy una persona con el mismo problema
el codigo del programa vendria a ser asi:
(esta planteado en dos forms)
Form1

Private Sub Command1_Click()

Dim codigo(100) As String
Dim nombre(100) As String
Dim domicilio(100) As String
Dim sueldo(100) As String
Dim horas(100) As String
Dim sueldototal(100) As String

Dim i As Integer
For i = 1 To 100

'Guardar'
codigo(i) = Text1.Text
nombre(i) = Text2.Text
domicilio(i) = Text3.Text
sueldo(i) = Text4.Text
horas(i) = Text5.Text
sueldototal(i) = Text6.Text

'Mostrar'
Form2.Text1.Text = codigo(i)
Form2.Text2.Text = nombre(i)
Form2.Text3.Text = domicilio(i)
Form2.Text4.Text = sueldo(i)
Form2.Text5.Text = horas(i)
Form2.Text6.Text = sueldototal(i)
Next

'Limpiar'
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""

End Sub

Private Sub Command2_Click() 'cambiar de formulario'
Form1.Visible = False
Form2.Visible = True
End Sub

Form2

Aqui tenemos en la interficie grafica:
los respectivos textbox donde se muetran los vectores y 3 botones
uno: k es para volver al form1:
Form1.Visible = False
Form2.Visible = True

i los otros dos para navegar entre los trabajadores introducidos en los vectores declarados anteriormente (Ese es mi problema no se como hacer para poder desplazarme entre las secciones de los vectores)

Porfavor ayuda!!

[Dradi7]

Bueno te dejo un ejemplo de como trabajar con Arrays

Primero creas un Modulo llamado por ejemplo ModDatos

Código vb.net:

Public filacliente% = 0 ' Variable para Capturar el Ultimo Cliente Registrado
Public clientes(20, 5) As String ' Nuestro Array de Clientes pueden ser mas
 
Sub grabarclientes(ByVal cod$, ByVal nom$, ByVal ape$, ByVal dir$, ByVal tele$) ' Procedimiento para grabar en el array
            clientes(filacliente, 0) = cod
            clientes(filacliente, 1) = nom
            clientes(filacliente, 2) = ape
            clientes(filacliente, 3) = dir
            clientes(filacliente, 4) = tele
End Sub
 

Bueno en tu Formulario digamos un mantenimiento

Código vb.net:

' Las Variables de tu formulario declaradas
 
Dim Pos% = 0 ' Variable para avanzar y retroceder en el Array
 
' Procedimiento para Mostrar los Registros del Array
 
Sub ver(ByVal p%)
        If filacliente <= 0 Then
            Me.lbregistro.Text = "Tabla Vacia"
            ' Aqui pondrias procedimiento para desactivar cajas botones etc
        Else
            Me.tbcod.Text = clientes(p, 0)
            Me.tbnom.Text = clientes(p, 1)
            Me.tbape.Text = clientes(p, 2)
            Me.tbdir.Text = clientes(p, 3)
            Me.tbtel.Text = clientes(p, 4)
            Me.lbregistro.Text = "Registro-->" + (p + 1).ToString + "de-->" + Str(filacliente)
        End If
End Sub
 
' En el Load de tu Formulario
Private Sub Manteclientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call ver(0)
 
End Sub
 
' Procedimiento para Guardar
 
Private Sub Btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Guardar.Click
 
' Los Nombres de tus textbox obviamente falta validar los campos
Call grabarclientes(Me.tbcod.Text, Me.tbnom.Text, Me.tbape.Text, Me.tbdir.Text, Me.tbtel.Text)
filacliente +=1
MsgBox("Registro Guardado")
pos = 0
ver(pos) ' Mostrando el Primer Registro de Nuestro Array
 
end Sub
 
' Procedimiento para Modificar
Private Sub Btn_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Modificar.Click
 
clientes(pos, 1) = Me.tbnom.Text
clientes(pos, 2) = Me.tbape.Text
clientes(pos, 3) = Me.tbdir.Text
clientes(pos, 4) = Me.tbtel.Text
MsgBox("Registro actulizado")
pos = 0
ver(pos)
 
end Sub
 
' Procedimiento para Buscar
Private Sub Btn_Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Buscar.Click
 
Dim codbuscar$ = InputBox("Ingrese codigo", "BUSCAR")
For x = 0 To filacliente - 1
       If clientes(x, 0) = Trim(UCase(codbuscar)) Then Exit For
Next
pos = x
ver(pos)
 
end Sub
 
' Procedimiento para Eliminar
Private Sub EliminarUno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarUno.Click
        If MsgBox("Desea Eliminar realmente el registro..", 33, "Eliminar") = 1 Then
            For x = pos To filacliente
                For j = 0 To 4
                    clientes(x, j) = clientes(x + 1, j)
                Next
            Next
            filacliente -= 1
            pos = 0
            ver(0)
        Else
            MsgBox("Registro no eliminado..", 16, "Aviso")
        End If
End Sub
 
' Procedimiento para Eliminar todos los registros
 
Private Sub EliminarTodos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarTodos.Click
        If MsgBox("Desea Eliminar realmente todos..", 33, "Eliminar") = 1 Then
            filacliente = 0
            ver(0)
        Else
            MsgBox("Registros no eliminados..", 16, "Aviso")
        End If      
End Sub
 
' Procedimiento para Ir al Primer Registro
 
private sub Primero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Primero.Click
 
Pos = 0
Ver(Pos)
 
end sub
 
' Procedimiento para Retroceder
 
private sub Anterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anterior.Click
 
If pos > 0 Then
    pos -= 1
    ver(pos)
Else
   MsgBox("Ya es el inicio de la tabla")
End If
 
end sub
 
' Procedimiento para Avanzar
 
private sub Siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siguiente.Click
 
If pos < filacliente - 1 Then
      pos += 1
      ver(pos)
Else
      MsgBox("ya es el final de la tabla")
End If
 
end sub
 
' Procedimiento para Ir al Ultimo Registro
 
private sub Ultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ultimo.Click
 
pos = filacliente - 1
ver(pos)
 
end sub
 

Espero que sea de utilidad para ti y a otros