Variable = Tadin(Channel)

입력중인 아날로그 값을 읽어서 지정한 변수에 저장합니다.

Adin 명령과 완전히 동일한 기능을 가지고 있습니다. 다만, 10번 연속으로 읽어서 평균낸 값을 반환해 줍니다. 일정한 노이즈가 섞여서 들어오는 경우에 효과적입니다. 보다 안정적인 값을 얻을 수 있습니다.

     Const Device = CB280 '이 예제프로그램은 CB280에서 실행가능합니다.
     Dim A As Integer     
     Input 24                     'CB280의 경우 24번포트가 AD채널0번입니다.
     Wait 500
     Do
        A = Tadin(0)          '0번 채널에서 A/D변환을 해서 변수 A에 저장합니다.
        Debug Dec A,Cr       '결과를 Debug창에 표시합니다.
        Wait 500
     Loop

Tadin함수는 실제로 이렇게 번역됩니다.

Function Tadin(__num As Byte) As Integer
	Dim __ii As Integer, __ta As Long
	__ta = 0
	For __ii = 0 To 9
		__ta = __ta + Adin(__num)
	Next
	Tadin = __TA / 10
End Function
 
즉, For..Next문으로 10번을 반복해서 읽고, 그 평균을 계산해줍니다.

명령어 목록으로 가기