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