//---------------------------------------SComm控件的常用屬性和方法-----------------------------   
Commport；設(shè)置或返回串口號(hào)。
SettingS：以字符串的形式設(shè)置或返回串口通信參數(shù)。
Portopen：設(shè)置或返回串口狀態(tài)。
InputMode：設(shè)置或返回接收數(shù)據(jù)的類(lèi)型。
Inputlen：設(shè)置或返回一次從接收緩沖區(qū)中讀取字節(jié)數(shù)。
InBufferSize：設(shè)置或返回接收緩沖區(qū)的大小，缺省值為l 024字節(jié)。
InBufferCount：設(shè)置或返回接收緩沖區(qū)中等待計(jì)算機(jī)接收的字符數(shù)。
Input：從接收緩沖區(qū)中讀取數(shù)據(jù)并清空該緩沖區(qū)，該屬性設(shè)計(jì)時(shí)無(wú)效，運(yùn)行時(shí)只讀。
OutBufferSize：設(shè)置或返回發(fā)送緩沖區(qū)的大小，缺省值為512字節(jié)。
OutBufferCount：設(shè)置或返回發(fā)送緩沖區(qū)中等待計(jì)算機(jī)發(fā)送的字符數(shù)。
Output：向發(fā)送緩沖區(qū)發(fā)送數(shù)據(jù)，該屬性設(shè)計(jì)時(shí)無(wú)效，運(yùn)行時(shí)只讀。
設(shè)置好這些屬性和方法，程序很容易就可以編出來(lái)了，其中要注意的是串口的波特串設(shè)置，OnComm事件的程序編寫(xiě)。    
程序的設(shè)計(jì)是這樣的，計(jì)算機(jī)向單片機(jī)發(fā)送一個(gè)’S’，表示通信開(kāi)始。然后緊接著又發(fā)送9個(gè)字符，其中最后一個(gè)字符是前面9個(gè)字符（包括’S’）的校驗(yàn)和。單片機(jī)正確接收到10個(gè)字符后，把10個(gè)字符從新又送回來(lái)。
//---------------------------------------初始化串口設(shè)計(jì)-----------------------------   
Private Sub Form_Load()
Comm1.Setting＝"9600,n,8,1,"  ’設(shè)置波特率和發(fā)送字符格式
Comm1.CommPort＝1         ’設(shè)置通訊串口
Comm1.InputLen＝0         ’設(shè)置或返回一次從接收緩沖區(qū)中讀取字節(jié)數(shù)，0表示一次讀取所有數(shù)據(jù)
Comm1.InBuffersize＝512
Comm1.InBufferCount＝0
Comm1.OutBufferCount=0
Comm1.Rthreshold＝1
Comm1.PortOpen＝True
End Sub                     ’打開(kāi)串口
//--------------------------------------給單片機(jī)發(fā)送’S’，開(kāi)始通信-----------------------------   
Private Sub Command1_C1ick()
 Timer1.Enabled＝True
 End Sub
 Private Sub Command2_C1ick()
 Varbuffet＝“S”                   
 Comm1.Ouput＝varbuffe
 Timer2.Enabled＝True
 End Sub
Private Sub Form_Unload(Cancel As Integer)
Comm1.PortOpen＝False
End Sub
//---------------------------------------向單片機(jī)發(fā)送數(shù)據(jù)-----------------------------   
Private Sub Timer2_ Timer()
Outputsignal＝Str(Text2.text)                          '向單片機(jī)發(fā)送數(shù)據(jù)
Temp(1)＝Cbyte(outputsignal)
Varbuffer＝temp
Comml.Output＝varbuffer
Timer2.Enabled＝False
End Sub
//---------------------------------------接收單片機(jī)發(fā)送的數(shù)據(jù)，并顯示-----------------------------   
Private Sub Comm1_OnComm()
 Select Case Comm1.CommEvent         '設(shè)置oncomm事件，讀取片機(jī)內(nèi)存的值
 Case comEvReceive
 Inputsignal＝comm1.Input
 Text1.Text＝Asc(Inputsignal)              '單片機(jī)內(nèi)存的值用textbox顯示出
 Case Else
 End select
 End Sub