una pregunta
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
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
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
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
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
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