【正文】 問素材，還在論文的撰寫和排版燈過程中提供熱情的幫助。 由于我的學(xué)術(shù)水平有限，所寫論文難免有不足之處，懇請各位老師和學(xué)友批評和指正！ 太原工業(yè)學(xué)院畢業(yè)設(shè)計 29 附錄 附錄 1：程序清單 單片機(jī)程序清單 include include include include define uchar unsigned char define uint unsigned int sbit dula=P2^6。 sbit wela=P2^7。 unsigned char code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d, 0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71,0x00}。 // 數(shù)碼管顯示數(shù)組 unsigned char code table2[]={0x78,0xb8,0xd8,0xe8,0x74,0xb4,0xd4,0xe4, 0x72,0xb2,0xd2,0xe2,0x71,0xb1,0xd1,0xe1}。// 點(diǎn)陣數(shù)組 int baohe。// 飽和點(diǎn) int buchang。// 補(bǔ)償點(diǎn) int deng。 // 燈號 void init_(void) //中斷初始化程序 { TMOD=0x20。 PCON=0x00。 SCON=0X50。//0101 0000 工作方式 1： 9 位異步收發(fā) TH1=0xFd。 TL1=0xFd。 TR1=1。 EA=1。 ES=1。 } 太原工業(yè)學(xué)院畢業(yè)設(shè)計 30 void delay(a) { uchar b。 while(a………… ) { for(b=0。b115。b++) { 。 } } } void zhongduan(void) interrupt 4 //中斷子程序 { int B。 unsigned char A。 int i。//二進(jìn)制轉(zhuǎn)換十進(jìn)制循環(huán)次數(shù) int a。//二進(jìn)制轉(zhuǎn)換 十 int c。 //步進(jìn)電機(jī)脈沖循環(huán)次數(shù) int sum。 //轉(zhuǎn)換成的十進(jìn)制數(shù) char *s 。 EA=0。 if(RI==1) { A=SBUF。 RI=0。 EA=1。 } P1=A。 //////////// 流水燈顯示 delay(100)。 B=A。 太原工業(yè)學(xué)院畢業(yè)設(shè)計 31 B=SBUF。 sum=0。 *s=SBUF。 sum=0。 for (i=0。i4。i++) //轉(zhuǎn)換代碼 { a= (Bamp。0x01)*pow(2,i)。 B=1。 sum=sum+a。 } // P0=sum。 c=0。 switch(sum) { case 1: {baohe=1324。buchang=36。} case 2: {baohe=1146。buchang=67。} case 3: {baohe=168。buchang=27。} } deng=baohe/100。//取出燈數(shù) P0=table2[sum…… 1]。 } void main() { int a。 init_()。 太原工業(yè)學(xué)院畢業(yè)設(shè)計 32 a=0。 while(1) //死循環(huán) { } } 上位機(jī) vb 程序清單 Dim Time Private Sub Cmd_xxfs_Click() 39。發(fā)送數(shù)據(jù)信息 If = 7 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)提示 ] 太原工業(yè)學(xué)院畢業(yè)設(shè)計 33 End If End If Else MsgBox 沒有連接，請查正后再試 , vbInformation, 錯誤 End If End Sub Private Sub Combo1_Change() 39?！?= 白菜 39。 End Sub Private Sub Command2_Click() 39。退出 39。關(guān)閉 Winsock 控件 End End Sub Private Sub Command3_Click() If = 白菜 Then = 白菜 ElseIf = 甜瓜 Then = 甜瓜 ElseIf = 絲瓜 Then = 絲瓜 Else: MsgBox 為配置蔬菜參數(shù) 39。, , [系統(tǒng)提示 ] End If End Sub 太原工業(yè)學(xué)院畢業(yè)設(shè)計 34 Private Sub Form_Load() 39。加栽窗口 (1).Text = 歡迎使用！ (2).Text = 狀態(tài)： 監(jiān)聽 Num = 0 NumOnline = 0 白菜 甜瓜 絲瓜 茄子 辣椒 黃瓜 39。If = COM1 Then 39。 = 1ElseIf = COM2 Then 39。 = 2 39。ElseIf = COM3 Then 39。 = 3 39。ElseIf = COM4 Then 39。 = 4 39。ElseIf = COM5 Then 39。 = 5 39。ElseIf = COM6 Then 39。 = 6 39。ElseIf = COM7 Then 39。 = 7 39。ElseIf = COM8 Then 39。 = 8 39。Else: = 9 太原工業(yè)學(xué)院畢業(yè)設(shè)計 35 39。End If End Sub Private 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 Sub Private Sub Timer1_Timer() Dim strz As String Select Case Case 6 strz = 正在連接 Case 7 strz = 已連接 = Case 2 strz = 監(jiān)聽 End Select (2) = strz End Sub Private 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 Sub Private Sub Winsock1_Connect() MsgBox 連接成功 , vbInformation, OK 太原工業(yè)學(xué)院畢業(yè)設(shè)計 36 (2) = 已連接 End Sub Private 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 Select End Sub 下位機(jī) vb 程序清單 Dim Time Private 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 太原工業(yè)學(xué)院畢業(yè)設(shè)計 37 MsgBox 沒有連接，請查正后再試 , vbInformation, 錯誤 End If End Sub Private Sub Cmd_setup_Click() 39。設(shè)置服務(wù)器按鈕 = 100 39。本地服務(wù)器端端口號 = 200 39?？蛻舳硕丝谔? 39。監(jiān)聽 = False 39。設(shè)置服務(wù)器成功后，該控件不可用 End Sub Private Sub Command1_Click() = End Sub Private Sub Command2_Click() 39。退出 End End Sub Private Sub Command3_Click() = 9600,N,8,1 39。 = 4 If = 1 Then = 1 = 1 ElseIf = 2 Then = 2 = 2 ElseIf = 3 Then = 3 = 3 太原工業(yè)學(xué)院畢業(yè)設(shè)計 38 ElseIf = 4 Then = 4 = 4 ElseIf = 5 Then = 5 = 5 ElseIf = 6 Then = 6 = 6 ElseIf = 7 Then = 7 = 7 ElseIf = 8 Then = 8 = 8 ElseIf = 8 Then = 9 = 9 Else: MsgBox 請輸入端口號 End If = 8 = 1 = 1 = InputModeText If = False Then = True End If End Sub Private Sub Form_Load() 39。加載窗體 = 太原工業(yè)學(xué)院畢業(yè)設(shè)計 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