文档介绍：1 列车运行控制系统实验报告应答器报文组帧一、实验目的 。 ,并理解应答器报文的应用方式。 ETCS 语言的应用。二、编写程序报文解析的流程框图三、实验程序 Dim iAsSingle Dim jAsSingle Dim sAsLong Dim kAsLong Dim NID_SIGNAL1(100) AsSingle 2 Dim L_SECTION1(100) AsSingle Dim NID_SIGNAL AsSingle Dim L_SECTION AsSingle Dim D_STATIC AsLong Dim V_STATIC AsLong Dim N_ITER AsLong Dim Q_SCALE AsLong Dim NID_PACKET AsLong Dim L_PACKET AsLong' 定义变量 L_PACKET =(13, 60, Telegram)' 读取 L_PACKET 中的数据 NID_PACKET =(8, 50, Telegram)' 读取 NID_PACKET 中的数据 IfNID_PACKET =27Then' 判断是否读取线路信息包 ETCS-27 中的数据 sLineAllowSpeed(0, 0)=0D_STATIC =(15, 75, Telegram)' 读取应答器中速度信息起始点距离 V_STATIC =(7, 90, Telegram)' 读取应答器中最大允许列车速度 N_ITER =(5, 103, Telegram)' 速度变化点数量 IfN_ITER =1Then' 变化点数量为 1时 D_STATIC =(15, 108, Telegram) sLineAllowSpeed(0, 1)=V_STATIC *5 sLineAllowSpeed(1, 0)=D_STATIC End If IfN_ITER =2Then' 变化点数量为 2时 sLineAllowSpeed(0, 1)=V_STATIC *5D_STATIC =(15, 108, Telegram) sLineAllowSpeed(1, 0)=D_STATIC V_STATIC =(7, 123, Telegram) sLineAllowSpeed(1, 1)=V_STATIC *5 End If End If NID_PACKET =(8, 50+L_PACKET, Telegram) IfNID_PACKET =44Then' 判断是否读取线路信息包 ETCS-44 中的数据 j=0Q_SCALE =(2, 97+L_PACKET, Telegram)' 判断分辨率 IfQ_SCALE =0Then k= 3 End If IfQ_SCALE =1Then k=1End If IfQ_SCALE =2Then k=10 End If NID