CDMA移动通信系统控制设计

1、通信技术综合课程设计报告题 目： CDMA移动通信系统控制设计 系 别： 电子信息与电气工程 专业 班级： 组 员： 导 师： 2014年 12 月 4 日第 1 页 共 29 页 通信技术综合课程设计任务书设计题目CDMA移动通信系统控制设计设计类型工程技术导师姓名学生姓名主要内容及目标设计一个系统实现CDMA移动通信系统的控制，要求：1、熟悉CDMA移动通信系统的总体结构； 2、熟悉CDMA移动通信系统实现通信的完整过程；3、可以通过设计交换机软件控制通信终端信息交互过程；4、自由发挥其他功能；5、要求有系统框图，电路原理图，软件流程图，软件代码清单。具有的设计条件根据设计要求提供相关的试

2、验环境，需要三台RZ6001试验箱、交换机及电脑。计划学生数及任务计划需要3人1人主要进行CDMA移动通信系统的总体结构设计；1人主要进行实现CDMA移动通信系统通信的完整过程；1人主要负责设计实现交换机软件控制通信终端信息交互过程。计划设计进程1、从接题开始收集资料、准备设计2、第1周 设计CDMA移动通信系统的总体结构，交换机软件设计，相关电路原理图，制定系统通信实现方案；3、第2周 系统调试和完善，同时编写设计报告。参考文献1郭梯云，邬国扬，李建东著.移动通信.西安：西安电子科技大学出版社.20062南利平，李雪华，张晨燕，王亚飞.通信原理简明教程.北京：清华大学出版社，20073邬国扬

3、.CDMA数字蜂窝网.西安：西安电子科技大学出版社，20074魏国桢，魏晨.无线本地环路.北京：人民邮电出版社，1996目 录一、摘要1二、总体框图及交换机流程12.1 CDMA移动通信系统总体结构12.2交换机显示流程图2三、移动通信系统通信过程的实现33.1 移动通信系统的组成部分33.2系统通信呼叫过程33.3 移动通信系统通信目的5移动通信系统通信目的是实现信息交互和语音传递。53.4移动系统通信过程53.4.1 准备工作53.4.2 语音通信的实现53.4.3数据通信（短信收发）的实现63.4.4 交换机通信过程的状态6四、交换机软件控制通信终端信息交互过程84.1交换机软件显示移动

4、台工作状态84.2详细信息114.3历史信息14五、总结16六、附件16一、摘要多台RZ6001型移动终端实验箱与配套的基站RZ6002，交换机RZ6003组成一个移动通信系统，可以完成移动台之间的语音和数据通信。RZ6001型移动终端实验箱完成语音、数据的处理，和基站的信令交互；基站完成各终端的频率分配和信令分析、处理，以及和交换机之间一起完成跨基站的移动终端实验箱之间的通信，同时将本基站管理移动终端实验箱的状态送往交换机。交换机终端完成跨基站之间的移动终端实验箱之间的通信管理，同时将各移动终端实验箱的状态送往PC机，PC机上配套移动系统软件对各移动终端实验箱的状态和数据进行显示、分类、存储

5、和分析。基站通过传输链路和交换机相连，交换机再与固定的电信网络相连，这样就可形成移动用户基站交换机固定网络固定用户或移动用户基站交换机基站移动用户等不同情况的通信链路。交换机通常由交换网络(或称接续网络)、接口和控制系统组成。交换网络的作用是在控制系统的控制下，将任一输入线与输出线接通。它可以看成有 M条入线和N条出线的网络，它有M×N个交点，每个交点都可在控制系统的控制下连通和断开，如图5.20(b) 所示，接口单元把来自用户线或中继线的各种不同的输入信令和消息转成统一的机内信令，以便控制单元或交换网络进行处理或接续。 控制系统主要负责话路的接续控制，另外还负责通信网络的运行、 管

