Ad:

VB.NET Discussion Thread
Unsolved
Views: 42

Jul 31st, 2010

Need minor help on a program

Expand Post »

So in my class we are working with Arrays this week. We have to create a driver license exam program. It has to use multiple forms. First form the user inputs the answers then once he clicks the score button a new form pop's up stating the correct answers and how many he got correct. Now I created the program but have come across 2 problems.

FIRST:

VB.NET Syntax (Toggle Plain Text)
Private strCorrect As String=("B", "D", "A", "A", "C", "A", "B", "A", "C", "D", "B", "C", "D", "A", "D", "C", "C", "B", "D", "A")
Private strCorrect As String=("B", "D", "A", "A", "C", "A", "B", "A", "C", "D", "B", "C", "D", "A", "D", "C", "C", "B", "D", "A")

I get a error at the fist comma after "B" it wants me to replace the comma with a ) but then that would make the array not work.

SECOND:

VB.NET Syntax (Toggle Plain Text)
 Private Sub btnScore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScore.Click
        Dim Secound As New frmanswers
 
        frmanswers.Show()
 
        Dim intcount As Integer
 
        strUser(0) = cbo1.SelectedItem
        strUser(1) = cbo2.SelectedItem
        strUser(2) = cbo3.SelectedItem
        strUser(3) = cbo4.SelectedItem
        strUser(4) = cbo5.SelectedItem
        strUser(5) = cbo6.SelectedItem
        strUser(6) = cbo7.SelectedItem
        strUser(7) = cbo8.SelectedItem
        strUser(8) = cbo9.SelectedItem
        strUser(9) = cbo10.SelectedItem
        strUser(10) = cbo11.SelectedItem
        strUser(11) = cbo12.SelectedItem
        strUser(12) = cbo13.SelectedItem
        strUser(13) = cbo14.SelectedItem
        strUser(14) = cbo15.SelectedItem
        strUser(15) = cbo16.SelectedItem
        strUser(16) = cbo17.SelectedItem
        strUser(17) = cbo18.SelectedItem
        strUser(18) = cbo19.SelectedItem
        strUser(19) = cbo20.SelectedItem
 
        For x = 1 To 19
            If strCorrect(x) = strUser(x) Then
                intcount += 1
            End If
        Next
    End Sub
 Private Sub btnScore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScore.Click
        Dim Secound As New frmanswers

        frmanswers.Show()

        Dim intcount As Integer

        strUser(0) = cbo1.SelectedItem
        strUser(1) = cbo2.SelectedItem
        strUser(2) = cbo3.SelectedItem
        strUser(3) = cbo4.SelectedItem
        strUser(4) = cbo5.SelectedItem
        strUser(5) = cbo6.SelectedItem
        strUser(6) = cbo7.SelectedItem
        strUser(7) = cbo8.SelectedItem
        strUser(8) = cbo9.SelectedItem
        strUser(9) = cbo10.SelectedItem
        strUser(10) = cbo11.SelectedItem
        strUser(11) = cbo12.SelectedItem
        strUser(12) = cbo13.SelectedItem
        strUser(13) = cbo14.SelectedItem
        strUser(14) = cbo15.SelectedItem
        strUser(15) = cbo16.SelectedItem
        strUser(16) = cbo17.SelectedItem
        strUser(17) = cbo18.SelectedItem
        strUser(18) = cbo19.SelectedItem
        strUser(19) = cbo20.SelectedItem

        For x = 1 To 19
            If strCorrect(x) = strUser(x) Then
                intcount += 1
            End If
        Next
    End Sub

How do i get the answers from the user to transfer over to the other form where i have to display how many correct answers the user got correct?(hopefully the question does not confuse you)
I need the results of the loop to transfer over the the other form where the results is displayed onto a label. I will reply to the thread with the full code of the program that I have.

Last edited by wolfrain63; Jul 31st, 2010 at 3:33 pm.

Similar Threads

Python GUI Programming in Python
running c++ version 6.0 in C++
hospital management in C++
C++ Header Help in C++
Code for Call the program in Visual Basic in Visual Basic 4 / 5 / 6

