VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2007/05/18(Fri) 17:26 |
| 投稿者 | ： ダンボ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^6: LED制御について |
ご質問の最初の問題が解決していませんでした。
Sub CheckAndLight()
Dim lRet As Long, bRet(1) As Byte
Static BitNo As Integer
lRet = DioInpBit(lHandle, 0, bRet(0)) '順次点灯スイッチと仮定する
lRet = DioInpBit(lHandle, 1, bRet(1)) 'リセットスイッチと仮定する
'リセットスイッチが押されている場合
If bRet(1) <> 0 Then BitNo = 0
'順次点灯スイッチが押されている場合
If bRet(0) <> 0 Then
Select Case BitNo
Case 0
LED1を点ける
Case 1
LED1を消す
LED2を点ける
Case 2
LED2を消す
LED3を点ける
Case 3
LED3を消す
LED4を点ける
Case 4
LED4を消す
LED1を点ける
End Select
BitNo = BitNo + 1
If BitNo > 4 Then BitNo = 1
End If
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）