corectare raspunsuri

Am facut un program in vb.net care corecteaza intrebari grila. Problema e ca nu stiu cum sa fac o subrutina care sa verifice daca doar una din cele 5 casute (checkbox) sunt bifate, deci un singur raspuns bifat, oricare ar fi el - A, B,C,D sau E. Un pic de ajutor va rog...

Veri aria de programming

din 5 casute numai una sa fie corecta?......ce optiune ai pentru test userul poate bifa una sau pe toate?

Asa arata programul. Daca intrebarea are un singur raspuns corect, dar studentul bifeaza mai multe raspunsuri, sa dea punctaj 0. Deci am nevoie de un algoritm care sa verifice daca doar o casuta e bifata.

IF sunt bifate doua, trei, patru sau toate casutele in loc de doar una THEN
 .......... punctaj 0
END IF

Edited by biceman, 05 June 2010 - 13:26.

private Function Check_box() as boolean

if CheckBox1.checked = true and checkedBox2.checked = false and checkBox3.checked = false and Checkedbox4.checked = false and check.Box5.checked = false  Then

MsgBox("Asta este raspunsul corect") 'in cazul in care raspunsul corect este varianta "a" adica checkbox1

Else

MsgBox("Raspuns Gresit")

End If

End Function

OK, dar asta e valabil daca raspunsul A e corect. Ar trebui sa fac la fel, cu ajustarile de rigoare, pentru raspunsurile B,C,D si E corecte. As vrea ceva cumulat, intr-o singura subrutina...

ceva de genul

IF doar A = True OR doar B = True OR doar C = True OR doar D = True OR doar E = True THEN
 ...
END IF

LE: Folosesc VB1010 express

Edited by biceman, 05 June 2010 - 13:34.

asta e pe vb 2008 express ...

biceman, on 5th June 2010, 13:30, said:

cate variante de raspuns sunt pentru toate testele?

sa zicem 10 intrebari, unele dintre ele cu raspunsuri multiple, unele cu un singur raspuns, amestecate. Programul imi ia din baza de date raspunsurile corecte pentru fiecare intrebare.
Acum... daca la intrebarea x e un singur raspuns corect, dar studentul a bifat mai multe raspunsuri, primeste 0 puncte la acea intrebare. La vel primeste 0 puncta daca a bifat un singur raspuns, dar nu pe cel corect.
Daca la intrebarea y sunt mai multe raspunsuri corecte, punctajul va fi calculat prin operatie logica Xor (stil rezidentiat).

Edited by biceman, 05 June 2010 - 13:40.

Public Class Form1

    Private Function check_box() As Boolean
        If CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = False Then
            MsgBox("Raspuns corect")
        Else
            MsgBox("Raspuns gresit")
        End If
    End Function
    Private Function check_box1() As Boolean
        If CheckBox2.Checked = True And CheckBox1.Checked = False And CheckBox3.Checked = False Then
            MsgBox("Raspuns corect 2")
        Else
            MsgBox("Raspuns gresit 2")
        End If
    End Function


    Private Sub ssss()
        If CheckBox6.Checked = True Then
            MsgBox("sasasdddd")
            check_box()
        ElseIf CheckBox4.Checked = True Then
            MsgBox("sasas")
            check_box1()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ssss()
    End Sub
End Class



asteapta ca pun proiectu aici ca e putin cam greu sa-ti explic steapta o secunda_

de aici poti descarca un proiect facut de mine acum asemanator cu ce vrei sa faci tu este o idee a algoritmului.



http://www.hotshare....7485566860.html




Public Class Form1

    Private Function variantaAB() As Boolean
        If CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = False Then
            MsgBox("Raspuns corect AB")
        Else

        End If
    End Function


    Private Function variantaA() As Boolean
        If CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = False Then
            MsgBox("Raspuns corect")
        Else

        End If
    End Function



    Private Function variantab() As Boolean
        If CheckBox2.Checked = True And CheckBox1.Checked = False And CheckBox3.Checked = False Then
            MsgBox("Raspuns corect 2")
        Else

        End If
    End Function


    Private Function VariantaC() As Boolean
        If CheckBox3.Checked = True And CheckBox1.Checked = False And CheckBox2.Checked = False Then
            MsgBox("Raspuns corect 3")
        Else

        End If
    End Function



    Private Function variantaac() As Boolean
        If CheckBox2.Checked = True And CheckBox3.Checked = True And CheckBox1.Checked = False Then
            MsgBox("Raspuns corect 3")
        Else
        End If
    End Function
    'si asa mai departe cu toater combinatiile de variante este cam mult de scris da merge
    'poti inlocui variantele abc de la parte profesori cu raspunsurile corecte


    Private Sub ssss()
        Dim doi As Integer
        doi = CheckBox5.Checked = True
        Dim trei As Integer


        trei = CheckBox6.Checked = True
        If CheckBox6.Checked = True Then
            variantaA()
        End If

        If CheckBox5.Checked = True Then
            variantab()
        End If
        If CheckBox4.Checked = True Then
            VariantaC()
        End If
        If doi And trei Then
            variantaAB()
        End If

        If CheckBox6.Checked = trei And CheckBox4.Checked = trei Then
            variantaac()
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ssss()
    End Sub

End Class

Edited by inter_softis_pc, 05 June 2010 - 14:26.

multumesc, nu stiam de posibilitatea "doi = CheckBox5.Checked = True"
o sa rumeg un pic algoritmul...

biceman, on 5th June 2010, 14:32, said:

cu placere.