[BMS]トータルゲージ計算機

Information

前回のスクリプトと同様の処理をVBScriptに移植することで、簡易GUIツールとして動作させることができたので掲載しておきます。

スクリプト

'Script :#268'


'変数定義'
On Error Resume Next
Dim note,total,hist(6)

'初期値'
note="0"
total=0

'繰り返し処理'
Do
	note=InputBox (Join(hist,vbNewLine),"トータルゲージ計算機")

	Execute "note=" & note '簡易計算機能実装（例："100+100"と入力すれば200が入る）
	If note="" Then '文字が入力されず決定された場合
		Wscript.Quit '終了
	ElseIf note < 400 Then
		total= (200+(note/5))
	ElseIf note < 600 Then
		total= (280+((note-400)/2.5))
	Else
		total= (360+((note-600)/5))
	End If
	
	'ログ機能'
	hist(0)= hist(2)
	hist(1)= hist(3)
	hist(2)= hist(4)
	hist(3)= hist(5)
	hist(4)= "NOTE = " & note
	hist(5)= " TOTAL = " & total

Loop

DOWNLOAD

totalcalc.vbs

使い方

計算させるには

1. トータルノートの入力欄に半角数字を打ち込み決定。

連絡先