AD采样和取值和作了一个简单的处理。
AD采样，求10次平均
GetR = 10240 / AD结果 * 100 - 1000
此程序有严重BUG，除数不做范围限制，早晚死翘翘。