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

Techsoft 社ロゴ

HTBasicでのグラフィック表示とHPGLUTILITY
(5/5)


HTBasicでのグラフィック表示

A.HTBasicでLABELステートメントを使用し1バイト英字ストロークフォントのみを使用する
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

B.HTBasicでLABELステートメントを使用し1バイト英字ストロークフォントと、漢字2バイコード
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

C.HTBasicでLABELステートメントを使用し1バイト英字ストロークフォントと
CALL Klabelサブルーチンを使用し漢字2バイコードストロークフォント
(漢字ユーティリティ:アイネット株式会社製) を使用する
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-2021 I2NET Co., Ltd. AllRights Reserved. _/_/_/