IF EN THEN (*初始化发送缓存*)
WLEN:=WORD#0;
CASE ID OF
0: (*读当前正向有功总电能 DI1 90 DI0 10*)
INITML_1(EN:=TRUE,ADDR:=ADDR,DI1:=BYTE#16#90,DI0:=BYTE#16#10);
WBUF:=INITML_1.WBUF;
WLEN:=INITML_1.DLEN;
;
1: (*读当前正向无功总电能 91 10*)
INITML_2(EN:=TRUE,ADDR:=ADDR,DI1:=BYTE#16#91,DI0:=BYTE#16#10);
WBUF:=INITML_2.WBUF;
WLEN:=INITML_2.DLEN;