compass QuantumWell{
	モード プログラム
	表示位置 右下
	サイズ設定 600, 300
}
 
変数 $x = 0
変数 $y = 0
変数 $state = ""
変数 $wait = 200
変数 $repeat = 1000
変数 $number = "1"

sub 初期設定{
	Excel起動 "panel.xls"
}
 
exe 幅5nm・障壁300meVを表示{
	panel.セル内容の書込み "5", "Sheet1", "B3"
	panel.セル内容の書込み "300", "Sheet1", "C3"
}

exe マウス座標を幅・障壁として表示{
	■繰り返し 取得, $wait, $repeat
}
 
sub 取得{
	マウス座標取得 ($x), ($y)
#	マウスボタン状態取得 ($state)
#	記録 $x & ", " & $y & ", " & $state
	計算 $x = $x * 0.005
	計算 $y = 600 - $y * 0.5
	panel.セル内容の書込み $x, "Sheet1", "B3"
	panel.セル内容の書込み $y, "Sheet1", "C3"
}