【正文】 Then Dim BB If = Then MsgBox 不能發(fā)送空信息, , 系統(tǒng)提示 Else If = 白菜 Then 39。 = 白菜 39。 1 SENDINF amp。 1 39。 39。發(fā)送消息 ElseIf = 甜瓜 Then 39。 = 甜瓜 39。 2 SENDINF amp。 2 39。 39。發(fā)送消息 ElseIf = 絲瓜 Then 39。 = 絲瓜 39。 3 SENDINF amp。 3 39。 39。發(fā)送消息 39。 SENDINF amp。 39。發(fā)送消息 = Else: MsgBox 為配置蔬菜參數(shù) 39。, , [系統(tǒng)提示] End If End If Else MsgBox 沒有連接，請查正后再試, vbInformation, 錯誤 End IfEnd SubPrivate Sub Combo1_Change()39?！?= 白菜39。End SubPrivate Sub Command2_Click() 39。退出 39。關(guān)閉Winsock控件 EndEnd SubPrivate Sub Command3_Click()If = 白菜 Then = 白菜ElseIf = 甜瓜 Then = 甜瓜ElseIf = 絲瓜 Then = 絲瓜Else: MsgBox 為配置蔬菜參數(shù) 39。, , [系統(tǒng)提示]End IfEnd SubPrivate Sub Form_Load() 39。加栽窗口 (1).Text = 歡迎使用！ (2).Text = 狀態(tài)： 監(jiān)聽 Num = 0 NumOnline = 0 白菜 甜瓜 絲瓜 茄子 辣椒 黃瓜39。If = COM1 Then39。 = 1ElseIf = COM2 Then39。 = 239。ElseIf = COM3 Then39。 = 339。ElseIf = COM4 Then39。 = 439。ElseIf = COM5 Then39。 = 539。ElseIf = COM6 Then39。 = 639。ElseIf = COM7 Then39。 = 739。ElseIf = COM8 Then39。 = 839。Else: = 939。End IfEnd SubPrivate Sub Winsock1_ConnectionRequest(ByVal RequestID As Long) 39。用于遠(yuǎn)程計算機(jī)請求連接 If 0 Then 39。如果Winsock控件狀態(tài)不為關(guān)閉，則關(guān)閉 RequestID 39。表示客戶請求連接的ID號End SubPrivate Sub Timer1_Timer() Dim strz As String Select Case Case 6 strz = 正在連接 Case 7 strz = 已連接 = Case 2 strz = 監(jiān)聽 End Select (2) = strzEnd SubPrivate Sub Cmd_setup_Click() 39。設(shè)置連接 = False 39。設(shè)置與服務(wù)器連接成功后，該控件不可用 = 39。設(shè)置遠(yuǎn)程計算機(jī) = 200 39。本地服務(wù)器端端口號 = 100 39?？蛻舳硕丝谔? 39。要求連接到遠(yuǎn)程計算機(jī)End SubPrivate Sub Winsock1_Connect() MsgBox 連接成功, vbInformation, OK (2) = 已連接End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 39。接收新數(shù)據(jù)信息 Dim sdata As String 39。定義字符串變量 Dim strdata As String 39。定義字符串變量 Dim mymand As String 39。定義字符串變量 sdata 39。獲得消息數(shù)據(jù) mymand = Left$(sdata, 7) Select Case mymand 39。消息 Case SENDINF Dim aa sendxx = Right$(sdata, Len(sdata) …… 7) aa = sendxx = amp。 aa amp。 vbCrLf End SelectEnd SubDim TimePrivate Sub Cmd_xxfs_Click() 39。發(fā)送數(shù)據(jù)信息 If = 7 Then Dim BB, DD If = Then MsgBox 不能發(fā)送空信息, , 系統(tǒng)提示 Else DD = SENDINF amp。 DD 39。發(fā)送消息 = End If Else MsgBox 沒有連接，請查正后再試, vbInformation, 錯誤 End IfEnd SubPrivate Sub Cmd_setup_Click() 39。設(shè)置服務(wù)器按鈕 = 100 39。本地服務(wù)器端端口號 = 200 39?？蛻舳硕丝谔? 39。監(jiān)聽 = False 39。設(shè)置服務(wù)器成功后，該控件不可用End SubPrivate Sub Command1_Click() = End SubPrivate Sub Command2_Click() 39。退出 EndEnd SubPrivate Sub Command3_Click() = 9600,N,8,1 39。 = 4If = 1 Then = 1 = 1ElseIf = 2 Then = 2 = 2ElseIf = 3 Then = 3 = 3ElseIf = 4 Then = 4 = 4ElseIf = 5 Then = 5 = 5ElseIf = 6 Then = 6 = 6ElseIf = 7 Then = 7 = 7ElseIf = 8 Then = 8 = 8ElseIf = 8 Then = 9 = 9Else: MsgBox 請輸入端口號End If = 8 = 1 = 1 = InputModeTextIf = False Then = True End IfEnd SubPrivate Sub Form_Load() 39。加載窗體 = 39。 = 9600,N,8,1 39。 = 4 39。 = 8 39。 = 1 39。 = 1 39。 = InputModeText 39。If = False Then 39。 = True 39。End If (1).Text = 歡迎使用！ (2).Text = 狀態(tài)： 未連接 (3).Text = Format(Date, yyyy年mm月dd日) 1 2 3 4 5 6 7 8 9End SubPrivate Sub Winsock1_Close() (2).Text = 已經(jīng)關(guān)閉連接End SubPrivate Sub Timer1_Timer() Dim strz As String Select Case Case 6 strz = 正在連接 (2) = strz Case 7 strz = 已連接 = (2) = strz Case 2 strz = 監(jiān)聽 (2) = strz End SelectEnd SubPrivate Sub Winsock1_Connect() MsgBox 連接成功, vbInformation, OKEnd SubPrivate Sub Winsock1_ConnectionRequest(ByVal RequestID As Long) 39。用于遠(yuǎn)程計算機(jī)請求連接 If 0 Then 39。如果Winsock控件狀態(tài)不為關(guān)閉，則關(guān)閉 RequestID 39。表示客戶請求連接的ID號 = TrueEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 39。接收新數(shù)據(jù)信息 Dim strdata As String 39。定義字符串變量 Dim sdata As String 39。定義字符串變量 strdata 39。獲得消息數(shù)據(jù) sdata = Left$(strdata, 7) Select Case sdata 39。系統(tǒng)消息 Case SYSINFO xtxx = Right$(strdata, Len(strdata) …… 7) 39。發(fā)送消息 Case SENDINF Dim aa, temp1 sendxx = Right$(strdata, Len(strdata) …… 7) aa = sendxx = aa 39。關(guān)閉服務(wù)端 39。If = 1 Then = 白菜 39。ElseIf = 2 Then = 甜瓜 39。ElseIf = 3 Then = 絲瓜 39。Else: = 未錄入蔬菜參數(shù) 39。End If Call Command1_Click Case OUITMYF = True Case GETFXIF xtxx = Right$(strdata, Len(strdata) …… 7) End SelectEnd Sub附錄2：電路原理圖圖25：電路原理圖（1）圖26：電路原理圖（2）附錄3：實物圖圖28：設(shè)計實物圖1圖28：設(shè)計實物圖245