Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Lepizz

Páginas: [1] 2
1
Buenas querida gente del foro, estoy aprendiendo a programar en JAVA desde 0, y estoy haciendo unos ejercicios pero este no lo comprendo muy bien, esq no he trabajado con listas y se que debo usar una clase Agenda y otra Contactos sin embargo por mas que lo intento no lo logro hacer bien dejo el ejercicio a continuación:



Usted debe programar una aplicación que sirva para manipular una agenda de contactos. Tome en
cuenta las siguientes consideraciones:
 1. Su programa debe guardar la siguiente información de cada persona: nombre, primer apellido,
segundo apellido, número de teléfono y año de nacimiento. Cada uno de estos datos debe
guardarse en un campo separado.
 2. Su programa debe tener la siguiente funcionalidad: agregar contacto, obtener información de un
contacto, obtener iniciales de un contacto y calcular la edad cumplida que tendría la persona al
finalizar el año 2015.
 3. Para crear un contacto el método correspondiente recibe como parámetros el nombre, el primer
apellido, el segundo apellido y el número de teléfono. Su programa deberá definir aleatoriamente
el año de nacimiento entre 1940 y 2010. Para agregar el contacto creado el método
correspondiente lo guarda en un objeto de tipo ArrayList.
 4. Para obtener la información de un contacto el método correspondiente recibe como parámetro el
número de contacto (desde 1 hasta la cantidad actual de contactos). Su programa debe verificar si
el número de contacto recibido es válido, de lo contrario deberá mostrarle al usuario un mensaje
de error y devolver un null. De ser correcto el número de contacto, el método devuelve una sola
hilera con toda la información.
 5. Para obtener las iniciales de un contacto el método correspondiente recibe como parámetro el
número de contacto (debe verificar también si el número es válido e informar al usuario en caso
de no serlo) y devuelve una hilera formada por la primera letra del nombre, la primera letra del
primer apellido y la primera letra del segundo apellido, todas en mayúscula. Por ejemplo, si la
persona se llama Juan López Morales, se devolverá JLM. En caso de ser incorrecto el número de
contacto el método devuelve un null.
 6. Igualmente para obtener la edad cumplida de un contacto el método correspondiente recibe un
número de contacto (se debe verificar su validez e informar al usuario en caso de no serlo) y
devuelve la edad que esta persona tendrá al finalizar el año 2015. En caso de ser incorrecto el
número de contacto el método devuelve un número negativo.
 7. El diálogo con el usuario debe realizarse utilizando la clase JOptionPane en lugar de la terminal.


No pido que me lo hagan, solo que me lo expliquen es que es trabajando JAVA en el ambiente de programación BLUEJ, por aquello que no lo haya dejado claro, soy muy novato en esto jaja, de antemano gracias

2
Me fue de mucha ayuda.. gracias no voy a copiar su código, no sea q me acusen de plagio en la U, pero me voy a guiar partiendo de el. supongo q si fuera una frase como "Se van sus naves" habría que declarar:
Que el espacio, la coma, y los puntos (en caso de que esten presentes) son nulos.. osea para q el cursor q compara la primera y la ultima letra, luego la segunda con la antepenultima, y asi sucesivamente en caso de topar con con un espacio, avance al siguiente caracter, espero haberme explicado bien.. creo q mi idea seria algo asi como:

x=""
y=","
z="."

x= null
y=null
z=null

y tal vez algo como:
si el caracter es igual a "X", "y" o "z" entonces

i +1 (en su ejemplo)

algo asi?

3
Buenas necesito ayuda con un pseudocódigo de un programa que pida palabras o frases palíndromas, con el fin de que el programa imprima si la palabra es palíndroma o no.
Necesito que sea solo un Pseudocódigo más que en un lenguaje especifico. Si me pueden ayudar gracias de antemano.

4
Muchas gracias, me seria de gran ayuda, pero la parte donde se escribe "ListSortDirection" sale subrayada indicando q algo no esta bien, y dice que no se a declarado como variable, que puedo hacer?

