VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/05/27(Fri) 17:04 |
| 投稿者 | ： まな |
| ＵＲＬ | ： |
| タイトル | ： Re^5: 16進→2進変換での0処理 |
色々ご指導ありがとうございました。
「０」の認識がやはり難しかったので、下記のように行いました。
If kazu_1 = "0" Then kazu_1 = "0000"
If kazu_1 = "1" Then kazu_1 = "0001"
If kazu_1 = "2" Then kazu_1 = "0010"
If kazu_1 = "3" Then kazu_1 = "0011"
If kazu_1 = "4" Then kazu_1 = "0100"
If kazu_1 = "5" Then kazu_1 = "0101"
If kazu_1 = "6" Then kazu_1 = "0110"
If kazu_1 = "7" Then kazu_1 = "0111"
If kazu_1 = "8" Then kazu_1 = "1000"
If kazu_1 = "9" Then kazu_1 = "1001"
If kazu_1 = "A" Then kazu_1 = "1010"
If kazu_1 = "B" Then kazu_1 = "1011"
If kazu_1 = "C" Then kazu_1 = "1100"
If kazu_1 = "D" Then kazu_1 = "1101"
If kazu_1 = "E" Then kazu_1 = "1110"
If kazu_1 = "F" Then kazu_1 = "1111"
If kazu_2 = "0" Then kazu_2 = "0000"
If kazu_2 = "1" Then kazu_2 = "0001"
If kazu_2 = "2" Then kazu_2 = "0010"
If kazu_2 = "3" Then kazu_2 = "0011"
If kazu_2 = "4" Then kazu_2 = "0100"
If kazu_2 = "5" Then kazu_2 = "0101"
If kazu_2 = "6" Then kazu_2 = "0110"
If kazu_2 = "7" Then kazu_2 = "0111"
If kazu_2 = "8" Then kazu_2 = "1000"
If kazu_2 = "9" Then kazu_2 = "1001"
If kazu_2 = "A" Then kazu_2 = "1010"
If kazu_2 = "B" Then kazu_2 = "1011"
If kazu_2 = "C" Then kazu_2 = "1100"
If kazu_2 = "D" Then kazu_2 = "1101"
If kazu_2 = "E" Then kazu_2 = "1110"
If kazu_2 = "F" Then kazu_2 = "1111"
kazu_total = kazu_1 & kazu_2
かなり、強引でしょぼいです。。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）