Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Hola nicolas2015alcubo, estás preguntando por algo que nos trae muchos recuerdos a quienes empezamos a programar en aquella época pero que hoy día prácticamente nadie usa. Y no quiero decir que no sirva, que servir sirve, incluso es bueno para el aprendizaje de la programación, pero ya es hasta difícil conseguir ejecutar Qbasic en un computador de los actuales. ¿No te has planteado usar Visual Basic?

Saludos

Hola en ese caso intenta hacer pruebas primero para ver que te funcione la búsqueda de sesión dentro del arraylist. Para comprobar que te funcione pon un mensaje como ¡Se ha encontrado la sesión buscada!, o ¡No se ha encontrado!

Una vez consigas que te funcione esto, añade la lógica de la venta.

La sesión buscada es sesiónDeLaVenta según entiendo ¿por qué pones tmpSesión?

public void venderEntradasSesión (int numeroEntradasVenta,Sesión sesiónDeLaVenta)
    {
boolean seEncontroSesion = false;
        Iterator<Sesión> it = sesiones.iterator();
        while(it.hasNext()){
Sesión s = it.next();
            if(s.fecha.equals(sesiónDeLaVenta.getFecha())&& s.fecha.equals(sesiónDeLaVenta.Película)) {
seEncontroSesion = true;
System.out.println("¡Encontrada sesión de la venta!");
}

if (seEncontroSesion == true) {

//Aquí iría la lógica de la venta

}
else {
System.out.println("Lo sentimos pero la venta no puede realizarse. Motivo: no se encuentra la sesión buscada");
}
        }
Saludos

Hola jupertivo, respuestas correctas. En realidad has hecho más de lo que se pedía en el ejercicio que sólo era un código como el de https://www.aprenderaprogramar.com/foros/index.php?topic=2261.0

Saludos!!

Hola este es un ejemplo de código que te permite seleccionar sólo las columnas A y B, a lo mejor te sirve como idea para cargar las columnas que te interesen.

Antes de operar con ficheros de Excel vete al menú Proyecto -- > Agregar referencia -- > Elige la ficha COM (componente) -- > Selecciona Microsoft Excel 12.0 Object Library (o un nombre similar) y pulsa aceptar.

Crea el fichero ejemplo.xlsx e introduce algunos datos en las columnas A, B y C. Luego en un formulario añade un botón y un label y ejecuta el código.


Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = ""
        Label1.AutoSize = False
    End Sub
   
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objXLApp As Excel.Application
        Dim intLoopCounter As Integer
        Dim objXLWb As Excel.Workbook
        Dim objXLWs As Excel.Worksheet
        Dim objRange As Excel.Range

        objXLApp = New Excel.Application
        objXLApp.Workbooks.Open("C:\Users\Juan\CursoVB\aprender\ejemplo.xlsx")
        objXLWb = objXLApp.Workbooks(1)
        objXLWs = objXLWb.Worksheets(1)
        MsgBox("Ahora la celda A5 contiene: " & objXLWs.Cells(5, 1).value)
        For intLoopCounter = 1 To CInt(objXLWs.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row)
            objRange = objXLWs.Range("A" & intLoopCounter)
            Label1.Text = Label1.Text & vbCrLf & objRange.Value
            objRange = objXLWs.Range("B" & intLoopCounter)
            Label1.Text = Label1.Text & " -- > " & objRange.Value
        Next intLoopCounter

        'Escribimos en el fichero
        objXLWs.Cells(5, 1) = "Probando"
        MsgBox("Ahora la celda A5 contiene: " & objXLWs.Cells(5, 1).value)
        objXLApp.Quit()
    End Sub

End Class
Saludos

Hola, una cosa que debes tener presente y que no estoy seguro de si has hecho es que para hacer posible operar con ficheros de Excel con la interface que proporciona Visual Basic tienes que habilitar esa opción dentro de Visual Basic, para ello hay que ir al menú Proyecto -- > Agregar referencia -- > Elegir la ficha COM (componente) -- > Seleccionar Microsoft Excel 12.0 Object Library (o un nombre similar) y pulsar aceptar.


He puesto algunos mensajes de aviso en el programa

Imports System.Data.OleDb
Public Class Form1

    Private Sub CapturarFormato28BToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CapturarFormato28BToolStripMenuItem.Click
        Dim stRuta As String = ""
        Dim openFD As New OpenFileDialog()
        With openFD

            .Title = "Seleccionar archivos"
            .Filter = "Archivos Excel(*.xls;*.xlsx)|*.xls;*xlsx|Todos los archivos(*.*)|*.*"
            .Multiselect = False
            .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop

            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                stRuta = .FileName
            End If
        End With
        MsgBox("Aqui llega 1")
        Try
            MsgBox("Aqui llega 2")
            Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0­;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";"")))

            MsgBox("Aqui llega 3")
            Dim cnConex As New OleDbConnection(stConexion)
            MsgBox("Aqui llega 4")
            Dim Cmd As New OleDbCommand("Select * From [Hoja1$]")
            Dim Ds As New DataSet
            Dim Da As New OleDbDataAdapter
            Dim Dt As New DataTable

            cnConex.Open()
            Cmd.Connection = cnConex
            Da.SelectCommand = Cmd
            Da.Fill(Ds)
            Dt = Ds.Tables(0)
            Me.DataGridView1.Columns.Clear()
            Me.DataGridView1.DataSource = Dt
        Catch ex As Exception
            MsgBox("Se ha producido un error" & ex.Message)
        End Try
        MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub


    Private Function ex() As Object
        ' Throw New NotImplementedException
        MsgBox("No need to implement this for our exercise")
        End
    End Function


End Class


Se está obteniendo nada más ejecutar el programa:

Excepción del tipo 'System.ArgumentException' en System.Data.dll
Excepción del tipo 'System.NotImplementedException' en WindowsApplication1.exe


Esto parece indicar que no están bien implementadas la recuperación de excepciones.

Si ejecuto este código de prueba obtengo lo siguiente:

- Se muestra hasta Aqui llega 3 pero no Aqui llega 4, el error parece estar en esta línea: Dim cnConex As New OleDbConnection(stConexion)

- Mensaje por pantalla "Se ha producido un error. El formato de la cadena de inicialización no se ajusta a la especificación que comienza en el índice 186"


La línea del error nos remite a su vez a la línea Dim stConexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0­;" & ("Data Source=" & (stRuta & ";Extended Properties=""Excel 12.0;Xml;HDR=YES;IMEX=2"";&quo­t;")))

Todavía no veo solución, habría que seguir investigando...

Saludos

Con pequeños cambios se logra que compile pero te recomiendo que aprendas java siguiendo el curso http://aprenderaprogramar.com/index.php?option=com_content&view=category&id=68&Itemid=188

El código que compila es

import javax.swing.*;
import java.awt.*;
import java.awt.event.*;
import javax.swing.border.*;

public class test extends JFrame {

    private JPanel panelTitle;
    private JPanel statictisPanel;

    private TitledBorder borderTitle;
    private TitledBorder statisticsTitle;

    private JTextField text1;
    private JTextField text2;
    private JTextField text3;
    private JTextField text4;
    private JTextField text5;

    private JRadioButton avrgAllTest;
    private JRadioButton avrgLess1;
    private JRadioButton avrgLess2;
    private ButtonGroup avrgGroup;


    public test() {

        testScorePanel();
        buildStatisticsPanel();

        // set title
        setTitle("Jose A. Pimentel");

        add(panelTitle, BorderLayout.NORTH);
        add(statictisPanel, BorderLayout.CENTER);

        pack();
        // specify what happens when the close button is clicked
        setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

        // Display the windows
        setVisible(true);

    }

    public void testScorePanel()
    {
        panelTitle = new JPanel();

        panelTitle.setLayout(new GridLayout( 1, 5) );

        borderTitle = new TitledBorder("Test Scores");
        //borderTitle.setBounds(46, 16, 150, 50);


        text1 = new JTextField(4);
        text2 = new JTextField(4);
        text3 = new JTextField(4);
        text4 = new JTextField(4);
        text5 = new JTextField(4);

        panelTitle.setBorder(borderTitle);

        panelTitle.add(text1);
        panelTitle.add(text2);
        panelTitle.add(text3);
        panelTitle.add(text4);
        panelTitle.add(text5);

    }

    public void buildStatisticsPanel()
    {

        statictisPanel = new JPanel();

        statictisPanel.setLayout(new GridLayout( 4, 1) );
        statictisPanel.setBounds(46, 76, 150, 50);

        statisticsTitle = new TitledBorder("Statistics");

        avrgAllTest = new JRadioButton("Average Includes All Tests", true);
        avrgLess1 = new JRadioButton("Average Drops Lowest Test");
        avrgLess2 = new JRadioButton("Average Drops 2 Lowest Tests");

        statictisPanel.setBorder(statisticsTitle);

        avrgGroup = new ButtonGroup();
        avrgGroup.add(avrgAllTest);
        avrgGroup.add(avrgLess1);
        avrgGroup.add(avrgLess2);

        //statictisPanel.setBorder(BorderFactory.createTitledBorder("Bagel"));

        statictisPanel.add(avrgAllTest);
        statictisPanel.add(avrgLess1);
        statictisPanel.add(avrgLess2);
    }

}

Clase con el main

public class Program7{

    public static void main(String[] args) {
        test application = new test();
    }
}

Buenos días, el foro comunidad está reservado para presentarse a la comunidad, para realizar consultas deben utilizarse otros foros. Por ello voy a proceder a mover el mensaje al foro de C, C++, Java...

Sobre la duda que consultas, depende de cómo sean los comentarios que quieras eliminar. Para poder automatizar la eliminación hace falta un patrón que permita distinguir los comentarios a eliminar.

Se pueden eliminar automatizándolo si:

- Se trata de eliminar todos los comentarios existentes

- Todos los comentarios a eliminar tienen alguna características que los identifique (por ejemplo una palabra, una cantidad de asteriscos o algo similar)

No se pueden eliminar automatizándolo si:

- Hay comentarios C y comentarios java mezclados y no hay forma de distinguir unos de otros.


Para tratar de ayudarte pega un ejemplo de código como se explica en https://www.aprenderaprogramar.com/foros/index.php?topic=1460.0 y explica cuáles serían los comentarios a eliminar.

Saludos!

Hola! Joomla tiene una biblioteca LDAP nativa (JClientLDAP en Joomla 3.x) y un plugin de autenticación LDAP nativo. Esto permite que Joomla autentifique usando LDAP nada más instalarlo: se configura en Extensiones -> Gestor de plugins y desde aquí se puede activar y editar el Plugin "Autenticación - LDAP".

Necesitas tener el paquete 'php5-ldap' instalado en el servidor web.

Consultando en la web podrás encontrar más información sobre configuración y uso. Un artículo de referencia es http://community.joomla.org/component/zine/article/507-developer-ldap-from-scratch-sam-moffatt.html

Saludos!

Hola Cabanota el ejercicio está bien resuelto.


Tienes un despiste de no cerrar <div id="salida"> <div> ahí faltó el cierre </div>


También tienes una construcción extraña <span>Resultado:</span> sin estar dentro de otro elemento (bueno está dentro del form pero no dentro de algo que envuelva el span). El span suele estar dentro de un div o un p, no suele dejarse suelto dentro de un form.


Al principio creí que no funcionaba bien porque no se ven todos los números introducidos, he hecho algunos pequeños cambios para que se vea un poco más claro, aquí los dejo (básicamente es lo mismo, lo único que se van mostrando los números introducidos)

<!DOCTYPE html>
<html>
<head>
   <title></title>
   <meta charset="UTF-8">
   <style type="text/css">
   h2, input, form{margin:20px;}
      div#salida{
         width: 100%;
         border: 1px solid black;
         height: 20px;
      }
      #vaMostrando{
         width: 20%;
         margin: 10px 0px 20px 0px;
         padding: 3px;
      }

   </style>
   <script type="text/javascript">
      var datoEntrada, datoBoton, datoSalida, iteractivo;
      var arreglo = new Array();
      var cont = 0;

      function capturaDeDatos() {   
         datoEntrada = document.getElementById("entrada");
         iteractivo = document.getElementById("vaMostrando");
         if (cont < 5) {
            arreglo[cont] = datoEntrada.value;
iteractivo.childNodes[1].nodeValue = cont==0 ? arreglo[cont]:iteractivo.childNodes[1].nodeValue+'-'+arreglo[cont];
         }else{
            alert("Ya se sobrepaso de datos.");
         }
         cont++;
         if (cont == 5) {
            var resul = "Multiplicamos por 5 los números introducidos: ";

            datoSalida = document.getElementById("salida");
            for (i in arreglo) {
               resul = resul + arreglo[i] + "*5 = " + (arreglo[i] * 5) + ", ";
            };
            datoSalida.childNodes[0].nodeValue = resul;
            iteractivo.childNodes[1].nodeValue =  iteractivo.childNodes[1].nodeValue+" Finish";

         };
      }
     
      function resetMen() {
         var resetCaja = document.getElementById("salida").childNodes[0].nodeValue = "";
         var resetCaja2 = document.getElementById("vaMostrando").childNodes[1].nodeValue = "";
         cont = 0;   
      }
   </script>
</head>
<body>
   <form>
      <h2>Ingrese 5 numeros solamente.</h2>
      <input id="entrada" type="text"/>
      <input id="boton" type="reset" value="Acept" onclick="capturaDeDatos()" />
      <input id="reseteo" type="button" value="Limpar cajas" onclick="resetMen()" />
      <div id="vaMostrando" style="font-size: 20px;"><span style="font-size: 15px">Ingreso el numero: </span> </div>
      <div><span>Resultado:</span></div>
      <div id="salida"> </div>
   </form>
</body>
</html> 

Saludos

Hola, para poder revisarlo haría falta que adjuntes el archivo excel (no hace falta el de miles de registros, con que tenga cien o doscientos basta) y si hay código adicional, el código adicional que haga falta. Las instrucciones para adjuntar archivos o links están en https://www.aprenderaprogramar.com/foros/index.php?topic=1460.0

Saludos!