6
Buenas gente... como el Asunto indica, existe algun código para ordenar en orden alfabetico los registros de un datagridview
=?

saludos!!

7
T.T la copia que tengo esta desactualizada  :'( NOOOOOOOO!!!

q madre .u.u pero gracias haha

8
Estoy trabajando en visual studio 2012 y de un pronto a otro un boton que me funcionaba perfectamente ahora se comporta extraño por decirlo así... El boton es de agregar registros y antes del cambio, agregaba perfectamente al final del datagridview y ahora todos los registros que agrego los envía a las primeras posiciones. Lo que me extraña esq no cambie nada en su configuracion para q hiciera ese cambio.

ES POSIBLE QUE SEA ALGUN ERROR EN VISUAL STUDIO??????
o existe otra explicación, si alguien conoce la solucion o algun dato que pueda ser de ayuda que no dude en decirme, gracias.

9
Código: [Seleccionar]
Imports System.Data
Imports System.Data.OleDb
'_______________________________________________________________________________________
Public Class Form1
    Dim conexion As New OleDbConnection
    Dim comandos As New OleDbCommand
    Dim comandos2 As New OleDb.OleDbCommand
    Dim adaptador As New OleDb.OleDbDataAdapter
    Dim registro As New DataSet

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)

        Try
            conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Soporte\Desktop\Nueva carpeta (2)\WindowsApplication7\Database1.accdb"

        Catch ex As Exception
            MsgBox("Error al cargar la Base de Datos", vbCritical, "Atención")
        End Try
        Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
        Me.BindingContext(Esc_SalarialBindingSource).Position =
       Me.BindingContext(Esc_SalarialBindingSource).Count - 1
        Esc_SalarialDataGridView.Text = Me.BindingContext(Esc_SalarialBindingSource).Position


    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Dim consulta_eliminar As String
        Dim respuesta As Byte

        respuesta = MsgBox("¿Esta seguro que desea eliminar este registro? ", vbYesNo, "Eliminar")
        If respuesta = vbYes Then
            Try
                conexion.Open()
                consulta_eliminar = ("Delete * FROM Esc_Salarial WHERE Esc_Salarial.cod_puesto = '" + Cod_puestoTextBox.Text + "'")
                comandos2 = New OleDb.OleDbCommand(consulta_eliminar, conexion)
                comandos2.ExecuteNonQuery()
                Me.Esc_SalarialBindingSource.RemoveCurrent()

                Cod_puestoTextBox.Clear()
                Nom_puestoTextBox.Clear()
                Sal_nivel1TextBox.Clear()
                Sal_nivel2TextBox.Clear()
                Sal_nivel3TextBox.Clear()
                Sal_nivel4TextBox.Clear()
                Sal_nivel5TextBox.Clear()

            Catch ex As Exception
                Me.Esc_SalarialTableAdapter.BORRAR(Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text)
                Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
                MsgBox("Error al eliminar.", vbCritical, "Atención.")
            End Try
            conexion.Close()
        End If


    End Sub

ok ahi esta.. a ver si sale bien

10
Si claro aca lo dejo...

Código: [Seleccionar]
Imports System.Data
Imports System.Data.OleDb
'_______________________________________________________________________________________
Public Class Form1
    Dim conexion As New OleDbConnection
    Dim comandos As New OleDbCommand
    Dim comandos2 As New OleDb.OleDbCommand
    Dim adaptador As New OleDb.OleDbDataAdapter
    Dim registro As New DataSet

gracias Saludos !!

12
Este es el código para ese boto que tengo ahora:


