Setenviron

システム環境変数を変更します。
システム上には、編集してデフォルト値以外に設定できる、いくつかの変数があります。
このひとつの例が fbgfx です。fbgfx では、FreeBASIC 描画ライブラリが使う描画ドライバーの形式を選ぶことができます。

'例、システム変数の "path" を、"c:" に設定します:

Shell "set path" 'パスの値を表示します
SetEnviron "path=c:"
Shell "set path" 'パスの新しい値を表示します

'' WINDOWS だけで使える例です!
'' - 使う描画方法を、DirectX(または新システムに追加されたDirect2D) ではなく、GDI(Graphic Device Interface) に設定します。
'' FPS(frames per second フレームレート) の違いに注意して下さい。
SetEnviron("fbgfx=GDI")

'' デスクトップの幅/高さ
Dim As Long ScrW, ScrH, BPP
ScreenInfo ScrW, ScrH, BPP

'' モニターの半分の幅/高さで、画面を作成します。
'' 通常、これには時間がかかります。
'' しかし、GDI は、この種類の操作で、かなり速いです。
ScreenRes ScrW/2, ScrH/2, BPP

'' タイマを始動します。
Dim As Double T = Timer

'' ページをロックします。
ScreenLock
Do

'' 最後のフレームから時間を表示します。
Locate 1, 1
Print "FPS: " & 1 / ( Timer - T )
T = Timer

'' 画面をはじき出します。
ScreenUnlock
ScreenLock
'' 画面にグラフィカルな変化を遂行します。
Cls

'' プログラムを終了するためには、何かキー入力して下さい。
Loop Until Len (Inkey)

'' ページのロックを解除します。
ScreenUnlock

GDI と DirectX の関係(違い)については、右の画像のリンクをクリックして下さい。
Windows10 の日本語環境では、日本語フォントを滑らかに表示するために GDI がデフォルトで使えなくなっている？
https://align-centre.hatenablog.com/entry/2014/07/11/184500
日本語文字をクリアに表示するために、縦方向のアンチエイリアス処理が付加された Natural ClearType が使われていて、これには、GDI/GDI+ の後継となる文字描画用 API 群で、DirectX のコンポーネントの 1 つである DirectWrite が使われています。

FreeBASIC Setenviron

SETENVIRON　左にメニュー・フレームが表示されていない場合は、ここをクリックして下さい

FreeBASIC Setenviron

SETENVIRON 左にメニュー・フレームが表示されていない場合は、ここをクリックして下さい

SETENVIRON　左にメニュー・フレームが表示されていない場合は、ここをクリックして下さい