elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  programa de preguntas para dos usuarios
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: programa de preguntas para dos usuarios  (Leído 1,506 veces)
creiko

Desconectado Desconectado

Mensajes: 44


Ver Perfil
programa de preguntas para dos usuarios
« en: 15 Octubre 2016, 21:33 pm »

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
Código
  1.  
  2. Public Class Form1
  3.  
  4.    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
  5.  
  6.  
  7.    End Sub
  8.  
  9.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  10.  
  11.        Dim login, login1, password, password1 As Char
  12.  
  13.  
  14.        login = "bernal"
  15.        password = "1234"
  16.        login1 = "meneses"
  17.        password1 = "123"
  18.  
  19.        If TextBox1.Text = "bernal" And TextBox2.Text = "1234" Or TextBox1.Text = "meneses" And TextBox2.Text = "123" Then
  20.            Form2.Show()
  21.            Me.Hide()
  22.            TextBox1.Text = ""
  23.            TextBox2.Text = ""
  24.        Else
  25.            MsgBox(" Usuario o contraseña incorrectos")
  26.            TextBox1.Text = ""
  27.            TextBox2.Text = ""
  28.        End If
  29.  
  30.    End Sub
  31.  
  32.    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  33.  
  34.    End Sub
  35.  
  36.    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
  37.  
  38.    End Sub
  39. End Class
  40.  
  41.  


formulario 2
Código
  1. ublic Class Form2
  2.  
  3.    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  4.  
  5.    End Sub
  6.  
  7.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  8.  
  9.        Form3.Show()
  10.        Me.Hide()
  11.  
  12.    End Sub
  13. End Class
  14.  

formulario 3
Código
  1. Public Class Form3
  2.  
  3.    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
  4.  
  5.    End Sub
  6.  
  7.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  8.        Form4.Show()
  9.        Me.Hide()
  10.    End Sub
  11.  
  12.    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  13.  
  14.    End Sub
  15. End Class
  16.  

formulario 4
Código
  1. Public Class Form4
  2.  
  3.    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  4.        Form5.Show()
  5.        Me.Hide()
  6.    End Sub
  7.  
  8.    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  9.        Button1.Visible = True
  10.  
  11.        ListBox1.Visible = False
  12.  
  13.        ListBox1.Items().Clear()
  14.  
  15.  
  16.  
  17.  
  18.        Form1.Show()
  19.        Me.Hide()
  20.  
  21.    End Sub
  22.  
  23.    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  24.  
  25.    End Sub
  26. End Class
  27.  

formulario 5
Código
  1. Public Class Form5
  2.  
  3.    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
  4.  
  5.    End Sub
  6.  
  7.    Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  8.  
  9.        Dim suma As Double
  10.        suma = 0
  11.  
  12.  
  13.  
  14.  
  15.  
  16.        If Form3.RadioButton2.Checked = True Then
  17.                Label7.Text = "Correcto"
  18.                suma = suma + 0.8
  19.  
  20.            Else
  21.                Label7.Text = "Incorrecto"
  22.            End If
  23.  
  24.            If Form3.ComboBox1.SelectedItem = "Verdadero" Then
  25.                Label8.Text = "correcto"
  26.                suma = suma + 0.8
  27.            Else
  28.                Label8.Text = "Incorrecto"
  29.            End If
  30.  
  31.  
  32.            If Form3.ListBox1.SelectedItem = "Antivirus" Then
  33.                Label9.Text = "correcto"
  34.                suma = suma + 0.8
  35.            Else
  36.                Label9.Text = "Incorrecto"
  37.            End If
  38.  
  39.            If Form4.RadioButton2.Checked = True Then
  40.                Label27.Text = "correcto"
  41.                suma = suma + 0.8
  42.            Else
  43.                Label27.Text = "Incorrecto"
  44.            End If
  45.  
  46.            If Form4.ComboBox1.SelectedItem = "Verdadero" Then
  47.                Label26.Text = "correcto"
  48.                suma = suma + 0.8
  49.            Else
  50.                Label26.Text = "Incorrecto"
  51.            End If
  52.  
  53.            If Form4.ListBox1.SelectedItem = "Virus informatico" Then
  54.                Label25.Text = "correcto"
  55.                suma = suma + 0.8
  56.            Else
  57.                Label25.Text = "Incorrecto"
  58.            End If
  59.  
  60.        Label6.Text = suma
  61.  
  62.  
  63.  
  64.    End Sub
  65. End Class
  66.  

si alguien me hecha una manito en esa parte lo agraddeceria


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines