Foro de elhacker.net

Bueno hice un sistema.en VB.net (Visual Studio 2005)
-con una clase (deportista)
-con arraylist
-con constructores
-property

y los metodos

De almacenamiento de deportistas:
1.- Insertar
2.- Mostrar
3.- Buscar


(http://www.imaxenes.com/mini/formualrio1la60y8.jpg) (http://www.imaxenes.com/imagen/formualrio1la60y8.jpg.html)

Bueno mi sistema no me manda ni un error.
pero cuando ingreso los deportitas y le mando demostrar no me muestra nada y cuando hago la busqueda tampoco.
todo esto me lleva que hice mal la insercion pero no.. me lei un tuto y esta bien en fin nose que hice mal... :huh: :huh: :huh: :huh: :huh:


Si alguien me pueda ayudar selos agradeceria.

Aqui adjunto mi sistema: Lo subi en 4Shared ()

sistema_deportes.zip (http://www.4shared.com/file/160510593/265c2dcf/sistema_deportes.html)

bueno antetodo muchas gracias por sus respuestas.. consejos... mejoras de mi codigo..que no devi hacer.. ,ect  :D :D ;D


 

ok ahi te va una pequeña correccion esto es un fragmento (las primeras lineas) de tu Form1

Public Class Form1
 
    'Aqui declaras tu objeto publico
    Public ob As New Deportista
 
 
    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
        Try
            If (txtname.Text = "" And txtapellido.Text = "" And txtdeporte.Text = "" And txtedad.Text = "") Then
                MsgBox("No lleno los datos..")
            Else
 
                'Quitas esta declaracion local por que tu objeto necesita ser
                'publico para llamarlo desde otra clase 
 
                'Dim ob As New Deportista(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
 
                'Dim ob As New Deportista()
                ob.insertar(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
                MsgBox("Llenado exitoso")
            End If
        Catch ex As Exception
 
        End Try
    End Sub
 

Tu objeto debe de ser publico, y haces referencia a el asi en mostrar2

Public Class mostrar2
 
    Dim i As Integer
    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
        Dim obj As New Deportista
 
        'creaste una nueva instsncia vacia, y el objeto donde estas guardando los datos
        'esta en otra clase, asi que necesitas hacer referencia a el, es por eso que 
        'tiene que ser Public
        obj = Form1.ob
 
        'aqui no te entendi, para que usas esta variable ¿por que esta inicializada 
        'como "---"?
        txtrp.Text += obj.mostrartext
 
        'Aqui solo estas mostrando el nombre necesitas hacer recursividad en todos tus arrays
        For i = 0 To obj.arrayNombre.Count() - 1
            txtrp.Text += "nombre:" & obj.arrayNombre.Item(i) & vbCrLf
            txtrp.Text += "apellido:" & obj.arrayApellido.Item(i) & vbCrLf
            txtrp.Text += "deporte:" & obj.arrayDeporte.Item(i) & vbCrLf
            txtrp.Text += "Edad:" & obj.arrayEdad.Item(i) & vbCrLf & vbCrLf
        Next
 
    End Sub
 

Espero te ayude amigo

Viendo el code de pasada, los datos solo se guardan en un arraylist?
Si es asi, en la clase deportista podrias agregar el almacenado fisico, ya sea en un archivo o una base de datos.

Public Class Form1
 
    'Aqui declaras tu objeto publico
    Public ob As New Deportista
 
 
    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
        Try
            If (txtname.Text = "" And txtapellido.Text = "" And txtdeporte.Text = "" And txtedad.Text = "") Then
                MsgBox("No lleno los datos..")
            Else
 
                'Quitas esta declaracion local por que tu objeto necesita ser
                'publico para llamarlo desde otra clase 
 
                'Dim ob As New Deportista(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
 
                'Dim ob As New Deportista()
                ob.insertar(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
                MsgBox("Llenado exitoso")
            End If
        Catch ex As Exception
 
        End Try
    End Sub
 

Public Class mostrar2
 
    Dim i As Integer
    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
        Dim obj As New Deportista
 
        'creaste una nueva instsncia vacia, y el objeto donde estas guardando los datos
        'esta en otra clase, asi que necesitas hacer referencia a el, es por eso que 
        'tiene que ser Public
        obj = Form1.ob
 
        'aqui no te entendi, para que usas esta variable ¿por que esta inicializada 
        'como "---"?
        txtrp.Text += obj.mostrartext
 
        'Aqui solo estas mostrando el nombre necesitas hacer recursividad en todos tus arrays
        For i = 0 To obj.arrayNombre.Count() - 1
            txtrp.Text += "nombre:" & obj.arrayNombre.Item(i) & vbCrLf
            txtrp.Text += "apellido:" & obj.arrayApellido.Item(i) & vbCrLf
            txtrp.Text += "deporte:" & obj.arrayDeporte.Item(i) & vbCrLf
            txtrp.Text += "Edad:" & obj.arrayEdad.Item(i) & vbCrLf & vbCrLf
        Next
 
    End Sub