Can someone tell me why my timer variable won't reset [DBP]

Author

Message

Steel

18

Years of Service

User Offline

Joined: 7th Apr 2006

Location:

Posted: 19th May 2006 21:03

Link

Pleas Help

Back to top

Profile PM

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 19th May 2006 21:15 Edited at: 19th May 2006 21:22

Link

You already posted this, and Iam M answered you. You can't reset the system timer. It's a Read Only function.

MyTime=timer()

If you look at the code snippet in your other thread you will see that it can be simulated. You just use whatever the starttime is and then subtract any further time.

so StartTime would be:

+ Code Snippet

`at the beignning of the program
StarTime=timer()

` in your program to get the current timer
MyTime=timer()

`To find out how much time has passed
TimePassed=MyTime-StartTime

to reset the time to the simulated 0 or beginning
MyTime=StartTime

Please have another look at Ian M's Snippet.

Back to top

Profile PM Email

Steel

18

Years of Service

User Offline

Joined: 7th Apr 2006

Location:

Posted: 19th May 2006 21:23

Link

I had source code there and I needed help with that.

Back to top

Profile PM

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 19th May 2006 21:27 Edited at: 19th May 2006 21:33

Link

OOps sorry. I didn't see the source button. I'll have a look now and see if i can find the problem.

[edit] OK I had a look at it. It's just hard to follow at all that multiple nested code without some form indentation and specing. I don't have my DBpro editor right now, but I can take a look later tonight if no one else has helped you by then.

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 20th May 2006 01:49

Link

@Steel,

I've indented the code for you. You really should make this a habit, as you will only be helping yourself in the long run as your programs get longer - the structure becomes immediately apparent with indentation.

Unfortunately, I'm too tired ATM to work out exactly what this code is doing right now, especially without any clues or jpgs to work with, so I'm gonna leave it here tonight.

Still no sense wasting the time spent on indenting ...

Rem Project: Wheel Promotion
Rem Created: 4/6/2006 3:12:41 AM

Rem ***** Main Source File *****
sync rate 0
Set Display Mode 1280, 1024, 32
Start = Timer()
Load Image "Background.jpg", 1
Load Image "Wheel.png", 2
Load Image "Boards.png", 3
Load Image "Logo.png", 4
Load Image "Club.jpg", 5
Load Image "Longboard.jpg", 6
Load sound "clicking.wav",1
Sprite 1,985,800,2
Sprite 2,0,0,1
Sprite 3,0,0,3
Sprite 4,0,160,4
Sprite 5,0,0,5
Sprite 6,0,0,6
offset sprite 1,630,630
Set Sprite Priority 2,0
Set Sprite Priority 1,1
Set Sprite Priority 3,2
Set Sprite Priority 4,2

Do
   show sprite 1
   show sprite 2
   show sprite 3
   show sprite 4
   hide sprite 5
   hide sprite 6
   if returnkey()=1
      Play sound 1
      loop sound 1
      while spacekey()=0
         show sprite 1
         show sprite 2
         show sprite 3
         show sprite 4
         hide sprite 5
         hide sprite 6
         rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
         sync
      endwhile
   endif
   If Spacekey()=1
      Stop sound 1
      Start = Timer()
   endif
   if Timer()- Start > 0
      While Timer()- Start < 240000
         show sprite 1
         show sprite 2
         show sprite 3
         show sprite 4
         hide sprite 5
         hide sprite 6
         If returnkey()=1
            Play sound 1
            Loop sound 1
            while Spacekey()=0
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
               If Spacekey()=1
                  Stop sound 1
               Endif
            Endwhile
         Endif
      Endwhile
   Endif
   If Timer()- Start > 240000
      While Timer()- Start < 300000
         show sprite 5
         hide Sprite 1
         hide Sprite 2
         hide Sprite 3
         hide Sprite 4
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 300000
      While Timer()- Start < 360000
         show sprite 6
         hide Sprite 5
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 360000
      while Timer()- Start < 600000
         Hide Sprite 6
         Sprite 1,985,800,2
         Sprite 2,0,0,1
         Sprite 3,0,0,3
         Sprite 4,0,160,4
         offset sprite 1,630,630
         Set Sprite Priority 2,0
         Set Sprite Priority 1,1
         Set Sprite Priority 3,2
         Set Sprite Priority 4,2
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 600000
      While Timer()- Start < 660000
         show sprite 5
         Hide Sprite 1
         Hide Sprite 2
         Hide Sprite 3
         Hide Sprite 4
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 660000
      While Timer()- Start > 720000
         show sprite 6
         Hide Sprite 7
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         if spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 720000
      Sprite 1,985,800,2
      Sprite 2,0,0,1
      Sprite 3,0,0,3
      Sprite 4,0,160,4
      offset sprite 1,630,630
      Set Sprite Priority 2,0
      Set Sprite Priority 1,1
      Set Sprite Priority 3,2
      Set Sprite Priority 4,2
      Hide Sprite 8
      Start = Timer()
      if returnkey()=1
         Play sound 1
         loop sound 1
         while spacekey()=0
            show sprite 1
            show sprite 2
            show sprite 3
            show sprite 4
            hide sprite 5
            hide sprite 6
            rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
            sync
         endwhile
      endif
      If Spacekey()=1 then Start = Timer()
      If Spacekey()=1
         Stop sound 1
      endif
   Endif

rem make sure to sync outside of the while loop
   sync
loop

+ Code Snippet

Rem Project: Wheel Promotion
Rem Created: 4/6/2006 3:12:41 AM

Rem ***** Main Source File *****
sync rate 0
Set Display Mode 1280, 1024, 32
Start = Timer()
Load Image "Background.jpg", 1
Load Image "Wheel.png", 2
Load Image "Boards.png", 3
Load Image "Logo.png", 4
Load Image "Club.jpg", 5
Load Image "Longboard.jpg", 6
Load sound "clicking.wav",1
Sprite 1,985,800,2
Sprite 2,0,0,1
Sprite 3,0,0,3
Sprite 4,0,160,4
Sprite 5,0,0,5
Sprite 6,0,0,6
offset sprite 1,630,630
Set Sprite Priority 2,0
Set Sprite Priority 1,1
Set Sprite Priority 3,2
Set Sprite Priority 4,2

Do
   show sprite 1
   show sprite 2
   show sprite 3
   show sprite 4
   hide sprite 5
   hide sprite 6
   if returnkey()=1
      Play sound 1
      loop sound 1
      while spacekey()=0
         show sprite 1
         show sprite 2
         show sprite 3
         show sprite 4
         hide sprite 5
         hide sprite 6
         rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
         sync
      endwhile
   endif
   If Spacekey()=1
      Stop sound 1
      Start = Timer()
   endif
   if Timer()- Start > 0
      While Timer()- Start < 240000
         show sprite 1
         show sprite 2
         show sprite 3
         show sprite 4
         hide sprite 5
         hide sprite 6
         If returnkey()=1
            Play sound 1
            Loop sound 1
            while Spacekey()=0
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
               If Spacekey()=1
                  Stop sound 1
               Endif
            Endwhile
         Endif
      Endwhile
   Endif
   If Timer()- Start > 240000
      While Timer()- Start < 300000
         show sprite 5
         hide Sprite 1
         hide Sprite 2
         hide Sprite 3
         hide Sprite 4
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 300000
      While Timer()- Start < 360000
         show sprite 6
         hide Sprite 5
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 360000
      while Timer()- Start < 600000
         Hide Sprite 6
         Sprite 1,985,800,2
         Sprite 2,0,0,1
         Sprite 3,0,0,3
         Sprite 4,0,160,4
         offset sprite 1,630,630
         Set Sprite Priority 2,0
         Set Sprite Priority 1,1
         Set Sprite Priority 3,2
         Set Sprite Priority 4,2
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 600000
      While Timer()- Start < 660000
         show sprite 5
         Hide Sprite 1
         Hide Sprite 2
         Hide Sprite 3
         Hide Sprite 4
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         If Spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 660000
      While Timer()- Start > 720000
         show sprite 6
         Hide Sprite 7
         if returnkey()=1
            Play sound 1
            loop sound 1
            while spacekey()=0
               show sprite 1
               show sprite 2
               show sprite 3
               show sprite 4
               hide sprite 5
               hide sprite 6
               rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
               Start = Timer()
               sync
            endwhile
         endif
         If Spacekey()=1 then Start = Timer()
         if spacekey()=1
            Stop sound 1
         endif
      Endwhile
   Endif
   If Timer()- Start > 720000
      Sprite 1,985,800,2
      Sprite 2,0,0,1
      Sprite 3,0,0,3
      Sprite 4,0,160,4
      offset sprite 1,630,630
      Set Sprite Priority 2,0
      Set Sprite Priority 1,1
      Set Sprite Priority 3,2
      Set Sprite Priority 4,2
      Hide Sprite 8
      Start = Timer()
      if returnkey()=1
         Play sound 1
         loop sound 1
         while spacekey()=0
            show sprite 1
            show sprite 2
            show sprite 3
            show sprite 4
            hide sprite 5
            hide sprite 6
            rotate sprite 1,wrapvalue(sprite angle(1)+(0.2*200))
            sync
         endwhile
      endif
      If Spacekey()=1 then Start = Timer()
      If Spacekey()=1
         Stop sound 1
      endif
   Endif

   rem make sure to sync outside of the while loop
   sync
loop

For free Plug-ins and source code http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Pincho Paxton

21

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 20th May 2006 02:41

Link

I do this...

if Start <= Timer()
Start = Timer() + 240000
(Then do your code)

Endif

But for the second loop you can't use Start again, because you mustn't change it twice. You would have to use Start2 or something. You are using it several times, and I think you keep resetting it before it should be reset, although it is hard to tell.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Can someone tell me why my timer variable won't reset [DBP]