tengo una matriz con preguntas y respuesta como mostrarla en un for y textbox la opciones

VALLEJOS LOPEZ JONNY EXCEQUIEL 0 Reputation points
2023-04-22T16:56:32.7933333+00:00

Buenos días compañeros, estoy haciendo un proyecto en VB.NET creando o simulando el famoso juego Preguntados. Pero tengo un problema. tengo una tabla llamada preguntas con sus respectivas opciones o respuesta, en visual llamo a esa tabla y meto la información en una matriz, de ahi todo bien, el problema que tengo, es en mostrar esa informacion en en form donde muestro la pregunta en un label y las respuesta en un textbox. la cuestion es como hago para avanzar a la siguiente pregunta sin tener que meter los datos del campo de la matriz

VB
VB
An object-oriented programming language developed by Microsoft that is implemented on the .NET Framework. Previously known as Visual Basic .NET.
2,605 questions
{count} votes

1 answer

Sort by: Most helpful
  1. Jami 75 Reputation points
    2023-04-22T20:58:48.8833333+00:00

    Para mostrar las preguntas y sus opciones de respuesta en un formulario en VB.NET, se puede utilizar un ciclo for y un textbox para cada opción de respuesta. A continuación, se puede usar un botón para avanzar a la siguiente pregunta y mostrarla en el formulario. A continuación se muestra un ejemplo de cómo se puede hacer esto:

    1. Crear un formulario en VB.NET con un Label para mostrar la pregunta y varios TextBoxes para las opciones de respuesta.
    2. Crear una matriz que contenga las preguntas y sus opciones de respuesta. Por ejemplo, se puede crear una matriz con dimensiones [n, 5], donde n es el número de preguntas y cada fila contiene la pregunta en la primera columna y las cuatro opciones de respuesta en las siguientes cuatro columnas.
    3. En el evento Load del formulario, inicializar una variable indice en cero para llevar un seguimiento de la pregunta actual.
    4. En el evento Click del botón "Siguiente", aumentar la variable indice en uno para mostrar la siguiente pregunta en la matriz. Si el índice es mayor o igual al número de preguntas, establecerlo en cero para volver a la primera pregunta.
    5. Mostrar la pregunta actual en el Label del formulario y las opciones de respuesta correspondientes en cada TextBox.
    6. También se puede agregar una variable respuestaCorrecta a la matriz para verificar si la respuesta seleccionada por el usuario es correcta. A continuación se muestra un ejemplo de código que implementa esta lógica:
    Public Class Form1
        Dim preguntas(,) As String = {{"Pregunta 1", "Opción 1", "Opción 2", "Opción 3", "Opción 4", "2"},
                                      {"Pregunta 2", "Opción 1", "Opción 2", "Opción 3", "Opción 4", "1"},
                                      {"Pregunta 3", "Opción 1", "Opción 2", "Opción 3", "Opción 4", "3"}}
        Dim indice As Integer = 0 ' variable para llevar el seguimiento de la pregunta actual
        
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            MostrarPregunta(indice) ' mostrar la primera pregunta al cargar el formulario
        End Sub
        
        Private Sub btnSiguiente_Click(sender As Object, e As EventArgs) Handles btnSiguiente.Click
            indice += 1 ' aumentar el índice para mostrar la siguiente pregunta
            If indice >= preguntas.GetLength(0) Then ' si se llega al final de las preguntas, volver al inicio
                indice = 0
            End If
            MostrarPregunta(indice) ' mostrar la siguiente pregunta
        End Sub
        
        Private Sub MostrarPregunta(indicePregunta As Integer)
            lblPregunta.Text = preguntas(indicePregunta, 0) ' mostrar la pregunta en el Label
            txtOpcion1.Text = preguntas(indicePregunta, 1) ' mostrar la opción 1 en el TextBox correspondiente
            txtOpcion2.Text = preguntas(indicePregunta, 2) ' mostrar la opción 2 en el TextBox correspondiente
            txtOpcion3.Text = preguntas(indicePregunta, 3) ' mostrar la opción 3 en el TextBox correspondiente
            txtOpcion4.Text = preguntas(indicePregunta, 4) ' mostrar la opción 4 en el TextBox correspondiente
        End Sub
        
    End Class
    
    0 comments No comments