2010年8月11日水曜日

10進数と2進数を変換する

10進数と2進数を変換する

マスタなどのフラグ情報を10進数で格納しているものを2進数に戻す場合に利用。
例)8ビットの場合
'■Convert10to2
'■機能:10進数を2進数に変換する。
Public Function Convert10to2(Value As Long) As String
Dim lngBit As Long
Dim strData As String

Do Until (Value < 2 ^ lngBit) If (Value And 2 ^ lngBit) <> 0 Then
strData = "1" & strData
Else
strData = "0" & strData
End If

lngBit = lngBit + 1
Loop

strData = Right("00000000" & strData, 8)

Convert10to2 = strData

End Function

2010年8月9日月曜日

LYNX使ってて困っていること2点

LYNX使ってて困っていることを2点、自分のTwitterから転用。

①コピペとクリップボード
「アプリによってはコピペができない」「アプリ間のクリップボードが移動できない」です。
使い勝手にかなり影響するので結構キツイ。。。

②ハードコピー
標準でハードコピーが取れないのも結構キツイ。ネットで調べたちょっとしたことを、ハード
コピーで保存出来ないので、検索したものをブックマークに登録し、あとでもう一度ページを
呼び出すといった手間をかけています。
Evernoteへも連携できるのも、URLだけなのもいまいちですね。

検索ツールとしては活用できていますが、メモツールとしてはまだまだな状態です。