《实验报告3》由会员分享，可在线阅读，更多相关《实验报告3（8页珍藏版）》请在金锄头文库上搜索。
1、实 验 报 告课 程 名 称 机 电 系 统 综 合 实 验实 验 名 称 实 验 3 数 控 机 床 步 进 电 机 控 制 综 合 实 验实 验 日 期 2 0 1 6 年 5 月 0 1 日 至 2 0 1 6 年 5 月 2 7 日学 生 专 业 机 械 设 计 制 造 及 其 自 动 化学 生 学 号9 1 3 1 0 1 1 4 0 3 0 1 9 1 3 1 0 1 1 4 0 4 2 5 9 1 3 1 0 1 1 4 0 4 3 4 9 1 3 1 0 1 1 4 0 4 3 9学 生 姓 名 巩 薇 刘 自 华 韦 伟 元 志 斌实 验 室 名 称 机 电 工 程 中 心
2、实 验 室指 导 教 师 黄 新 燕实 验 成 绩 南 京 理 工 大 学 机 械 工 程 学 院实 验 三一 . 实 验 目 的用 软 件 控 制 步 进 电 机 的 运 行 。二 . 实 验 要 求1 ） 用 Visual Basic 语 言 完 成 程 序 设 计 和 调 试 ， 实 现 以 下 功 能 ： 电 机 的 数 量 的 选 择 电 机 的 相 数 和 工 作 方 式 选 择 ； 软 件 环 行 分 配 功 能 ； 步 进 电 机 调 速 功 能 。2 ） 界 面 的 设 计 界 面 上 可 以 选 择 电 机 的 数 量 和 电 机 的 相 数 以 及 工 作 方 式 ； 界
3、 面 上 可 以 有 调 速 功 能 ； 界 面 上 有 工 作 方 式 显 示 灯 和 工 作 方 式 显 示 功 能 ； 提 供 运 行 界 面 和 调 试 原 代 码 并 讨 论 调 试 中 出 现 了 哪 些 问 题 ， 如 何 解 决 的 。三 实 验 原 理步 进 电 机 是 一 种 将 电 脉 冲 信 号 转 换 成 相 应 角 位 移 或 线 位 移 的 控 制 电 机 。 在 数控 机 床 中 ， 通 过 控 制 X、 Y、 Z 向 的 步 进 电 机 的 转 动 控 制 工 作 台 的 X、 Y、 Z 三 个 方向 的 移 动 ， 例 如 0 .0 1 mm/步 进 电 机
4、 转 动 一 个 角 。 本 实 验 中 所 用 到 的 步 进 电 机 为 三相 反 应 式 步 进 电 机 。三 相 反 应 式 步 进 电 机 地 结 构 如 示 意 图 。 其 定 子 、 转 子 铁 心 均 由 硅 钢 片 叠 制 而成 ， 定 子 上 均 匀 分 布 六 个 磁 极 ， 磁 极 上 绕 有 线 圈 ， 两 个 相 对 磁 极 组 成 一 相 ， 三 相绕 组 接 成 星 型 联 结 。 转 子 铁 心 上 没 有 绕 组 ， 四 齿 均 匀 分 布 。工 作 时 ， 驱 动 电 源 的 信 号 不 同 ， 按 三 相 绕 组 通 电 顺 序 不 同 ， 其 运 行
5、方 式 有 三相 单 拍 、 三 相 双 三 拍 和 三 相 单 /双 六 拍 三 种 。 前 两 种 都 是 每 输 入 一 个 脉 冲 ， 转 子转 过 1 /3 齿 距 ， 步 距 角 为 3 0 度 ， 六 拍 方 式 运 行 步 距 角 为 1 5 度 ， 因 此 本 实 验 中 采用 六 拍 工 作 方 式 。六 拍 控 制 方 式 中 三 相 控 制 绕 组 的 通 电 顺 序 按 AABBBCCCAA 循 环进 行 ， 每 转 换 一 次 ， 步 进 电 机 顺 时 针 转 1 5 ， 若 反 向 通 电 即 反 转 ， 一 个 循 环 为六 拍 。 此 种 控 制 方 式 工
6、 作 稳 定 。四 . 实 验 结 果程 序 界 面 如 下 ：代 码 ：Option ExplicitDim flagstop As Integer 停 止 标 志Dim st As Integer 速 度 变 量Private Declare Function timeGetTime Lib winmm.dll () As LongPrivate Sub Cmd1 _Click()flagstop = 0st = 1 0 0 0Shape1 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape2 .FillColor = RGB(2 5 5 , 2 5
7、 5 , 2 5 5 )Shape3 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape4 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape5 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )If Comb.Text = 三 相 三 拍 Then 三 相 三 拍Do Shape3 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Ex
8、it DoDelay (st)Shape1 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape2 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape2 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)LoopElseIf Comb.Text = 三 相 六 拍 Then 三
9、 相 六 拍Do Shape3 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )Shape2 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape1 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shap
10、e2 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape2 .FillColor = RGB(2 5 5 , 0 , 0 )Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape2 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit
11、 DoDelay (st)Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)LoopElseIf Comb.Text = 四 相 四 拍 Then 四 相 四 拍Do Shape4 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)S
12、hape1 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape2 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape2 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape3 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape4
13、 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)LoopElseIf Comb.Text = 四 相 八 拍 Then 四 相 八 拍Do Shape4 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )Shape2 .FillColor =
14、RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape1 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape2 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape2 .FillColor = RGB(2 5 5 , 0 , 0 )Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Sha
15、pe2 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape3 .FillColor = RGB(2 5 5 , 0 , 0 )Shape4 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape3 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape4 .FillColo
16、r = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape4 .FillColor = RGB(2 5 5 , 0 , 0 )Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)LoopElseIf Comb.Text = 五 相 五 拍 Then 五 相 五 拍Do Shape5 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape1 .FillColor = RGB(2 5 5 , 0 , 0 )If flagstop = 1 Then Exit DoDelay (st)Shape1 .FillColor = RGB(2 5 5 , 2 5 5 , 2 5 5 )Shape2 .FillColor = RGB(2 5 5 , 0 , 0 )
