みなさんはじめまして。

初投稿させていただくユウジと申します。


ＶＢ６．０を最近はじめたばかりの初心者です。

ただいま簡素な制御計のプログラムを制作しているのですが初期からいきなりつまずいて

しまいました。


皆様からしたらくだらない質問かもしれませんがお力を貸していただけないでしょうか？




質問：ＬＥＤが１〜４まであり
ボタンを押すと１が点灯
もう１度押すと１が消灯し２が点灯
もう１度押すと２が消灯し３が点灯・・・


と言った具合に無限にループするプログラムです。

*********************************************
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

        


*********************************************


この条件式だと当然のことながらボタンを押しても

ＬＥＤ１が点灯せずＬＥＤ２がいきなり点灯してしますます。

参考程度で宜しいのでどのような関数を使えばよいか、

どのような条件でくぎればよいか？

等教えていただけると幸いです。

> 質問：ＬＥＤが１〜４まであり
> ボタンを押すと１が点灯
> もう１度押すと１が消灯し２が点灯
> もう１度押すと２が消灯し３が点灯・・・
>         lRet = DioInpBit(lHandle, 0, bRet(0))
>         lRet = DioOutBit(lHandle, 0, 1)

面白そうな話題なんですが、DioInpBitとDioOutBitの仕様を説明してください。

特に問題になることは、
・各LEDはS/Wを兼用しているんですね。すなわち対応する4つのS/Wがある。
・bRet(i)が点灯状態を示すのか、あるいはボタンが押されたことを示すのか。
・点灯順番があり、LED1→LED2→LED3→LED4→LED1・・・
・点いているLED1を押すとLED1が消えてLED2が点く。
・点いていないLEDxを押すとLEDxが点く。そのときまで点いていたLEDyは消す。
・無限ループだとするとWaitを入れないとCPU100%になってしまうが良いのか？
　普通は数ミリ秒ごとにS/Wを見るか、S/Wからの割り込みがあるか

これらを整理して素直に表現すればおのずから解決すると思いますよ。
ソースコードも状態表示の部分と操作対応の部分を明確に意識した方が分かりやすい。

> > 質問：ＬＥＤが１〜４まであり
> > ボタンを押すと１が点灯
> > もう１度押すと１が消灯し２が点灯
> > もう１度押すと２が消灯し３が点灯・・・
> >         lRet = DioInpBit(lHandle, 0, bRet(0))
> >         lRet = DioOutBit(lHandle, 0, 1)
>
> 面白そうな話題なんですが、DioInpBitとDioOutBitの仕様を説明してください。
>
> 特に問題になることは、
> ・各LEDはS/Wを兼用しているんですね。すなわち対応する4つのS/Wがある。
> ・bRet(i)が点灯状態を示すのか、あるいはボタンが押されたことを示すのか。
> ・点灯順番があり、LED1→LED2→LED3→LED4→LED1・・・
> ・点いているLED1を押すとLED1が消えてLED2が点く。
> ・点いていないLEDxを押すとLEDxが点く。そのときまで点いていたLEDyは消す。
> ・無限ループだとするとWaitを入れないとCPU100%になってしまうが良いのか？
> 　普通は数ミリ秒ごとにS/Wを見るか、S/Wからの割り込みがあるか
>
> これらを整理して素直に表現すればおのずから解決すると思いますよ。
> ソースコードも状態表示の部分と操作対応の部分を明確に意識した方が分かりやすい。


丁寧なお返事ありがとうございます。


DioInpBitとDioOutBitの仕様ですが

******************************************************************************************

Declare Function DioInpBit Lib "ApiDio.DLL" (ByVal hDrv As Long, ByVal InpBitNo As Integer, lpBuf As Byte) As Long


Declare Function DioOutBit Lib "ApiDio.DLL" (ByVal hDrv As Long, ByVal OutBitNo As Integer, ByVal Buf As Byte) As Long

******************************************************************************************

と宣言しています。


ボタンは４つあります。

しかし現時点で使うのは２つで

最初はすべてのＬＥＤが消灯しています。

ボタン１を押すとＬＥＤ１が点灯

もう１度押すとＬＥＤ１が消灯し２が点灯する。以後２消灯３点灯・・・の繰り返し。

