基于vb程序的串口通信實驗

1、 基于vb程序的串口通信實驗一：實驗?zāi)康模?通過實驗，了解網(wǎng)絡(luò)通訊的原理。 2了解TCP和UDP協(xié)議的基本知識。 3使用WINSLCK控件編寫簡單的網(wǎng)絡(luò)應(yīng)用程序。4了解VB的WITH語句及枚舉方法。二：實驗器材：兩臺pc機，一根電纜線。三：實驗原理：1. 通信部分:RS-232定義了21條接口電路的功能，接口連線叫做互換電路，簡稱電路。21條電路按照功能可分為五類，每個電路都有一個具體的功能。在本實驗中，我們只是用到了其PIN2：發(fā)送數(shù)據(jù)TXD;PIN3:接收數(shù)據(jù)等引腳。2.網(wǎng)絡(luò)協(xié)議部分:協(xié)議就是一組程序或者標(biāo)準(zhǔn),通過它們,不同類型和配置的計算機得以通訊.目前所有的計算機網(wǎng)絡(luò)互連協(xié)議,都是基于

2、ISO制定的OSI標(biāo)準(zhǔn),OSI模型把網(wǎng)絡(luò)連接從低到高劃分為7個層次,物理層是最低的一層.在這一層上,主要解決電氣上的技術(shù)問題.TCP協(xié)議是一個基于連結(jié)的允許創(chuàng)建和維護與遠程計算機的連接.連結(jié)兩臺計算機就可以彼此進行數(shù)據(jù)傳輸.UDP協(xié)議則是一個無連結(jié)的協(xié)議.3.VB部分:在里面我們用到了WINSOCK控件.四：實驗運行結(jié)果:1.發(fā)送:2.接收:3.設(shè)置參數(shù):4實驗程序：五.實驗總結(jié): 經(jīng)過本次實驗,使我學(xué)到了關(guān)于VB的相關(guān)知識,雖然我對VB的編程還不是很熟練,但是我相信在今后的學(xué)習(xí)中我一定可以加強編程能力的.六程序清單：Private Sub Command1_Click()If MSComm1

3、.PortOpen = True Then MSComm1.PortOpen = False End If MSComm1.Settings = 9600,N,8,1 MSComm1.RThreshold = 1 MSComm1.PortOpen = True MSComm1.InputLen = 0End SubPrivate Sub Command2_Click()Call CommPortCloseintCommFlag = 0End Sub Call FileSendManager(0) intCommFlag = 1 End IfFileError: If intCommFlag 0

4、 Then intCommFlag = 1 Else MsgBox End IfEnd SubPrivate Sub xSend_Click()abc = tc.TextIf MSComm1.PortOpen = True ThenMSComm1.PortOpen = FalseEnd IfMSComm1.Settings = 9600,N,8,1MSComm1.PortOpen = TrueMSComm1.Output = abcMSComm1.PortOpen = FalseEnd SubPrivate Sub Command5_Click()abc = MSComm1.Input tt.

5、Text = abcEnd SubPrivate Sub Form_Load()Text1 = Winsock1.LocalIP If MSComm1.PortOpen = False ThenMSComm1.PortOpen = TrueEnd If abc = 0 blnShowFlag = True Main.Height = 7000 Call SetComm(9600,N,8,1, 2, 4096) intOutBufferSize = 2048 imtCommFlag = 0 Main.CommonDialog1.Flags = &H Or H2 Main.CommonDialog1.CancelError = True