ゆっくりでもできるプログラミング講座

ゆっくりでもできる関数

2011-06-28T13:24:30+09:00

'' 移動方向 Const MOVE_RIGHT = "右" Const MOVE_LEFT = "左" Const MOVE_UP = "上" Const MOVE_DOWN = "下" BorderWidth = 1 XPointMax = 500 - BorderWidth YPointMax = 500 - BorderWidth XPointMin = 0 YPointMin = 0 ''------------------------------------------------ ''Moveイベント ''------------------------------------------------ Function Move(Target, Direction, Distance) Dim Result Set TargetDom = Document.GetElementById(Target) Select Case Direction Case MOVE_RIGHT Result = AddPoint(TargetDom, Distance, 0) Case MOVE_LEFT Result = AddPoint(TargetDom, -Distance, 0) Case MOVE_UP Result = AddPoint(TargetDom, 0, -Distance) Case MOVE_DOWN Result = AddPoint(TargetDom, 0, Distance) Case Else MsgBox("Directionが不正です。") End Select Move = 0 End Function ''------------------------------------------------ ''座標移動 ''------------------------------------------------ Function AddPoint(TargetDom, AddXPoint, AddYPoint) If (TargetDom.hspace + AddXPoint) > (XPointMax -

ゆっくりでもできるファイル入出力

2011-06-27T14:33:13+09:00

-概要テキストファイルの読み込み・書き込みを行います。(入出力) -ファイル入出力ファイル操作の流れは、ファイルを開く-内容を読み込む(書き込む)-ファイルを閉じるという流れになります。以下は、ファイルの入出力を実装したコード例です。 File.vbs ' パス名は自分の環境に合わせます Const FILE_DIRPATH = "C:\Documents and Settings\WHITE\デスクトップ\VBScript\ Function ReadFile(FilePath) Set FSObject = CreateObject("Scripting.FileSystemObject") Set ReadFileObject = FSObject.OpenTextFile(FILE_DIRPATH & FilePath, 1) ReadFile = ReadFileObject.ReadAll ReadFileObject.Close End Function Sub WriteFile(FilePath) Set FSObject = CreateObject("Scripting.FileSystemObject") Set WriteFileObject = FSObject.OpenTextFile(FILE_DIRPATH & FilePath, 2, True) WriteFileObject.Write("test") WriteFileObject.Close End Sub まず、テキストファイルを格納しているフォルダのパスを設定します。パスとはファイルのありかを示しており、 "C:\Documents and Settings\WHITE\デスクトップ\VBScript\ は、Cドライブの下の、Documents and Settingsの下の、…、VBScriptフォルダの下という意味になります。 Functionは関数を表します。関数とは、あらかじめ定められた計算式に基づいて、計算結果を返してくれる機構です。計算結果は関数名ReadFileと同じ名前を持つ変数Read

ゆっくりでもできるスレッド

2011-06-22T16:22:22+09:00

-概要スレッドを生成し、アニメーションを作成します。 -スレッドスレッドとは、独立して実行されるプログラムです。通常のプログラムは一つの流れ(メインのスレッド)で処理されますが、スレッドを新たに生成することにより、並行してプログラムを実行することが可能です。これをマルチスレッドとも呼びます。以下は、タイマーを利用したスレッドの作成例です。 Thread.vbs Sub Window_OnLoad RightMove_OnClick() OnLoadTimer = window.SetTimeout("Window_OnLoad()", 10) End Sub Window_OnLoadは、ウィンドウ(この場合はIEブラウザ)が読み込まれた時点で、発生するイベントです。 (Windowはもともと存在しているオブジェクトなので、改めてhtmlに宣言する必要はありません) SetTimeOutは指定されたミリ秒後に、任意の処理を行う関数です。今回は10ミリ秒(1秒に100回)Window_OnLoadを呼び出します。 10ミリ秒後に呼び出した後、また、10ミリ秒後に呼び出されることになるので、 Window_OnLoadは無限に呼び出されます。ここでポイントなのは、最初に10ミリ秒後に呼び出す命令を出した後、サブルーチンが終了していることです。これにより、メインのスレッドへコントロールが変えることになり、以降の処理は、Window_OnLoad内で独立して実行されます。(スレッド化) 変数OnLoadTimerには、作成したタイマーのIDが代入されますが、今回は扱わないので省略します。 #comment

ゆっくりでもできる定数

2011-06-21T09:43:46+09:00

-概要仮想キーコードを定義した、定数を作成します。 -定数定数は値が変化しない領域です。宣言時に値を代入したあとは、プログラム中で別の値を代入することはできません。定数を宣言するときは、 Const修飾子を使います。(Constは Constant:定数の略) 例: Const THREE_SEVEN = 777, Const DirPath = "C:/File/Test/" 以下は実際に定数を宣言した例です。 KeyEvent.vbs '仮想キーコード Const VK_RIGHT = 39 Const VK_LEFT = 37 Const VK_UP = 38 Const VK_DOWN = 40 Sub Body_OnKeyDown Select Case Window.Event.KeyCode Case VK_RIGHT RightMove_OnClick() Case VK_LEFT LeftMove_OnClick() Case VK_UP UPMove_OnClick() Case VK_DOWN DownMove_OnClick() Case Else MsgBox(Window.Event.KeyCode) End Select End Sub 今回はOnClickではなく、OnKeyDownイベントをトリガーにしています。これは、キーボードのキーが押されたときに発生するイベントです。 Window.Eventはイベントハンドラ中で使用できるイベントオブジェクトです。この場合は、OnKeyDown時に関わる様々な情報を保持しており、 Window.Event.KeyCodeでキーボードから押されたキー情報を取得していますキー情報は仮想キーと呼ばれる、数値情報で表されます。例えば、(→)が押された場合は39という数値情報が格納されています。なお、今回は仮想キーを定数で定義しましたが、仮想キーの定数がデフォルトで宣言されている言語もあるので、事前に調査する必要があります。(よくつかわれる言語では宣言してあるものの方が多

ゆっくりでもできる演算子

2011-06-21T09:45:15+09:00

-概要演算子を使って足し算と引き算を行います。 -演算子演算子はいくつかの記号で構成され、計算や論理的な記述を行うときに用いられます。例：+,-,*,/,=,<,&&,||...etc 以下は(+)を使って足し算、 (-)を使って引き算を行う例です。 Move.vbs Sub RightMove_OnClick X_POINT = Document.GetElementById("ゆっくり_png").hspace Document.GetElementById("ゆっくり_png").hspace = X_POINT + 100 End Sub Sub LeftMove_OnClick X_POINT = Document.GetElementById("ゆっくり_png").hspace Document.GetElementById("ゆっくり_png").hspace = X_POINT - 100 End Sub Sub UpMove_OnClick Y_POINT = Document.GetElementById("ゆっくり_png").vspace Document.GetElementById("ゆっくり_png").vspace = Y_POINT - 100 End Sub Sub DownMove_OnClick Y_POINT = Document.GetElementById("ゆっくり_png").vspace Document.GetElementById("ゆっくり_png").vspace = Y_POINT + 100 End Sub DOMを使ってhspace属性とvspace属性にアクセスしています。 hspace:横の空白の長さ vspace:縦の空白の長さ Animation.html

ゆっくりでもできる入力処理

2011-06-16T15:18:59+09:00

-概要外部から入力された値を処理します。 -テキストボックス入力インターフェースとしてテキストボックスを使用します。 Message.html
入力

タグは改行を表します。(br=Breakの略) input要素のtype属性に"text"を指定します。 id属性は、要素を一意に示すIDです。要素にアクセスしたいときに分かりやすい名前を付けてください。 -ドム HTMLの要素にアクセスするときは、DOMを使います。 DOMはDocument Object Model の略で、 id属性やname,tag属性等から要素にアクセスして、様々な操作を行うことができます。今回はID属性を指定して、テキストボックスの要素にアクセスし、入力されている値(value)を取得します。 Input.vbs Sub Input_OnClick Dim Text Text = Document.GetElementById("InputTetx").value MsgBox(Text) End Sub 変数TextにDOMで取得した値を代入し、メッセージ出力します。 GetElementById("任意のID属性値")で、IDを指定して任意の要素にアクセスできます。同様に、GetElementsByNameやGetElementsByT

ゆっくりでもできる外部参照

2011-06-16T20:10:16+09:00

-概要 vbsファイルを外部ファイルから参照する。クリックイベントを受け取り、外部ファイルの処理を実行する -外部参照外部参照とは、別のファイルに記述されたプログラムを読み取り、利用するための技術です。 VBScriptには、デフォルトで外部ファイルを参照する機能はありません。 (自分で実装することはできますが、ここでは省略します。) HTMLを利用してvbsファイルを外部参照してみます。(Message.htmlを参照) HTMLは最も身近なコンピューター言語のひとつで、例えばこのサイトもHTMLで構成されています。 (「右クリックコンテキストメニュー」-「ソースの表示」を選択すると分かります) Message.html HTML等のマークアップ言語の特徴として、「タグ」という概念があります。タグは<>で囲まれ、様々な機能を持っています。今回は、

ゆっくりでもできる If文

2011-06-16T15:17:48+09:00

-概要 If文を使った条件分岐を行います。 -If文 If 条件 Then 処理１ Else 処理2 End If 上記は、「もし条件が正しいなら、処理1を行い」「それ以外の場合は処理2を行う」という意味になります。 GameMessage.vbsはIf文の実装例です。 GameMessage.vbs Dim MsgBoxResult MsgBoxResult = MsgBox("世界の半分をお前にやろう", vbYesNo) Dim Msg If MsgBoxResult = vbYes Then Msg = "GAME OVER" Else Msg = "おろかものめ！おもいしるがいい!" End If MsgBox(Msg) DimはDimension (次元) の略で、変数を宣言するのに使われます。変数とは任意の値を保持する領域です。例えば、変数MsgBoxResult には MsgBoxの実行結果が保持され、変数Msgには任意の文字列が代入されます。 MsgBoxの実行結果は、 vbYes(はいが選択された場合)かvbNo(いいえが選択された場合)が入ります。なぜこの値が代入されるかというと、関数の戻り値を受け取っているためですが、ここでは省略します。 If文では変数MsgBoxResultの値が、 vbYes(はいが選択された場合)か、それ以外かを判定し、変数Msgに任意の文字列を代入します。変数Msgに代入された文字列を出力確認して終了です。 -おまけ Ctrl + z 元に戻す時を操る強力なショートカットキーです。 #comment

ゆっくりでもできる プログラミング講座

ゆっくりでもできる 関数

ゆっくりでもできる ファイル入出力

ゆっくりでもできる スレッド

ゆっくりでもできる 定数

ゆっくりでもできる 演算子

ゆっくりでもできる 入力処理

ゆっくりでもできる 外部参照