极速蜗牛的专栏

在使用时Text1 = GetMACAddress()Option ExplicitPublic Const NCBASTAT As Long = &H33Public Const NCBNAMSZ As Long = 16Public Const HEAP_ZERO_MEMORY As Long = &H8

现有电子秤一台，使用串口与计算机进行通讯。编写VB程序来访问串口，达到读取电子秤上显示的数据。该电子秤为BE01型仪表，输出为RS-232C标准接口，波特率为300-9600、偶校验、7个数据位、2个停止位。所有字符均发送11位ASCII码，一个起始位。在VB中与串口通讯需要引入控件MSComm串口通讯控件（在Microsoft Comm Control 6.0中）。具体程序如下：控件简称：MSC

Label控件Label 控件主要用于在窗体中显示提示信息，常与Text控件一起使用。 属性： Caption 表示标签的内容。例：Label1.Caption="N&ame:"控件在窗体中显示Name:,&号跟的字母是快捷键字母，即当我们按下Alt+A时，Label1的Click事件将会发生。这种快捷键定义方法对于菜单和许多其它控件同样适用。 Font 表示控

一、实现方法如下：1、新建一个工程/窗体(窗体取名为ini.frm)，在此窗体中添加三个命令按钮控件，分别为command1、command2、command3command1.Caption= "write"command2.Caption= "read"command3.Caption= "End"2、代码部分：Private Declare Function GetPrivatePr