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だけなのもいまいちですね。

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

2010年7月30日金曜日

Lynxで使用しているソフト

Lynxで使用しているソフトは以下の通り。ほとんどが標準。

【利用機種】 lynx
【Home】 標準
【IME】 標準
【メール】 imoni、Gmail
【ブラウザ】 標準
【2chブラウザ】Tuboroid
【Twitter】 Twicca
【mixi】 未使用
【メモ】 標準
【画像】 標準
【音楽】 標準
【動画】 標準
【comic】 未使用
【news(RSS)】 googleリーダー
【天気】 CliphWeather
【タスク管理】 未使用
【SD管理】 標準
【アプリ管理】 未使用
【その他(お勧め)】
スケジュールは標準。googleと複数カレンダーの同期が可能なので。
ゲームは今のところggNESLiteのみ。

lynxで無線LANで通信ができない場合

あくまで私の場合ですが、初期設定時に無線lanに接続するが通信ができない症状が発生した際の対応方法です。

■通信環境概要
・811b WEP128bit
・固定IPアドレスを使用

■対応方法
1)工場出荷状態に戻す → 再設定
2)同一セグメントのPCからlynxへPing

実際には、2)だけで回復するかもしれません。いろいろと試した結果ですが、lynxは無線LANまわり(ARPテーブルまわり?)に不具合があるように感じます。もっとも一度繋がればあとは問題なく通信可能となるのですが。。。

2010年4月13日火曜日

WRKOBJLCK:ファイルがロックしている時に使用先を確認する

WRKOBJLCK

ファイルがロックしている時に利用先を確認するのに使用。

WRKOBJLCK OBJ(ライブラリ名/ファイル名) OBJTYPE(*FILE)

2010年4月12日月曜日

COMP-4に変換するための覚書

仕事で、EBCDIC、レコード内マルチレイアウトで繰り返しありのデータで、
COMP-4の項目の修正を行うことがありましたのでそのときに参考とした
情報の覚書です。

Book3 言語マニュアル
USAGE IS COMP(UTATIONAL)、COMP(UTATIONAL)-4 、BINARY
com形式のデータについての詳細が記載されています。
---COMP-4について---
2の補数をもつ2進形式で表現される。この形式では、右端(最下位ビット)から始め、その値の2の累乗があるか否かを示すビット表現からなり、負の数は、正の数のビットをすべて反転したものに1を加えた値として表現される。記憶領域は、PICTURE句の9の数とコンパイルオプションによって決まる。 たとえば、プログラムが31桁サポートでコンパイルされていれば、9を18個以上含むことができる。
---


■新数変換のサイト
2進数、8進数、10進数、16進数相互変換

388を変換する場合の結果
※バイナリエディタでcomp-4を見ると、「338」は「01 84」と表示される。