H7-TOOL应用实战之出厂批量测试我们的隔离型TTL转RS485/RS232模组

eric2013

近期分享些H7-TOOL在我们自己的产品中的应用实战，昨天的分享：地址

大大方便了我们工作人员的设备测试：


1、模组：
https://armfly.taobao.com/category-1252243106.htm



2、出厂测试LUA脚本，直接使用H7-TOOL上位机加载到H7-TOOL即可使用，随时可以更新。也可以脱机存到eMMC里面随时使用。

当前H7-TOOL可以引出两路串口了，一路UART7的TTL，还有RS485/RS232/TTL的三合一复合。

TTL-RS485.lua (2.36 KB, 下载次数: 2)

2020-4-14 12:43 上传

点击文件名下载附件

1. --F01=自动测试,AutoTestUart()
   
2. --F02=单独测试,TestUart()
   
3. 
   
4. --成功叫一声，失败叫三声
   
5. function TestErr(void)
   
6.         print("测试失败")
   
7.         beep()
   
8.         delayms(100)
   
9.         beep()
   
10.         delayms(100)
    
11.         beep()        
    
12. end
    
13. 
    
14. function TestOk(void)
    
15.         print("测试通过")
    
16.         beep()
    
17. end
    
18. 
    
19. --测试串口硬件功能
    
20. function TestUart(void)
    
21.         local COM_TTL = 7
    
22.         local COM_485 = 1
    
23.         local Parity = 0
    
24.         local DataBits = 8
    
25.         local StopBits = 1
    
26.         local tx_str = "H7-TOOL"
    
27.         local rx_str
    
28.         local rx_len
    
29.         local str
    
30.         local curr
    
31.         local volt
    
32.         local ret = "OK"
    
33.         
    
34.         print("开始测试")
    
35.         
    
36.         write_reg16(0x01FF,2)
    
37.         
    
38.         gpio_cfg(0, 5)        -- 配置D0为UART功能
    
39.         gpio_cfg(1, 5)        -- 配置D1为UART功能
    
40.         
    
41.         uart_cfg(COM_TTL, 115200, Parity, DataBits, StopBits)
    
42.         uart_cfg(COM_485, 115200, Parity, DataBits, StopBits)
    
43. 
    
44.         volt = read_analog(4)
    
45.         curr = read_analog(5)
    
46.         str = string.format("电压 %0.1fV 电流 %0.1fmA", volt, curr)
    
47.         print(str)
    
48.         
    
49.         --print("RS485 -> TTL")
    
50.         uart_send(COM_485, tx_str)
    
51.         rx_len, rx_str = uart_recive(COM_TTL, 7, 100)
    
52.         if (rx_str == tx_str) then
    
53.                 print("RS485 -> TTL : OK")
    
54.         else
    
55.                 print("RS485 -> TTL : ERROR")
    
56.                 ret = "ERROR"
    
57.                 goto quit_err
    
58.         end
    
59. 
    
60.         --print("测试   TTL -> RS485")
    
61.         uart_send(COM_TTL, tx_str)
    
62.         rx_len, rx_str = uart_recive(COM_485, 7, 100)
    
63.         if (rx_str == tx_str) then
    
64.                 print("TTL -> RS485 : OK")
    
65.         else
    
66.                 print("TTL -> RS485 : ERROR")
    
67.                 ret = "ERROR"
    
68.                 goto quit_err
    
69.         end
    
70. 
    
71. ::quit_err::
    
72.         if (ret == "OK") then
    
73.                 TestOk()
    
74.         else
    
75.                 TestErr()
    
76.         end
    
77.         
    
78.         return ret
    
79. end
    
80. 
    
81. --插入后自动测试
    
82. function AutoTestUart(void)
    
83. 
    
84.         local now_curr = 0
    
85.         local count = 0
    
86.         local inserted = 0
    
87.         local key
    
88.         
    
89.         print("测试 RS485 -> TTL")
    
90.         
    
91.         write_reg16(0x01FF, 2)        --ADC切换到低速多通道扫描模式
    
92.         while(1)
    
93.         do
    
94.                 now_curr = read_analog(5)
    
95.                
    
96.                 if (inserted == 0) then
    
97.                         if (now_curr > 20) then
    
98.                                 delayms(50)
    
99.                                 TestUart()
    
100.                                 inserted = 1
     
101.                                 count = count + 1
     
102.                                 print("已测试", count)
     
103.                         end
     
104.                 else
     
105.                         if (now_curr < 5) then
     
106.                                 inserted = 0
     
107.                         end
     
108.                 end
     
109.                
     
110.                 delayms(100)
     
111.             
     
112.             --按任意键退出循环
     
113.             key = get_key()
     
114.             if (key > 0) then
     
115.                     return
     
116.             end
     
117.             
     
118.         end
     
119. end
     
120. 
     
121. --测试GPIO功能,D0和D1短接后测试可通过
     
122. function TestGPIO(void)
     
123.         local y
     
124.         local err = 0
     
125.         
     
126.         print("")
     
127.         print("测试GPIO")
     
128.         
     
129.         gpio_cfg(0, 1)
     
130.         gpio_cfg(1, 0)
     
131. 
     
132.         -- D0 = 0
     
133.         gpio_write(0, 0)
     
134.         delayms(100)        
     
135.         y = gpio_read(1)         
     
136.         if (y ~= 0) then
     
137.                 err = err + 1
     
138.         end
     
139. 
     
140.         -- D0 = 1
     
141.         gpio_write(0, 1)
     
142.         delayms(100)        
     
143.         y = gpio_read(1)         
     
144.         if (y ~= 1) then
     
145.                 err = err + 1
     
146.         end        
     
147.                                 
     
148.         if (err == 0) then
     
149.                 TestOk()
     
150.         else
     
151.                 TestErr()
     
152.         end
     
153. end
     

复制代码