6、理和维护功能。二、总体框图及交换机流程2.1 CDMA移动通信系统总体结构2.2交换机显示流程图实验台是否开机？基站接收到信号传到交换机发送信号到基站实验台开机是 否对应实验台号显示黄色对应实验台号显示蓝色实验台是否在通信？对应实验台号显示绿色对应实验台号显示红色结束三、移动通信系统通信过程的实现3.1 移动通信系统的组成部分两台RZ6001型移动终端实验箱与配套的基站RZ6002，交换机RZ6003组成一个移动通信系统，可以完成移动台之间的语音和数据通信。3.2系统通信呼叫过程（1）移动台呼叫处理 移动台初始化状态。移动台接通电源后就进入初始化状态。在此状态下，移动台首先要判定它要在模拟系统

7、中工作还是要在CDMA系统中工作。 移动台空闲状态。 移动台在完成同步和定时后，即由初始化状态进入空闲状态。在此状态下，移动台可接收外来的呼叫，可进行向外的呼叫和登记注册的处理，还能置定所需的码信道和数据率。系统接入状态。如果移动台要发起呼叫，或者要进行注册登记，或者收到一种需要认可或应答的寻呼信息，移动台即进入系统接入状态，并在接入信道上向基站发送有关的信息。这些信息可分为两类：一类属于应答信息(被动发送)；一类属于请求信息(主动发送)。 移动台在业务信道控制状态。在此状态下， 移动台和基站利用反向业务信道和正向业务信道进行信息交换。 （2）基站呼叫处理 导频和同步信道处理。在此期间，基站发

8、送导频信号和同步信号，使移动台捕获和同步到CDMA信道。同时，移动台处于初始化状态。 寻呼信道处理。在此期间，基站发送寻呼信号。 同时，移动台处于空闲状态或系统接入状态。 接入信道处理。在此期间，基站监听接入信道，以接收移动台发来的信息。同时, 移动台处于系统接入状态。 业务信道处理。在此期间，基站用正向业务信道和反向业务信道与移动台交换信息。同时，移动台处于业务信道控制状态。（3）呼叫流图 由移动台发起呼叫，见图 3-2。 以移动台为终点的呼叫，见图 3-3。 图3-2图3-33.3 移动通信系统通信目的移动通信系统通信目的是实现信息交互和语音传递。3.4移动系统通信过程3.4.1 准备工作

9、打开相关实验器材的电源，等待实验箱初始化。初始化结束后显示“初始化完成，请使用”。按下键盘上“菜单”键；再按下数字键“9”选择“九 系统综合通信”实验，显示屏上将显示本机号码，第1位表示所属基站编号，第2位表示移动终端实验箱编号；如果本机号码后显示“*”，表示移动实验箱开机入网正常，否则重复步骤。输入2位被叫号码，可以听到拨号音和回铃音。3.4.2 语音通信的实现（1）主叫方和被叫方移动终端实验箱都处于空闲状态； （2）主叫方拨号（21）完毕后按“/确认”或“电话”键表示向基站申请与被叫移动终端实验箱进行语音通信；（3）基站收到请求后，分析被叫号码，然后基站直接或通过交换机发送主叫号码到被叫移

10、动终端实验箱；（4）被叫移动终端实验箱收到主叫号码后进行显示并振铃；（5）被叫移动终端实验箱可以按下实验箱的“/确认”键选择接通；（6）基站选择向主叫移动终端实验箱回复接通状态；（7）基站给主叫和被叫分配频率资源，主叫和被叫建立通信链路此时主叫方移动终端实验箱和被叫方移动终端实验箱显示“通信中”，之后主叫和被叫可以通过麦克风进行语音通信；（8）主叫和被叫用户在进行语音通信过程中如果主叫按下被叫移动终端实验箱的“取消”键则选择拒绝接通，基站撤消主叫和被叫的通信链路；（9）通信链路撤消后原主叫和被叫移动终端实验箱均进入空闲状态，可以再次进行语音或数据通信；（10）如果被叫移动终端实验箱的长时间没有

