tengo que hacer un programa con 6 preguntas cada una de ellas con 4 opciones de respuesta
y con 5 formularios de la siguiente manera
formulario 1
pide usuario y contraseña
formulario 2
mensaje nxxxxx
con un boton siguiente
formulario 3 con 3 preguntas
pregunta 1 con RadioButton
pregunta 2 con ComboBox
pregunta 3 con listbox
con un boton siguiente
formulario 4
pregunta 4 con RadioButton
pregunta 5 con listboxBox
pregunta 3 con listbox
con 2 botones
boton 1 debe decir aplicar cuestionario a usuario
boton 2 imprimir resultados
formulario 5
imprime las respuestas de los dos usuarios
ejemplo
usuario 1 .
pregunta 1 buena
pregunta 2 mala
pregunta 3 mala
pregunta 4 buena
pregunta 5 buena
pregunta 6 mala
usuario 2 .
pregunta 1 buena
pregunta 2 buena
pregunta 3 buena
pregunta 4 buena
pregunta 5 mala
pregunta 6 buena
la cosa es la siguiente tengo todo.
pero no he podido es como aplicarle al usuario 2 las preguntas,
sin que las respuestas sean las mismas del usuario 1
lo que he hecho es lo siguiente:
formulario 1
Código
Public Class Form1 Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim login, login1, password, password1 As Char login = "bernal" password = "1234" login1 = "meneses" password1 = "123" If TextBox1.Text = "bernal" And TextBox2.Text = "1234" Or TextBox1.Text = "meneses" And TextBox2.Text = "123" Then Form2.Show() Me.Hide() TextBox1.Text = "" TextBox2.Text = "" Else MsgBox(" Usuario o contraseña incorrectos") TextBox1.Text = "" TextBox2.Text = "" End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub End Class
formulario 2
Código
ublic Class Form2 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form3.Show() Me.Hide() End Sub End Class
formulario 3
Código
Public Class Form3 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form4.Show() Me.Hide() End Sub Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class
formulario 4
Código
Public Class Form4 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form5.Show() Me.Hide() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Button1.Visible = True ListBox1.Visible = False ListBox1.Items().Clear() Form1.Show() Me.Hide() End Sub Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class
formulario 5
Código
Public Class Form5 Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click End Sub Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim suma As Double suma = 0 If Form3.RadioButton2.Checked = True Then Label7.Text = "Correcto" suma = suma + 0.8 Else Label7.Text = "Incorrecto" End If If Form3.ComboBox1.SelectedItem = "Verdadero" Then Label8.Text = "correcto" suma = suma + 0.8 Else Label8.Text = "Incorrecto" End If If Form3.ListBox1.SelectedItem = "Antivirus" Then Label9.Text = "correcto" suma = suma + 0.8 Else Label9.Text = "Incorrecto" End If If Form4.RadioButton2.Checked = True Then Label27.Text = "correcto" suma = suma + 0.8 Else Label27.Text = "Incorrecto" End If If Form4.ComboBox1.SelectedItem = "Verdadero" Then Label26.Text = "correcto" suma = suma + 0.8 Else Label26.Text = "Incorrecto" End If If Form4.ListBox1.SelectedItem = "Virus informatico" Then Label25.Text = "correcto" suma = suma + 0.8 Else Label25.Text = "Incorrecto" End If Label6.Text = suma End Sub End Class
si alguien me hecha una manito en esa parte lo agraddeceria