| 解説 制御用外部関数（USBCALL.BAS） | |
|
EXTERNAL SUB POPEN IF UsbFind<0 THEN STOP END SUB EXTERNAL SUB POUT(P,D) IF USBOUT(P,D)<0 THEN STOP END SUB EXTERNAL FUNCTION PIN(P) LET R=UsbInp(P) IF R<0 THEN STOP ELSE LET PIN=R END FUNCTION EXTERNAL SUB PCLOSE LET R=UsbCose END SUB EXTERNAL FUNCTION UsbFind ASSIGN "CallHspUSB.dll","Usbfind" END FUNCTION EXTERNAL FUNCTION UsbInp(P) ASSIGN "CallHspUSB.dll","UsbInp" END FUNCTION EXTERNAL FUNCTION UsbOut(P,D) ASSIGN "CallHspUSB.dll","UsbOut" END FUNCTION EXTERNAL FUNCTION UsbClose ASSIGN "CallHspUSB.dll","UsbClose" END FUNCTION |
◆ＵＳＢデバイス初期化命令 最初に１回実行する MAINプログラムよりCALL POPEN で呼び出す 関数UsbFindがエラーを返した場合は停止する ◆データ出力命令 Ｐはポート番号(０または１を指定)，Ｄは出力データ ポート０のデータ範囲は０〜２５５，ポート１のデータ範囲は０〜１５ MAINプログラムよりCALL POUT(P,D) で呼び出す 関数UsbOutがエラーをを返した場合は停止する ◆データ入力関数 Ｐはポート番号(０または１を指定)，データは整数型 ポート０または１を指定し、ポートからデータを読み込む。 事前に呼び込むポートのビットに１を立てMAINプログラムより LET N=PIN(P)の要領で呼び出し値を返す 関数UsbInpがエラーをを返した場合は停止する ◆ＵＳＢデバイスを閉じる 最後に１回実行する MAINプログラムよりCALL PCLOSE で呼び出す ◇以下はCallHspUSB.dllを呼び出す手続き ◆SUB POPENから呼び出され、USB-IOを初期化する CallHspUSB.dllのUsbfind関数を呼び出し、戻り値は整数型 呼び出し成功時は０、失敗時は−１または−２を返す ◆FUNCTION PINから呼び出され、指定したUSB-IOポートから値を返す CallHspUSB.dllのUsbInp関数を呼び出し、戻り値は整数型 呼び出し成功時はポートの入力値、失敗時は−１または−２を返す ◆SUB POUTから呼び出され、指定したUSB-IOポートへ出力する CallHspUSB.dllのUsbOut関数を呼び出し、戻り値は整数型 呼び出し成功時は０を、失敗時は−１または−２を返す ◆SUB PCLOSEから呼び出され、指定したUSB-IOを解放する CallHspUSB.dllのUsbClose関数を呼び出し、戻り値は整数型の０を返す |
| 解説 MAINプログラムからのUSBCALL.BAS呼び出し例 | |
|
CALL POPEN LET S=0.2 FOR I=1 TO 10 CALL POUT(0,0) WAIT DELAY S LET N=1 CALL POUT(0,N) WAIT DELAY S DO LET N=N*2 CALL POUT(0,N) WAIT DELAY S LOOP UNTIL N=128 NEXT I CALL PCLOSE END MERGE "USBCALL.BAS" |
ＵＳＢを初期化する 休止時間を0.2秒にセットする ＦＯＲ文の開始 Ｉが１０になるまで、最初に現れるＮＥＸＴまでを反復する ポート０に０を書き込む 休止する（0.2秒） 変数Ｎに１を代入する ポート０にＮを書き込む（Ｎ＝１） 休止する ＤＯ文の開始 最初に現れるＬＯＯＰまでを反復する 変数Ｎに２をかけたものをＮに代入する ポート０にＮを書き込む（Ｎは毎回２倍になる） 休止する ＬＯＯ文 Ｎが１２８になるまで直前のＤＯへ戻る ＮＥＸＴ文 直前のＦＯＲへ戻る ＵＳＢを閉じる プログラムを終了する サブルーチン"USBCALL.BAS"を動的にリンクする |
| （仮称）十進BASICサンプルプログラム ダウンロード(testprogram.lzh:3KB) | |
| 戻る |