compass QuantumWellWithBias{
	モード プログラム
	表示位置 右下
	記録フォーム表示 右上
	サイズ設定 600, 300
}
 
変数 $x = 0
変数 $y = 0
変数 $state = ""
変数 $wait = 100
変数 $repeat = 1000
変数 $current = 1
変数 $start = 0
変数 $energy = 0
変数 $number = 1

sub 初期設定{
	Excel起動 "panel.xls"
}

exe 全自動計算スタート{
	入力 ($number)
	panel.セル内容の書込み $number, "Sheet1", "M3"
	■繰り返し 探索スタート, 50, 150
}

sub 探索スタート{
	panel.セル内容の取得 ($start), "Sheet1", "I5"
	panel.セル内容の書込み $start, "Sheet1", "F3"
	計算 $current = 1
	panel.セル内容の書込み $current, "Sheet1", "H3"
	■繰り返し 次の計算, 50, 25
	panel.セル内容の取得 ($energy), "Sheet1", "F3"
	記録 $energy
	
	計算 $number = $number + 1
	panel.セル内容の書込み $number, "Sheet1", "M3"
}

sub 次の計算{
	panel.セル内容の取得 ($energy), "Sheet1", "K3"
	panel.セル内容の書込み $energy, "Sheet1", "F3"
	計算 $current = $current + 1
	panel.セル内容の書込み $current, "Sheet1", "H3"
}

exe

exe マウス座標を幅・バイアスとして表示{
	panel.セル内容の書込み 0, "Sheet1", "M3"
	■繰り返し 取得, $wait, $repeat
}
 
sub 取得{
	マウス座標取得 ($x), ($y)
#	マウスボタン状態取得 ($state)
#	記録 $x & ", " & $y & ", " & $state
#	計算 $x = $x * 0.1
#	計算 $y = (1000 - $y) * 5
	panel.セル内容の書込み $x, "Sheet1", "N3"
	panel.セル内容の書込み $y, "Sheet1", "O3"
}