2010年8月21日土曜日
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
マスタなどのフラグ情報を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だけなのもいまいちですね。
検索ツールとしては活用できていますが、メモツールとしてはまだまだな状態です。
①コピペとクリップボード
「アプリによってはコピペができない」「アプリ間のクリップボードが移動できない」です。
使い勝手にかなり影響するので結構キツイ。。。
②ハードコピー
標準でハードコピーが取れないのも結構キツイ。ネットで調べたちょっとしたことを、ハード
コピーで保存出来ないので、検索したものをブックマークに登録し、あとでもう一度ページを
呼び出すといった手間をかけています。
Evernoteへも連携できるのも、URLだけなのもいまいちですね。
検索ツールとしては活用できていますが、メモツールとしてはまだまだな状態です。
登録:
投稿 (Atom)