Timer problem...

[ultimia]

i'm trying to create a timer that starts when someone clicks a button to start an online test and then ends once the time expires, heres the code. Can someone tell me whats wrong with it?

Protected Sub start_timer(ByVal source As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = False
        Timer1.AutoReset = False
        AddHandler Timer1.Elapsed, AddressOf Timer1_Elapsed
        Timer1.Interval = 60000
        Timer1.Start()
    End Sub

[Fishcake]

I just cut and pasted your code and everything worked fine, in what way isn't it working?

[ultimia]

hmm well apparently, the code runs, but for some reason nothing happens on the page... do you have a possible explanation for that?

[nemaroller]

Ultima....

Are you using a browser other than IE6 for testing?

[ultimia]

yah, i'm using IE6, when i ran the test, breakpoints tell me that the timer is running, but it doesn't perform any of the commands once it hits the Timer1_Elapsed sub, heres that code for reference

Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        Timer1.Stop()
        Dim qchoice = Session.Item("num")
        Dim statnumber As Integer
        Dim myquestions = Session.Item("ack")
        Dim dchoice = qchoice + 1
        Dim blank As Integer = 9 - qchoice
        Dim idnumber = Session.Item("ID")
        Dim myconnection As SqlConnection = New SqlConnection("server=(local);database=test1;trusted_connection=sspi")
        Dim markinc As SqlCommand = New SqlCommand("update quiz2 set numberincorrect = numberincorrect + " & CStr(blank) & " where id= " & idnumber, myconnection)
        Dim markblank As SqlCommand = New SqlCommand("update quiz1 set blank = blank + " & CStr(blank) & " where id= " & dchoice, myconnection)
        myconnection.Open()
        If rb.SelectedValue <> Nothing Then
            For statnumber = 1 To 4
                If rb.SelectedItem.Text = myquestions(qchoice, statnumber) Then
                    Dim statcommand As SqlCommand = New SqlCommand("update quiz1 set r" & CStr(statnumber) & "= r" & CStr(statnumber) & "+ 1 where id=" & dchoice, myconnection)
                    statcommand.ExecuteNonQuery()
                    'marks the selected question into the stat report
                End If
            Next
            If acawtd(rb.SelectedItem.Text) = True Then
                Dim mycommand As SqlCommand = New SqlCommand("update quiz2 set numbercorrect = numbercorrect +1 where id=" & idnumber, myconnection)
                mycommand.ExecuteNonQuery()
                'marks the selected question as right 
            Else
                Dim mycommand As SqlCommand = New SqlCommand("update quiz2 set numberincorrect = numberincorrect +1 where id=" & idnumber, myconnection)
                mycommand.ExecuteNonQuery()
                'marks the selected question as  wrong
            End If
        Else
            Dim mycommand As SqlCommand = New SqlCommand("update quiz2 set numberincorrect = numberincorrect + 1 where id= " & idnumber, myconnection)
            Dim tucommand As SqlCommand = New SqlCommand("update quiz1 set blank = blank + 1 where id= " & dchoice, myconnection)
            'if the thing is left blank, it'll jump to here and just mark it blank
        End If
        markinc.ExecuteNonQuery()
        markblank.ExecuteNonQuery()
        'marks up the remaining questions that arn't answered
        myconnection.Close()
        lbl4.Text = "you have finished the test"
        button2.Visible = False
        rb.Visible = False
        Session.RemoveAll()
        Button1.Visible = True
        lbl1.Visible = True
        lbl2.Visible = True
        lbl3.Visible = True
        txt1.Visible = True
        txt2.Visible = True
        txt3.Visible = True
    End Sub

Thanks again for helping

[Fishcake]

lbl4.Text = "you have finished the test"
        button2.Visible = False
        rb.Visible = False
        Button1.Visible = True
        lbl1.Visible = True
        lbl2.Visible = True
        lbl3.Visible = True
        txt1.Visible = True
        txt2.Visible = True
        txt3.Visible = True

I'd expect all the code to run except these lines so i guess now you'll have to figure out a way of making the screen refresh or the control to cause a postback.

I'd expect it could be done if you made your own custom control using a timer but i've never tried anything like that......

[Fishcake]

just found this article and it all looks easy enough to achieve afterall, I''m going to leave reading it until tomorrow though i've had enough for today.

[ultimia]

oo wow, thanks for the article, i'll take a look at it, THANKS!