Código: [Seleccionar]
    '_______________________________________________________________________________________
    ''BOTON ELIMINAR''----------Todo bien
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Dim consulta_eliminar As String
        Dim respuesta As Byte

        respuesta = MsgBox("¿Esta seguro que desea eliminar este registro? ", vbYesNo, "Eliminar")
        If respuesta = vbYes Then
            Try

                conexion.Open()
                consulta_eliminar = ("Delete * FROM Esc_Salarial WHERE Esc_Salarial.cod_puesto = '" + Cod_puestoTextBox.Text + "'")
                comandos2 = New OleDb.OleDbCommand(consulta_eliminar, conexion)
                comandos2.ExecuteNonQuery()
                Me.Esc_SalarialBindingSource.RemoveCurrent()
                MsgBox("Registro eliminado.", vbInformation, "Eliminado.")

                Cod_puestoTextBox.Clear()
                Nom_puestoTextBox.Clear()
                Sal_nivel1TextBox.Clear()
                Sal_nivel2TextBox.Clear()
                Sal_nivel3TextBox.Clear()
                Sal_nivel4TextBox.Clear()
                Sal_nivel5TextBox.Clear()

            Catch ex As Exception
                Me.Esc_SalarialTableAdapter.BORRAR(Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text, Cod_puestoTextBox.Text)
                Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)

                MsgBox("Error al eliminar.", vbCritical, "Atención.")

            End Try

            conexion.Close()
        End If

    End Sub

Simplemente elimine el código para q mantenga la posición en el datagrid, ya que no hacia falta, mantenia posición sin eso... eso es lo unico diferente.

13
Gracias por responder, olvida lo que el registro aparece de nuevo, eso ya no me pasa, me explico, yo tengo las columnas Código de puesto, Nombre del puesto, Salario nivel1, salario nivel 2 y así hasta el nivel 5... y tengo textbox respectivamente para poder agregar los datos a la correspondiente columna.. lo que sucede es por ejemplo al tener varios registros ya agregados digamos que debo eliminar uno, muy bien tengo el botón de eliminar en el cual debo tener configurado que elimine de la base de datos de access pero q lo haga también del datagrid y se actualicen ambos para poder visualizar los cambios. Entonces al eliminar un registro cualquiera se elimina efectivamente de la BD y no vuelve a aparecer, también se elimina toda esa fila del dataGrid, hasta ahí esta bien...pero si elimino el registro que esta antes de ese por ejemplo, simplemente se eliminan del Datagrid y no de la BD... NO me da error pero eso claramente no debe pasar..
No comprendo porque si funciona a la perfección una vez no lo puede hacer mas veces

14
 EL BOTON ELIMINAR SÍ ELIMINA DE LA BASE DE DATOS Y TAMBIEN DEL DATAGRID,                                               
  PERO SI ELIMINO DOS REGISTROS APARECE EL REGISTRO QUE FUE ELIMINADO LA PRIMERA VEZ,   
  TENGO QUE HACER QUE ELIMINE DE LA BASE DE DATOS(COMO LO HACE)Y DEL DATAGRID, ADEMAS   
  QUE SE PUEDAN ELIMINAR VARIOS REGISTROS SIN QUE REAPAREZCA UN REGISTRO QUE YA FUE     
 ELIMINADO.                                                                           


No se porque ocurre eso, aqui esta el codigo del boton sino me explique bien o deje algo en claro me lo hacen saber por favor y gracias:

