form1.frm

vb api 进行串口通信

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   3120
      TabIndex        =   0
      Top             =   2400
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'注意：当PC机与单片机系统通信时，单片机数据存储区（RAM）内的
'数据是十六进制，在信号线上传输的是十六进制数的ACLL码的二进制形式；
'而windows系统下使用的是ANSI码，ANSI码仅在前126个与ASCLL码相同。即在WIN98
'下接收到的是十六进制的ASCLL码的字符串，可先转换为ANSI码后再在WIN98下还原
'为十六进制数。
'具体如下：Code$=Hex$(Asc(Readbuff$))
'另外，由于32位API函数参数的数据类型的变化，所有整形参数都被换为长整形(Long)
'以支持32位的处理，这一点在设置返回值尤其如此。
Private Sub Command1_Click()
Call SendHand
End Sub