ボタン２を押すとすべてのＬＥＤが消灯します。


分かりにくい説明で申し訳ない。

ヨコヤリ失礼します。

手っ取り早く
今どのLEDが点灯してるかを表すポインターの変数（初期値０）を用意して
ボタン１ 押す毎に ＋１ 、４超えたら１に戻すようにしておいて
点灯させるときは 一旦全部消してから ポインターに対応したLEDだけを
点ければどうでしょう？
ボタン２を押したらポインターはゼロに戻して。

箇条書きの質問に答えてもらうと良かったんですが。

> > ・各LEDはS/Wを兼用しているんですね。すなわち対応する4つのS/Wがある。
いいえ。リセットボタンと順次点灯ボタンの2つしかない。


> > ・bRet(i)が点灯状態を示すのか、あるいはボタンが押されたことを示すのか。
回答無し。これがはっきりしないと答えられないかな。DioOutBitはLEDの点灯/消灯を操作する関数のようだが、DioInpBitはLED操作なのLED状態なのかS/W状態なのか？


> > ・点灯順番があり、LED1→LED2→LED3→LED4→LED1・・・
はい。

> > ・点いているLED1を押すとLED1が消えてLED2が点く。
ちょっと違う。「順次点灯ボタンを押すと」


> > ・点いていないLEDxを押すとLEDxが点く。そのときまで点いていたLEDyは消す。
違う。「順次点灯ボタンを押すと」

> > ・無限ループだとするとWaitを入れないとCPU100%になってしまうが良いのか？
> > 　普通は数ミリ秒ごとにS/Wを見るか、S/Wからの割り込みがあるか
回答無し。まあCPU100%で良しとして。

＞これさん
親切にありがとうございます。

その方法も試させていただきます。



＞ダンボさん
申し訳ありません。

何度も丁寧にありがとうございます。


・各LEDはS/Wを兼用しているんですね。すなわち対応する4つのS/Wがある。
いえ、リセットボタンと順次点灯ボタンの２つのみです。


・bRet(i)が点灯状態を示すのか、あるいはボタンが押されたことを示すのか。
DioInpBitはＳ／Ｗの状態です。


・点灯順番があり、LED1→LED2→LED3→LED4→LED1・・・
はい


・点いているLED1を押すとLED1が消えてLED2が点く。
順次ボタンを押すとＬＥＤ１が消えＬＥＤ２が点きます。


・点いていないLEDxを押すとLEDxが点く。そのときまで点いていたLEDyは消す。
順次点灯ボタンを押すと順番通りに点き順番通りに消えていきます。


・無限ループだとするとWaitを入れないとCPU100%になってしまうが良いのか？
普通は数ミリ秒ごとにS/Wを見るか、S/Wからの割り込みがあるか

いえ、ＬＥＤ４が点くと順次スイッチは一切受け付けなくなります。
１秒たつと自動的にＬＥＤ４が消えＬＥＤ１が点きます。
これの繰り返し処理です。



何度も言いますが無知な自分に親切に教えていただき本当にありがとうございます。

再確認しますが、現在点いているLEDを調べる関数は無いんですね？
とすれば、これ さんのご指摘のような方法しかやりようが無いでしょう。
(このサブルーチンを呼ぶ方ではWaitを入れないとCPUビジーになることに注意)

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を消す
                LED2を点ける
            Case 1
                LED2を消す
                LED3を点ける
            Case 2
                LED3を消す
                LED4を点ける
            Case 3
                LED4を消す
                LED1を点ける
            End Select
            BitNo = BitNo + 1
            If BitNo > 3 Then BitNo = 0
        End If
End Sub

ご質問の最初の問題が解決していませんでした。

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

> 再確認しますが、現在点いているLEDを調べる関数は無いんですね？
> とすれば、これ さんのご指摘のような方法しかやりようが無いでしょう。
> (このサブルーチンを呼ぶ方ではWaitを入れないとCPUビジーになることに注意)
>
> 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を消す
>                 LED2を点ける
>             Case 1
>                 LED2を消す
>                 LED3を点ける
>             Case 2
>                 LED3を消す
>                 LED4を点ける
>             Case 3
>                 LED4を消す
>                 LED1を点ける
>             End Select
>             BitNo = BitNo + 1
>             If BitNo > 3 Then BitNo = 0
>         End If
> End Sub


