1 SET TITLEBAR ' 屏幕自动程序'.
2
3 IF g_contine_no IS INITIAL.
4 CREATE OBJECT gr_timer.
5 CREATE OBJECT gr_app_timer.
6 SET HANDLER gr_app_timer->handle_get_brgew FOR gr_timer.
7
8 "0.5S 刷新一次
9 gr_timer->interval = '0.5'.
10 CALL METHOD gr_timer->run.
11
12 "计数器，刷新6次获取重量
13 g_count = g_count + 1.
14 IF g_count GE 6.
15 g_contine_no = 'X'.
16 "停止刷新标识
17 g_refresh_no = 'X'.
18 ENDIF.
19 ENDIF.
20
21 IF sy-ucomm <> 'ENTER'.
22 CREATE OBJECT gr_timer.
23 CREATE OBJECT gr_app_timer.
24 SET HANDLER gr_app_timer->handle_callback FOR gr_timer.
25 gr_timer->interval = '1'.
26 CALL METHOD gr_timer->run.
27 ENDIF.
