Temas

Hola a todos,

Me gustaría realizar en el código del usuario el siguiente formato:

año0001

y la duda es como realizo para que el año se me actualice manteniendo la autonumeración que le sigue.

Ejemplo este año: 2019001

Ejemplo año que viene: 2020002

Saludos y gracias de antemano

Hola a todos,

Tengo un problemilla a la hora de presentar los usuarios. Les explico, es sencillo:

A través de un ComboBox (cmb_Apell_Nomb_busc) selecciono el usuario y luego tengo un cuadro de lista (Usu_Listar) en el cual muestro todos los usuarios y un bonton de buscar (btn_Usuario_Buscar).

Lo que quiero hacer es que al seleccionar el usuario en el ComboBox en el cuadro de lista solo me muestre el usuario que he seleccionado.

Aquí les dejo el código que he implementado.

Código (vb) [Seleccionar] Expandir


Private Sub btn_Usuario_Buscar_Click()

    Dim consulta As String
   
    If IsNull(Me.cmb_Apell_Nomb_busc) Then
        MsgBox "Seleccione un usuario de la lista", vbExclamation, "Aviso"
    Else
        consulta = "SELECT Nombre, Apellidos FROM Usuarios WHERE Apellidos= '" & Me.cmb_Apell_Nomb_busc2 & "*'"
        ' MsgBox (consulta)
        Me.Usu_Listar.RowSource = consulta
    End If

End Sub


He querido ver lo que me arroja consulta pero me da error.

Un saludo y gracias de antemano,

Hola a todos. He tenido un problemilla con mi móvil, se me ha roto la pantalla y al cambiar de móvil e instalar de nuevo whatsapp no me ha restaurado las conversaciones antiguas.

Me podrían ayudar para poder restaurar las conversaciones?

Saludos y gracias de antemano.

Hola a todos, se me ha averiado mi portatil!   . No me hace nada, pulso el botón de encendido y nada, no me enciende ni el led que me dice que la batería esta cargando.

Que pruebas le podría realizar para comprobar si es la fuente de alimentación o que otros problemas pueden ser la causa.

Saludos y gracias  de antemano,

Hola chicos,

Tengo un problemilla con mi disco duro externo de SEAGATE Mod: SRD0NF1 de 1TB.

El problema que tengo es que al conectarlo el equipo arranca pero no se me inicia (no me sale el dispositivo en mi carpeta de equipo).

Que podría hacer para solucionar este inconveniente si es que se puede?

Saludos y gracias de antemano,

Buenas tardes a todos,

Acabo de sustituir la placa base de mi ordenador por una ASRock FM2A58M.VG3+ R2.0, pero al iniciar por primera vez el ordenador me sale la pantalla de la placa base.

Que debo hacer para poder iniciar?

Hola a todos, tengo un problemilla con mi ordenador de sobremesa, el problema es el siguiente:

Lo arranco y cuando inicia unas veces se vuelve a reiniciar cuando esta arrancando y otras veces cuando aparece mi escritorio me deja hacer algunas tareas pero cuando menos lo espero se me reinicia de nuevo.

He probado a insertarle el cd de Windows y realizarle una reparación, pero no me lo permite, también he cambiado la fuente de alimentación para descartar fallo de corriente, he quitado todas las tarjetas de los slots PCI, he limpiado la RAM y cambiado de slot.

Me podrían ayudar a solucionar mi equipo.

Saludos y gracias de antemanom

Hola a todos, tengo una cuestión que me gustaría que me aconsejarais un poco. Quiero conectar mi ordenador con una pantalla, pero el inconveniente está en que ambos están lejos. He leído sobre la tecnología WIDI, pero me plantea algunos inconvenientes a la hora de que puede que no contenga los chips de Intel i3, i5 o i7.

Me podríais aconsejar la mejor forma de poder conectar ambos hardware?

Gracias de antemano y saludos,

Hola a todos, me gustaría saber si alguien me puede decir como puedo introducir nuevos productos en este programa y como puedo cambiar la forma en que me imprime los tickets, ya que me he descargado varios manuales pero son manuales para saber utilizarlo no explica como puedo hacer esas modificaciones.

Gracias de antemano y saludos,

Hola a todos, tengo un inconveniente a la hora de instalar en mi laptop lo tenia con Windows Vista, pero lo he cambiado a Windows 7, el problema es el siguiente:
No encuentro los drivers para la WebCam y el Bluetooth, los demás si los he encontrado, me podrían decir donde los puedo encontrar.

Saludos y gracias de antemano,

Quiero mostrar los múltiplos de 3 y 5 del 1 al 100 en C#.

Este es el código que he implementado, pero me da fallo, espero que me puedan ayudar.

Código (csharp) [Seleccionar] Expandir


int i, mult3y5;

for (i=0; I<=100; i++)
{
        if((i%3=0) & (i%5=0))
        {
                 mult3y5=i;

                 Console.Write("Numero: ", mult3y5);
                 Console.WriteLine(" M-3-5");
         }
}


El fallo está en la sentencia if

Hola a todos,

Voy a empezar a programar en HTML5 y me gustaría que me aconsejaseis un programa para implementar este lenguaje.

Espero que me puedan decir alguno que sea bueno.

Saludos y gracias.

Hola a todos,

Tengo una duda respecto a la batería de mi portátil. ¿Es motivo de que se estropee la batería el trabajar con el portátil y tener conectado el cargador?

Es una duda que tengo ya que escucho muchas opiniones respecto a este tema

Saludos y gracias de antemano

Hola a todos, tengo la siguiente tabla y quiero que en la cuarta columna me aparezca la siguiente condición.

Si Dia es igual = Si y Fin de semana = Sabado o Fin de semana = Domingo me aparezca en la columna nuevo el resultado que se vé.

La formula que he intentado es la siguiente:
      =SI(Y(A17="Si";C17="Sábado");SI(Y(A17="Si";C17="Domingo");"Si";"No"))

Dia    Dia mes        Fin de semana          nuevo
No   1              Sábado                    No
No   2              Domingo                    No
Si   3              Lunes                    No
Si   4              Martes                    No
Si   5              Miércoles                    No
Si   6              Jueves                    No
Si   7              Viernes                    No
Si   8              Sábado                    Si
Si   9              Domingo                    Si
Si   10              Lunes                    No

Me podrían decir que fallo que tiene la formula???

Saludos y gracias

