PureBasic Forums - English

I can see several memory allocation commands but not one to show the current free ram on the system ?

Also is there a command to identify the current processor/video card and possibly their capabilities ?

Thanks in advance...

Thanks all

The 3D option might be the only answer if I can't escape from my fastest example without slowing or crashing the program !

ExamineDesktops()
Define ScreenX.i = DesktopWidth(0)
Define ScreenY.i = DesktopHeight(0)
Define ScreenD.i = DesktopDepth(0)
Define ScreenF.i = DesktopFrequency(0 ...

It has to be a little more code.
An event loop is ALWAYS needed to process the events. Otherwise your programme will no longer react.


If ExamineDesktops()
Define ScreenX.i = DesktopWidth(0)
Define ScreenY.i = DesktopHeight(0)
Define ScreenD.i = DesktopDepth(0)
Define ScreenF.i ...

The fastest yet thanks to juergenkulow yet struggling to provide an exit (say the esc key) that doesn't effect drawing.....


ExamineDesktops()
Define ScreenX.i = DesktopWidth(0)
Define ScreenY.i = DesktopHeight(0)
Define ScreenD.i = DesktopDepth(0)
Define ScreenF.i = DesktopFrequency(0 ...

Event=WaitWindowEvent(1)
If Event=#PB_Event_Repaint
StartDrawing(WindowOutput(0))
Box(10,10,ScreenX-20,ScreenY-20,#Blue)
StopDrawing()
EndIf
Until Event=#PB_Event_CloseWindow ; ALT-F4



Wow thanks, MUCH faster yet I'm struggling to understand your exit mechanism here and why the ...

Much better but I'm concerned that I'm now drawing on two screens hence halving the speed.??. It does appear rather slow even though running on a 4k screen.

If ExamineDesktops()
ScreenX = DesktopWidth(0)
ScreenY = DesktopHeight(0)
ScreenD = DesktopDepth(0)
ScreenF = DesktopFrequency(0)
Else ...

Well this just gives me a black screen !?........


If ExamineDesktops()
ScreenX = DesktopWidth(0)
ScreenY = DesktopHeight(0)
ScreenD = DesktopDepth(0)
ScreenF = DesktopFrequency(0)
Else
End
EndIf

InitKeyboard()
InitSprite()

OpenScreen(ScreenX, ScreenY, 32, "MyScreen")
StartDrawing ...

Thanks all, will fiddle with the examples....

I've seen examples that open a window and refer to createimage, startdrawing, stopdrawing and imagegadget yet these seem to simply draw once in the background then display a static result.

How do I open fullscreen and draw in realtime ?, hopefully with the option to also draw text on the same ...

WEIRD

I closed PB completely and started a new program tab, now I get the debug result 3840 (4k Screen) !?

Something ran previously must have left things behind to confuse PB

What OS are you using?
Version of PB?
Are you running a virtual machine?
Those are needed to answer your questions accurately.
This code is so basic that it should work. Unless you do not have a screen or your computer is infected with a virus.

Try this code

Debug ExamineDesktops() ; is there ...

mk-soft wrote: Tue Oct 31, 2023 4:21 pm Which OS and PB version.

Its works here ...

Please use code tags of forum

windows 10 22H2
PureBasic 6.03 LTS (Windows - x64)

Code tags ?

2nd version produces the same error on line 1 !

DeskNum=ExamineDesktops()

If DeskNum
ScreenX = DesktopWidth(0)
ScreenY = DesktopHeight(0)
ScreenD = DesktopDepth(0)
ScreenF = DesktopFrequency(0)
EndIf

Debug ScreenX

If ExamineDesktops()
ScreenX = DesktopWidth(0)
ScreenY = DesktopHeight(0)
ScreenD = DesktopDepth(0)
ScreenF = DesktopFrequency(0)
EndIf

Debug ScreenX

Produces an error on the first line.....
[14:48:25] [ERROR] ExamineDesktops() must be called before another Desktop function.

Why is this when ...

DigitalDreams wrote: Tue Oct 31, 2023 10:11 am
The code is not case sensitive ...

That is odd then !, Debug definitely was enabled both times...