#deffunc return 変数stat代入命令関数の自作 命令を作る

#ifndef __sample__
#define __sample__

#module sample	//命令関数群の開始行
//ここからグループのプログラムを書くところ

/*////////////////////////////////////////////////////////////////////
処理:時刻を表示
概要:時刻を表示します
引数:
戻値:
--------------------------------------------------------------------*/
#deffunc DrawTime	//時刻を表示する命令
	mes strf("%02d:%02d:%02d",gettime(4),gettime(5),gettime(6))
return


#global	//命令関数群の終了行

#endif

#include "subprog.hsp"	//サブプログラムを読み込む

DrawTime	//時間を表示する命令

#ifndef __sample__
#define __sample__

#module sample	//命令関数群の開始行
//ここからグループのプログラムを書くところ

/*////////////////////////////////////////////////////////////////////
処理:時刻を表示
概要:時刻を表示します
引数:
戻値:
--------------------------------------------------------------------*/
#deffunc DrawTime
	mes strf("%02d:%02d:%02d",gettime(4),gettime(5),gettime(6))
return

/*////////////////////////////////////////////////////////////////////
処理:曜日を表示
概要:曜日を表示します
引数:曜日番号
戻値:
--------------------------------------------------------------------*/
#deffunc DrawWeek int weeknum	//曜日を表示する命令、引数は曜日番号
	switch weeknum
		case 0 : mes "日曜日" : swbreak	//0のとき「日曜日」
		case 1 : mes "月曜日" : swbreak	//1のとき「月曜日」
		case 2 : mes "火曜日" : swbreak	//2のとき「火曜日」
		case 3 : mes "水曜日" : swbreak	//3のとき「水曜日」
		case 4 : mes "木曜日" : swbreak	//4のとき「木曜日」
		case 5 : mes "金曜日" : swbreak	//5のとき「金曜日」
		case 6 : mes "土曜日" : swbreak	//6のとき「土曜日」
		default : mes "エラー" : swbreak	//上記以外エラー
	swend
return


#global	//命令関数群の終了行

#endif

#include "subprog.hsp"	//サブプログラムを読み込む

DrawTime	//時間を表示する命令

DrawWeek gettime(2)	//曜日を表示する命令

/*////////////////////////////////////////////////////////////////////
処理:平日のみ実行する処理
概要:平日のときだけ処理を実行します
引数:
戻値:実行結果(1:OK,0:NG)
--------------------------------------------------------------------*/
#deffunc ExecWeekDay	//平日のときのみ実行する
	if gettime(2) >= 1 || gettime(2) <= 5{
		mes "平日です。"
		return 1
	}	
return 0

ExecWeekDay	//平日のときのみ実行する処理を実行
mes stat	//実行結果を表示