Hola, no puedo aceder a mi Ubuntu ya que he olvidado la contraseña y me gustaría poder acceder.

Gracias de antemano y saludos



Solucionado!!

Hola a todos,

Al iniciar mi ordenador portátil me aparece una ventana de error que dice lo siguiente:

        Cannot create shell notification icon.

Me gustaría saber como puedo solucionar este error, ya que nuse porque me dice que no puede crear el icono de notificación de shell.

Espero que me puedan ayudar

Gracias y saludos

Hola a todos, acabo de formatear mi ordenador y le he instalado Ubuntu 10.10, se que es un poco antigua paro bueno ahora lo actualizaré.

El problema que tengo es que no puedo conectarme con este portátil de forma inalámbrica y antes si me podía conectar. He buscado diferentes soluciones por Internet, pero no me han dado resultado.

Al hacerle un:
     iwconfig, solo me salen:
             lo           no wireless extensions.
             eth0        no wireless extensions.

con respecto a esto, debería aparecerme wlan?

Bueno espero vuestra ayuda!!

Saludos y gracias

Hola a todos, tengo un problemilla a la hora de conectar mi disco duro multimedia (WD My Book Essential 2TB EMEA) a mi portátil (Acer Aspire 5050).

El problema es que me reconoce el disco duro pero no me aparece para poder almacenar nada.

He probado instalando el controlador del disco duro y cambiando la letra a la unidad, pero no causa efecto ninguno.

Pido ayuda esperando que alguien me da una solución a mi problema.

Saludos

[[MOD] Por favor no hagas doble post, edita.]

Hola a todos

Tengo un router de telefónica, el cual es el xavi 7968 y me gustaría cambiarle la configuración para que funciona como punto de acceso. He buscado muchos manuales, pero me dicen que elimine las conexiones WAN, las cuales no las encuentro en este router.

Me pueden ayudar diciéndome alguna página en la cual pueda encontrar estos pasos o facilitándome alguno de vosotros lo que tendría que cambiar en mi router.

Saludos y gracias

Ahhh algo que se me ha olvidado especificar.

A dicho router "que quiero que actúe de Punto de Acceso" Internet conecta a el por un RJ-45, es decir, por cable.

[MOD] Por favor no hagas doble post, edita.

   Hola a todos, tengo un Samsung Galaxy Mini y el problema que tengo es el siguiente:

   Quiero que mi dispositivo móvil se conecte a mi red Wifi, pero no me conecta. Me gustaría saber como puedo introducirle la IP de manera manual, tiene Sistema Operativo Android 2.3.6.

   El mismo problema tengo con otro dispositivo Blackberry 9300. También me gustaría saber como le puedo configurar las IP de manera manual.

   Espero que me puedan ayudar.

Saludos y gracias.

Hola a todos, estoy intentando instalar Windows XP en un portátil HP Pavilion dv6 Notebook 3060 pero me falla la instalación (pantallazo azul), he estado ojeando por Internet y he leido que es porque necesita el driver del disco duro, pero no se de que manera tendría que hacerlo.

Me podrían ayudar!!!

Saludos

Hola a todos, me gustaría saber si me pueden ayudar, es que me ha caducado el usuario y contraseña del antivirus Nod32, me podrían dar las actuales y alguna página de la cual las pueda sacar.

Yo obtenía el usuario y contraseña de la pagina www.nnvv.org pero al intentar entrar me salta en antivirus y no me deja entrar, alguien me podría decir como puedo hacer para poder entrar en esa página y así no tener problemas para la obtención de los nuevos usuarios y contraseñas.

Saludos

Hola a todos, quiero borrar un registro de la base de datos, pero me da un error en el ExecuteNomQuery y dice: "No se han especificado valores para algunos de los parámetros requeridos.", os pongo el código que he realizado haber si me pueden ayudar.

Código (vbnet) [Seleccionar] Expandir