11、按键，则主叫移动终端实验箱显示“被叫无应答”；（11）在主叫和被叫通过麦克风进行语音通信时，双方均可主动按下“/取消”键挂机并进入空闲状态，此时另一方显示“对方挂机”，之后也进入空闲状态。3.4.3数据通信（短信收发）的实现（1）发送方和接收方均处于空闲状态；（2）发送方拨号（21）完毕后按“短信”键表示将进行短信通信，并进入短信编辑方式选择状态；（3）按下“1”键进入“选择短信序号”方式，显示屏显示短信编号和内容，可以通过“/确认”键和“/取消”键查看更多的短信。按下相应的数字编号选择要发送的短信内容，并启动短信发送程序；按下“2”键进入“编辑数字短信”方式，可以用键盘输入数字，输入完毕后按

12、下“/确认”键，启动短信发送程序；按下“3”键进入“编辑数字短信”方式，此时数字19分别代表字母AI，可以用键盘输入字母，输入完毕后按下“/确认”键，启动短信发送程序；实验中我们输入数字12，如下图所示：九系统综合通信本机号码：13接收短信：12图3-4实验箱液晶屏显示图按下“/确认”键，则接收方移动终端实验箱会收到短信内容并显示。此时发送方显示“发送成功”。（如果接收方移动终端实验箱不在系统通信实验状态，则短信发送不成功。）（4）短信选择完成后发送方向基站申请与接收方移动终端实验箱进行数据通信； （5）基站收到请求后检查接收方当前状态，确定接收方处于空闲状态就将发送方号码和短信内容发送到接收

13、方移动终端实验箱。否则基站回复发送方短信发送不成功；（5）接收方移动终端实验箱收到主叫号码和短信内容后分别显示，完成一次数据通信。（6）完成一次数据通信后，发送方和接收方均回到空闲状态，可再次进行语音或数据通信。3.4.4 交换机通信过程的状态（1）首先正确安装移动交换系统软件。安装完成后方可进行下一步操作；启动“移动交换系统软件”，如图2-3。根据和交换机相连的COM接口正确设置软件“RS232参数设置”中“端口”出厂设置端口号为COM1。前上述准备工作完成后，进入系统通信实验，可以进行开机，关机，主叫，被叫语音通信。软件可以用不同颜色显示不同基站下各移动台工作状态：黄色表示关机、蓝色表示空

14、闲、绿色表示通信准备以及红色表示正在通信。图3-5 移动台的工作状态显示界面（2）显示当前各移动台的详细工作状态。可以显示各移动台的电话号码、所属基站、当前工作状态、主叫接通次数、呼叫次数、被叫接通次数、主叫时长、通话时长、被叫时长等详细状态信息。操作：可以点击任一个移动台图标，也可以点击“详细信息”按钮，还可点击菜单“数据信息”->“详细信息”完成。图3-6移动台的当前状态列表显示界面（3）分类查询各移动台的历史记录点击“历史记录”按钮，或点击菜单“数据信息”->“历史记录”可以进入历史信息窗口，在该窗口中可以对历史信息进行分析。可以分别按照“基站编号”、“电话号码”和“通信时间

15、”以及它们的组合对各移动台的历史记录进行分类显示。还可以对分类信息按照通信日期、所属基站、电话号码或对方号码进行升序或降序排列显示。图3-7 移动台的历史状态列表显示界面四、交换机软件控制通信终端信息交互过程4.1交换机软件显示移动台工作状态进入通信实验系统，不同实验台之间进行开机，关机，主叫，被叫语音通信。软件用不同颜色显示不同基站下各移动台工作状态：黄色表示关机、蓝色表示空闲、绿色表示通信准备以及红色表示正在通信。我们可以非常方便了解各移动台当前的实验状态。图4-1移动台状态示意图一图4-2移动台状态示意图二具体实现过程及代码：Private Sub Form_Load() Dim i A

16、s Integer Dim j As Integer Timer1.Enabled = False 'Timer2.Enabled = False mstrBaudNumber = "9600" '串口波特率为9600 mstrParity = "n" '串口一帧数据无奇偶校验位 mstrFrameBits = "8" '串口一帧数据的bit位数 mstrStopBits = "1" '串口一帧数据的停止位数为1bit宽 mintFrameStart = CRZPROGRAM