> 再確認しますが、現在点いているLEDを調べる関数は無いんですね？
はい、申し訳ありませんがありません。

そしてソースありがとうございます！

早速試させていただきます。

よこレス申し訳ありません。
> いえ、リセットボタンと順次点灯ボタンの２つのみです。
> ・bRet(i)が点灯状態を示すのか、あるいはボタンが押されたことを示すのか。
> DioInpBitはＳ／Ｗの状態です。

「Ｓ／Ｗの状態」ということは、今ONかOFFかが判定できるだけですネ？
だったら、順次点灯ボタンが押されて、放されて、の後でないと、次に押されたという
判断は不可能です。今までにOFFであるから今ONされた、という判断をしないと、すぐにＬＥＤ４が点くとこまでいってしまうような気がします
それと、通常のスイッチはチャタリングがあるので、ONになってから０．１秒の間はつぎの
ONがあっても無視する、というような考慮が必要です

今回は多分不要ですが（もし私の想像したメーカのだったら）マニュアルによると、
出力ポートの状態は検知できますネ
■説明
出力ポートの状態を1ビット入力します。出力データは0か1で返ります。
出力されている内容をモニタする場合に使用します。
■使用例
VB　　Ret = DioEchoBackBit(Id, BitNo, Data)


以上、参考になれば幸いデス

お返事とお礼が遅れてしまいました。申し訳ないです。

＞ダンボさん
前回のソースと知識の提供、ありがとうございました。

とても参考になりました。現在Timerやチャタリングについて勉強中です。
（笑われるかもしれませんが自分はまだその程度です）



＞y4yamaさん
ご親切にありがとうございます。

助言のほう参考にさせていただきます。

はい、確かに押しっぱなしですといっきに１→２→→３→４→１・・・・と永遠に繰り返してしまします。

> 今回は多分不要ですが（もし私の想像したメーカのだったら）マニュアルによると、
> 出力ポートの状態は検知できますネ
ＣＯＮＴ○Ｃさん製のを使用しております。

どうしてもチャタリング対策の仕方が分かりません。

助言頂けると幸いです。

以下のソースで（スイッチが４個→８個になりました）ＬＥＤを点けて

ボタンを押すごとに（押しっぱなしでも）ＬＥＤ１→８へと一瞬で点き

ＬＥＤ８→ＬＥＤ１に一瞬で戻って押しっぱなしだと永遠にループしてしまいます。


どこにどのようにして「wait,waittimer」を入れれば宜しいのでしょうか？

自分でもかなり実験したのですが分からず仕舞でしたので・・・

ご迷惑かもしれませんが助言いただけないでしょうか？



