<   2014年 08月 ( 5 )   > この月の画像一覧
[VBScript] デバッグ上手はプログラム上手6 ~まとめ改~
こんにチワワ。どーもボキです。

以下と組み合わせれば、実行時にホストを変更でき、デバッグが楽になる。
引数を引き継いだ上で、指定したホストで実行する

前回はデバッグクラスを自分で生成するようにしていたが、
今回の記事では、最初にdprintf()を実行したタイミングで自動生成するよう改良した。

配布時は、SetScriptHostのみコメントアウトすればよい。
デフォルトであるWScriptホストでは、デバッグメッセージが表示されないようにしているので。

プログラムとその実装例
SetScriptHost("CScript")
dprintf("デバッグモード")

' ↑上記にスクリプト本体を記載する
' ===============================================================================
' デバッグ
Dim objDbg
' クラス
Class TDebug
Dim FCScript

' 初期化処理
Private Sub Class_Initialize()
FCScript = InStr(LCase(WSCript.FullName), "cscript") > 0
End Sub

' 終了処理
Private Sub Class_Terminate()
If Not FCScript Then Exit Sub

WScript.StdOut.WriteLine NOW & " [END]"
WScript.StdIn.ReadLine
End Sub

' CScriptホストかどうか
Public Property Get CScript
CScript = FCScript
End Property

' デバッグメッセージ処理
Public Sub dprintf(v)
Dim i,s,ityp
If Not FCScript Then Exit Sub

s = v
ityp = VarType(v)
If ityp = vbBoolean Then
s = CStr(v)
ElseIf VarType(v) >= vbArray Then
s = ""
For i = 0 to UBound(v)
s = s & "dprintf(" &i& ")=" & v(i) & vbCRLF
Next
End If
WScript.Echo s
End Sub
End Class
' 関数
Sub dprintf(v)
If VarType(objDbg) = vbEmpty Then
Set objDbg = New TDebug
objDbg.dprintf(NOW & " " & WScript.ScriptFullName)
End If
objDbg.dprintf(v)
End Sub
' -------------------------------------------------------------------------------
' 実行ホストを切り替える
Sub SetScriptHost(HostName)
If InStr(LCase(WSCript.FullName), LCase(HostName)) <> 0 Then Exit Sub

s = HostName & " """ & WScript.ScriptFullName & """"
If WScript.Arguments.Count > 0 Then
For i = 0 To WScript.Arguments.Count -1
s = s &" """ & WScript.Arguments.Item(i) & """" ' 引数
Next
End If
objWS.Run s
WScript.Quit
End Sub
' -------------------------------------------------------------------------------
[VBScript] デバッグ上手はプログラム上手5 ~まとめ~

[PR]
by yozda | 2014-08-24 14:48 | プログラミング | Trackback | Comments(0)
LINEツムツム アイテムなし&レベルボーナスなしで100万点突破!
こんにチワワ。どーもボキです。

ついに、アイテムなし&レベルボーナスなしで100万点超えたよ。
う~ん、完全に満足したわ。
a0021757_2010536.jpg
フィーバー中にチップ化させたビッグツムをロングチェーン消去できたのが大きかったね。

a0021757_20105590.jpg
デールのスキルLvは2。黒い犬はいまだにGETできてない。

a0021757_209546.jpg
レベルボーナス込みのスコア。この快挙は今日が始めて。けど、今日だけで3回出来た。
LINEツムツムでアイテムなしで100万点突破!

[PR]
by yozda | 2014-08-23 17:56 | ゲーム | Trackback(1) | Comments(0)
[3DS] 逆転裁判5
おはヨーグルト。どーもボキです。

逆転裁判5

カプコン

スコア:

ポリゴンモデルが良く出来ている。イメージイラストを違和感なく再現できており、その動きもしなやか。
けど、それだけ。

ただ、つまらない。ハチャメチャなストーリー、バカすぎる登場人物たちには、もうね、おなかいっぱい。
ドン!ドン!(机たたく音)、えええええええええええ!(驚く台詞)の繰り返し、もうね、うんざり。

ラスボスも残念すぎ。あれだと何も感じないよね。何でもありだよね。

あと、GBA⇒DS⇒3DSと解像度が上がっているんだからさぁ。一画面に表示するテキストを増やしたら?
早送りできるようになったけど、それでもテンポ悪い。


[PR]
by yozda | 2014-08-17 12:13 | ゲーム | Trackback | Comments(0)
Jewel beetle
こんにチワワ。どーもボキてす。

ごめんごめん英語が出てしまったよ。
『Jewel beetle』ってのは『タマムシ』のことね。

写真じゃ伝わらんけど、タマムシってまさに宝石のようだね。

どんな理由でこんな模様になったのか?
想像できない位長い年月の中で、綺麗な模様の個体が生き残りやすかったのか?
昆虫ってのはホント不思議だよなぁ。
a0021757_17424359.jpg
a0021757_2115924.jpg



これは銀蠅。こちらも負けず美しい。
ハエだけど。
a0021757_14143497.jpg


これはニジイロクワガタ。オーストラリアの固有種。
養殖も簡単なので、4000円程度と比較的安価で購入できる。
a0021757_12473921.jpg

[PR]
by yozda | 2014-08-12 14:12 | 暮らし | Trackback | Comments(0)
LINEツムツムでアイテムなしで100万点突破!
こんにチワワ。どーもボキです。

やぁーっと、アイテムなしで100万点超えた。
最初にアイテム利用で100万点超えてから、20日もかかってしまった。

レベル補正こみだが、もう満足した。

ちなみにデールのスキルレベルは1のまま。
縛りプレイではなく、単にデールが全くでなかっただけ。

デールでの100万点は、運がよくないと出せない(ボキにとって。だから20日もかかった)が、それでもコツとしては以下。

・コンボを絶やさない。
・ボムは、通常時に使ってフィーバーを促す。または、ロングチェーン消去はアニメキャンセルに使う。
・スキルは、フィーバー中に使う。
・ビッグツムは、デールのスキルでチップに変身させる。
・中央に出現したボムはデールのスキルの邪魔になるのですぐに使う。

とかね。常にできるわけじゃないけどね。アイテムなし100万点が迫ってた時はちょっと手が震えたよ。
a0021757_14313357.jpg
a0021757_14344715.jpg


これはアイテムを使ってどこまで行くか確認したもの。
a0021757_1759392.jpg

[PR]
by yozda | 2014-08-10 14:30 | ゲーム | Trackback(1) | Comments(0)