17、_START '帧头默认值为1 mintFrameStop = CRZPROGRAM_STOP '帧尾默认值为0 gintReceiveByte = 0 gintFrameStartHasFind = False 'MSComm1.RThreshold = CRZPROGRAM_FRAME_LENGTH '接收到21个字符就产生 OnComm 事件 MSComm1.SThreshold = 0 '发送不产生 OnComm 事件 MSComm1.Settings = mstrBaudNumber + "," + mstrParity +

18、 "," + mstrFrameBits + "," + mstrStopBits #If SWITCH = SWITCH_AVR Then Call mnuComBaudNumber_Click(6) '19200 使用AVR对应的交换机 MSComm1.RThreshold = CRZPROGRAM_FRAME_LENGTH_AVR '接收到个字符就产生 OnComm 事件(AVR)#Else 'If SWITCH = SWITCH_51 Then Call mnuComBaudNumber_Click(5) '960

19、0 使用51芯片对应的交换机 MSComm1.RThreshold = CRZPROGRAM_FRAME_LENGTH '接收到个字符就产生 OnComm 事件#End If lblCorlorIndex.Caption = "黄色-关机" & vbCrLf & "蓝色-空闲" & vbCrLf & "绿色-通信准备" & vbCrLf & "红色-正在通信" lblCorlorIndex.FontSize = 10 lblCorlorIndex.FontBo

20、ld = True Call frmstat.Reset_stat mReceiveCount = 0 '初始化信令指针数据，每条信令对应16个字节 '前8个字节为时间 g_CurrentDex(0) = 0 g_CurrentDex(1) = 0 g_CurrentDex(2) = 0 g_CurrentDex(3) = 0 g_CurrentDex(4) = 0 g_CurrentDex(5) = 0 g_CurrentDex(6) = 0 g_CurrentDex(7) = 0 '下面4个字节表示当前信令数据的偏移地址 g_CurrentDex(8) = 0 g_

21、CurrentDex(9) = 0 g_CurrentDex(10) = 0 g_CurrentDex(11) = 0 '下面2个字节表示当前信令数据的长度 g_CurrentDex(12) = 0 g_CurrentDex(13) = 0 '下面2个字节表示当前信令类型 g_CurrentDex(14) = &H10 g_CurrentDex(15) = 0 g_CurrentDatFileOff = 0 DlgFile.FileName = "D:移动交换机a.dat" Call file_open_process End Sub4.2详细信息点

22、击交换机软件中详细信息按键，屏幕将显示各移动台的电话号码、所属基站、当前工作状态、主叫接通次数、呼叫次数、被叫接通次数、主叫时长、通话时长、被叫时长等详细状态信息。图4-3具体实现过程及代码：Dim BaseNumber As Integer '基站编号 Dim StartNumber As Integer '电话编号（3个基站所有终端的编号为029） Dim NewLink As Integer '当前是一次新的连接 Dim LinkTime As Date '连接时间 Dim strStatus As String '当前的电话状态 Dim Host

23、PhoneCode As String '主叫的电话号码 Dim CurrentPhoneCode As Byte '主叫的电话号码 Dim OhterPhoneCode As Byte '对方电话号码 Dim OhterPhoneCodeStatus As Byte '对方电话的状态 BaseNumber = mintSwithStatus(0) '获得当前基站的编号 StartNumber = (BaseNumber - 1) * CRZ_MOBILE_NUMBER_PER_BASE '获得当前基站的第一个终端的编号（0或10或20） If

