Lanケーブル作成

白橙・橙・白緑・青・白青・緑・白茶・茶

所謂、ストレートケーブルの配線の色。
この業界に入った頃は、Lanケーブルばかり作っていた。
疎通テストはＨＵＢを２つ用意して、ランプが点けばＯＫという方法。
ただし、ランプは点くが、実際、ＰＣ繋ぐと駄目ってパターンもあった．．．

変数の型を評価する

久しぶりに、VBでプログラムを組んでいると、
色々な懐かしいコーディングを思い出す。

Dim strItem As String
Select Case VarType(strItem)
　Case vbString
　　MsgBox "文字型だよー"
End Select

VarTypeで変数の型を評価することができる。
ついでに、戻り値一覧。

定数	値
vbEmpty	0
vbNull	1
vbInteger	2
vbLong	3
vbSingle	4
vbDouble	5
vbCurrency	6
vbDate	7
vbString	8
vbObject	9
vbError	10
vbBoolean	11
vbVariant	12
vbDataObject	13
vbByte	17
vbArray	8192

Collection

Collectionで値が入っているのかどうか判定する方法。

　Dim objItem As New Collection
　If (objItem("guitar") is Nothing) Then
　　MsgBox("値ないよー")
　End If

だと、思っていたが、これがどうも違う。
実際は、こう。

構造体の初期化

今日知りました。
とりあえず、

// 構造体
Private Type tpData
　　AttackPoint As String
　　DefensePoint As String
End Type
// 変数
Private m_typData As tpData

これを初期化する際に、今までは、

m_typData.AttackPoint = ""
m_typData.DefensePoint = ""

こんなことをしていた。
でも、こうやってできる。

Dim typ As tpData
m_typData = typ

なるほど。

IEバグ１

実際、PHP + SymfonyでWEBプログラミングをしていてぶちあたったバグが
これ。そして、マイクロソフトの対応策は、これ。
もう、馬鹿にしてるとしか思えない対応策。