ゆっくりでもできる関数

'' 移動方向
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

<img src="シャボン.bmp" id="シャボン_bmp" width="100" height="100" hspace="0" vspace="0">

</div>

</body>

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 & "<img src=""シャボン.bmp"" width=""100"" height=""100"" >"
	Case " "
		MyInnerHtml = MyInnerHtml & "<img src="""" width=""100"" height=""100"" >"
	Case VbCr
		MyInnerHtml = MyInnerHtml & "</br>"
	Case VbLf
	Case Else
		MsgBox(Mid(DrawData, DrawDataCnt, 1))
End Select

Document.GetElementById("BG").innerHTML = MyInnerHtml
End Sub

「ゆっくりでもできる関数」をウィキ内検索

最終更新：2011年06月28日 13:24

ツールボックス

下から選んでください:

新しいページを作成する

ヘルプ / FAQ もご覧ください。

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

ゆっくりでもできる 関数

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

ゆっくりでもできる関数