calcsheet.hsp

sample\new\calcsheet.hsp » Plain Format

;	簡単な表計算を行なうサンプル
;	枠の中に入力した数値の合計を表示し、値に応じた棒グラフを表示します。
;	数値を入力して、[TAB]キーで次の枠に移動できます。
;	HSP3.2で追加されたobjskip命令により、合計の枠はフォーカスが移動
;	しないよう設定されています。
;

	cls

	dim kazu,10
	objsize 100,24
	repeat 10
	input kazu(cnt)
	loop

	pos 0,260
	input total
	obj_total=stat			; 合計を表示するオブジェクトID
	objskip obj_total,3		; [TAB]キーの移動は行なわない

	gosub *sum
	objsel 0

*main
	objsel -1:focus=stat		; 現在のフォーカスを得る
*main2
	wait 10
	objsel -1
	if stat=focus : goto *main2	; フォーカスが変わったら再計算
	gosub *sum
	goto *main

*sum
	;	合計を計算する
	redraw 0
	color 255,255,255:boxf
	a=0
	repeat 10
	x=110:y=24*cnt
	color 255,0,0
	boxf x,y,x+kazu(cnt),y+20
	a=a+kazu(cnt)
	loop
	color 0,0,0:pos 0,240
	mes "--合計------------------"
	objprm obj_total,a
	redraw 1
	return