큐블록 베이직 언어 프로그래밍시 키입력 체터링 제거를 위한 keyin 명령어가 있습니다.

Const Device = CB280
Do
If Keyin(24,1000) = 0 Then
 High 16
Else
 Low 16
Endif
Loop

이런식으로 사용하며, 24번 포트가 1초동안 입력이 안정되었을때, 비로소 입력을 받아들이는 구조입니다.

실제로 keyin 은 아래와 같이 번역됩니다.

Function Keyin(__pt As Byte, __dl As Integer) As Byte
   Dim __dl1 As Integer
   For __dl1 = 0 To __dl
      If In(__pt) = 1 Then
         Keyin = 1
         Exit Function
      End If
   Next
   Keyin = 0
End Function

즉 for..next 문을 돌면서 입력이 안정될 때 까지 기다리는 것입니다. 이 방법은 프로그램의 흐름을 방해합니다. 키 하나를 입력받기 위해서 한곳에 오래 머물러야 한다는 단점이 있습니다.

한 10개의 키를 입력받는 상황이라고 생각해보세요. 그러면 각각 1초씩 10초가 걸립니다. 도저히 쓸 수가 없는 상황이 되고 맙니다.

채터링을 하드웨어적으로 제거하려면 각각의 키마다 콘덴서와 저항을 붙어주어야 합니다. 이 방법은 회로가 복잡해지고, 추가비용이 들어가기 때문에 별로 권하고 싶지 않습니다.

그럼 하드웨어적으로 저항/콘덴서를 붙이지 않고, 흐름도 방해하지 않으면서 채터링을 제거할 수는 없을까요?

레더로직의 타이머기능을 이용하면 됩니다.

레더로직의 on타이머는 입력이 일정시간 유지되었을때만 출력이 붙는 기능인데, 채터링제거용으로 많이 사용합니다.

다음과 같이 프로그래밍하세요.

Const Device = CB280
Usepin 24,In
Set Ladder On
Do
 If _M(0) = 1 Then
  High 16
 Else
  Low 16
 Endif
Loop

베이직에서는 M0 만 검사하기 때문에, 흐름을 방해하지 않습니다.

레더에서 P24 입력이 1초동안 유지 되었을때 T0 를 ON 해줍니다. 그걸 M0로 옮겨주기만 하는 것입니다.

눈으로 효과를 확인하기위해서 1초간 채터링을 제거하는걸로 했지만, 실제로는 100밀리초 정도이면 충분합니다.

그러면 TON 명령어 부분을 TON T0,10 으로 사용하시면 됩니다.

다음은 위 프로그램을 실행한 동영상입니다. 키를 여러번 짧게 누르는 것은 일부러 채터링을 재현해 본 것입니다. 이렇게 짧게 누르는 것은 입력으로 인식되지 않습니다. 길게 1초이상 누르고 있어야 비로소 입력으로 인식됩니다.

한단계 뒤로가기