数式電卓

<html>

<head>
<meta http-equiv="Content-Language" content="ja">
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>数式電卓(簡易版)</title>
　<HTA:APPLICATION ID="fcalc"
　　APPLICATIONNAME="数式電卓"
　　BORDER="thik"
　　BORDERSTYLE="sunken"
　　CAPTION="yes"
　　ICON=""
　　MAXIMIZEBUTTON="no"
　　MINIMIZEBUTTON="yes"
　　SHOWINTASKBAR="yes"
　　SINGLEINSTANCE="no"
　　SYSMENU="yes"
　　VERSION="1.0"
　　WINDOWSTATE="normal"
　　>
　　
</head>

<body>
<form id="frmCalc">
<p>
式:<input id="txtFormula" type="text" size="100" name="txtFormula" tabindex="1"><br>
答:<input id="txtResult" type="text" size="100" name="txtResult" tabindex="2">
</p>
<input id="chkCopy" type="checkbox" value="ON" name="chkCopy" checked tabindex="3" >クリップボードにコピーする<br>
<table border = 0 width=100%>
<tr>
<td>
<input type="submit" value="計算" name="btnCalc" tabindex="4" />
<input type="button" value="クリア" name="btnClear" tabindex="5" />
</td>
<td align="right">
<input type="button" value="閉じる" name="btnClose" tabindex="5" />
</td>
</tr>
</table>
</form>

<script language="vbscript">
window.resizeto 600, 200

Sub window_OnLoad()
　frmCalc.txtFormula.focus
End Sub

Sub window_OnFocus()
　frmCalc.txtFormula.select
End Sub

Sub btnCalc_OnClick()
　On Error Resume Next
　varResult = Eval(frmCalc.txtFormula.Value)
　If Err = 0 Then
　　frmCalc.txtResult.Value = CStr(varResult)
　　If frmCalc.chkCopy.checked Then
　　　txtResultCopyToClipboard
　　End If
　Else
　　frmCalc.txtResult.Value = Err.Description
　End If
　window.event.returnValue = False　
　frmCalc.txtFormula.select
End Sub

Sub btnClear_OnClick()
　frmCalc.txtFormula.Value = ""
　frmCalc.txtFormula.select
End Sub

Sub btnClose_OnClick()
　window.close
End Sub

Sub txtResultCopyToClipboard()
　Set rngResult = frmCalc.txtResult.createTextRange()
　rngResult.execCommand("copy")
End Sub
</script>

</body>

</html>


	数式電卓
ホームホームページ更新履歴 NOW! チャットボイスチャットボイスメール分身一覧中継一覧チャットメンバー MSサポート情報検索検索ページシステム概要パスワード変更システム概要ダウンロードフォロー一覧 WINTIS97 ツール、TIPS Urlコンポーネント Sessionモニタ Excel作成 webinfo きゃらメール delold.vbs rentoday.vbs ASP TIPS IRC伝言サービス IRC計算サービスプロファイル aspProfile 時間計測 TimeTool MIMEマップ操作電話番号11桁対応 ServerVariables IPアドレス設定 Mediaモニタ数式電卓ファイル表示 CHOCOA URL紹介お勧めソフトウェアハードウェアリンク WinNT WebRing サイト一覧前へ次へランダム	HTA で、簡単な数式電卓をつくってみました。数式の処理は、VBScript の Eval を使っています。 HTA版ダウンロード fcalc.hta HTML版ここから、そのまま利用できます。(IE 5のみ) fcalc.htm 動作環境クライアントには、次のソフトが必要です。 Windows Media Server 4.0 以上 Internet Explorer 5.0 以上特徴まず、HTA は、HTML Application で、HTML ページをアプリケーションとして動作させるものです。実際には、HEAD に次のアプリケーションの属性を指定するだけです。　 <HTA:APPLICATION ID="oHTA" 　　APPLICATIONNAME="ClientMonitor" 　　BORDER="thik" 　　BORDERSTYLE="sunken" 　　CAPTION="yes" 　　ICON="graphics/face01.ico" 　　MAXIMIZEBUTTON="yes" 　　MINIMIZEBUTTON="yes" 　　SHOWINTASKBAR="yes" 　　SINGLEINSTANCE="no" 　　SYSMENU="yes" 　　VERSION="1.0" 　　WINDOWSTATE="normal" > また、クリップボードに計算結果をコピーする機能もつけました。これは、textRange の execCommand("copy") を使って実現しています。感想 WSH-ML にて、スクリプトベースの電卓の話が出ていましたので、つくってみました。　ソース <html> <head> <meta http-equiv="Content-Language" content="ja"> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>数式電卓(簡易版)</title> 　<HTA:APPLICATION ID="fcalc" 　　APPLICATIONNAME="数式電卓" 　　BORDER="thik" 　　BORDERSTYLE="sunken" 　　CAPTION="yes" 　　ICON="" 　　MAXIMIZEBUTTON="no" 　　MINIMIZEBUTTON="yes" 　　SHOWINTASKBAR="yes" 　　SINGLEINSTANCE="no" 　　SYSMENU="yes" 　　VERSION="1.0" 　　WINDOWSTATE="normal" 　　> 　　 </head> <body> <form id="frmCalc"> <p> 式:<input id="txtFormula" type="text" size="100" name="txtFormula" tabindex="1"><br> 答:<input id="txtResult" type="text" size="100" name="txtResult" tabindex="2"> </p> <input id="chkCopy" type="checkbox" value="ON" name="chkCopy" checked tabindex="3" >クリップボードにコピーする<br> <table border = 0 width=100%> <tr> <td> <input type="submit" value="計算" name="btnCalc" tabindex="4" /> <input type="button" value="クリア" name="btnClear" tabindex="5" /> </td> <td align="right"> <input type="button" value="閉じる" name="btnClose" tabindex="5" /> </td> </tr> </table> </form> <script language="vbscript"> window.resizeto 600, 200 Sub window_OnLoad() 　frmCalc.txtFormula.focus End Sub Sub window_OnFocus() 　frmCalc.txtFormula.select End Sub Sub btnCalc_OnClick() 　On Error Resume Next 　varResult = Eval(frmCalc.txtFormula.Value) 　If Err = 0 Then 　　frmCalc.txtResult.Value = CStr(varResult) 　　If frmCalc.chkCopy.checked Then 　　　txtResultCopyToClipboard 　　End If 　Else 　　frmCalc.txtResult.Value = Err.Description 　End If 　window.event.returnValue = False　　frmCalc.txtFormula.select End Sub Sub btnClear_OnClick() 　frmCalc.txtFormula.Value = "" 　frmCalc.txtFormula.select End Sub Sub btnClose_OnClick() 　window.close End Sub Sub txtResultCopyToClipboard() 　Set rngResult = frmCalc.txtResult.createTextRange() 　rngResult.execCommand("copy") End Sub </script> </body> </html>
作成:河端 Hotmail,MSN Messanger:YoshihiroKawabata 参照: 管理:/fcalc.asp 　　管理ツール