Private Sub Timer1_Timer()

        Dim lRet As Long, bRet(3) As Byte
        Static BitNo As Integer
    
        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
            Select Case BitNo
            Case 0
                '**LED1を点ける
                 lRet = DioOutBit(lHandle, 0, 1)
                 '**LED8を消す
                 lRet = DioOutBit(lHandle, 7, 0)
            Case 1
                '**LED1を消す
                 lRet = DioOutBit(lHandle, 0, 0)
                '**LED2を点ける
                 lRet = DioOutBit(lHandle, 1, 1)
            Case 2
                '**LED2を消す
                 lRet = DioOutBit(lHandle, 1, 0)
                '**LED3を点ける
                 lRet = DioOutBit(lHandle, 2, 1)
            Case 3
                '**LED3を消す
                 lRet = DioOutBit(lHandle, 2, 0)
                '**LED4を点ける
                 lRet = DioOutBit(lHandle, 3, 1)
            Case 4
                '**LED4を消す
                 lRet = DioOutBit(lHandle, 3, 0)
                '**LED5を点ける
                 lRet = DioOutBit(lHandle, 4, 1)
            Case 5
                '**LED5を消す
                 lRet = DioOutBit(lHandle, 4, 0)
                '**LED6を点ける
                 lRet = DioOutBit(lHandle, 5, 1)
            Case 6
                '**LED6を消す
                 lRet = DioOutBit(lHandle, 5, 0)
                '**LED7を点ける
                 lRet = DioOutBit(lHandle, 6, 1)
            Case 7
                '**LED7を消す
                 lRet = DioOutBit(lHandle, 6, 0)
                '**LED8を点ける
                 lRet = DioOutBit(lHandle, 7, 1)
                
                
                
            End Select
                BitNo = BitNo + 1
          
            If BitNo > 7 Then
                BitNo = 0
            End If
            Else
                Label1(0).BackColor = &H8000000F
        End If
        
        '**リセットスイッチ押した場合（スイッチ２）
        If bRet(1) <> 0 Then
            Label1(1).BackColor = &HFF
            lRet = DioOutBit(lHandle, 0, 0)
            lRet = DioOutBit(lHandle, 1, 0)
            lRet = DioOutBit(lHandle, 2, 0)
            lRet = DioOutBit(lHandle, 3, 0)
            lRet = DioOutBit(lHandle, 4, 0)
            lRet = DioOutBit(lHandle, 5, 0)
            lRet = DioOutBit(lHandle, 6, 0)
            lRet = DioOutBit(lHandle, 7, 0)
            BitNo = 0
        Else
            Label1(1).BackColor = &H8000000F
        End If
        
      
        '**スイッチ3(使わない
        If bRet(2) <> 0 Then
            Label1(2).BackColor = &HFF
        Else
            Label1(2).BackColor = &H8000000F
        End If
      
        '**スイッチ4(使わない
        If bRet(3) <> 0 Then
            Label1(3).BackColor = &HFF
        Else
            Label1(3).BackColor = &H8000000F
            
        End If
        End Sub

> ボタンを押すごとに（押しっぱなしでも）ＬＥＤ１→８へと一瞬で点き
> ＬＥＤ８→ＬＥＤ１に一瞬で戻って押しっぱなしだと永遠にループしてしまいます。

だからWait入れろって言ったのに（笑）
下記WaitルーチンはK.J.K.さんからの流用です。
注1．メインは無限ループなので停める手続きを考えておいた方が良い。
注2．No.9177 でなくてNo.9176 のほうのサンプルを下書きにしたようだがいいの？
注3．チャタリング対策していません。
　チャタリング？ハードウェアの方で実装すべきものでは？（とハード屋と喧嘩するソフト屋）

Option Explicit
Private Declare Function MsgWaitForMultipleObjects Lib "user32.dll" _
(Optional ByVal Count As Long = 0&, _
Optional ByVal HandlesPointer As Long = 0&, _
Optional ByVal WaitAll As Long = 0&, _
Optional ByVal Milliseconds As Long = 0&, _
Optional ByVal WakeMask As Long = &HFF&) As Long
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub Wait(WaitTime As Long)
    Dim iStart As Long, iInterval As Long

    iStart = GetTickCount()
    iInterval = WaitTime
    Do
        If 0& = MsgWaitForMultipleObjects(, , , iInterval) _
            Then DoEvents
        iInterval = WaitTime - GetTickCount() + iStart
    Loop While (iInterval >= 0&)
End Sub

Private Sub Form_Load()
    Do
        Call CheckAndLight()
        Call Wait(10)
        DoEvents
    Loop
End Sub

ウェイトについては、No.９１９５では、
　　Private Sub Timer1_Timer()
となってますから、interval を　３００〜１０００かにしとけば、解決カナ？と思いました
まぁ、メカトロの実習が終わったようなので、言及してもしかたないかぁ・・・

横やりすみません。
プログラム以前の問題かと…

入力と出力との関係を整理する必要があると思います。

たとえば、
スイッチを押す動作には２つの状態変化があります。
１、ＯＦＦ→ＯＮ　　押した
２、ＯＮ→ＯＦＦ　　離した
入力の状態変化に対して、出力の状態はどうなるのか

紙の上に箇条書きで順番に書くことがコツです。
この辺を整理すればプログラムは単純になりますよ。

それと
コンテックのボードを使用しているようですが、
出力の状態を調べる関数もあります。
デジタル入出力のサンプルプログラム内にその関数を使用しています。