下载 >  开发技术 >  硬件开发 > 单片机 直流机动 液晶显示

单片机 直流机动 液晶显示

2009-06-09 上传大小:4KB
分享
'-----发送按钮Click事件子程序-----------
Private Sub Fasong_Click()
Dim JIHAO(0)    As Byte             ’机号
Dim head_data(4) As Byte           ’5 Byte控制字
Dim end_data(0) As Byte            '1 Byte 结束字
    JIHAO(0) = Val(Text3.Text)
    head_data(0) = Val(Text4.Text)
    head_data(2) = &HEE                 'TIMH
    head_data(3) = &HEE                 'TIML
    head_data(4) = Val(Combo1.Text)     'INMOD
    end_data(0) = &HFF
    If Combo2.Text = "增加" Then head_data(1) = &H99
    If Combo2.Text = "清空" T
                            hen head_data(1) = &H33
    If Combo2.Text = "删除" Then head_data(1) = &H32
    Ready = 0: ErrCount = 0
    On Error GoTo ERRORCOM              ’打开错误处理
'----------------------------------------------------------
     If com1.value Then MSComm1.CommPort = 1    'Use com1
     If com2.value Then MSComm1.CommPort = 2    'Use com2

     MSComm1.Settings = FORM1.Combo3.Text + ",M,8,2"     '设定波特率和置校验和位为1
     MSComm1.InputLen = 0                '
     MSComm1.PortOpen = -1               'Open the port
     MSComm1.OutBufferCount = 0
     MSComm1.Output = JIHAO              ‘发送机号
     MSComm1.PortOpen = False            ’关闭串口
     MSComm1.Settings = FORM1.Combo3.Text + ",S,8,2" '设定波特率和置校验和位为空
     MSComm1.OutBufferCount = 0
     MSComm1.PortOpen = True
     MSComm1.Output = head_data
     MSComm1.Output = Text2.Text
     MSComm1.Output = end_data
     MSComm1.PortOpen = False
     Text1.Text = "发送成功!" + Chr(13) & Chr(10) + "发送至" + Text3.Text + "屏体," + "信息编号:" + Text4.Text + Chr(13) & Chr(10) + Chr(13) & Chr(10) + Text1.Text
     GoTo comend
ERRORCOM:
     Text1.Text = "ERROR!请重新选择COM口!" + Chr(13) & Chr(10) + Chr(13) & Chr(10) + Text1.Text
comend:
     On Error GoTo 0
End Sub                        
...展开收缩
综合评分:0
开通VIP 立即下载

评论共有0条

 
基于52单片机的利用1602液晶显示时间和温度 立即下载
积分/C币:3
无刷直流电机控制应用-基于STM8S系列单片机 - 李家庆1-139.pdf 立即下载
积分/C币:15
直流伺服电机电路原理图(内含单片机源代码) 立即下载
积分/C币:3
基于51单片机的液晶显示程序及protues仿真原理图 立即下载
积分/C币:3
无刷直流电机控制应用-基于STM8S系列单片机 - 李家庆295-451.pdf 立即下载
积分/C币:10
无刷直流电机控制应用+基于STM8S系列单片机 立即下载
积分/C币:5
以lcd1602为显示器的 51单片机数字时钟(时分秒年月日星期) 立即下载
积分/C币:3
基于stm32的数控直流电源 立即下载
积分/C币:3
实用51单片机控制直流马达程序(含电风扇4档调速程序) 立即下载
积分/C币:5
直流电机转速控制实验报告 立即下载
积分/C币:3

热点文章

VIP会员动态

关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

单片机 直流机动 液晶显示

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
开通VIP
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: