New Topic/Question
Reply
Posted 10 April 2009 - 10:00 PM
i was given an assignment to make a scorebored and a controler that could score several different sports. (soccer, net ball, basket ball and base ball) the bored needs to contain time, score, qtr, foul... and they need to be in 7 segment display... the timer needs to be adjustable for different sport...allowed anything just as long as it looks like 7 segment... and both the scoreboard and controller is the program i need to make on vb... not a program to an actsual board and control.... if you know how or anyone that knows how... please help...anyone out there that can help...
5 Replies - 586 Views - Last Post: 26 April 2009 - 12:00 AM
Rate Topic:
MultiQuoteReplies To: Urgent...scoreboard madness!
#2
Core
- using System.Linq;
-
Reputation: 764
- Posts: 5,095
- Joined: 08-December 08
Re: Urgent...scoreboard madness!
Posted 10 April 2009 - 10:03 PM
Dream.In.Code has a policy by which we prefer to see a good faith effort on your part before providing source code for homework assignments. Please post the code you have written in an effort to resolve the problem, and our members would be happy to provide some guidance. Be sure to include a description of any errors you are encountering as well.
Post your code like this:
Thanks.
Post your code like this:
Thanks.
Was This Post Helpful?
0
#3
F.H.D
- New D.I.C Head
Reputation: 0
- Posts: 1
- Joined: 24-April 09
Re: Urgent...scoreboard madness!
Posted 25 April 2009 - 09:12 AM
hello im am completely new to this website and so i dont know whether i should ask this question in this thread or start a new one. I have the exact same assignment as stated above and i need a bit of help amd as you might have guessed i am also very new to programming aswell, at the moment i am doing the 7 segment clock but there are a few problems:
1. is that for every 10 seconds displayed (whereas the numbers start at zero and go thru nine to start again at zero) it actually takes 11 seconds because when it changes the next digit (the tens of seconds) it takes an extra second to do so.
2. is that zero will not be diplayed as soon as 60 seconds pass it goes straight to "10" seconds
here is the code:
that is the entire code sorry that it is a bit long i added the extra bits at the top just in case you suggested that i do what i have already done.
please get back to me as quickly as possible i would really like to get back to this soon (only partly because it is due soon)
many thanks
F.H.D
1. is that for every 10 seconds displayed (whereas the numbers start at zero and go thru nine to start again at zero) it actually takes 11 seconds because when it changes the next digit (the tens of seconds) it takes an extra second to do so.
2. is that zero will not be diplayed as soon as 60 seconds pass it goes straight to "10" seconds
here is the code:
Dim Time, tens As Integer Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tmrcdown.Enabled = False Then tmrcdown.Enabled = True Else: tmrcdown.Enabled = False End If End If End Sub Private Sub tmrcdown_Timer() If Time = 10 Then Time = 0 Else Time = Time + 1 End If Select Case Time Case 1 linesec1.Visible = False linesec2.Visible = False linesec3.Visible = True linesec4.Visible = False linesec5.Visible = False linesec6.Visible = True linesec7.Visible = False Case 2 linesec1.Visible = True linesec2.Visible = False linesec3.Visible = True linesec4.Visible = True linesec5.Visible = True linesec6.Visible = False linesec7.Visible = True Case 3 linesec1.Visible = True linesec2.Visible = False linesec3.Visible = True linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = True Case 4 linesec1.Visible = False linesec2.Visible = True linesec3.Visible = True linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = False Case 5 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = False linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = True Case 6 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = False linesec4.Visible = True linesec5.Visible = True linesec6.Visible = True linesec7.Visible = True Case 7 linesec1.Visible = True linesec2.Visible = False linesec3.Visible = True linesec4.Visible = False linesec5.Visible = False linesec6.Visible = True linesec7.Visible = False Case 8 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = True linesec4.Visible = True linesec5.Visible = True linesec6.Visible = True linesec7.Visible = True Case 9 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = True linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = True Case 10 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = True linesec4.Visible = False linesec5.Visible = True linesec6.Visible = True linesec7.Visible = True End Select If tens = 5 Then tens = 0 End If If Time = 0 Then tens = tens + 1 End If Select Case tens Case 1 lineten1.Visible = False lineten2.Visible = False lineten3.Visible = True lineten4.Visible = False lineten5.Visible = False lineten6.Visible = True lineten7.Visible = False Case 2 lineten1.Visible = True lineten2.Visible = False lineten3.Visible = True lineten4.Visible = True lineten5.Visible = True lineten6.Visible = False lineten7.Visible = True Case 3 lineten1.Visible = True lineten2.Visible = False lineten3.Visible = True lineten4.Visible = True lineten5.Visible = False lineten6.Visible = True lineten7.Visible = True Case 4 lineten1.Visible = False lineten2.Visible = True lineten3.Visible = True lineten4.Visible = True lineten5.Visible = False lineten6.Visible = True lineten7.Visible = False Case 5 lineten1.Visible = True lineten2.Visible = True lineten3.Visible = False lineten4.Visible = True lineten5.Visible = False lineten6.Visible = True lineten7.Visible = True Case 6 lineten1.Visible = True lineten2.Visible = True lineten3.Visible = True lineten4.Visible = False lineten5.Visible = True lineten6.Visible = True lineten7.Visible = True End Select End Sub
that is the entire code sorry that it is a bit long i added the extra bits at the top just in case you suggested that i do what i have already done.
please get back to me as quickly as possible i would really like to get back to this soon (only partly because it is due soon)
many thanks
F.H.D
Was This Post Helpful?
0
#4
demoshand
- New D.I.C Head
Reputation: 0
- Posts: 3
- Joined: 10-April 09
Re: Urgent...scoreboard madness!
Posted 25 April 2009 - 05:52 PM
F.H.D, on 25 Apr, 2009 - 08:12 AM, said:
hello im am completely new to this website and so i dont know whether i should ask this question in this thread or start a new one. I have the exact same assignment as stated above and i need a bit of help amd as you might have guessed i am also very new to programming aswell, at the moment i am doing the 7 segment clock but there are a few problems:
1. is that for every 10 seconds displayed (whereas the numbers start at zero and go thru nine to start again at zero) it actually takes 11 seconds because when it changes the next digit (the tens of seconds) it takes an extra second to do so.
2. is that zero will not be diplayed as soon as 60 seconds pass it goes straight to "10" seconds
here is the code:
that is the entire code sorry that it is a bit long i added the extra bits at the top just in case you suggested that i do what i have already done.
please get back to me as quickly as possible i would really like to get back to this soon (only partly because it is due soon)
many thanks
F.H.D
1. is that for every 10 seconds displayed (whereas the numbers start at zero and go thru nine to start again at zero) it actually takes 11 seconds because when it changes the next digit (the tens of seconds) it takes an extra second to do so.
2. is that zero will not be diplayed as soon as 60 seconds pass it goes straight to "10" seconds
here is the code:
Dim Time, tens As Integer Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If tmrcdown.Enabled = False Then tmrcdown.Enabled = True Else: tmrcdown.Enabled = False End If End If End Sub Private Sub tmrcdown_Timer() If Time = 10 Then Time = 0 Else Time = Time + 1 End If Select Case Time Case 1 linesec1.Visible = False linesec2.Visible = False linesec3.Visible = True linesec4.Visible = False linesec5.Visible = False linesec6.Visible = True linesec7.Visible = False Case 2 linesec1.Visible = True linesec2.Visible = False linesec3.Visible = True linesec4.Visible = True linesec5.Visible = True linesec6.Visible = False linesec7.Visible = True Case 3 linesec1.Visible = True linesec2.Visible = False linesec3.Visible = True linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = True Case 4 linesec1.Visible = False linesec2.Visible = True linesec3.Visible = True linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = False Case 5 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = False linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = True Case 6 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = False linesec4.Visible = True linesec5.Visible = True linesec6.Visible = True linesec7.Visible = True Case 7 linesec1.Visible = True linesec2.Visible = False linesec3.Visible = True linesec4.Visible = False linesec5.Visible = False linesec6.Visible = True linesec7.Visible = False Case 8 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = True linesec4.Visible = True linesec5.Visible = True linesec6.Visible = True linesec7.Visible = True Case 9 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = True linesec4.Visible = True linesec5.Visible = False linesec6.Visible = True linesec7.Visible = True Case 10 linesec1.Visible = True linesec2.Visible = True linesec3.Visible = True linesec4.Visible = False linesec5.Visible = True linesec6.Visible = True linesec7.Visible = True End Select If tens = 5 Then tens = 0 End If If Time = 0 Then tens = tens + 1 End If Select Case tens Case 1 lineten1.Visible = False lineten2.Visible = False lineten3.Visible = True lineten4.Visible = False lineten5.Visible = False lineten6.Visible = True lineten7.Visible = False Case 2 lineten1.Visible = True lineten2.Visible = False lineten3.Visible = True lineten4.Visible = True lineten5.Visible = True lineten6.Visible = False lineten7.Visible = True Case 3 lineten1.Visible = True lineten2.Visible = False lineten3.Visible = True lineten4.Visible = True lineten5.Visible = False lineten6.Visible = True lineten7.Visible = True Case 4 lineten1.Visible = False lineten2.Visible = True lineten3.Visible = True lineten4.Visible = True lineten5.Visible = False lineten6.Visible = True lineten7.Visible = False Case 5 lineten1.Visible = True lineten2.Visible = True lineten3.Visible = False lineten4.Visible = True lineten5.Visible = False lineten6.Visible = True lineten7.Visible = True Case 6 lineten1.Visible = True lineten2.Visible = True lineten3.Visible = True lineten4.Visible = False lineten5.Visible = True lineten6.Visible = True lineten7.Visible = True End Select End Sub
that is the entire code sorry that it is a bit long i added the extra bits at the top just in case you suggested that i do what i have already done.
please get back to me as quickly as possible i would really like to get back to this soon (only partly because it is due soon)
many thanks
F.H.D
Was This Post Helpful?
0
#5
demoshand
- New D.I.C Head
Reputation: 0
- Posts: 3
- Joined: 10-April 09
Re: Urgent...scoreboard madness!
Posted 25 April 2009 - 06:03 PM
i actusually used the 7 seg built in function...lol
i can get it to count up... but have'n problem counting down...
this is my code for counting up.... stick it on a timer... interval = 1000 (1sec)
i made the 7 seg an array...
i can get it to count up... but have'n problem counting down...
this is my code for counting up.... stick it on a timer... interval = 1000 (1sec)
i made the 7 seg an array...
private sub timer1_time () static nmr dim strnmr as string nmr = nmr + 1 strnmr = format(nmr, "00") for n = 0 to 1 ssTime(n).DisplayNumber = mid(strnmr, n + 1, 1) next n end sub
Was This Post Helpful?
0
Page 1 of 1
|
|
| 