■ 戻　る 　　■ i2net HOME 　　■ HTBASIC HOME 　　■ HTBASIC tip HTBasic-HPGLUTIRITY

Techsoft 社ロゴ

HTBasicでのグラフィック表示とHPGLUTILITY
（５／５）

HTBasicでのグラフィック表示

Ａ．HTBasicでLABELステートメントを使用し１バイト英字ストロークフォントのみを使用する
CONFIGURE DUMP TO "WIN-DUMP"
DUMP DEVICE IS PRT
CONTROL CRT,100;1

GINIT
PLOTTER IS CRT,"INTERNAL";COLOR MAP

KEY LABELS OFF
RUNLIGHT OFF
　Graph
DUMP GRAPHICS

SUB Graph


　　LABEL "VOLTAGE FLUCTUATION"


SUBEND

Ｂ．HTBasicでLABELステートメントを使用し１バイト英字ストロークフォントと、漢字２バイコード
Windows T/T フォントを使用する
CONFIGURE DUMP TO "WIN-DUMP"
DUMP DEVICE IS PRT
CONTROL CRT,100;1

GINIT
PLOTTER IS CRT,"INTERNAL";COLOR MAP
GFONT IS "MS Mincho",128

KEY LABELS OFF
RUNLIGHT OFF
　Graph
DUMP GRAPHICS


SUB Graph


　LABEL "電圧変動"

SUBEND

Ｃ．HTBasicでLABELステートメントを使用し１バイト英字ストロークフォントと
CALL Klabelサブルーチンを使用し漢字２バイコードストロークフォント
(漢字ユーティリティ：アイネット株式会社製) を使用する
CONFIGURE DUMP TO "WIN-DUMP"
DUMP DEVICE IS PRT
CONTROL CRT,100;1
RANDOMIZE
MASS STORAGE IS "xxxxxxxxxx"
　IF NOT INMEM("Getknj") THEN
　　 LOADSUB ALL FROM "KLABEL8.BAS"
　END IF

GINIT
PLOTTER IS "C:\Temp.gl","HPGL",,5,250,7,136!横向き
GFONT IS "MS Mincho",128

Graph
PLOTTER IS CRT,"INTERNAL";COLOR MAP
EXECUTE "COPY "&"C:\temp.GL "&"C:\HPGLUTILITY\hpglfile\"&VAL$(INT(RND*9999));WAIT OFF

SUB Graph

CALL Klabel("電圧変動",15)　　 !漢字2バイトコード

LABEL "Voltage"　　　　　　　 !英字1バイトコード

SUBEND

Back 　 [1] [2] [3] [4]　5　 　
アイネット株式会社
E-mailでのお問い合わせ
_/_/_/ Copyright 1998-2023 I2NET Co., Ltd.　AllRights Reserved. _/_/_/