clock.hsp

sample\basic\clock.hsp » Plain Format

#include "hsp3util.as"	; gettimestr,getdatestrを使うため

	t1="":t2=""
	objsize 120,20
	mesbox t1,160,32,0		; メッセージボックスを表示
					; (オブジェクトID0になります)
	mesbox t2,160,32,0		; メッセージボックスを表示
					; (オブジェクトID1になります)
*tmprt
	gettimestr t1
	getdatestr t2
	objprm 0,t1			; メッセージボックスID0の内容を更新
	objprm 1,t2			; メッセージボックスID1の内容を更新
	wait 100			; 1秒ウエイトする
	goto *tmprt			; 無限ループ