24、mintSwithStatus(0) < 1 Or mintSwithStatus(0) > CRZ_MAX_BASE_NUMBER Then Exit Sub End If blnCurrentDataChange = False blnHistoryDataChange = False For i = 0 To CRZ_MOBILE_NUMBER_PER_BASE - 1 '对当前基站的所有终端进行处理 LinkTime = 0 NewLink = 0 'OhterPhoneCode = Format(mintSwithStatus(2 * i + 2) 

25、9;获得刚收到的当前终端的对方号码 OhterPhoneCode = mintSwithStatus(2 * i + 2) '获得刚收到的当前终端的对方号码 'OhterPhoneCode = OhterPhoneCode * 10 / 16 + OhterPhoneCode Mod 16 If OhterPhoneCode < &H39 Then temp = OhterPhoneCode 16 temp = temp * 10 temp = temp + OhterPhoneCode Mod 16 OhterPhoneCode = temp End If Cu

26、rrentPhoneCode = BaseNumber * 10 + i '得到被叫的状态 If OhterPhoneCode <> 255 Then temp = OhterPhoneCode 10 t = OhterPhoneCode Mod 10 OhterPhoneCodeStatus = mintPhoneStatus(temp - 1, t) Else OhterPhoneCodeStatus = MS_ST_CLOSE End If temp = mintSwithStatus(2 * i + 1) '获得刚收到的当前终端的状态 last_status

27、 = mintPhoneStatus(BaseNumber - 1, i) If temp <> last_status Then '当前终端刚收到的状态与上次状态比较，如果状态发生变化，则做以下处理获 Case MS_ST_BEING '正在通信中 cmdMobile(StartNumber + i).BackColor = CMOBLIE_CORLOR_BE_COMM strStatus = "正在通信" 'mintPhoneStartLinkTime(BaseNumber - 1, i) = Time 'mintPhoneS

28、tartLinkDateTime(BaseNumber - 1, i) = Now NewLink = 1 If OhterPhoneCodeStatus = MS_ST_BEING And last_status = MS_ST_CALLING_READY Then Call signal_7_process(MS_ST_BEING, last_status, CurrentPhoneCode, OhterPhoneCode, 8) Call signal_7_process(MS_ST_BEING, last_status, CurrentPhoneCode, OhterPhoneCode

29、, 9) End If Case MS_ST_CALLING_READY '终端主叫准备(即发起呼叫,但还未开始通信) cmdMobile(StartNumber + i).BackColor = CMOBLIE_CORLOR_BE_READY strStatus = "通信准备" mblnPhoneHostStatus(BaseNumber - 1, i) = True Call signal_7_process(MS_ST_CALLING_READY, last_status, CurrentPhoneCode, OhterPhoneCode, 1) Call

30、signal_7_process(MS_ST_CALLING_READY, last_status, CurrentPhoneCode, OhterPhoneCode, 2) Case MS_ST_CALLED_RING '终端被叫准备(即接受呼叫,但还未开始通信,如振铃) cmdMobile(StartNumber + i).BackColor = CMOBLIE_CORLOR_BE_READY strStatus = "通信准备" mblnPhoneHostStatus(BaseNumber - 1, i) = False Call signal_7_proce

31、ss(MS_ST_CALLED_RING, last_status, OhterPhoneCode, CurrentPhoneCode, 5) Call signal_7_process(MS_ST_CALLED_RING, last_status, OhterPhoneCode, CurrentPhoneCode, 6) Call signal_7_process(MS_ST_CALLED_RING, last_status, OhterPhoneCode, CurrentPhoneCode, 7) Case MS_ST_CLOSE '关机 'Case Else cmdMob

32、ile(StartNumber + i).BackColor = CMOBLIE_CORLOR_BE_CLOSED strStatus = "关机" End Select mintPhoneStatus(BaseNumber - 1, i) = temp mintPhoneLink(BaseNumber - 1, i) = NewLink '保存当前是否处于连接状态 Call frmstat.Change_Detail_Record(StartNumber + i, strStatus, OhterPhoneCode, NewLink, mblnPhoneHostS

33、tatus(BaseNumber - 1, i), 0, mintPhoneStartLinkDateTime(BaseNumber - 1, i) ElseIf temp = MS_ST_BEING Then '当前终端始终处于通信状态 '每次加1秒 blnCurrentDataChange = True LinkTime = Now - mintPhoneStartLinkDateTime(BaseNumber - 1, i) strStatus = "正在通信" mintPhoneLink(BaseNumber - 1, i) = True '

34、当前处于连接状态 Call frmstat.Change_Detail_Record(StartNumber + i, strStatus, OhterPhoneCode, NewLink, mblnPhoneHostStatus(BaseNumber - 1, i), LinkTime, mintPhoneStartLinkDateTime(BaseNumber - 1, i) End If mintOtherPhoneCode(BaseNumber - 1, i) = OhterPhoneCode '获得刚收到的当前终端的对方号码 mintPhoneLinkTime(BaseNum

35、ber - 1, i) = LinkTime Next i If blnCurrentDataChange = True Then frmstat.datPrimaryRS.Refresh If blnHistoryDataChange = True Then frmDetails.datPrimaryRS.Refresh End Sub4.3历史信息点击交换机软件中历史信息按键，屏幕将显示各移动台的电话号码、所属基站、主叫接通次数、呼叫次数、被叫接通次数、主叫时长、通话时长、被叫时长、话费信息等详细状态信息。图4-4具体实现过程及代码：'得到源基站的编号，源实验箱的编号，目标基站的编

36、号，目标实验箱的编号'0 1 2 3 4 5 6 7 8 9 10'电话编号 , 所属基站, 电话号码, 当前状态, 主叫接通次数, 呼叫次数, 被叫接通次数, 主叫时长, 通话时长, 被叫时长'电话编号, 所属基站, 电话号码, 当前状态, 对方号码, 主叫接通次数,呼叫次数, 被叫接通次数,主叫时长,通话时长,被叫时长 from stat Order by 电话编号" '(StartNumber + i - 1, strStatus, PhoneCode, NewLink, mintPhoneHost(BaseNumber - 1, i - 1),

37、 0)Public Sub Change_Detail_Record(ByVal PhoneIndex As Integer, ByVal PhoneStatus As String, ByVal PhoneCode As Byte, ByVal LinkNumber As Integer, ByVal HostorCalled As Boolean, _ ByVal LinkTime As Date, ByVal StartLinkTime As Date) datPrimaryRS.Recordset.Find "电话编号 = " & (PhoneIndex)

38、If datPrimaryRS.Recordset.BOF = True Or datPrimaryRS.Recordset.EOF = True Then MsgBox ("找不到对应的电话编号，数据库文件可能被破坏！") Exit Sub End If '当前状态 datPrimaryRS.Recordset.Fields(3).Value = PhoneStatus If PhoneCode < &H39 Then datPrimaryRS.Recordset.Fields(4).Value = Format(PhoneCode) Else da

39、tPrimaryRS.Recordset.Fields(4).Value = "无" End If If StartLinkTime = 0 Then datPrimaryRS.Recordset.Fields(10).Value = "" Else datPrimaryRS.Recordset.Fields(10).Value = Format(StartLinkTime, "ddddd ttttt") End If If HostorCalled = True Then '主叫处理 If LinkNumber <&g

40、t; 0 Then '主叫接通次数 datPrimaryRS.Recordset.Fields(5).Value = datPrimaryRS.Recordset.Fields(5).Value + 1 '呼叫次数 datPrimaryRS.Recordset.Fields(6).Value = datPrimaryRS.Recordset.Fields(6).Value + 1 End If '主叫时长 datPrimaryRS.Recordset.Fields(8).Value = CStr(LinkTime) Else '被叫处理 If LinkNumbe

41、r <> 0 Then '被叫接通次数 datPrimaryRS.Recordset.Fields(7).Value = datPrimaryRS.Recordset.Fields(7).Value + 1 '呼叫次数 datPrimaryRS.Recordset.Fields(6).Value = datPrimaryRS.Recordset.Fields(6).Value + 1 End If '被叫时长 datPrimaryRS.Recordset.Fields(9).Value = CStr(LinkTime) End If datPrimaryRS

42、.Recordset.Update datPrimaryRS.Refresh End Sub五、总结六、附件Private Sub mnuFileClose_Click() Close #g_FileNumberDat ' 关闭文件。 Close #g_FileNumberDex ' 关闭文件。End SubPrivate Sub mnuHelp_Click() MsgBox "如果软件状态不正常，请检查PC与RZ6003移动交换机之间连接线是否正确！", , "移动交换系统"End Sub'Private Sub mnuRefr

43、esh_Click()' If MSComm1.PortOpen = False Then MSComm1.PortOpen = True' '开机通过串口向单片机发FF识别标志' MSComm1.Output = Chr(255)' MsgBox "已经刷新！", vbOKOnly'End SubPrivate Sub mnuStatInformation_Click() frmstat.ShowEnd SubPrivate Sub mnuExit_Click() Dim i If MSComm1.PortOpen = Tr

44、ue Then MSComm1.PortOpen = False Unload Me EndEnd SubPrivate Sub Form_Unload(Cancel As Integer) Dim i If MSComm1.PortOpen = True Then MSComm1.PortOpen = False For i = Forms.Count - 1 To 0 Step -1 Unload Forms(i) Next i Close #g_FileNumberDat ' 关闭文件。 Close #g_FileNumberDex ' 关闭文件。End SubPriva

45、te Sub Form_Load() Dim i As Integer Dim j As Integer Timer1.Enabled = False 'Timer2.Enabled = False mstrBaudNumber = "9600" '串口波特率为9600 mstrParity = "n" '串口一帧数据无奇偶校验位 mstrFrameBits = "8" '串口一帧数据的bit位数 mstrStopBits = "1" '串口一帧数据的停止位数为1bit宽 m

46、intFrameStart = CRZPROGRAM_START '帧头默认值为1 mintFrameStop = CRZPROGRAM_STOP '帧尾默认值为0 gintReceiveByte = 0 gintFrameStartHasFind = False 'MSComm1.RThreshold = CRZPROGRAM_FRAME_LENGTH '接收到21个字符就产生 OnComm 事件 MSComm1.SThreshold = 0 '发送不产生 OnComm 事件 MSComm1.Settings = mstrBaudNumber + &q

47、uot;," + mstrParity + "," + mstrFrameBits + "," + mstrStopBits #If SWITCH = SWITCH_AVR Then Call mnuComBaudNumber_Click(6) '19200 使用AVR对应的交换机 MSComm1.RThreshold = CRZPROGRAM_FRAME_LENGTH_AVR '接收到个字符就产生 OnComm 事件(AVR)#Else 'If SWITCH = SWITCH_51 Then Call mnuComBa

48、udNumber_Click(5) '9600 使用51芯片对应的交换机 MSComm1.RThreshold = CRZPROGRAM_FRAME_LENGTH '接收到个字符就产生 OnComm 事件#End If '默认为COM1,并作端口是否存在判断 Call mnu_ComNumberCOM_Click(0) 'Call mnu_ComNumberCOM_Click(2) If MSComm1.PortOpen = True Then '开机通过串口向单片机发FF识别标志 'MSComm1.Output = Chr(255) End I

49、f Timer1.Interval = 1000 Timer1.Enabled = True 'Timer2.Enabled = True For i = 0 To CRZ_MAX_BASE_NUMBER - 1 For j = 0 To CRZ_MOBILE_NUMBER_PER_BASE - 1 cmdMobile(i * CRZ_MOBILE_NUMBER_PER_BASE + j).Caption = (i + 1) * 10 + j cmdMobile(i * CRZ_MOBILE_NUMBER_PER_BASE + j).BackColor = CMOBLIE_CORLOR

50、_BE_CLOSED cmdMobile(i * CRZ_MOBILE_NUMBER_PER_BASE + j).Left = 1680 + j * 1100 cmdMobile(i * CRZ_MOBILE_NUMBER_PER_BASE + j).Top = 1920 + i * 1320 cmdMobile(i * CRZ_MOBILE_NUMBER_PER_BASE + j).FontSize = 15 cmdMobile(i * CRZ_MOBILE_NUMBER_PER_BASE + j).FontBold = True mintPhoneStatus(i, j) = MS_ST_

51、CLOSE mintPhoneLinkTime(i, j) = 0 mintPhoneStartLinkTime(i, j) = 0 mintPhoneStartLinkDateTime(i, j) = 0 mblnPhoneHostStatus(i, j) = 0 mintOtherPhoneCode(i, j) = 255 mintPhoneLink(i, j) = False Next j Next i For i = 0 To CRZPROGRAM_FRAME_LENGTH - 1 mintSwithStatus(i) = 255 Next i lblCorlorIndex.Caption = "黄色-关机" & vbCrLf & "蓝色-空闲" & vbCrLf & "绿色-通信准备"