コミュ障だから明日が僕らをよんだって返事もろくにしなかった

何かを創る人に憧れたからブログをはじめたんだと思うよ

今日も非生産的な何かをつくってしまった

HTA VBScript
なにもない

何も産み出さない一日が何もないものをつくってしまう。今日も無だった。

いまはむかしの技術

そういえば、HTAとかVBScriptとかあったなということを思い出したのでいじってみた。今のOSで動くのかはわからないし、そんなものをやる意味があるのかはわからないけどそう思っても仕方がないし、思いついたら何かを作ってしまっていたのでこうして記事になってしまったよ。

HTA
HTAとは、ダイナミックHTML（DHTML）の機能を利用して、Windows向けのアプリケーションを作成する技術のことである。Internet Explorer 5.0から利用可能となっている。

VBScript
VBScriptとは、MicrosoftがWindows向けのプログラミング言語であるVisual Basicをベースとして開発した、Webページ用のスクリプト言語のことである。

コードはここのを参考にしてるよ。
VBScript初心者入門講座

つくった

ただのコピーはつまらないと思ったのでHTAでうごかしたよ。
f:id:andron:20160820200838p:plain

収入換算アプリ？そんなものは持たざるものの僕を苦しめるだけだから省略して閉じるボタンにしたよ。

<html>
<head>
 <meta charset="utf-8">
 <title>HTAでできた何か</title>
<style>
</style>
</head>
<body>
<h2>使いたい項目を選んでね</h2>
  <input type="button" name="button1" value="時間を確認" onClick="button1()">
  <hr>

  <input type="button" name="button2" value="割り勘電卓" onClick="button2()">
  <hr>

  <input type="button" name="button3" value="アプリを終了" onClick="button3()">
  <hr>

<SCRIPT language="VBScript">  
Rem Windowサイズの指定
    Sub Window_onLoad 
        window.resizeTo 400,250 
    End Sub  
</SCRIPT>
<script language="VBScript">
Rem 現在の日付と時刻の確認
Dim str 
str = "日付:" & Date & vbCr & "時刻:" & Time
  sub button1
    MsgBox str,,"時計"
  End Sub
</script>
<script language="VBScript">
Rem 割り勘電卓
  sub button2
  Dim ans, money, person, y1, y10, y100

  money = InputBox("金額を入力してください","金額の設定")
  person = InputBox("人数を入力してください。", "人数の設定")

  y1 = Round(money / person)
  y10 = Round((money / person) / 10) * 10
  y100 = Round((money / person) / 100) * 100

  ans ="金額："& money & "  人数:" & person & vbCr _
      &"1円単位  ："& Chr(9) & y1 & "円" & vbCr _
      & "10円単位 ："& Chr(9) & y10 & "円" & vbCr _
     & "100円単位："& Chr(9) & y100 & "円"
    MsgBox ans, , "徴収金額"
  End Sub
</script>
<script language="VBScript">
Rem アプリの終了
  sub button3
    window.close()
  End Sub
</script>
</body>
</html>

ただの写しのはずだったのだけどなぜか作るのに苦戦してしまった。この手のVBとかつく言語の「（）括弧」の使い方でエラーをぽんぽん吐き出してくるのはどうも苦手だ。

[トップへ]