wolfrain63

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Jul 2010

Permalink

Jul 31st, 2010

Re: Need minor help on a program

First form:

VB.NET Syntax (Toggle Plain Text)
Public Class Main
 
 
    Private strCorrect As String=("B", "D", "A", "A", "C", "A", "B", "A", "C", "D", "B", "C", "D", "A", "D", "C", "C", "B", "D", "A")
    Private strUser(19) As String
 
    Private Sub btnScore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScore.Click
        Dim Secound As New frmanswers
 
        frmanswers.Show()
 
        Dim intcount As Integer
 
        strUser(0) = cbo1.SelectedItem
        strUser(1) = cbo2.SelectedItem
        strUser(2) = cbo3.SelectedItem
        strUser(3) = cbo4.SelectedItem
        strUser(4) = cbo5.SelectedItem
        strUser(5) = cbo6.SelectedItem
        strUser(6) = cbo7.SelectedItem
        strUser(7) = cbo8.SelectedItem
        strUser(8) = cbo9.SelectedItem
        strUser(9) = cbo10.SelectedItem
        strUser(10) = cbo11.SelectedItem
        strUser(11) = cbo12.SelectedItem
        strUser(12) = cbo13.SelectedItem
        strUser(13) = cbo14.SelectedItem
        strUser(14) = cbo15.SelectedItem
        strUser(15) = cbo16.SelectedItem
        strUser(16) = cbo17.SelectedItem
        strUser(17) = cbo18.SelectedItem
        strUser(18) = cbo19.SelectedItem
        strUser(19) = cbo20.SelectedItem
 
        For x = 1 To 19
            If strCorrect(x) = strUser(x) Then
                intcount += 1
            End If
        Next
    End Sub
 
End Class
Public Class Main


    Private strCorrect As String=("B", "D", "A", "A", "C", "A", "B", "A", "C", "D", "B", "C", "D", "A", "D", "C", "C", "B", "D", "A")
    Private strUser(19) As String

    Private Sub btnScore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScore.Click
        Dim Secound As New frmanswers

        frmanswers.Show()

        Dim intcount As Integer

        strUser(0) = cbo1.SelectedItem
        strUser(1) = cbo2.SelectedItem
        strUser(2) = cbo3.SelectedItem
        strUser(3) = cbo4.SelectedItem
        strUser(4) = cbo5.SelectedItem
        strUser(5) = cbo6.SelectedItem
        strUser(6) = cbo7.SelectedItem
        strUser(7) = cbo8.SelectedItem
        strUser(8) = cbo9.SelectedItem
        strUser(9) = cbo10.SelectedItem
        strUser(10) = cbo11.SelectedItem
        strUser(11) = cbo12.SelectedItem
        strUser(12) = cbo13.SelectedItem
        strUser(13) = cbo14.SelectedItem
        strUser(14) = cbo15.SelectedItem
        strUser(15) = cbo16.SelectedItem
        strUser(16) = cbo17.SelectedItem
        strUser(17) = cbo18.SelectedItem
        strUser(18) = cbo19.SelectedItem
        strUser(19) = cbo20.SelectedItem

        For x = 1 To 19
            If strCorrect(x) = strUser(x) Then
                intcount += 1
            End If
        Next
    End Sub

End Class

Second Form:

VB.NET Syntax (Toggle Plain Text)
Public Class frmanswers
 
    Private Sub Secound_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblAnswers.Text=
 
    End Sub
 
End Class
Public Class frmanswers

    Private Sub Secound_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblAnswers.Text=

    End Sub

End Class

End Class

Last edited by wolfrain63; Jul 31st, 2010 at 3:33 pm.

wolfrain63

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Jul 2010

Permalink

Jul 31st, 2010

Re: Need minor help on a program

OK so I figured out my first problem I have to use { instead of )

feel kinda dumb now. But still need help on my second problem.

wolfrain63

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Jul 2010

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: Student: Need help adding value to items in text box from list box in order to calc

Next Thread in VB.NET Forum Timeline: Advanced Printing in VB.net

DaniWeb Message

Cancel Changes

User Name
Password