Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Network Signal Guru

Cum se monteaza obiectul asta?

Curent AC produs de alternator
 GDPR | Algoritm computer vision p...

Elvetia considera interzicerea el...

Windows Defender recuperare

Hackintosh Ryzen 5600g fara placa...
 Cum izolez acest fir?

rtorrent - scripting

TV LG 49UB850V-ZD, musculita in e...

Montare clapeta antiretur la hota
 laptop nou + licenta windows

Unbelievable - De Necrezut -2019 ...

Recomandare achizitie instant ap...

Cand iau pensia pensionarii a car...
 

corectare raspunsuri

- - - - -
  • Please log in to reply
11 replies to this topic

#1
biceman

biceman

    Member

  • Grup: Members
  • Posts: 922
  • Înscris: 19.06.2006
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...

#2
luk4

luk4

    Senior Member

  • Grup: Senior Members
  • Posts: 2,149
  • Înscris: 29.04.2008
Veri aria de programming :)

#3
inter_softis_pc

inter_softis_pc

    Junior Member

  • Grup: Members
  • Posts: 31
  • Înscris: 12.02.2010
din 5 casute numai una sa fie corecta?......ce optiune ai pentru test userul poate bifa una sau pe toate?

#4
biceman

biceman

    Member

  • Grup: Members
  • Posts: 922
  • Înscris: 19.06.2006
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 Files


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


#5
inter_softis_pc

inter_softis_pc

    Junior Member

  • Grup: Members
  • Posts: 31
  • Înscris: 12.02.2010
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
biceman

biceman

    Member

  • Grup: Members
  • Posts: 922
  • Înscris: 19.06.2006
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
inter_softis_pc

inter_softis_pc

    Junior Member

  • Grup: Members
  • Posts: 31
  • Înscris: 12.02.2010
asta e pe vb 2008 express ...

View Postbiceman, 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
biceman

biceman

    Member

  • Grup: Members
  • Posts: 922
  • Înscris: 19.06.2006
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
inter_softis_pc

inter_softis_pc

    Junior Member

  • Grup: Members
  • Posts: 31
  • Înscris: 12.02.2010
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_:D

#10
inter_softis_pc

inter_softis_pc

    Junior Member

  • Grup: Members
  • Posts: 31
  • Înscris: 12.02.2010
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
biceman

biceman

    Member

  • Grup: Members
  • Posts: 922
  • Înscris: 19.06.2006
multumesc, nu stiam de posibilitatea "doi = CheckBox5.Checked = True"
o sa rumeg un pic algoritmul...

#12
inter_softis_pc

inter_softis_pc

    Junior Member

  • Grup: Members
  • Posts: 31
  • Înscris: 12.02.2010

View Postbiceman, on 5th June 2010, 14:32, said:

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

cu placere.

Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate