QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Craz1000 on May 11, 2020, 06:37:20 pm

Title: _LIMIT and Windows Server 2016
Post by: Craz1000 on May 11, 2020, 06:37:20 pm

I noticed on my windows server machine the _LIMIT command does not seem to work. The cpu usage always stays high for some reason. And when i run the same exe on a windows 10 machine cpu usage drops when it is supposed to.

Anyone else run into this or know a work around?

Title: Re: _LIMIT and Windows Server 2016
Post by: SMcNeill on May 11, 2020, 08:51:59 pm

_LIMIT is an automatic variable speed delay.

DO
  _LIMIT 30
  PRINT "HELLO WORLD"
LOOP

Now, on a modern PC with an i9 processor, the limit will be extremely close to 1/30th of a second per loop.

Run the same program on an old 386 computer and it may have difficulty just attempting to print "HELLO WORLD" 30 times in a second.  If your old PC can only print "HELLO WORLD" 22 times per second, then the limit is going to be 0 -- it's *NOT* going to do anything.

_LIMIT slows your machine down to a MAXIMUM number of loops per second, which you specify.  If your PC can't perform more loops than that maximum, it does nothing -- which isn't going to give any time for CPU usage to drop.

It sounds like your windows server runs slower than your windows 10 machine, requiring intense CPU usage to try and perform at the_LIMIT you have set.  If that's the case, you can either swap to a hard-coded _DELAY, or else just use a lower _LIMIT on the slower machine.

Title: Re: _LIMIT and Windows Server 2016
Post by: Craz1000 on May 11, 2020, 11:16:31 pm

Hmm. After reading your post I ran to my server with the thought... “Of course!” Then I looked at the code and saw the _Limit at that loop is set to 5. Then i sat there scratching my head.

I have high doubts the i5 in the server, that is newer than the I7 on my windows 10 machine by at least 5 years is having issues reaching over 5 loops a second. I am beginning to think it may be a Server 2016 issue that is preventing the throttle. I will try to change everything to _Delay. See what happens. It will have to wait until I get home.. silly job has me traveling.

Title: Re: _LIMIT and Windows Server 2016
Post by: SMcNeill on May 12, 2020, 12:21:20 am

If you're curious, the code we use for limit is here:

Code: [Select]

void sub__limit(double fps){
    if (new_error) return;
    static double prev=0;
    double ms,now,elapsed;//cannot be static
    if (fps<=0.0){error(5); return;}
    ms=1000.0/fps;
    if (ms>60000.0){error(5); return;}//max. 1 min delay between frames allowed to avoid accidental lock-up of program
    recalculate:
    now=GetTicks();
    if (prev==0.0){//first call?
        prev=now;
        return;
    }
    if (now<prev){//value looped?
        prev=now;
        return;
    }
    elapsed=now-prev;//elapsed time since prev
   
    if (elapsed==ms){
        prev=prev+ms;
        return;
    }
   
    if (elapsed<ms){
        int64 wait;//cannot be static
        wait=ms-elapsed;
        if (!wait) wait=1;
        if (wait>=10){
            Sleep(9);
            evnt(0);//check for new events
            }else{
            Sleep(wait); 
        }
        //recalculate time
        goto recalculate;
    }
   
    //too long since last call, adjust prev to current time
    //minor overshoot up to 32ms is recovered, otherwise time is re-seeded
    if (elapsed<=(ms+32.0)) prev=prev+ms; else prev=now;
}
Looking it over, I can't see anything which would fail to compile and work properly on Windows Server 2016.

If you're proficient in c, you can c that the routine basically does as I mentioned above: automatically calculates the delay necessary to obtain a maximum fps equal to your _LIMIT.  If your program runs too slow to go over your set limit, it basically does nothing to pause operation (that's our call to Sleep, if it's needed at the end of the routine).

I'm not sure why a _LIMIT 5 might be getting ignored, without seeing the code itself.  Could it be that your program is using multiple _LIMIT statements in it, and tossing off those internal static variables?  (Such as a _LIMIT in the main loop, and then one in an input loop to check keypresses elsewhere?)

If you can share the problem code, that'd help a lot with trying to debug the issue.

Title: Re: _LIMIT and Windows Server 2016
Post by: TerryRitchie on May 12, 2020, 12:38:26 am

Just a thought, is 2016 running in a VM? I'm currently writing my tutorial using a Windows 10 VM and _LIMIT sometimes acts all kinds of strange in there. When I move my code to Windows 7 that hosts the VM _LIMIT behaves as it should.

Title: Re: _LIMIT and Windows Server 2016
Post by: Craz1000 on May 12, 2020, 03:22:21 pm

Quote from: TerryRitchie on May 12, 2020, 12:38:26 am

Just a thought, is 2016 running in a VM? I'm currently writing my tutorial using a Windows 10 VM and _LIMIT sometimes acts all kinds of strange in there. When I move my code to Windows 7 that hosts the VM _LIMIT behaves as it should.

All are native.

Quote from: SMcNeil

If you're proficient in c, you can c that the routine basically does as I mentioned above:

I c what you did there.

Agreed there should be no reason why Server 2016 should not throttle down.

 I will post the code when I get home. The source isnt on my work laptop. Should be home by the end of the week.

Title: Re: _LIMIT and Windows Server 2016
Post by: Craz1000 on May 14, 2020, 01:00:54 pm

Here is the Code it is currently running.

Code: QB64: [Select]

1. _TITLE "Score Server v1.2 - Online since: " + DATE$ + " - " + TIME$
2.  
3. TYPE SettingsObject
4.     Updated AS INTEGER
5.     Connected AS INTEGER
6.     GamesServiced AS INTEGER
7.     Asleep AS INTEGER
8. END TYPE
9.  
10. TYPE LeaderBoardObject
11.     Score AS INTEGER
12.     User AS STRING * 15
13. END TYPE
14.  
15. TYPE ClientObject
16.     IP AS STRING * 15
17.     Active AS INTEGER
18.     ColR AS INTEGER
19.     ColG AS INTEGER
20.     ColB AS INTEGER
21. END TYPE
22.  
23. DIM SHARED Settings AS SettingsObject
24. Settings.GamesServiced = 1
25. Settings.Updated = 1
26.  
27. DIM SHARED Leaderboard(Settings.GamesServiced, 20) AS LeaderBoardObject
28. DIM SHARED Client(100)
29. DIM SHARED ClientInfo(100) AS ClientObject
30.  
31. DIM SHARED CONNECTION
32. DIM SHARED UpdateTimer
33. DIM SHARED NEWCLIENT
34.  
35.  
36. UpdateTimer = _FREETIMER
37. ON TIMER(UpdateTimer, 300) UpdateServer
38. TIMER(UpdateTimer) ON
39. RANDOMIZE TIMER
40.  
41. Display& = _NEWIMAGE(1024, 768, 32)
42. SCREEN Display&
43. _DEST Display&
44.  
45. LoadDatabase
46.  
47. HOST = _OPENHOST("TCP/IP:3571")
48.  
49. IF HOST <> 0 THEN
50.  
51.     DO
52.         _LIMIT 5
53.        
54.         NEWCLIENT = _OPENCONNECTION(HOST)
55.  
56.         IF NEWCLIENT THEN
57.             FOR x = 1 TO 100
58.                 IF ClientInfo(x).Active = 0 THEN
59.                     Client(x) = NEWCLIENT
60.                     ClientInfo(x).IP = RIGHT$(_CONNECTIONADDRESS(NEWCLIENT), 15)
61.                     ClientInfo(x).ColR = INT(RND * 155) + 100
62.                     ClientInfo(x).ColG = INT(RND * 155) + 100
63.                     ClientInfo(x).ColB = INT(RND * 155) + 100
64.                     PRINT RTRIM$(ClientInfo(x).IP); " connected."
65.                     ClientInfo(x).Active = 1
66.                     Settings.Connected = Settings.Connected + 1
67.                     Settings.Asleep = 0
68.                     EXIT FOR
69.                 END IF
70.             NEXT x
71.         ELSE
72.         END IF
73.  
74.  
75.  
76.         FOR Scan = 1 TO 100
77.             IF Client(Scan) THEN
78.  
79.                 COLOR _RGB(ClientInfo(Scan).ColR, ClientInfo(Scan).ColG, ClientInfo(Scan).ColB)
80.                 IF ClientInfo(Scan).Active = 1 THEN MSG$ = WAITFORREPLY$(Client(Scan))
81.  
82.  
83.                 IF MSG$ = "SENDSCORE" THEN
84.                     SENDMSG Client(Scan), "GAMENO"
85.                     GameID = VAL(WAITFORREPLY$(Client(Scan)))
86.                     SENDMSG Client(Scan), "OK"
87.                     User$ = WAITFORREPLY$(Client(Scan))
88.                     'CheckIfUserBanned
89.                     SENDMSG Client(Scan), "SCORE"
90.                     Score = VAL(WAITFORREPLY$(Client(Scan)))
91.  
92.                     Position = 0
93.                     FOR x = 1 TO 20
94.                         IF Score > Leaderboard(GameID, x).Score THEN Position = x: EXIT FOR
95.                     NEXT x
96.  
97.                     IF Position < 20 THEN
98.                         FOR x = 20 TO Position STEP -1
99.                             Leaderboard(GameID, x).Score = Leaderboard(GameID, x - 1).Score
100.                             Leaderboard(GameID, x).User = Leaderboard(GameID, x - 1).User
101.                         NEXT x
102.                     END IF
103.  
104.                     Leaderboard(GameID, Position).Score = Score
105.                     Leaderboard(GameID, Position).User = User$
106.  
107.                     IF GameID = 1 THEN PRINT "Stereospace2 Board Updated by:"; ClientInfo(Scan).IP
108.  
109.                     Settings.Updated = 0
110.                     TIMER(UpdateTimer) ON
111.                     IF Settings.Asleep = 1 THEN
112.                         PRINT "Waking up server"
113.                         Settings.Asleep = 0
114.                     END IF
115.                     MSG$ = ""
116.  
117.  
118.                 ELSEIF MSG$ = "GETBOARD" THEN
119.                     SENDMSG Client(Scan), "GAMENO"
120.                     GameID = VAL(WAITFORREPLY$(Client(Scan)))
121.                     SENDMSG Client(Scan), "OK"
122.                     FOR x = 1 TO 20
123.                         IF WAITFORREPLY$(Client(Scan)) = "NAME" THEN SENDMSG Client(Scan), RTRIM$(Leaderboard(GameID, x).User)
124.                         IF WAITFORREPLY$(Client(Scan)) = "SCORE" THEN SENDMSG Client(Scan), STR$(Leaderboard(GameID, x).Score)
125.                         IF WAITFORREPLY$(Client(Scan)) = "OK" THEN SENDMSG Client(Scan), "NEXT"
126.                     NEXT x
127.                     SENDMSG Client(Scan), "DONE"
128.                     IF GameID = 1 THEN PRINT "Stereospace2 Board Sent to:"; ClientInfo(Scan).IP
129.                     MSG$ = ""
130.  
131.                 ELSEIF MSG$ = "CLOSE" THEN
132.                     SENDMSG Client(Scan), "GOODBYE"
133.                     ClientInfo(Scan).Active = 0
134.                     CLOSE #Client(Scan)
135.                     PRINT "Connection to: "; RTRIM$(ClientInfo(Scan).IP); " closed."
136.                     MSG$ = ""
137.                     Settings.Connected = Settings.Connected - 1
138.  
139.                 ELSEIF MSG$ = "HELLO" THEN
140.                     'CheckIfIPIsBanned
141.                     SENDMSG Client(Scan), "OK"
142.                     IF WAITFORREPLY$(Client(Scan)) = "READY" THEN
143.                         Tmp = INT(RND * 256) + 1
144.                         SENDMSG Client(Scan), STR$(Tmp)
145.                         PW = 5 '**** REMOVED *****
146.                         Test = VAL(WAITFORREPLY$(Client(Scan)))
147.                         IF PW = Test THEN
148.                             SENDMSG Client(Scan), "LOCKED"
149.                             PRINT "Connection to: "; RTRIM$(ClientInfo(Scan).IP); " Locked."
150.                         ELSE
151.                             PRINT "Got:"; Test; " instead of"; PW; "disconnecting"
152.                             ClientInfo(Scan).Active = 0
153.                             CLOSE #Client(Scan)
154.                             PRINT "Connection to: "; RTRIM$(ClientInfo(Scan).IP); " closed."
155.                         END IF
156.                         MSG$ = ""
157.                     END IF
158.  
159.  
160.                 END IF
161.             END IF
162.         NEXT Scan
163.  
164.         IF Settings.Connected = 0 AND Settings.Updated = 1 AND Settings.Asleep = 0 THEN
165.             COLOR _RGB(100, 100, 100)
166.             PRINT "Putting server to sleep."
167.             Settings.Asleep = 1
168.             TIMER(UpdateTimer) OFF
169.         END IF
170.  
171.  
172.         IF Settings.Connected < 0 THEN Settings.Connected = 0
173.     LOOP
174. END IF
175.  
176.  
177. SUB UpdateServer
178.     COLOR _RGB(100, 100, 100)
179.  
180.     PRINT "Checking all active connections"
181.     FOR x = 1 TO 100
182.         IF ClientInfo(x).Active = 1 THEN
183.             SENDMSG Client(x), "PING"
184.             IF WAITFORREPLY$(Client(x)) <> "PONG" THEN
185.                 ClientInfo(x).Active = 0
186.                 CLOSE #CONNECTION
187.                 PRINT "Connection to: "; RTRIM$(ClientInfo(x).IP); " closed."
188.                 Settings.Connected = Settings.Connected - 1
189.  
190.             END IF
191.         END IF
192.     NEXT x
193.  
194.     PRINT "Backing up database"
195.  
196.     FOR x = 1 TO Settings.GamesServiced
197.         IF x = 1 THEN File$ = "Stereospace2.dat"
198.         OPEN File$ FOR OUTPUT AS #1
199.         FOR y = 1 TO 20
200.             PRINT #1, RTRIM$(Leaderboard(x, y).User)
201.             PRINT #1, Leaderboard(x, y).Score
202.         NEXT y
203.         PRINT #1, "EOF";
204.         PRINT #1, 0
205.         CLOSE #1
206.     NEXT x
207.     PRINT "Writing to web server"
208.     WriteWebsite
209.     PRINT "Done"
210.     Settings.Updated = 1
211.     Settings.Connected = 0
212. END SUB
213.  
214. SUB LoadDatabase
215.     FOR x = 1 TO Settings.GamesServiced
216.         IF x = 1 THEN File$ = "Stereospace2.dat"
217.         OPEN File$ FOR INPUT AS #1
218.         FOR y = 1 TO 20
219.             INPUT #1, Leaderboard(x, y).User
220.             INPUT #1, Leaderboard(x, y).Score
221.         NEXT y
222.         CLOSE #1
223.         'IF x = Settings.GamesServiced THEN EXIT FOR
224.     NEXT x
225. END SUB
226.  
227. SUB WriteWebsite
228.     OPEN "C:\inetpub\wwwroot\Scores.html" FOR OUTPUT AS #1
229.     PRINT #1, "<html>"
230.     PRINT #1, "<head>"
231.     PRINT #1, "<link rel="; CHR$(34); "stylesheet"; CHR$(34); " type="; CHR$(34); "text/css"; CHR$(34); " href="; CHR$(34); "css/style.css"; CHR$(34); " />"
232.     PRINT #1, "</head>"
233.     PRINT #1, "<body>"
234.     PRINT #1, "<br><br>"
235.     PRINT #1, "<center>"
236.     PRINT #1, "<table width=80% border=0>"
237.     PRINT #1, "<tr><td>Stereospace 2</tr></td>"
238.     FOR y = 1 TO 20
239.         PRINT #1, "<tr><td>"
240.         PRINT #1, RTRIM$(Leaderboard(1, y).User); "</td><td>"; Leaderboard(1, y).Score; "</tr></td>"
241.     NEXT y
242.     PRINT #1, "</table>"
243.     PRINT #1, "</body>"
244.     PRINT #1, "<body>"
245.     PRINT #1, "</html>"
246.     CLOSE #1
247.  
248.     COLOR _RGB(100, 100, 100)
249.     PRINT "Database Loaded."
250. END SUB
251.  
252.  
253. '$include:'ipcommsg.bi'
254.  
255.  

Title: Re: _LIMIT and Windows Server 2016
Post by: Craz1000 on May 15, 2020, 12:05:18 pm

Tried _DELAY just now. CPU usage does not drop either.

Title: Re: _LIMIT and Windows Server 2016
Post by: Craz1000 on May 23, 2020, 11:40:59 pm

Upgraded server to Windows Server 2019 today. And now cpu usage drops like it is supposed to... odd

Text Only | Text with Attachments