사용자 도구

사이트 도구

English

cublocapp:an32012:index

AN32012 - MSB612를 이용한 전압 전류계

MSB612의 아날로그 AD체널을 이용하여 전압과 전류를 측정하여 V, mA로 표시해주는 어플리케이션 입니다.

시스템 결선



CLCD 결선


소스 프로그램

program_code.zip

#include "MSB6XX"
Dim AD0 As Integer
Dim AD4 As Integer
Dim AD0_CUR As Integer
Dim AD4_VOL As Integer
Ramclear
'############### RS232 CH1으로 CLCD 인터페이스 ################
Set Display 2,1,115200,50 
Cls
Csroff
Delay 50 ' CLCD 가 클리어 하는데 걸리는 시간을 기다림
CLCD_Display
Do
	'Tadin()명령은 AD값을 10번읽어서 평균값을반환
	'Adin() 명령은 AD값을 1번읽어서 반환
	AD0 = Tadin(0)	'AD0 = Adin(0) 
	AD4 = Tadin(4)	'AD4 = Adin(4) 
 
	AD0_CUR = AD0
	AD4_VOL = AD4
	value_Display
Loop
 
'############# AD값과 전압, 전류량을 CLCD에 표시 ###############
Sub value_Display ()
Clcdout 7,2, Dp(AD0,4)							  '측정 값표시
Clcdout 14,2, Dp(AD0_CUR/51,2)	        '전류량 정수자리 표시
Clcdout 16,2, "."
Clcdout 17,2, Dp(((AD0_CUR mod 51)*10)/51,1) '전류량 소수자리 표시
Delay 50
Clcdout 7,3, Dp(AD4,4)			'측정 값표시
Clcdout 14,3, Dp(AD4_VOL/102,2)		'전압량 정수자리 표시
Clcdout 16,3, "."
Clcdout 17,3, Dp(((AD4_VOL mod 102)*10)/102, 1) '전압량 소수자리 표시
Delay 50
End Sub
 
'############# 시스템 기본문구열 CLCD 표시 ##############
Sub CLCD_Display ()
Clcdout 0, 0, "== V/A Measurment =="
Clcdout 0, 1, "[CH]   [VAL]   [V/A]"
Delay 50
Clcdout 0, 2, " 0 :              mA"
Clcdout 0, 3, " 4 :               V"
Delay 50
End Sub

큐블록 어플리케이션 노트

cublocapp/an32012/index.txt · 마지막으로 수정됨: 2017/12/16 10:33 저자 Comfile Technology