새 창에서 asp.net VB

Question

나는 우리 회사에서 뭔가 작업중인 멍청한 progammer입니다. 나는 훈련을 위해 퀴즈 엔진을 연구 중이다. 약 90 % 빌드 된 일부 샘플 코드가 있습니다. 나는 단지 몇 가지를 조정할 필요가 있습니다. 여기에 내가하고있는 일이있다.

이것은 ASP.net에 VB가 내장되어 있습니다. 나는 데이터베이스에서 (내장 된 SQLDataSource 바인딩을 사용하여) 당기는 질문들을 가지고있다. 현재는 대답을 선택하고, 대답을 선택하고, 다음을 클릭한다. 목록 등 .... 끝까지. 데이터베이스에는 정답을 나타내는 열이 있습니다. 다음을 클릭하면 정답에 대한 답을 작성하고 저장 한 후 다음 질문으로 계속 진행합니다. 마지막으로 정답과 오답을 뱉어냅니다.

그러나 사용자가 답변을 선택하고 다음을 클릭하면 바로 작은 새 창이 열립니다 (팝 - 그 질문을 즉시 "채점"하고 그 창에서 올바른지를 보여줍니다.

If selected answer = correctAnswer then 
"That is correct" 
Else 
"THat is not correct. The correct answer is B" 
End if 

새 창에는 하단 모서리에만 "확인"버튼이 있습니다. 확인을 누르면 새 창을 닫고 "다음"버튼이 수행하도록 프로그래밍 된 나머지 부분을 처리합니다. 당신이 도움이 될 것입니다 내가 원하는 코드를 제공 할 수있는 경우

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)  Handles buttonNext.Click 


    ' Save off previous answers 
    Dim dr As System.Data.DataRowView 
    dr = CType(questionDetails.DataItem, System.Data.DataRowView) 

    ' Create Answer object to save values 
    Dim a As Answer = New Answer() 
    a.QuestionID = dr("QuestionOrder").ToString() 
    a.CorrectAnswer = dr("CorrectAnswer").ToString() 
    a.UserAnswer = answerDropDownList.SelectedValue.ToString() 

    Dim al As ArrayList 
    al = CType(Session("AnswerList"), ArrayList) 
    al.Add(a) 

    Session.Add("AnswerList", al) 

    If questionDetails.PageIndex = questionDetails.PageCount - 1 Then 
     ' Go to evaluate answers 
     Response.Redirect("results.aspx") 
    Else 
     questionDetails.PageIndex += 1 
    End If 

    If questionDetails.PageIndex = questionDetails.PageCount - 1 Then 
     buttonNext.Text = "Finished" 
    End If 

End Sub 

: 여기

<asp:Button ID="buttonNext" runat="server" Text="Next" />&nbsp;</td> 

그와 함께 갈 수있는 Questions.aspx.VB 코드 : 여기에 버튼입니다. 도움에 미리 감사드립니다.

팀

Answer 1

이것은 상당히 직선적이어야합니다. 이미 정답을 검색 했으므로 다른 전화를 할 필요가 없습니다.

페이지에서 채점 및 확인 버튼을 살 곳을 만들어야합니다. 이 같은 뭔가 충분 :

<div id="gradeWindow" runat="server" visible="false"> 
<asp:label id="gradeLabel" runat="server" text="" /> 
<asp:button id="gradeOK" runat="server" text="OK" onclick="gradeOK_Clicked" /> 
</div> 

그런 다음 당신이 당신의 과정이가 퀴즈를 멀리 할 것 1. 조금, 두 가지 이유를 다시 생각해야하는이

Session.Add("AnswerList", al) 

If String.Compare(a.UserAnswer, a.CorrectAnswer) = 0 then 
    gradeLabel.Text = "That is correct" 
Else 
    gradeLabel.Text = "That is not correct. The correct answer is " + a.CorrectAnswer 
EndIf 

gradeWindow.Visible = true 

End Sub 

Protected Sub gradeOK_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) 
If questionDetails.PageIndex = questionDetails.PageCount - 1 
    Then                
    Response.Redirect("results.aspx") 
Else         
    questionDetails.PageIndex += 1        
End If              
If questionDetails.PageIndex = questionDetails.PageCount - 1 
    Then         
    buttonNext.Text = "Finished"        
End If 
End Sub