elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda en VB.net..
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda en VB.net..  (Leído 2,914 veces)
ronald hisp

Desconectado Desconectado

Mensajes: 33


Las dudas crecen y crecen


Ver Perfil
Ayuda en VB.net..
« en: 27 Noviembre 2009, 00:52 am »

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





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

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


 


« Última modificación: 27 Noviembre 2009, 00:55 am por ronald hisp » En línea

Atrum

Desconectado Desconectado

Mensajes: 65



Ver Perfil WWW
Re: Ayuda en VB.net..
« Respuesta #1 en: 28 Noviembre 2009, 00:39 am »

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

Código
  1. Public Class Form1
  2.  
  3.    'Aqui declaras tu objeto publico
  4.    Public ob As New Deportista
  5.  
  6.  
  7.    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
  8.        Try
  9.            If (txtname.Text = "" And txtapellido.Text = "" And txtdeporte.Text = "" And txtedad.Text = "") Then
  10.                MsgBox("No lleno los datos..")
  11.            Else
  12.  
  13.                'Quitas esta declaracion local por que tu objeto necesita ser
  14.                'publico para llamarlo desde otra clase
  15.  
  16.                'Dim ob As New Deportista(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
  17.  
  18.                'Dim ob As New Deportista()
  19.                ob.insertar(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
  20.                MsgBox("Llenado exitoso")
  21.            End If
  22.        Catch ex As Exception
  23.  
  24.        End Try
  25.    End Sub
  26.  

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

Código
  1. Public Class mostrar2
  2.  
  3.    Dim i As Integer
  4.    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
  5.        Dim obj As New Deportista
  6.  
  7.        'creaste una nueva instsncia vacia, y el objeto donde estas guardando los datos
  8.        'esta en otra clase, asi que necesitas hacer referencia a el, es por eso que
  9.        'tiene que ser Public
  10.        obj = Form1.ob
  11.  
  12.        'aqui no te entendi, para que usas esta variable ¿por que esta inicializada
  13.        'como "---"?
  14.        txtrp.Text += obj.mostrartext
  15.  
  16.        'Aqui solo estas mostrando el nombre necesitas hacer recursividad en todos tus arrays
  17.        For i = 0 To obj.arrayNombre.Count() - 1
  18.            txtrp.Text += "nombre:" & obj.arrayNombre.Item(i) & vbCrLf
  19.            txtrp.Text += "apellido:" & obj.arrayApellido.Item(i) & vbCrLf
  20.            txtrp.Text += "deporte:" & obj.arrayDeporte.Item(i) & vbCrLf
  21.            txtrp.Text += "Edad:" & obj.arrayEdad.Item(i) & vbCrLf & vbCrLf
  22.        Next
  23.  
  24.    End Sub
  25.  

Espero te ayude amigo


En línea

43H4FH44H45H4CH49H56H45H
Wiki

Desconectado Desconectado

Mensajes: 502



Ver Perfil
Re: Ayuda en VB.net..
« Respuesta #2 en: 28 Noviembre 2009, 03:54 am »

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.
En línea


-R IP
:0100
-A 100 
2826:0100 MOV AH,09
2826:0102 MOV DX,109
2826:0105 INT 21
2826:0105 MOV AH,08
2826:0105 INT 21
2826:0107 INT 20
2826:0109 DB 'MI NICK ES CODELIVE.$' 
2826:0127 
-R BX
:0000
-R CX
:20
-N CODELIVE.COM
-W
ronald hisp

Desconectado Desconectado

Mensajes: 33


Las dudas crecen y crecen


Ver Perfil
Re: Ayuda en VB.net..
« Respuesta #3 en: 29 Noviembre 2009, 14:44 pm »

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.
Bueno si lo hice en arraylist para simular base de datos.

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

Código
  1. Public Class Form1
  2.  
  3.    'Aqui declaras tu objeto publico
  4.    Public ob As New Deportista
  5.  
  6.  
  7.    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
  8.        Try
  9.            If (txtname.Text = "" And txtapellido.Text = "" And txtdeporte.Text = "" And txtedad.Text = "") Then
  10.                MsgBox("No lleno los datos..")
  11.            Else
  12.  
  13.                'Quitas esta declaracion local por que tu objeto necesita ser
  14.                'publico para llamarlo desde otra clase
  15.  
  16.                'Dim ob As New Deportista(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
  17.  
  18.                'Dim ob As New Deportista()
  19.                ob.insertar(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
  20.                MsgBox("Llenado exitoso")
  21.            End If
  22.        Catch ex As Exception
  23.  
  24.        End Try
  25.    End Sub
  26.  

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

Código
  1. Public Class mostrar2
  2.  
  3.    Dim i As Integer
  4.    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
  5.        Dim obj As New Deportista
  6.  
  7.        'creaste una nueva instsncia vacia, y el objeto donde estas guardando los datos
  8.        'esta en otra clase, asi que necesitas hacer referencia a el, es por eso que
  9.        'tiene que ser Public
  10.        obj = Form1.ob
  11.  
  12.        'aqui no te entendi, para que usas esta variable ¿por que esta inicializada
  13.        'como "---"?
  14.        txtrp.Text += obj.mostrartext
  15.  
  16.        'Aqui solo estas mostrando el nombre necesitas hacer recursividad en todos tus arrays
  17.        For i = 0 To obj.arrayNombre.Count() - 1
  18.            txtrp.Text += "nombre:" & obj.arrayNombre.Item(i) & vbCrLf
  19.            txtrp.Text += "apellido:" & obj.arrayApellido.Item(i) & vbCrLf
  20.            txtrp.Text += "deporte:" & obj.arrayDeporte.Item(i) & vbCrLf
  21.            txtrp.Text += "Edad:" & obj.arrayEdad.Item(i) & vbCrLf & vbCrLf
  22.        Next
  23.  
  24.    End Sub
  25.  

Espero te ayude amigo

Y me ayudo bastante lo chekee y eso me dice que me falta mucho... ya que me complico la vida con algo sencillo y ah repasar objetos...
Gracias por comentar el codigo asi lo entendi de volada...

muchas gracias..

En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines