[ブロックサイズ計算]<blksize2.hta>
<html>
<head>
<title>ブロックサイズを計算する</title>
<script language="VBScript"><!--
Sub Window_onLoad
Window.resizeTo 300,360
document.body.bgColor = "Yellow"
'document.body.bgColor = "#FFFFFF"
End Sub
Sub calc2
Dim intLRECL
Dim intKENSU
Dim intBLKSIZE
'intLRECL = InputBox("数値のみ.27998までLRECL入力。","LRECL入力",235)
intLRECL = document.calcForm.number1.value
If intLRECL = "" Then
'MsgBox "入力にエラーがあります。" & vbLF & _
' "数値のみです。"
document.calcForm.result.value = "入力にエラーがあります。" & vbLF & _
"数値のみです。"
Else
intKENSU = 27998 \ intLRECL
intBLKSIZE = intKENSU * intLRECL
'MsgBox "LRECL =" & intLRECL & vbLF & vbLF & _
' "BLKSIZE=" & intBLKSIZE & vbLF & _
' "1TRKあたり = " & intKENSU * 2 & "件"
document.calcForm.result.value = _
"LRECL =" & intLRECL & vbLF & vbLF & _
"BLKSIZE=" & intBLKSIZE & vbLF & _
"1TRKあたり = " & intKENSU * 2 & "件"
End If
End Sub
//--></script>
</head>
<body bgcolor= "#008000">
<form name="calcForm">
<p>LRECL(レコード長を入力してください。<br>
<textarea name="number1" cols="7" rows="1" >235</textarea>
<input type="button" value="BLKSIZEを計算する" onClick="calc2()">
<p>結果:<br>
<textarea name="result" cols="30" rows="15" ></textarea>
<br>
</form>
</body>
</html>
[javascriptdサンプル]<code01.hta>
<html>
<head>
<title>テキストフィールドに書き込む</title>
<script language="JavaScript"><!--
window.onload = function func00(){
window.resizeTo(200,200);
}
function calc()
{
n1 = document.calcForm.number1.value;
n2 = document.calcForm.number2.value;
n1 = eval(n1);
n2 = eval(n2);
document.calcForm.result.value = n1 + n2; }
//--></script>
</head>
<body onload="func00()" bgcolor="#008000">
<form name="calcForm">
値1:<input type="text"name="number1" value="7"><br>
値2:<input type="text"name="number2" value="5"><br>
結果:<input type="text"name="result"><br>
<input type="button" value="加算する" onClick="calc()">
</form>
</body>
</html>