corectare raspunsuri
Last Updated: Jun 05 2010 14:34, Started by
biceman
, Jun 05 2010 12:20
·
0
#1
Posted 05 June 2010 - 12:20
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...
|
#3
Posted 05 June 2010 - 13:12
din 5 casute numai una sa fie corecta?......ce optiune ai pentru test userul poate bifa una sau pe toate?
|
#4
Posted 05 June 2010 - 13:24
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 Attached FilesEdited by biceman, 05 June 2010 - 13:26. |
#5
Posted 05 June 2010 - 13:27
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 |
#6
Posted 05 June 2010 - 13:30
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. |
#7
Posted 05 June 2010 - 13:35
asta e pe vb 2008 express ...
biceman, on 5th June 2010, 13:30, said: 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 cate variante de raspuns sunt pentru toate testele? |
#8
Posted 05 June 2010 - 13:39
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. |
#9
Posted 05 June 2010 - 13:49
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_ |
#10
Posted 05 June 2010 - 14:23
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. |
|
#11
Posted 05 June 2010 - 14:32
multumesc, nu stiam de posibilitatea "doi = CheckBox5.Checked = True"
o sa rumeg un pic algoritmul... |
#12
Posted 05 June 2010 - 14:34
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users