UWSCでデバッグ出力を行う関数

こんにちは。 UWSCでデバッグする時はPRINTデバッグをするのがメインかと思います。 しかし、デバッグ情報が邪魔になるときがあると思います。 デバッグかどうかで出力有無を変えたいですよね。 こんなときにこの関数を定義してあげると良いかも

関数定義

MODULE Debug
    Procedure Print(str, debug = TRUE)
        IFB VARTYPE(debug, VAR_BOOLEAN)
            GETTIME()
            Dim date = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_ss2
            PRINT  date + " " + str
        ENDIF
    Fend
ENDMODULE

使い方

以下のように呼び出せばOKです。
Debug.Print("デバッグ出力")

Debug.Print("何も出ない", FALSE)

コメント

タイトルとURLをコピーしました