VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2007/05/18(Fri) 11:13 |
| 投稿者 | ： ユウジ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： LED制御について |
みなさんはじめまして。
初投稿させていただくユウジと申します。
ＶＢ６．０を最近はじめたばかりの初心者です。
ただいま簡素な制御計のプログラムを制作しているのですが初期からいきなりつまずいて
しまいました。
皆様からしたらくだらない質問かもしれませんがお力を貸していただけないでしょうか？
質問：ＬＥＤが１〜４まであり
ボタンを押すと１が点灯
もう１度押すと１が消灯し２が点灯
もう１度押すと２が消灯し３が点灯・・・
と言った具合に無限にループするプログラムです。
*********************************************
Dim lRet As Long, bRet(3) As Byte
lRet = DioInpBit(lHandle, 0, bRet(0))
lRet = DioInpBit(lHandle, 1, bRet(1))
lRet = DioInpBit(lHandle, 2, bRet(2))
lRet = DioInpBit(lHandle, 3, bRet(3))
'スイッチ１
If bRet(0) <> 0 Then
Label1(0).BackColor = &HFF
lRet = DioOutBit(lHandle, 0, 1)
Else
Label1(0).BackColor = &H8000000F
End If
if bRet(0) = 1 then
lRet = DioOutBit(lHandle, 0, 0
lRet = DioOutBit(lHandle, 1 1)
Else
Label1(0).BackColor = &H8000000F
End If
*********************************************
この条件式だと当然のことながらボタンを押しても
ＬＥＤ１が点灯せずＬＥＤ２がいきなり点灯してしますます。
参考程度で宜しいのでどのような関数を使えばよいか、
どのような条件でくぎればよいか？
等教えていただけると幸いです。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）