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

ゆっくりでもできる関数

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 - TargetDom.width) Then TargetDom.hspace = XPointMax - TargetDom.width ElseIf (TargetDom.hspace + AddXPoint) < XPointMin Then TargetDom.hspace = 0 Else TargetDom.hspace = TargetDom.hspace + AddXPoint End If If (TargetDom.vspace + AddYPoint) > (YPointMax - TargetDom.height) Then TargetDom.vspace = YPointMax - TargetDom.height ElseIf (TargetDom.vspace + AddYPoint) < YPointMin Then TargetDom.vspace = 0 Else TargetDom.vspace = TargetDom.vspace + AddYPoint End If AddPoint = 0 End Function '仮想キーコード Const VK_RIGHT = 39 Const VK_LEFT = 37 Const VK_UP = 38 Const VK_DOWN = 40 Const VK_A = 65 Const VK_D = 68 Distance = 1 DistanceUP = 1 DistanceDown = -1 ''------------------------------------------------ ''キーイベントハンドラ ''------------------------------------------------ Sub Body_OnKeyDown() Select Case Window.Event.KeyCode Case VK_RIGHT KeyEventMove(MOVE_RIGHT) Case VK_LEFT KeyEventMove(MOVE_LEFT) Case VK_UP KeyEventMove(MOVE_UP) Case VK_DOWN KeyEventMove(MOVE_DOWN) Case VK_A KeyEventAddDistance(DistanceDown) Case VK_D KeyEventAddDistance(DistanceUP) Case Else MsgBox(Window.Event.KeyCode) End Select End Sub ''------------------------------------------------ ''移動 ''------------------------------------------------ Sub KeyEventMove(Direction) Dim Result Dim Target Target = "シャボン_bmp" Result = Move(Target, Direction, Distance) End Sub ''------------------------------------------------ ''移動距離増減 ''------------------------------------------------ Sub KeyEventAddDistance(AddDistance) Distance = Distance + AddDistance If Distance = 0 Then Distance = 1 ElseIf Distance = 11 Then Distance = 10 End If End Sub

FILE_DIRPATH = "C:\Documents and Settings\979075\デスクトップ\Program\VBScript\bin\test\" 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 Sub DrawBackGround(DrawData) Dim MyInnerHtml MyInnerHtml = "" For DrawDataCnt = 1 To Len(DrawData) Select Case Mid(DrawData, DrawDataCnt, 1) Case "*" MyInnerHtml = MyInnerHtml & "" Case " " MyInnerHtml = MyInnerHtml & "" Case VbCr MyInnerHtml = MyInnerHtml & "
" Case VbLf Case Else MsgBox(Mid(DrawData, DrawDataCnt, 1)) End Select Next Document.GetElementById("BG").innerHTML = MyInnerHtml End Sub

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

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と同じ名前を持つ変数ReadFileに格納されます。今回は、ファイルから読み込んだ内容(計算結果)をReadFileに格納しています。

メニュー

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

-ゆっくりでもできるプログラミング講座 --[[0_はじめに]] --[[1_MsgBox>ゆっくりでもできる MsgBox]] --[[2_If文>ゆっくりでもできる If文]] --[[3_外部参照>ゆっくりでもできる外部参照]] --[[4_入力処理>ゆっくりでもできる入力処理]] --[[5_SELECT-CASE文>ゆっくりでもできる SELCT-CASE文]] --[[6_演算子>ゆっくりでもできる演算子]] --[[7_定数>ゆっくりでもできる定数]] --[[8_スレッド>ゆっくりでもできるスレッド]]

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

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: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

おまけ hspaceやvspace等、タグには様々な属性を持っているものがあるので、興味のある方は、「htmlタグ」等のキーワードでggrってみるとおもしろいです。 #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という数値情報が格納されています。なお、今回は仮想キーを定数で定義しましたが、仮想キーの定数がデフォルトで宣言されている言語もあるので、事前に調査する必要があります。(よくつかわれる言語では宣言してあるものの方が多いかも) -BODYタグ今回はイベントの発信源としてBODYを使います。 BODYタグはhtmlを構成する３大タグのひとつで、テキストやボタン等の表示範囲を表す、最も大きな枠組みです。 Animation.vbs

おまけプログラミングの用語にリファクタリングというのがあります。これはプログラムを研磨し、よりよいものにする作業です。プログラムはとりあえず動けばいいと思うかもしれませんが、後々後悔する時がやってきます。ここまであまりプログラムの構造とかは意識していませんが、そのうちリファクタリング回を開こうと思います。 #comment

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

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

-概要 vbsファイルを外部ファイルから参照する。クリックイベントを受け取り、外部ファイルの処理を実行する -外部参照外部参照とは、別のファイルに記述されたプログラムを読み取り、利用するための技術です。 VBScriptには、デフォルトで外部ファイルを参照する機能はありません。 (自分で実装することはできますが、ここでは省略します。) HTMLを利用してvbsファイルを外部参照してみます。(Message.htmlを参照) HTMLは最も身近なコンピューター言語のひとつで、例えばこのサイトもHTMLで構成されています。 (「右クリックコンテキストメニュー」-「ソースの表示」を選択すると分かります) Message.html HTML等のマークアップ言語の特徴として、「タグ」という概念があります。タグは<>で囲まれ、様々な機能を持っています。今回は、タグを追加しました。タグは主にGUIを構成するのにつかわれます。 (GUI=グラフィカルユーザーインターフェースの略で、視覚的な操作機構、ボタンやアイコン等を表します。) input要素のtype属性に"button"を指定するとボタンが作成されます。 value属性は、この場合ボタンの上に表示される文字列です。クリックイベントをハンドルする方法は複数ありますが、今回はname属性で指定されている対象が、 OnClickイベントを起こした場合をハンドルします。(Message.vbsを参照) Message.vbs Sub Message_OnClick MsgBox("任意の文字列") End Sub Subは戻り値を返さないサブルーチンを表します。サブルーチンとは、途中に挿入できるコード部品で、例えば MsgBox("サブルーチン開始") Message_OnClick() MsgBox("サブルーチン終了") とすると、「サブルーチン開始」「任意の文字列」「サブルーチン終了」の順で出力されます。詳しくは長くなるので省略します。サブルーチンの名前を、「name属性の値_OnClick」にします。こうすることにより、任意のname属性のタグでクリックイベントが発生した場合、このサブルーチンが呼び出されることになります。 -おまけタグを使用して、画像を出力します。(Message.html-3を参照) Message.html-3 img要素のsrc属性で画像ファイルを指定し、ピクセル単位でwidth(幅)とheight(高さ)を指定します。 (ピクセルはディスプレイに表示できる最小単位です。) -おまけ2 Ctrl + C で選択範囲をコピー Ctrl + V で選択範囲(もしくは現在の位置)に張り付け Ctrl + X で選択範囲を切り取りいわゆるコピペでよく使うショートカットキーです。 #comment

0_はじめに

2011-06-16T19:59:20+09:00

プログラミングと聞いて何を連想しますか？ゲーム？難しい？オタクっぽい？印象は人それぞれだと思います。私はプログラミングと聞いて魔法を連想します。魔法のように何か不思議な言葉を唱えて、何もないところから現象を引き出すイメージです。魔法の言葉はプログラミング言語であり、魔法使いの杖はテキストエディタです。無限に思える知識の塊、賢者の石はネットであり、望むならすべての人に門を開くでしょう。なんてね。プログラミングの世界はとても広大で、私にはどこまで続いているか見当もつきませんが、しばしの間、一緒にこの世界を冒険してみませんか？

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

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やGetElementsByTagName等でもアクセスできますが、ここでは省略します。 -おまけ Document.GetEle…とかなんとか、やたらと長いですよね。このながーいスペルは別に記憶する必要はありません。なんとなく感覚でこういうのがあると知っていれば、 ggrってコピペするだけでいいです。あるいは、あらかじめコピペ用のテキストを作るとか(スニペットとか) 自分専用の関数を作成するのも手です。ここでは詳しく述べませんが、こういったノウハウはいろいろあるので、なるべく楽な方法を考えるといいですね。 #comment

ゆっくりでもできる 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

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

ゆっくりでもできる 関数

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

メニュー

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

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

ゆっくりでもできる 定数

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