Código: [Seleccionar]
  '_______________________________________________________________________________________
    ''BOTON ELIMINAR''----------Todo bien
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Dim consulta_eliminar As String
        Dim respuesta As Byte
        Dim posicion4 As Integer


        respuesta = MsgBox("¿Esta seguro que desea eliminar este registro? ", vbYesNo, "Eliminar")
        If respuesta = vbYes Then
            Try

                conexion.Open()
                consulta_eliminar = ("Delete * FROM Esc_Salarial WHERE Esc_Salarial.cod_puesto = '" + Cod_puestoTextBox.Text + "'")
                comandos2 = New OleDb.OleDbCommand(consulta_eliminar, conexion)
                comandos2.ExecuteNonQuery()
                Me.Esc_SalarialBindingSource.RemoveCurrent()
                MsgBox("Registro eliminado.", vbInformation, "Eliminado.")

                Cod_puestoTextBox.Clear()
                Nom_puestoTextBox.Clear()
                Sal_nivel1TextBox.Clear()
                Sal_nivel2TextBox.Clear()
                Sal_nivel3TextBox.Clear()
                Sal_nivel4TextBox.Clear()
                Sal_nivel5TextBox.Clear()

                posicion4 = Esc_SalarialBindingSource.Position
                Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
                Me.Validate()
                Me.Esc_SalarialBindingSource.EndEdit()
                Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
                Esc_SalarialBindingSource.Position = posicion4
            Catch ex As Exception

                MsgBox("Error al eliminar.", vbCritical, "Atención.")

                posicion4 = Esc_SalarialBindingSource.Position
                Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
                Me.Validate()
                Me.Esc_SalarialBindingSource.EndEdit()
                Me.Esc_SalarialTableAdapter.Fill(Me.Database1DataSet.Esc_Salarial)
                Esc_SalarialBindingSource.Position = posicion4
            End Try

            conexion.Close()
        End If

    End Sub


15
jaja aah entiendo, si gracias xD

16
Como dice ahí arriba... ya sabrán que no es una pregunta de vital importancia pero si por curiosidad, como hacen para medir el nivel de experiencia y conocimiento de  forma que se pueda incluir en el nivel que es mas apropiado para cada persona? Por ejemplo yo soy principiante xD jajaja mas acertado no podría ser, pero si un experto llegase y se hiciera una cuenta acá, como haría él para tener el nivel como tal?

17
Bueno lo hice todo desde el principio y me funciono por fin... ;D ;D ya lo pude solucionar (Y) :D :D :D estoy tan contento que podria irme de festa y llevarme a todos los que me ayudaron jajaj gracias  :D

18
Pues si, estoy frito entonces... aunq se me ocurrio una posible solucion: intente hacerlo todo de nuevo, en un Form en blanco, y copie la parte grafica y la pegue, y copie el codigo y lo pegue, y como era de esperar habian muchos errores, pero entonces cree las mismas consultas con los mismos nombres y todo igual, y conecte a la misma base de datos en fin hice todo exactamente igual, pero ahora el error me lo da en los tableadapter, en los dataset, y esas cosas, no me los reconoce, pero si hice todo igual porq pasa esto???

19
Hola Mastermind, en otras palabras no puedo repararlo ya ????
gracias Saludos !!

20
Por cierto tengo un problema con el botón de guardar y creo q metí la pata mas de lo que debía, cuando haces un programa en visual studio 2012 y tienes un error en alguna parte, el mismo programa te lo subraya, y al poner el cursor encima de da opciones de corrección, por ejemplo, crear automáticamente códigos auxiliares o de otros tipos en especifíco, bueno el asunto esq tenia un error en un par de variables y pues utilice esa "ayuda" automática por así decirle y entonces me di cuenta que igual no solucionaba nada, sino que ya no los marca como error pero igual estan mal y ahora necesito volver a tener esos errores para corregirlos como se debe, pero el supuesto código auxiliar que crea el programa no aparece en el código que yo hago; donde lo puedo ver y eliminar para que todo vuelva a como estaba???

gracias y Saludos Ogramar !!

Páginas: [1] 2

Sobre la educación, sólo puedo decir que es el tema más importante en el que nosotros, como pueblo, debemos involucrarnos.

Abraham Lincoln (1808-1865) Presidente estadounidense.

aprenderaprogramar.com: Desde 2006 comprometidos con la didáctica y divulgación de la programación

Preguntas y respuestas

¿Cómo establecer o cambiar la imagen asociada (avatar) de usuario?
  1. Inicia sesión con tu nombre de usuario y contraseña.
  2. Pulsa en perfil --> perfil del foro
  3. Elige la imagen personalizada que quieras usar. Puedes escogerla de una galería de imágenes o subirla desde tu ordenador.
  4. En la parte final de la página pulsa el botón "cambiar perfil".