;
;	NS-5000用　簡単なプログラム例 2　2012,12/29
;
#include "hspext.as"
#include "hspda.as"
	
	comxx = 1			;仮COM番号
	sdim txbyte,50
	sdim rxbyte,50
	vload "save.var"
	
	pos 150,100 : mes "COM"
	pos 200,100 : input comxx,30,20,2
		
	objsize 100,20
	pos 250,100 : button "スタート",*start
	stop
	
;
*start
	comopen comxx,"baud=9600 parity=N data=8 stop=1"
	if stat == 1 {
		dialog "COM"+comxx+" Open Error !",1
		stop
	}
	
	onexit goto *exit

	objsize 100,20
	pos 250,150 : button "DOGブザー",*dogbeep
	pos 250,200 : button "赤経",*gra
	pos 400,200 : button "赤緯",*gdec
	
	pos 250,250 : button "タイトル",*ttl
	stop
	
;DOG beepを鳴らす
*dogbeep
	command = ":=SD#"
	comput command
	stop
	
;赤経を確認する
*gra
	txbyte = ":GR#"
	gosub	*txcommand
	mes		rxbyte
	stop

;赤緯を確認する
*gdec
	txbyte = ":GD#"
	gosub	*txcommand
	mes		rxbyte
	stop
	
;タイトルを表示する
*ttl
	txbyte = ":*V#"
	gosub	*txcommand
	mes		rxbyte
	stop


;**********************************************
;	コマンドを送信してからアンサを受信する
;
;	entry	txbyte	LX200/NS500コマンド
;	exit	rxbyte	アンサ
;		f_	受信文字数
;
;**********************************************
*txcommand
	gosub	*txdt	;データを送信する
	wait	10	;wait 100ms   /10ms単位
	gosub	*rxdt
	return
	

;**********************************************
;	データを受信する
;
;	exit	f_	受信文字数
;		rxbyte	文字列
;
;**********************************************
*rxdt
	comget rxbyte
	f_ = stat
	return
		
	
;**********************************************
;	データを送信する
;
;	entry	txbyte	送信文字列　送信される
;
;**********************************************
*txdt
	comput txbyte
	if stat == 0 : dialog "tx error!" : stop
	return
	
	
;**********************************************
;	終了
;**********************************************
*exit
	comclose
	vsave "save.var"	;COM番号をファイルに保存する
	end