单片机课程设计最终版.doc

安徽工程大学课程设计用纸 I 基于基于 STCSTC 单片机的单片机的 PPTPPT 遥控器的设计遥控器的设计 摘要摘要 本设计使用 STC12C5A16S2 高速单片机作为控制器 采用现成的基于 PT2262 2272 的 4 路摇控遥控发射与接收模块 构成无线信号的发送和接收系统 利用 STC12C 系列单片机串口通信模块与计算机通信 并用 VB 语言编写了上位机程 序来完成单片机与计算机的通信 本作品很好的实现了无线信号 单片机 计算机之 间的通信 本设计能够对计算机上的 PPT 进行简单的四个操作 分别是全屏 退出全屏 上一页及下一页 本作品的遥控距离可长达 40m 左右 很好的支持了老师的教学工 作 本文从单片机的原理以及信号传输过程入手 详细阐述了此作品的设计过程 包括硬件电路的设计和软件的算法 关键词 STC12C5A16S2 串口通信 遥控 PPT 安徽工程大学课程设计用纸 II 目目 录录 第 1 章 绪论 1 1 1 设计要求 1 1 2 设计方案及工作原理 1 第 2 章 系统的硬件设计 3 2 1 系统硬件的整体设计 3 2 2 主控制模块的方案选择与设计 3 2 2 1 单片机 STC89C52 简 介 3 2 2 2 主控制模块电 路 4 2 3 无线遥控模块的设计 5 2 4 功能指示灯电路的设计 7 2 5 串口通信模块的方案设计 8 2 5 1 max232 简单介 绍 9 2 6 上位机模块的设 计 10 2 7 电源模块的设 计 10 第 3 章 系统软件设计 12 3 1 系统主程序及流程 图 12 第 4 章 实验与调试 12 安徽工程大学课程设计用纸 III 4 1 硬件测试 13 4 2 软件调试 13 总结 14 参考文献 15 附录 A 电气原理图 16 附录 B 实物图 17 附录 C 单片机程序清单 18 附录 D 上位机程序清单 21 4 安徽工程大学课程设计用纸 1 第第 1 1 章章 绪论绪论 1 1 设计要求 利用单片机设计 PPT 遥控器 要求如下 1 能够实现上一页 下一页 全屏和退出全屏的功能 2 便于携带 3 性能稳定 4 遥控距离至少 10m 1 2 设计方案及工作原理 通讯是指不同独立的系统进行数据的交换 单片机的串行通信是为系统的通信 准备的 本作品采用了现成的基于 PT2262 2272 的 4 路集成遥控模块 接收模块每 接收到一个信号会在相应的输出端输出一个高电平 再通过六路反相器 74LS06 接 STC12C5A16S2 的 I O 口 作为单片机的遥控信号输入端 单片机与计算机之间通过 MAX232 构成的串口通信进行信息的传输 计算机安装有用 VB 编写上位机 对遥控 信号进行接收并采取相应的处理 从而实现了无线信号 单片机 计算机之间的通信 1 2 1 遥控信号传输的方案选择 方案一 采用红外线作为遥控信号的传输工具 红外线传输是把电信号通过光 电管转换成不同频率的光线 接收器再通过光电管把光线转换成电信号 红外线遥 控的特点是不影响周边环境 不干扰 其他设备 电路调试简单 只要按给定电路连 接无误 一般不需要任何调试即可投入工作 编解码容易 可进行多路遥控 用红 外线来传送控制信号的特点是有方向性 不能有阻挡 距离一般不超过 7 米 不受 电磁干扰 方案二 采用无线遥控的方式 无线遥控是把信号调制成无线电波发射出去 接收装置也必须是无线电接收器 另外无线电波受国家管制 不能随便乱用 它的 特点是无方向性 可以不 面对面 控制 距离远 可达数十米 甚至数公里 容 易受电磁干扰 在需要远距离穿透或者无方向性控制领域 比如工业控制等等 使 用无线电遥控器较易解决 比较上述两种方案可以看出 第二种方案信号传输更加准确可靠 而且有比较 成熟的现成模块可以购买 软件设计更加简洁 因此采用第二种方案 安徽工程大学课程设计用纸 2 1 2 2 计算机与单片机串行通信标准的方案选择 方案一 采用 RS 232 标准 单片机与微机之间通信以 RS 232 标准最为常见 且微机对外的两个串行接口 COM1 COM2 均是专门为 RS 232 标准通信而设的 然而 虽然 RS 232 标准的通信方式比较方便 但是仅能实现短距离通信 仅为 1Om 左右 若要实现远距离通信 还有赖于调制解调器或其它的方式 同时 RS 232 标准通信口 对地是共摸信号传输方式 对各种电器的干扰大多也是对地共摸方式 虽然其传输 电平提高到 15V 15V 但是抗干扰能力仍不理想 方案二 采用 RS 485 标准 RS 485 采用平衡发送和差分接收 因此具有抑制 共模干扰的能力 加上总线收发器具有高灵敏度 能检测低至 200mV 的电压 故传 输信号能在千米以外得到恢复 在要求通信距离为几十米到上千米时 广泛采用 RS 485 串行总线 RS 485 用于多点互连时非常方便 可以省掉许多信号线 应用 RS 485 可以联网构成分布式系统 其允许最多并联 32 台驱动器和 32 台接收器 比较上述两种方案可以看出方案一结构简单且本人接触较多 已熟练掌握其原 理并能熟练应用 另一方面 RS 232 已满足设计要求 因此采用第一种设计方案 综上所述 本设计采用无线遥控的设计方案 计算机与单片机采用 RS 232 通 信标准 安徽工程大学课程设计用纸 3 第第 2 2 章章 系统的硬件设计系统的硬件设计 2 1 系统硬件的整体设计 主控芯片使用 STC12C 系列 STC89C5A16S2 单片机 系统由主控制器 STC89C5A16S2 基于 PT2262 2272 的无线发送与接收模块 功能指示灯模块 串口 通信模块和上位机模块构成 系统硬件设计框图如图 2 1 所示 STC89C5A16S2 单片机 上位机模块 串口通信模块无线遥控模块 功能指示灯模块 图 2 1 系统硬件设计框图 2 2 主控制模块的方案选择与设计 系统的设计可采用 DSP 来完成 也可以采用单片机来完成 若用 DSP 来实现 设计的费用较高 DSP 的功能比较强大 工作速度快 工作稳定 但 DSP 的价格是 单片机价格的几十倍 若用单片机来设计完成 由于其功能的实现主要通过软件编 程来实现的 那么就降低了硬件电路的复杂性 所以在该设计中采用单片机作为主 控模块 另外这个课题设计的软件程序比较简单 不需要很强大的单片机 只要用 简单的单片机就可以满足要求 因此我选用了性价比比较高的低端 STC89C5A16S2 单 片机 2 2 1 单片机 STC89C5A16S2 简介 STC89C5A16S2 是低电压 高性能 CMOS 8 位单片机 片内含 16k bytes 的可 反复擦写的 Flash 只读程序存储器和 1024 bytes 的随机存取数据存储器 RAM 器件采用高密度 非易失性存储技术生产 与标准 MCS 51 指令系统及 8052 产品引 安徽工程大学课程设计用纸 4 脚兼容 片内置通用 8 位中央处理器 CPU 和 Flash 存储单元 功能强大 STC89C5A16S2 单片机适合于许多较为复杂控制应用场合 STC89C5A16S2 单片机为 40 引脚双列直插芯片 有四个 I O 口 P0 P1 P2 P3 每一条 I O 线都能独立地作输 出或输入 STC89C5A16S2 PDIP 管脚封装 如图 2 2 所示 图 2 2 STC89C5A16S2 DIP 管脚封装 STC89c52 包含以下部分 1 一个 8 位微处理器 CPU 2 片内数据存储器 RAM 和特殊功能寄存器 SFR 3 片内程序存储器 ROM 4 两个定时 计数器 T0 T1 可用作定时器 也可用以对外部脉冲进行计 数 5 四个 8 位可编程的并行 I O 端口 每个端口既可作输入 也可作输出 6 一个串行端口 用于数据的串行通信 7 中断控制系统 8 内部时钟电路 安徽工程大学课程设计用纸 5 2 2 2 主控制模块电路 单片机 STC89C5A16S2 的 P0 口作为功能指示灯的输出控制口 P3 0 RXD P3 1 TXD 分别与下载器对应位相连 采用串口下载单片机程序 采用阻容复位电路 对单片机进行复位 XTAL1 接外部晶振和微调电容的一端 XTAL2 接外部晶振和微调 电容的另一端 对外接电容的值虽然没有严格的要求 但电容的大小会影响震荡器 频率的高低 震荡器的稳定性 起振的快速性和温度的稳定性 因为串口通信的波 特率对时钟准确性要求比较高 所以系统电路的晶体振荡器的值为 11 0592MHz 电 容应尽可能的选择陶瓷电容 电容值约为 22 F 第 9 引脚为复位输入端 接上电 容 电阻后构成上电复位电路 20 引脚为接地端 40 引脚为电源端 EA 端 31 引 脚 接 5V 电压 P2 口作为四路无线遥控信号的接收输入端 由此就构成了单片机 主控模块的最小系统 单片机最小系统电路图如图 2 3 所示 图 2 3 主控电路及其最小系统电路图 安徽工程大学课程设计用纸 6 2 3 无线遥控模块的设计 限于我们现有的工艺水平和能力 自己设计高频的无线遥控模块比较困难 我 选用市场上应用较广的基于 PT2262 2272 的无线发送与接收模块 四键遥控器和超再生固定码接收模块可以组成四路无线发射接收电路 遥控器 的四位数据码对应模块的四路输出 可以方便的组成无线遥控发射接收电路 接收 板有自锁 非锁 互锁三种型号 非锁型输出又称点动输出 数据脚输出的电平是瞬时的而且和发射端是否发射 相对应 可以用于类似点动的控制 有遥控信号时数据脚是高电平 遥控信号消失 时数据脚立即恢复为低电平 适用于如电动门 电动门锁 与单片机对接等只需要 一个高电平的电路等电路 自锁型输出的数据脚能实现触发翻转工作逻辑 数据只要成功接收就能一直保 持对应的电平状态 直到下次遥控数据发生变化时改变 自锁型四路相互独立互不 影响 可同时遥控四路 如灯具的控制等 互锁型输出就是任意一路收到信号则该路就能一直保持对应的高电平状态 接 收到任意其它路的数据则恢复到原始状态 四路互锁只能有一路接通 实际应用如 电风扇档位开关电路等 接收板主要参数 工作频率 315M 工作电压 DC5V 工作电流 3mA 5 0VDC 工作原理 超再生 调制方式 ASK 编码芯片 SC2272 PT2272 PT2294 芯片兼容 灵敏度 优于 105dBm 50 输出信号 互锁 L 或非锁 M 或自锁 T 遥控距离 20 50 米以上 开阔地 接收模块的七根引脚分别为 D3 D2 D1 D0 GND VT VCC 其中 VCC 为 DC5V 的供电端 GND 为接地端 VT 端为解码有效输出端 只要发射器的数据码有输 出 VT 都能同步输出高电平 D3 D2 D1 D0 是 2262 解码芯片的四位数据输出端 有信号时能输出 5V 左右的高电平 驱动电流约 2mA 与发射器的四位数据码输出一 一对应 本设计采用的是非锁型 因为接收板输出信号为高电平 单片机默认引脚输出 安徽工程大学课程设计用纸 7 为高 所以接收板输出信号通过六路反相器 74LS06 与单片机 P2 口相连 接收板与 单片机连接电路图如图 2 4 所示 图 2 4 与单片机连接电路图 2 4 功能指示灯电路的设计 根据设计的要求 让操作者更清楚的知道进行哪种操作 我设计了功能指示灯 模块电路 以 P0 口作为输出控制口 因为 P0 口内部无上拉电阻 我在 P0 口加了 4 7K 的排阻 以加大 P0 口得驱动能力 电路图如图 2 5 所示 安徽工程大学课程设计用纸 8 图 2 5 功能指示灯模块电路 2 5 串口通信模块的方案设计 此设计方案采用了电平转换芯片 MAX232 来构建串口通信电路 串口通信模块 电路图如图 2 6 所示 图 2 6 串口通信模块电路 安徽工程大学课程设计用纸 9 2 5 1 max232 简单介绍 max232 是一种把电脑的串行口 rs232 信号电平 10 10v 转换为单片机所 用到的 TTL 信号点平 0 5 的芯片 这个芯片的价格比较贵大约要 6 元 下面 我来介绍一下 max232 引脚图以及 max232 和电脑串口的连接电路 RS232 引脚定义 图 2 7 max232 引脚图 RS232 引脚定义 引脚 定义 符号 1 载波检测 DCD 2 接收数据 RXD 3 发送数据 TXD 4 数据终端准备好 DTR 5 信号地 SG 6 数据准备好 DSR 7 请求发送 RTS 8 清除发送 CTS 9 振铃提示 RI 安徽工程大学课程设计用纸 10 图 2 8 DB9 实物图 2 5 上位机模块的设计 本设计的上位机是用 Visual Basic 语言编写的 本文主要是对作品单片机方 面进行介绍 所以此处上位机模块不进行详细介绍 上位机运行状态图如图 2 9 所 示 图 2 9 上位机运行图 2 6 电源模块设计 从便于携带的角度考虑 本设计采用四节 1 5V 干电池作为电源 四节 1 5V 干 电池经过二极管的管压降后为整个系统供电 单片机系统与无线接收板是采用同一 个电源的 而且必须共地 电源模块电路图如图 2 10 所示 安徽工程大学课程设计用纸 11 图 2 10 电源模块 安徽工程大学课程设计用纸 12 第第 3 3 章章 系统软件设计系统软件设计 软件是系统的主要组成部分 也是整个调试的重点和难点工作 本设计采用了 C 语言 因为 C 语言更接近人性化 也是一种被广泛化使用的语言 可以用在大型 程序中 3 1 系统主程序及流程图系统主程序及流程图 主程序的主要功能是接收无线遥控的信号 经过识别处理再传送给计算机 在 主程序中 系统上电自动复位以后首先进行单片机初始化 然后不断循环扫描判断 P2 口是否为低电平 接收到低电平信号后通过串口通信相计算机传送信号 主程序 流程如图 3 1 所示 初始化 信号扫描 判断信号所对应的功能 执行相应的功能 接收到遥控信号 是 开始 图 3 1 主程序流程图 安徽工程大学课程设计用纸 13 第第 4 4 章章 实验与调试实验与调试 验证理论的最好的方法是实践 因此本设计通过实验 用实物的调试来验 证之上设计的可行性 虽然现在很多设计采用仿真来模拟结果 但是仿真和实 际还是有一定差距的 而且有些实际问题是仿真所不能显示的 为了更好的验 证本设计方案 因此本设计采用实物来验证 4 1硬件测试硬件测试 本设计的硬件验证电路完全由按照上述理论进行焊接 由于电路比较简单 在焊接中遇到的问题不是很多 硬件焊接好后需要测试是否都连接好了 本设计采用的测试方法是用万用 表来测量 用万用表的两个表笔分别接连线的两端 测试是否电阻为零 如果 电阻为零说明连接正确 如果有电阻说明没有连接好 由于实验板上的有些焊 点离的比较近 在焊接时可能由于不小心将焊锡滴落在两个焊点之间造成短路 短路是对电路板最大的危害之一 因此要细心的检查每两个相邻的焊点之间是 否有短路发生 4 24 2 软件调试软件调试 采用常见的 KEIL 软件进行程序的编写和调试 如图 4 1 所示 图 4 1 软件调试界面 安徽工程大学课程设计用纸 14 总结总结 在基于单片机的 PPT 遥控器的设计过程中 我学到了很多重要的东西 其 中最重要的是如何将实践和理论相联系 怎样将我所学到的知识运用到我以后 的工作中去 大学的课堂的学习只是在给我们灌输专业知识 而我们应把所学 的用到我们现实的生活中去 此次的单片机课程设计给我奠定了一个实践基础 本系统的设计应用到了模拟电子技术 数字电子技术 单片机控制技术 电路 焊接工艺 VB 编程语言等多方面的知识 达到了题目要求 这次课程设计为使我得到了很大收获 不仅学到了许多了关于单片机方面 的知识 熟悉了与单片机相关的两款软件 KEIL 和 STC ISP V4 8 提高了实验 技能 而且也使我的动手能力和电路设计能力得到了极大的提高 本文是在尊敬的导师孙驷洲老师的精心指导和大力支持下完成的 从论文 的构思 方案设计到论文撰写和修改无不渗透着他大量的心血 王老师的悉心 指导 让我有信心去解决所遇到的一个个问题 在这里向他致以衷心的感谢 他在学术上给了我很多帮助和教育 尤其是导师们在学习和思维方法上给我的 教育 让我受益匪浅 导师认真严谨的治学态度 渊博的知识 创造性的学术 思维 勤奋求实的工作作风和不懈的学术追求都激励着我 并对我今后的工作 和生活也将产生极大的影响 还要感谢我的同学在课程设计中给予的帮助 才 使我得以顺利完成论文 最后 再次对关心 帮助我的老师和同学们表示衷心地感谢 安徽工程大学课程设计用纸 15 参考文献参考文献 1 谭浩强 C 程序设计 第二版 M 北京 清华大学出版社 1999 12 2 彭为 单片机典型系统设计实例精讲 M 北京 电子工业出版社 2006 5 3 童诗白 模拟电子技术基础 第三版 M 北京 高等教育出版社 2001 1 4 阎石 数字电子技术基础 第四版 M 北京 高等教育出版社 1998 11 安徽工程大学课程设计用纸 16 附录附录 A A 电气原理图电气原理图 安徽工程大学课程设计用纸 17 附录附录 B B 实物图实物图 安徽工程大学课程设计用纸 18 附录附录 C C 单片机程序清单单片机程序清单 include define uint unsigned int define uchar unsigned char sbit a P2 0 sbit b P2 1 sbit c P2 2 sbit d P2 3 sbit vt P2 4 sbit a led P0 1 sbit b led P0 3 sbit c led P0 4 sbit d led P0 2 sbit vt led P0 0 sbit shuchu P2 7 uchar sebyte a b c d uchar biaozhi 0 void delay uint z uint x y for x z x 0 x for y 110 y 0 y void main TMOD 0 x20 定时器 1 工作模式 2 给串口通信提供波特率 SCON 0 xd8 TH1 0 xfd TL1 0 xfd 安徽工程大学课程设计用纸 19 TR1 1 P0 0XFF while 1 P0 0XFF if a 0 biaozhi 1 while a 0 去抖 P0 0XFF 关其他显示灯 a led 0 指示灯显示 vt led 0 delay 1000 vt led 1 SBUF sebyte 0 while TI 0 串口发送 TI 0 if b 0 while b 0 去抖 P0 0XFF 关其他显示灯 b led 0 指示灯显示 vt led 0 delay 500 vt led 1 SBUF sebyte 1 while TI 0 串口发送 TI 0 安徽工程大学课程设计用纸 20 if c 0 去抖 P0 0XFF 关其他显示灯 c led 0 指示灯显示 vt led 0 delay 500 vt led 1 SBUF sebyte 2 while TI 0 串口发送 TI 0 if d 0 去抖 P0 0XFF 关其他显示灯 d led 0 指示灯显示 vt led 0 delay 500 vt led 1 SBUF sebyte 3 while TI 0 串口发送 TI 0 安徽工程大学课程设计用纸 21 附录附录 D D 上位机程序清单上位机程序清单 Option Explicit Private Declare Sub keybd event Lib user32 ByVal bvk As Byte ByVal scan As Byte ByVal dwflags As Long ByVal dwextrainfo As Long 以下为最小化到系统托盘声明 Private Const MAX TOOLTIP As Integer 64 Private Const NIF ICON H2 Private Const NIF MESSAGE H1 Private Const NIF TIP H4 Private Const NIM ADD H0 Private Const NIM DELETE H2 Private Const WM MOUSEMOVE H200 Private Const WM LBUTTONDOWN H201 Private Const WM LBUTTONUP H202 Private Const WM LBUTTONDBLCLK H203 Private Const WM RBUTTONDOWN H204 Private Const WM RBUTTONUP H205 Private Const WM RBUTTONDBLCLK H206 Private Const SW RESTORE 9 Private Const SW HIDE 0 Private nfIconData As NOTIFYICONDATA Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String MAX TOOLTIP End Type Private Declare Function ShowWindow Lib user32 ByVal hWnd As 安徽工程大学课程设计用纸 22 Long ByVal nCmdShow As Long As Long Private Declare Function Shell NotifyIcon Lib shell32 dll Alias Shell NotifyIconA ByVal dwMessage As Long lpData As NOTIFYICONDATA As Long Dim WindowTop WindowLeft PPT 声明 Dim objppt As PowerPoint Application Dim flag As Boolean Dim flag1 As Boolean Dim i As Integer Private Sub cmd1 Click Dim chose As String chose Combocom Text If chose Then CreateObject Wscript Shell Popup 未选择串口 请选择 两 秒后该窗口自动关闭 2 选择串口 64 Else If mscomm1 PortOpen False Then mscomm1 CommPort Combocom ListIndex 1 mscomm1 InputLen 1 mscomm1 RThreshold 1 If mscomm1 PortOpen False Then mscomm1 Settings 9600 n 8 1 On Error Resume Next mscomm1 PortOpen True If Err Then CreateObject Wscript Shell Popup 所选串 口无效 请重选 两秒后该窗口自动关闭 2 错误 64 Exit Sub End If End If mscomm1 InBufferCount 0 安徽工程大学课程设计用纸 23 cmd1 Caption 串口已打开 cmd2 Caption 关闭串口 Else CreateObject Wscript Shell Popup 串口已打开 1 秒后该 窗口自动关闭 1 串口已打开 64 cmd1 Caption 串口已打开 cmd2 Caption 关闭串口 End If End If End Sub Private Sub cmd2 Click Dim chose As String chose Combocom Text If chose Then CreateObject Wscript Shell Popup 未选择串口 请选择 两 秒后该窗口自动关闭 2 选择串口 64 Else If mscomm1 PortOpen False Then CreateObject Wscript Shell Popup 串口已关闭 1 秒后该 窗口自动关闭 1 串口已关闭 64 cmd2 Caption 串口已关闭 cmd1 Caption 打开串口 Else mscomm1 PortOpen False cmd2 Caption 串口已关闭 cmd1 Caption 打开串口 End If End If End Sub Private Sub Cmdopen Click objppt Visible True 安徽工程大学课程设计用纸 24 On Error Resume Next objppt Presentations Open File1 Path File1 FileName msoFalse If Err Then CreateObject Wscript Shell Popup 请选择有效文件 两秒后 该窗口自动关闭 2 错误 64 Exit Sub End If End Sub Private Sub Combocom click If mscomm1 PortOpen True Then CreateObject Wscript Shell Popup 即将关闭串口 请确定 两秒后该窗口自动关闭 2 选择串口 64 mscomm1 PortOpen False cmd1 Caption 打开串口 cmd2 Caption 串口已关闭 End If End Sub Private Sub Dir1 Change File1 Path Dir1 Path End Sub Private Sub Drive1 Change Dir1 Path Drive1 Drive End Sub Private Sub Form Load Combocom AddItem COM1 Combocom AddItem COM2 Combocom AddItem COM3 Combocom AddItem COM4 Combocom AddItem COM5 安徽工程大学课程设计用纸 25 Combocom AddItem COM6 File1 Pattern ppt Set objppt CreateObject powerpoint application End Sub Private Sub MSComm1 OnComm Dim indata As Variant If mscomm1 CommEvent comEvReceive Then On Error Resume Next indata mscomm1 Input If Err Then mscomm1 PortOpen False cmd1 Caption 打开串口 cmd2 Caption 串口已关闭 MsgBox 接收错误 vbOKOnly 错误 Exit Sub End If mscomm1 InBufferCount 0 Label3 Caption indata Select Case indata Case a 翻上一页 Label5 Caption 上一页 If flag True Then objppt SlideShowWindows Index 1 View Previous Else keybd event 38 0 0 0 keybd event 38 0 2 0 End If Case b 翻下一页 Label5 Caption 下一页 If flag True Then 全屏状态 objppt SlideShowWindows Index 1 View Next Else 非全屏状态 安徽工程大学课程设计用纸 26 keybd event 40 0 0 0 keybd event 40 0 2 0 End If Case c 快速上翻 Label5 Caption 全屏 flag True With objppt ActivePresentation SlideShowSettings ShowType ppShowTypeSpeaker RangeType ppShowAll LoopUntilStopped msoFalse ShowWithNarration msoTrue ShowWithAnimation msoTrue AdvanceMode ppSlideShowUseSlideTimings PointerColor RGB RGB Red 255 Green 0 Blue 0 Run End With If flag1 True Then objppt SlideShowWindows Index 1 View GotoSlide i End If i 0 Case d 快速上翻 Label5 Caption 退出全屏 i objppt ActivePresentation SlideShowWindow View Slid