Private Sub btn_Borrar_Modelo_Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Borrar_Modelo_Borrar.Click
        Dim id_marc As Integer

        ' consulta para asignar el Id_Marca
        Dim dtadapterMarca As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT Id_Marca FROM Marcas WHERE Marcas.Marca='" & cbb_Marca_Marcas_Borrar.Text & "'", conexion_access)
        Dim dtsMarca As New DataSet
        dtadapterMarca.Fill(dtsMarca, "Marcas")
        For Each Fila As DataRow In dtsMarca.Tables("Marcas").Rows
            id_marc = Fila("Id_Marca")
        Next
        ' los MsgBox los coloco para ver que me guarda en cada variable
        MsgBox("id_marca: " & id_marc)
        MsgBox("Marca: " & cbb_Marca_Marcas_Borrar.Text)
        MsgBox("modelo: " & cbb_Modelo_Marcas_Borrar.Text)

        Dim dtadapterModelo As New OleDb.OleDbCommand("DELETE FROM Modelos WHERE Modelos.Descripción='" & cbb_Marca_Marcas_Borrar.Text & "' AND Id_Marca=" & id_marc & "", conexion_access)
        ' abro la conexion
        dtadapterModelo.Connection.Open()
        dtadapterModelo.ExecuteNonQuery()
        MessageBox.Show("El modelo se ha borrado correctamente", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Limpiar_TextBox(cbb_Marca_Marcas_Borrar.Text, cbb_Modelo_Marcas_Borrar.Text)

        'cierro la conexion
        dtadapterModelo.Connection.Close()
    End Sub


Espero que me puedan ayudar,

Saludos

Hola a todos, estoy realizando un DELETE en sql pero me da error, la consulta es:

Código (vbnet) [Seleccionar] Expandir


Dim dtadapterModelo As New OleDb.OleDbCommand("DELETE FROM Modelos WHERE Descripción='" & cbb_Marca_Marcas_Borrar.Text & "' AND Id_Marca=" & cbb_Modelo_Marcas_Borrar.Text, conexion_access)


cbb_Marca_Marcas_Borrar.Text  es texto
cbb_Modelo_Marcas_Borrar.Text es numero

y en el error me dice: "No se han especificado valores para algunos de los parámetros requeridos"

Tablas

Marcas                                   Modelos
Id_Marca                                Id_Modelo
Marca                                     Descripcion
                                              Id_Marca


Saludos

hola a todos, me gustaría saber si el posible mostrar un fichero ".doc, .pdf, ..." es decir, no texto plano en un RichTextBox??

o tendría que abrirlo?? si es esto lo que tendría que hacer, que pasos tendría que seguir?

Saludos

Hola a todos, quiero realizar una actualización a un registro que elijo de una base de datos, pero no me lo actualiza bien, me gustaría saber en que parte del código me he equivocado.

os dejo el código

Código (vbnet) [Seleccionar] Expandir


    Private Sub btn_Buscar_Cliente_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Buscar_Cliente_Modificar.Click
        Dim id_cl As Integer
        Dim Nombre_cl, Apellidos_cl, DNI_cl, Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl As String
        Dim i As Integer
        Dim DNI_Buscar As String

        ' pido por pantalla que introduzca el DNI del cliente que queremos buscar
        DNI_Buscar = InputBox("Introduce el DNI del cliente a buscar", "Cliente a buscar")

        ' almaceno el valor del DNI en un TextBox oculto
        txt_DNI_Cli_Modificar_Oculto.Text = DNI_Buscar

        For i = 0 To ClientesTableAdapter.GetData.Rows.Count - 1
            id_cl = ClientesTableAdapter.GetData.Rows(i).Item(0)
            Nombre_cl = ClientesTableAdapter.GetData.Rows(i).Item(1)
            Apellidos_cl = ClientesTableAdapter.GetData.Rows(i).Item(2)
            DNI_cl = ClientesTableAdapter.GetData.Rows(i).Item(3)
            Poblacion_cl = ClientesTableAdapter.GetData.Rows(i).Item(4)
            Domicilio_cl = ClientesTableAdapter.GetData.Rows(i).Item(5)
            Telefono_cl = ClientesTableAdapter.GetData.Rows(i).Item(6)
            Correo_cl = ClientesTableAdapter.GetData.Rows(i).Item(7)

            ' compruebo que ha introducido algun DNI
            If DNI_Buscar = "" Then
                MessageBox.Show("No ha introducido ningun DNI, introduzca alguno", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If

            ' si el DNI que ha introducido existe
            If DNI_Buscar = DNI_cl Then
                grb_Modificar_Clientes.Enabled = True
                txt_Nombre_Cli_Modificar.Text = Nombre_cl
                txt_Apellidos_Cli_Modificar.Text = Apellidos_cl
                txt_DNI_Cli_Modificar.Text = DNI_cl
                txt_Poblacion_Cli_Modificar.Text = Poblacion_cl
                txt_Domicilio_Cli_Modificar.Text = Domicilio_cl
                txt_Telefono_Cli_Modificar.Text = Telefono_cl
                txt_Correo_Cli_Modificar.Text = Correo_cl
                MessageBox.Show("Cliente encontrado", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
                MessageBox.Show("Modifique los valores que desee", "Modificar", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                'grb_Modificar_Clientes.Enabled = False
                btn_Buscar_Cliente_Modificar.Enabled = False
                btn_Modificar_Cliente_Modificar.Enabled = True
                btn_Cancelar_Cliente_Modificar.Enabled = True
                Exit Sub
            End If

            ' comprobamos si el DNI introducido existe
            If DNI_Buscar <> DNI_cl Then
            Else
                MessageBox.Show("El DNI que ha introducido no existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
        Next
    End Sub


Saludos

Hola a todos, os comento lo que quiero realizar y a continuación os pongo la consulta que he realizado para ello:
     - quiero que en el combo1 tengo el nombre de los clientes y quiero conseguir es el Id_Venta.
      codigo que yo he realizado:
         

Código (sql) [Seleccionar] Expandir


          "SELECT Ventas.Id_Ventas FROM Ventas WHERE Ventas.Id_Cliente IN (SELECT Clientes.Id_Cliente FROM Clientes WHERE Clientes.Nombre='" & cbb_Cod_Venta_Instalacion_ins.Text & "')"
         
                  El ultimo combo es el nombre del cliente

Las tablas son las siguientes:
Clientes                       Insatlaciones                    Ventas
Id_Cliente                        Id_Instalacion                   Id_Ventas
Nombre                            Descripcion                       Fecha_Venta
Apellidos                           ......                                 ..........
DNI                                  Id_Venta                          Id_Stock
.......                                 Id_Empleado                    Id_Empleado
                                                                               Id_Cliente

Hola a todos, tengo un error al insertar en la base de datos, el cual me dice "Error no especificado" y la verdad es que no consigo encontrar el fallo, os pongo el código para ver si me pueden ayudar

Código (vbnet) [Seleccionar] Expandir


Private Sub btn_Insertar_Ventas_Clientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Insertar_Ventas_Clientes.Click
       Dim id_marc, id_emp, id_cli As Integer

       ' compruebo que ninguno de los datos de venta a cliente esta vacio
       If cbb_Venta_Client_Insertar.Text = "" Or cbb_Nomb_Emp_Vent_Insertar.Text = "" Or
           cbb_Apel_Emp_Vent_Insertar.Text = "" Or cbb_Marca_Artic_Vent_Insertar.Text = "" Or
           cbb_Articulo_Artic_Vent_Insertar.Text = "" Or cbb_Nomb_Client_Vent_Insertar.Text = "" Or
           cbb_Apel_Client_Vent_Insertar.Text = "" Then
           MessageBox.Show("Alguno/s de los datos del articulo esta vacio, rellenelo", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If

       ' consulta para asignar el Id_Marca eligiendo el nombre del proveedor a la tabla modelos
       Dim dtadapterMarca As OleDbDataAdapter = New OleDbDataAdapter("SELECT Id_Marca FROM Marcas WHERE Marcas.Marca='" & cbb_Marca_Artic_Vent_Insertar.Text & "'", conexion_access)
       Dim dtsMarca As New DataSet
       dtadapterMarca.Fill(dtsMarca, "Marcas")
       For Each Fila As DataRow In dtsMarca.Tables("Marcas").Rows
           id_marc = Fila("Id_Marca")
       Next
       
       ' consulta para asignar el Id_empleado eligiendo el empleado
       'Dim id_emp As Integer
       Dim dtadapterEmpleado As OleDbDataAdapter = New OleDbDataAdapter("SELECT Empleados.Id_Empleado FROM Empleados WHERE Empleados.Nombre='" & cbb_Nomb_Emp_Compra.Text & "' AND Empleados.Apellidos='" & cbb_Apel_Emp_Vent_Insertar.Text & "'", conexion_access)
       Dim dtsEmpleado As New DataSet

       dtadapterEmpleado.Fill(dtsEmpleado, "Empleados")
       For Each Fila As DataRow In dtsEmpleado.Tables("Empleados").Rows
           id_emp = Fila("Id_Empleado")
       Next
       
       ' consulta para asignar el Id_cliente eligiendo el nombre del cliente a la tabla ventas
       Dim dtadapterCliente As OleDbDataAdapter = New OleDbDataAdapter("SELECT Id_Cliente FROM Clientes WHERE Clientes.Nombre='" & cbb_Nomb_Client_Vent_Insertar.Text & "' AND Clientes.Apellidos='" & cbb_Apel_Client_Vent_Insertar.Text & "'", conexion_access)
       Dim dtsCliente As New DataSet
       dtadapterCliente.Fill(dtsCliente, "Clientes")
       For Each Fila As DataRow In dtsCliente.Tables("Clientes").Rows
           id_cli = Fila("Id_Cliente")
       Next

       ' inserto los datos en la tabla ventas
       Dim CadenaSql As String = "INSERT INTO Ventas (Fecha_Venta, Pagado, Id_Stock, Id_Empleado, Id_Cliente) VALUES ('" & CDate(cbb_Venta_Client_Insertar.Text) & "'," & chk_Pagado_Venta_Insertar.Checked & "," & "(SELECT TOP 1 Stock.Id_Stock FROM Stock WHERE Stock.Id_Articulo IN (SELECT Articulos.Id_Articulos FROM Articulos WHERE Articulos.Descripcion='" & cbb_Articulo_Artic_Vent_Insertar.Text & "' AND Stock.Vendido=False))," & "(SELECT Empleados.Id_Empleado FROM Empleados WHERE Empleados.Nombre='" & cbb_Nomb_Emp_Vent_Insertar.Text & "' AND Empleados.Apellidos='" & cbb_Apel_Emp_Vent_Insertar.Text & "')," & "(SELECT Clientes.Id_Cliente FROM Clientes WHERE Clientes.Nombre='" & cbb_Nomb_Client_Vent_Insertar.Text & "' AND Clientes.Apellidos='" & cbb_Apel_Client_Vent_Insertar.Text & "'))"
     
       MsgBox(IdStock)
       MsgBox(CadenaSql)
       Dim Comando As New OleDb.OleDbCommand(CadenaSql, conexion_access)
       Comando.Connection.Open()
       Comando.ExecuteNonQuery()
       If Mensaje = "" Then
           MessageBox.Show("La venta se ha insertado correctamente.", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
       Else
           MessageBox.Show("La venta se ha insertado correctamente. Debe dispensar al cliente el artículo con número de serie: " & Mensaje, "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End If

        ' ME GUSTARÍA SABER SI TENGO QUE REDIMENSIONAR LA MATRIZ
       ' redimensionamos el tamaño de la matriz
       'ReDim Preserve S_Ventas(S_Ventas.Length)

       ' para refrescar la tabla me tengo que crear 2 variables
       Dim ta_venta As New ArcoclimaDataSetTableAdapters.VentasTableAdapter
       Dim tabla_venta As New ArcoclimaDataSet.VentasDataTable

       ' refrescamos los valores de la tabla
       tabla_venta = ta_venta.GetData
       ArticulosDataGridView.DataSource = tabla_venta

       Me.Validate()
       Me.VentasBindingSource.EndEdit()
       Me.TableAdapterManager.UpdateAll(Me.ArcoclimaDataSet)

       Comando.Connection.Close()

       ' Limpio el contenido de los TextBox que he insertado en la tabla de empleados
       Limpiar_TextBox(cbb_Marca_Artic_Vent_Insertar.Text, cbb_Articulo_Artic_Vent_Insertar.Text,
                       cbb_Nomb_Emp_Vent_Insertar.Text, cbb_Apel_Emp_Vent_Insertar.Text,
                       cbb_Nomb_Client_Vent_Insertar.Text, cbb_Apel_Client_Vent_Insertar.Text)
       Exit Sub
   End Sub


El Id me lo devuelve correcto, pero no se si el error esta en la consulta o en el código, espero que me puedan ayudar,

Saludos

Hola a todos, tengo un error en este código que no consigo solucionar, el error esta en Comando.ExecuteNonQuery() me dice:
      No coinciden los tipos de datos en la expresión de criterios.

Código (vbnet) [Seleccionar] Expandir


Private Sub btn_Comprar_Articulo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Comprar_Articulo.Click
        ' compruebo que ninguno de los datos de reparacion esta vacio
        ' compra por articulo
        If grb_Datos_Articulo.Enabled = False Then
            If cbb_B_Arc_Marca_Compras.Text = "" Or cbb_B_Arc_Articulo_Compras.Text = "" Or
                cbb_Nomb_Emp_Compra.Text = "" Or cbb_Apel_Emp_Compra.Text = "" Or
                txt_Numero_de_Artículos_Compra.Text = "" Or txt_Num_Serie_Compra.Text = "" Then
                MessageBox.Show("Alguno/s de los campos esta vacio, rellenelo/s", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
        Else
            If grb_Buscar_Art_por_Marca.Enabled = False Then
                If cbb_Nombre_Empres_Compras.Text = "" Or cbb_Modelo_Compra.Text = "" Or cbb_Articulo_Compra.Text = "" Or
                cbb_Nomb_Emp_Compra.Text = "" Or cbb_Apel_Emp_Compra.Text = "" Or
                txt_Numero_de_Artículos_Compra.Text = "" Or txt_Num_Serie_Compra.Text = "" Then
                    MessageBox.Show("Alguno/s de los campos esta vacio, rellenelo/s", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Sub
                End If
            End If
        End If

        ' consulta para asignar el Id_Articulo eligiendo la marca
        Dim id_artic As Integer
        Dim dtadapterArticulo1 As New OleDb.OleDbDataAdapter("SELECT Id_Articulos FROM Articulos WHERE Articulos.Descripcion='" & cbb_B_Arc_Articulo_Compras.Text & "' ORDER BY Articulos.Id_Articulos", conexion_access)
        Dim dtsArticulo As New DataSet

        dtadapterArticulo1.Fill(dtsArticulo, "Articulos")
        For Each Fila As DataRow In dtsArticulo.Tables("Articulos").Rows
            id_artic = Fila("Id_Articulos")
        Next

        ' consulta para asignar el Id_empleado eligiendo el empleado
        Dim id_emp As Integer
        Dim dtadapterEmpleado As OleDbDataAdapter = New OleDbDataAdapter("SELECT Empleados.Id_Empleado FROM Empleados WHERE Empleados.Nombre='" & cbb_Nomb_Emp_Compra.Text & "' AND Empleados.Apellidos='" & cbb_Apel_Emp_Compra.Text & "'", conexion_access)
        Dim dtsEmpleado As New DataSet

        dtadapterEmpleado.Fill(dtsEmpleado, "Empleados")
        For Each Fila As DataRow In dtsEmpleado.Tables("Empleados").Rows
            id_emp = Fila("Id_Empleado")
        Next

        MsgBox("Ejecutando consulta")
        Dim CadenaSql As String = "INSERT INTO Stock (Num_Serie, Vendido, Fecha, Id_Articulo, Id_Empleado) VALUES ('" & txt_Num_Serie_Compra.Text & "', False, '" & cbb_Fecha_Compra.Text & "'," & id_artic & "," & id_emp & ")"
        Dim Comando As New OleDbCommand(CadenaSql, conexion_access)
        Comando.Connection.Open()
        Comando.ExecuteNonQuery()
   
        ' recimensionamos el tamaño de la matriz
        ReDim Preserve S_Stock(S_Stock.Length)

        ' para refrescar la tabla me tengo que crear 2 variables
        Dim ta_stock As New ArcoclimaDataSetTableAdapters.StockTableAdapter
        Dim tabla_stock As New ArcoclimaDataSet.StockDataTable

        ' refrescamos los valores de la tabla
        tabla_stock = ta_stock.GetData
        StockDataGridView.DataSource = tabla_stock

        Me.Validate()
        Me.StockBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.ArcoclimaDataSet)

        ' limpio el contenido de los TextBox que he insertado en la tabla Stock
        Limpiar_TextBox(cbb_Nombre_Empres_Compras.Text, cbb_Modelo_Compra.Text, cbb_Articulo_Compra.Text,
                        cbb_B_Arc_Marca_Compras.Text, cbb_B_Arc_Articulo_Compras.Text, cbb_Nomb_Emp_Compra.Text,
                        cbb_Apel_Emp_Compra.Text, txt_Numero_de_Artículos_Compra.Text, txt_Num_Serie_Compra.Text)

        Comando.Connection.Close()

    End Sub


Espero que me puedan ayudar

Saludos

Hola a todos, estoy realizando una consulta en .NET de una base de datos de Access. El codigo que he generado es el siguiente:

Código (vbnet) [Seleccionar] Expandir


Imports System.Data.OleDb

' me he creado un objeto para establecer la conexión
Public conexion_access As New OleDb.OleDbConnection

' cadena de conexión
conexion_access = New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\carlos\Escritorio\Proyecto Ingegrado Carlos Barea Grado Superior\base de datos\Arcoclima.mdb")


Ahora este es el código que me he creado con la consulta

Código (vbnet) [Seleccionar] Expandir


Private Sub cbb_Marca_Prov_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbb_Marca_Prov.SelectedIndexChanged
       Dim i, j As Integer
       Dim marca_prov, id_prov_comp As String

       For i = 0 To ProveedoresTableAdapter.GetData.Rows.Count - 1
           marca_prov = ProveedoresTableAdapter.GetData.Rows(i).Item(3)

           For j = 0 To CompraTableAdapter.GetData.Rows.Count - 1
               id_prov_comp = CompraTableAdapter.GetData.Rows(j).Item(0)

               txt_Id_Proveedor_compra.Text = id_prov_comp
               Exit For
           Next

           Dim consulta As New OleDbCommand("SELECT Compra.Id_Proveedor FROM  Proveedores", conexion_access)

           conexion_access.Open()
          [color=red] txt_Id_Proveedor_compra.Text = CType(consulta.ExecuteNonQuery(), String)[/color]
       Next
   End Sub


El error me lo da en la linea de color rojo y me dice lo siguiente:
      "No se han especificado valores para algunos de los parámetros requeridos."

Espero que me puedan ayudar a solucionar el problema

Saludos

Hola a todos, tengo una duda:

     Me gustaría saber si existe la posibilidad de parametrizar los datos de VMWare Converter para realizar lo siguiente:

           Quiero realizar una copia desde un pc de la red a mi pc, pero esto quiero hacerlo de manera automatica, que me pida los parameetros que tengo que insertar y los inserte automaticamente en el programa.

NOTA: DICHO PROGRAMA PARA REALIZAR LO INDICADO, DEBE DE GUARDAR LOS DATOS EN UN ARCHIVO "LOGS" ¿NO SE SI ESTO ES ASI?

Si necesitan preguntar algo, no duden en hacerlo.

Espero que me puedan ayudar.

Saludos

hola a todos, estoy realizando una aplicación en la cual quiero insertar registros en la base de datos, insertarlo me lo inserta bien, pero el iconveniente esta en que al lado de los textbox de insertar tengo un DataGrid en el cual tengo la tabla y no me muestra el registro que he insertado al pulsar el botón de insertar.

que tengo que hacer para actualizar la tabla???

aqui os dejo el codigo que he realizado:

Código (vbnet) [Seleccionar] Expandir


Private Sub btn_Insertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Insertar.Click
       Dim nombre, dni As String
       Dim edad As Double

       For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
           nombre = Usuarios2TableAdapter.GetData.Rows(i).Item(0)
           dni = Usuarios2TableAdapter.GetData.Rows(i).Item(1)
           edad = Usuarios2TableAdapter.GetData.Rows(i).Item(2)

           
           ' si el dni que quiero insertar ya esta en la tabla muestra un error
           If txt_DNI.Text = dni Then
               MessageBox.Show("El dni ya existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
               Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
               Exit Sub
           Else
               ' en caso contrario lo inserta
               Try
                   Usuarios2TableAdapter.Insert(txt_Nombre.Text, txt_DNI.Text, txt_Edad.Text)
                   Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
                   Exit Try
               Catch ex As Exception

               End Try

               MessageBox.Show("Usuario insertado correctamente", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Limpiar_Campos(txt_Nombre, txt_DNI, txt_Edad)
               Exit For
           End If
       Next

       Me.Validate()
       Me.Usuarios2BindingSource.EndEdit()
       Me.TableAdapterManager.UpdateAll(Me.Bd_pruebaDataSet1)

   End Sub


Espero que me puedan ayudar,

Saludos

hola se que una pregunta muy tonta la que estoy haciendo, pero esque llevo ya un rato realizando unas aplicaciones en .NET y ahora me he quedado en blanco con esta cuestion, el codigo que yo he realizado es el siguiente:

Código (vbnet) [Seleccionar] Expandir


        For i = 0 To Usuarios2TableAdapter.GetData.Rows.Count - 1
            MessageBox.Show("e_media: " & e_media & " edad: " & Usuarios2TableAdapter.GetData.Rows(i).Item(2))
            ed = Usuarios2TableAdapter.GetData.Rows(i).Item(2)
            e_media = (e_media + ed) / num_alum
        Next


espero que me ayuden con esta tonta cuestion.

Saludos

hola tengo un pequeño problemilla el cual al recorren una base de datos que ya tengo creada solo me accede al primer registro.

les pongo el codigo haber si encuentran algo mal y me pueden ayudar.

Código (vbnet) [Seleccionar] Expandir


Private Sub btn_Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Buscar.Click
        Dim nombre, dni As String
        Dim edad As Integer

        For i = 0 To UsuTableAdapter.GetData.Rows.Count - 1
            nombre = UsuTableAdapter.GetData.Rows(i).Item(0)
            dni = UsuTableAdapter.GetData.Rows(i).Item(1)
            edad = UsuTableAdapter.GetData.Rows(i).Item(2)
            If dni <> txt_DNI_Buscar.Text Then
                fila = i
                MessageBox.Show("DNI encontrado: " & UsuTableAdapter.GetData.Rows(i).Item(1), "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
                lbl_DNI_Encontrado.ForeColor = Color.Green

                lbl_Nombre.Text = nombre
                lbl_DNI.Text = dni
                lbl_Nombre.Text = edad
                Exit Sub
            Else
                fila = i
                MessageBox.Show("ERROR")
                'Exit Sub
            End If
        Next
    End Sub


saludos

hola a todos me gustaría que me ayudasen a resolver el siguiente script:

Se pide construir un script que pida al usuario una ip me devuelva el sitio web al que apunta y el puerto por el que se conecta. Por Ej: Si el usuario introduce la ip 10.0.0.10, el script debe devolver: www.sitio3.com 8080.
En caso de que la ip dada no exista deberá devolver el mensaje: "IP NO REGISTRADA."

los ficheros son los siguientes:

ips.txt
--------
192.168.0.10 www.sitio01.net
172.26.0.10 www.sitio2.org
10.0.0.10 www.sitio3.com
192.168.10.5 www.sitio4.es

puertos.txt
----------
www.sitio01.net 80
www.sitio2.org 8008
www.sitio3.com 8080
www.sitio4.es 8000

el script que yo he realizado es el siguiente:

Código (bash) [Seleccionar] Expandir


#!/bin/bash

echo "elegimos la ip de la que queremos saber el puerto: "
cat ./ips.txt
echo ""

echo "Introduce una IP para saber su puerto: "
read ip
echo "IP: "$ip

buscar_ip=$(cat ./ips.txt | grep -n '^'$ip'$' | cut -d " " -f 1)

puerto=$(head -$buscar_ip puertos.txt | tail -1)
echo "puerto: "$puerto


Se que no es un script complicado, pero no consigo resolverlo

Saludos

Hola a todos, quiero realizar un Script para que me haga el particionado de mi unidad de disco /dev/sdb, quiero hacer:

      - comprobar que esta vaco, en caso de que no este vacío, lo eliminare todo.
      - cuando este limpio /dev/sdb tengo que hacer 2 particiones:
              * sdb1 del 60 % sistema de archivos ext3.
              * sdb2 del 40 % sistema de archivos fat32.
      - una vez creadas las debo chequear.
      - configuración del sistema para el uso de las particiones:
              * sdb1 se montara en /media/hdext3, dolo la podrá montar root y no debe montarse al iniciar el sistema.
              * sdb2 se montara en /media/hdfat32, la podrá montar cualquier usuario, pero no permitirá ejecutar programas, se montara automáticamente al iniciar el sistema y tendrá programado un chequeo.
      - la información se deberá ir mostrando por pantalla.

Código (bash) [Seleccionar] Expandir


#!/bin/bash

num=$(ls /dev/ | grep -c '^sdb')
echo "Num: "$num

# si num es igual a 1 es que no existen particiones en la unidad /dev/sdb
if [ $num = 1 ]
then
        echo "El directorio /dev/sdb esta vacío."
else
        # si num es mayor a 1 quiere decir que tiene mas de 1 partición
        echo "Existen particiones en /dev/sdb "
fi

# me gustaría que me ayudaran a finalizarlo, ya que no esto muy puesto en esto de las particiones.
# creo que para particionar en un script se realiza:
#      parted /dev/sdb mkpart primary ext3 0G 3G


Espero que me puedan ayudar

saludos

Hola a todos

tengo una pequeña duda que creo que no es muy complicada de resolver. me gustaría saber cual es el método que tengo que utilizar para elegir de una cadena que me lea un numero de caracteres concreto, por ejemplo;

mis ordenadores

y me devuelva 8 caracteres:

is orden

saludos

hola a todos,  me he instalado una maquina virtual de debian "sin entorno gráfico", a la cual le quiero indicar que para instalar los diferentes paquetes los coja de internet, ya que ahora los coge del CD-ROM, creo que para cambiar esto hay que hacerlo en:
     /etc/apt/sources.list
en la que le he añadido las siguientes lineas de código:
     deb http://ftp.de.debian.org/debian/  testing main contrib non-free
     deb-src http://ftp.de.debian.org/debian/  testing main contrib non-free

estas creo que no son pero también las he probado:
     deb http://ftp.us.debian.org/debian/  stable main contrib non-free
     deb-src http://ftp.us.debian.org/debian/  stable main contrib non-free
-------
     deb http://ftp.de.debian.org/debian/  sarge main contrib non-free
     deb-src http://ftp.de.debian.org/debian/  sarge main contrib non-free

la versión de debian que he instalado es:
     debian testing 32 bits

espero que me puedan ayudar!!!!

Saludos

Hola a todos, estoy realizando un Script en Bash y tengo algunas dudas las cuales me gustaría que me las resolvieran a medida que voy haciendo el script.

Enunciado del Script:

   Crear un script que permita generar una factura por pantalla. para ello, se debera pedir en primer lugar, nombre y dni del usuario, y a continuacion cuantos articulos se van a comprar. a partir de ahi, existe un fichero en la misma carpeta del scipt, llamado productos.txt, donde estan los codigos, los nombres y el precio de cada producto. el usuario mostrara en pantalla el codigo de cada uno de los productos que desea comprar y la cantidad de ellos, y el script ira guardando todo esto en un fichero pra generar despues lafacura que recogera lo siguiente:

Código [Seleccionar] Expandir

######################################################
FACTURA
######################################################
Fecha: ----------------
Cliente: --------
DNI: -----------
######################################################
Codigo####Descripcion####Cantidad####U.P.####Total####
######################################################
C.2110 producto1 3 5.30  15.90
C.2012 producto2 8 15.20 121.60
######################################################
      SUBTOTAL: 137.50
IVA 18%:  24.75
###############
IMPORTE: 162.25

     IDEA: usar la calculadora bc: c=$(echo 22.5 + 3.75 | bc) y el comando cut para acceder a los codigos, precio y nombres de los productos. el fichero productos.txt puede ser el siguiente:

C.001#caja de CD's 32x 25uds, Verbatin#5.25
C.002#raton laser, logitec#4.50
C.003#pen drive 8GB, Kingston#7.10
C.004#kiingston micro SD 4GB#3.90

Ahora os pongo el codigo que he realizado y os comento la duda dentro del código:

Código (bash) [Seleccionar] Expandir


#!/bin/bash

echo ""
echo "LISTADO DE PRODUCTOS"
echo "-------------------------------------------"
cat /home/barea/unity/ejercicios_de_Scipt_en_Bash/cut/ejer57/productos.txt
echo "-------------------------------------------"
echo ""

i=1
read -p "elige el producto $i que desees o S para salir: " prod
echo "prod1: "$prod

#        en la variable codig quiero guardar la primera columna del fichero, pero me sale toda la columna en una linea y creo que es
# por eso por lo que no me funciona lo que he realizado mas adelante de del head | tail, como lo tendria que hacer???
codig=$(cat /home/barea/unity/ejercicios_de_Scipt_en_Bash/cut/ejer57/productos.txt | cut -d "#" -f 1 | grep '^[C,c]\.[0-9]\{3\}$')
echo "Codig: "$codig

while [ $prod != 'S' ]
do
echo "i: "$i
linea_cod_fich=$(head -$i /home/barea/unity/ejercicios_de_Scipt_en_Bash/cut/ejer57/productos.txt | tail -1)
i=$(expr $i \+ 1)
read -p "elige el producto $i que desees o S para salir: " prod
echo "prod1: "$prod
echo "Cod_fich: "$cod_fich
echo "linea_cod_fich: "$linea_cod_fich
exit while
done


Espero que me puedan ayudar, saludos

Hola a todos, tengo que realizar el montaje de un servidor con si Sistema Operativo Debian, se me estan planteando algunas dudas que son las siguientes:

     - Me gustaría saber si las cuestiones que están a continuación las tendría que incluir en: /etc/profile o en /etc/bash.bashrc??

     - Quiero guardar en un fichero (que lo llamaremos por ejemplo secion.dat) que va a estar en /root/registros/, el usuario, la hora y la fecha a la que inicio sesion en dicho equipo.

     - También quiero que la carpeta personal del usuario no supere los 500 MB, si los supera, se enviara un echo al terminal ttyX correspondiente diciendole: "Acceso denegado a Shell" y se le impedira el acceso a la Shell la proxima vez.

Espero que me puedan ayudar.

Hola a todos, estoy realizando una aplicación que me desglose una cantidad que le introduzco por teclado en los billetes y monedas correspondientes, aquí os dejo el programa y el código que he implementado yo, en el código le he introducido algunos Messagebox para que me enseñe por pantalla lo que me va devolviendo en la operación de la cantidad que le introduzco.

código de la aplicación:

Código (vbnet) [Seleccionar] Expandir


Public Class Form1
    ' Una máquina expendedora de dinero necesita calcular el número de billetes y monedas que corresponden
    ' a una cantidad (sin decimales.) Elaborar una aplicación que a través de un TEXTBOX introduzca una cantidad
    ' y con LABELS que me muestre cuántos billetes de 500 100 50 20 10 5 hay en esa cantidad. Ejemplo: 472 -> 4
    ' de 100, 1 de 50, 1 de 20 (me sobran 2 euros que no los tengo presentes pues no hay un billete de 2 euros)

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

    End Sub

    Private Sub btn_Desglosar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Desglosar.Click
        Dim resto As Integer = 0
        Dim b_500, b_200, b_100, b_50, b_20, b_10, b_5, m_2, m_1 As Integer

        'b_500 = 0 & b_200 = 0 & b_100 = 0 & b_50 = 0 & b_20 = 0 & b_10 = 0 & b_5 = 0 & m_2 = 0 = 0 & m_1 = 0

        Try
            If txt_Cantidad.Text = "" Then
                MessageBox.Show("No ha introducido ninguna cantidad a desglosar", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

            If txt_Cantidad.Text > 500 Then
                b_500 = CInt(txt_Cantidad.Text) / 500
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (b_500 * 500)
                MessageBox.Show("Billetes de 500: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text > 200 Then
                b_200 = CInt(txt_Cantidad.Text) / 200
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (b_200 * 200)
                MessageBox.Show("Billetes de 200: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text > 100 Then
                b_100 = CInt(txt_Cantidad.Text) / 100
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (b_100 * 100)
                MessageBox.Show("Billetes de 100: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text > 50 Then
                b_50 = CInt(txt_Cantidad.Text) / 50
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (b_50 * 50)
                MessageBox.Show("Billetes de 50: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text > 20 Then
                b_20 = CInt(txt_Cantidad.Text) / 20
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (b_20 * 20)
                MessageBox.Show("Billetes de 20: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text > 10 Then
                b_10 = CInt(txt_Cantidad.Text) / 10
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (b_10 * 10)
                MessageBox.Show("Billetes de 10: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text > 5 Then
                b_5 = CInt(txt_Cantidad.Text) / 5
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (b_5 * 5)
                MessageBox.Show("Billetes de 5: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text > 2 Then
                m_2 = CInt(txt_Cantidad.Text) / 2
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (m_2 * 2)
                MessageBox.Show("Monedas de 2: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If

            If txt_Cantidad.Text >= 1 Then
                m_1 = CInt(txt_Cantidad.Text) / 1
                txt_Cantidad.Text = CInt(txt_Cantidad.Text) - (m_1 * 1)
                MessageBox.Show("Monedas de 1: " & txt_Cantidad.Text, "informacion", MessageBoxButtons.OK)
            End If
            txt_Cantidad.Text = ""

            MessageBox.Show("La cantidad desblosada en billetes es: " & vbCrLf &
                        "Billetes de 500: " & b_500 & " Billetes" & vbCrLf &
                        "Billetes de 200: " & b_200 & " Billetes" & vbCrLf &
                        "Billetes de 100: " & b_100 & " Billetes" & vbCrLf &
                        "Billetes de 50: " & b_50 & " Billetes" & vbCrLf &
                        "Billetes de 20: " & b_20 & " Billetes" & vbCrLf &
                        "Billetes de 10: " & b_10 & " Billetes" & vbCrLf &
                        "Billetes de 5: " & b_5 & " Billetes" & vbCrLf &
                        "Monedas de 2: " & m_2 & " Monedas" & vbCrLf &
                        "Monedad de 1: " & m_1 & " Monedas" & vbCrLf, "Billetes", MessageBoxButtons.OK)
        Catch ex As Exception

        End Try

    End Sub
End Class


Hola a todos, tengo que realizar el montaje de un servidor con si Sistema Operativo Debian, se me estan planteando algunas dudas que son las siguientes:

     - Quiero guardar en un fichero (que lo llamaremos por ejemplo secion.dat) que va a estar en /root/registros/, el usuario, la hora y la fecha a la que inicio sesion en dicho equipo.

     - También quiero que la carpeta personal del usuario no supere los 500 MB, si los supera, se enviara un echo al terminal ttyX correspondiente diciendole: "Acceso denegado a Shell" y se le impedira el acceso a la Shell la proxima vez.

Espero que me puedan ayudar.

Me ha pasado algo en el programa Microsoft Visual Studio 2010 que no se como solucionarlo, se me han ido del cuadro de herramientas todos los botones, label, textbox, .......... me gustaria saber porque me ha ocurrido eso o donde puedo encontrar estas herramientas por otro sitio.

Saludos

Hola a todos, he realizado un script y una vez realizado no es del todo eficiente.

El problema lo tengo con los números aleatorios de inicio y fin, aquí os dejo el script que yo he realizado haber si me pueden ayudar a resolverlo.

tiene algunos "echo" de mas porque los he ido utilizado para ayudarme.

Código (bash) [Seleccionar] Expandir


# Crear un script que intente adiviar un numro que tenemos en mente. El programa debera ir
#preguntando al usuario si el numero mostrado es mayor o menor.

#!/bin/bash

fin=10
inicio=1
cont=0
intento=$(($RANDOM%fin+inicio))

echo 'El numero es: '$intento ' S/N?: '
read resp

while [ $resp == 'N' ] && [ $inicio -lt $fin ]
do
echo 'inicio: '$inicio
echo 'fin: '$fin
echo 'si el numero es MAYOR (M) o menor (m)?'
read resp1
echo ''
if [ $resp1 = 'M' ]
then
inicio=$(expr $intento \+ 1)
#fin=$fin
intento=$(($RANDOM%fin+inicio))
echo ''
echo 'intento2: '$intento
echo ''
else
if [ $resp1 = 'm' ]
then
#inicio=$inicio
fin=$(expr $intento \- 1)
intento=$(($RANDOM%fin+inicio))
echo ''
echo 'intento3: '$intento
echo ''
fi
fi
echo 'El numero es: '$intento ' S/N?: '
read resp
done
echo 'Numero encontrado: '$intento


Hola a todos, tengo un problemilla con este script, tengo que realizar una quiniela, los problemas que na da son los siguientes:
      1. al comprobar que los 3 ficheros tienen la misma cantidad de elementos, comparo los 2 primeros y me sale bien, pero al meterle el tercero me salta el error, la verdad es que nose porque.
      2. para sacar el nombre del equipo de cada fichero, si no me equivoco lo tendría que realizar con $(head -x | tail -1) pero no consigo realizarlo.

Aqui dejo el codigo que tengo confeccionado, haber si me pueden ayudar.

el enunciado se los he dejado comentado al principio de scirpt, tambien le he comentado algunas lineas para que me ayuden en la depuracion del script.

Código (bash) [Seleccionar] Expandir


# Crear un script que dados 3 ficheros: Equipos.txt, Resultados.txt,
# Equipos2.txt, permita generar el fichero Quiniela.txt que contiene las
# lineas de la quiniela formada por los equipos que estan en el fichero
# Equipos1.txt, el resultado del fichero Resultados.txt y los equipos de
# Equipos2.txt. El script debera comprobar que dichos fichreros tienen el
# mismo numero de elementos para que la quiniela se pueda generare
# correctamene.

#!/bin/bash
# generamos el fichero quiniela.txt
echo '' >> ./quiniela.txt

# comprobar que los 3 ficheros tienen el mismo numero de lineas
eq1=$(cat ./equipos1.txt | wc -l ./equipos1.txt | cut -d " " -f 1)
eq2=$(cat ./equipos2.txt | wc -l ./equipos2.txt | cut -d " " -f 1)
result=$(cat ./resultados.txt | wc -l ./resultados.txt | cut -d " " -f 1)
echo ''
echo 'Equipos1: '$eq1
echo 'Equipos2: '$eq2
echo 'Resultados: '$result
echo ''
cont=0
if $(test $eq1 -eq $eq2) && $(test $eq2 -eq $result)
then
echo 'Empezamos a confeccionar la quiniela...'
for i in $(cat ./equipos1.txt)
do
echo 'equipo1: '$(head $i ./equipos1.txt | tail -1)
#$eq2=$(head $i ./equipos2.txt | tail -1)
#$result=$(head $i ./resultados.txt | tail -1)
# introducimos la linea en el fichero quiniela.txt
#echo '1. '$(head $i ./equipos1.txt | tail -1)' - '$(head $i ./equipos2.txt | tail -1)' '$(head $i ./resultados.txt | tail -1)
# echo '1. ' $(head $1 ./equipos1.txt | tail -1)' - '$(head $j ./equipos2.txt | tail -1)' - '$(head $k ./resultados.txt | tail -1)
#cont=$(expr $cont \+ 1)
done
else
echo 'Los ficheros no tienen los mismos elementos.'
fi


Saludos,