tell application "VH7PC_Controller"
	--コマンド定義
	set POWERON to 0
	set POWEROFF to 1
	set SEL_TUNER to 2
	set SEL_CD to 3
	set SEL_MD to 4
	set SEL_TAPE to 5
	set SEL_USB to 6
	set VOL to 7
	set MUTE to 8
	set N_B to 9
	set IN_LV_UP to 10
	set IN_LV_DN to 11
	set CD_PLAY to 12
	set CD_STOP to 13
	set CD_SK_UP to 14
	set CD_SK_DN to 15
	set CD_SEARCH to 16
	set CD_FF to 17
	set CD_FB to 18
	set CD_REPEAT to 19
	set CD_RANDOM to 20
	set CD_EJECT to 21
	set BAND to 22
	set AUTO_MONO to 23
	set P_CL_UP to 24
	set P_CL_DN to 25
	set PH_SEARCH to 26
	set MD_PLAY to 27
	set MD_STOP to 28
	set MD_PAUSE to 29
	set MD_REC to 30
	set MD_OTE to 31
	set MD_SK_UP to 32
	set MD_SK_DN to 33
	set MD_SEARCH to 34
	set MD_FF to 35
	set MD_FB to 36
	set MD_ALL_E to 37
	set MD_TRCK_E to 38
	set MD_DIVIDE to 39
	set MD_COMBIN to 40
	set MD_REPEAT to 41
	set MD_RANDOM to 42
	set MD_EJECT to 43
	set TAPE_FWD to 44
	set TAPE_REV to 45
	set TAPE_STOP to 46
	set TAPE_FF to 47
	set TAPE_FB to 48
	set CONTINU to 49
	set STS_REQ to 50
	set GET_STATUS to 51
	
	--ステータス取得コマンドをセットして送信
	set vh7pc_command to GET_STATUS
	vh7pc_SendCommand
	--ステータスを取得してそこから音量を取得
	set statusRecord to vh7pc_GetStatus
	set currentVol to |Volume| of statusRecord
	--ボリューム変更コマンドと音量をセットして送信
	set vh7pc_command to VOL
	set vh7pc_value to currentVol + 1
	vh7pc_SendCommand
end tell




