新聞中心
        
	
        
	
        
	
        EEPW首頁 
	 > 嵌入式系統 > 設計應用 > 51和VB數字量簡易測試
        
    
        

        

        


	
	
	

        
	
        
		
        
			
        51和VB數字量簡易測試
        
						
        
				作者：
				時間：2016-11-30
				來源：網絡

							
				
				
				
				收藏
			
        

			
        
				
				
			
        

			
        
			
			
        
			
			
        
				
				
			
        
                
			
        Text3.Text = "串口已關"
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub
        Private Sub Command11_Click()
        On Error GoTo errline
        If Text1.Text < 0 Then
        Text1.Text = 0
        End If
        Timer1.Enabled = True
        errline:
         If Err.Number = 13 Then
         MsgBox ("輸入出錯")
         Text1.Text = 0

         End If


        End Sub
        Private Sub Command12_Click()
        Text1.Text = 0
        Timer1.Enabled = False
        End Sub
        Private Sub Command2_Click()
        On Error GoTo errline:
        MSComm1.Output = "5"
        Shape1.FillColor = vbRed
        Exit Sub
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub

        Private Sub Command3_Click()
        On Error GoTo errline:
        MSComm1.Output = "2"
        Shape2.FillColor = vbGreen
        Exit Sub
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub

        Private Sub Command4_Click()
        On Error GoTo errline:
        MSComm1.Output = "6"
        Shape2.FillColor = vbRed
        Exit Sub
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub

        Private Sub Command5_Click()
        On Error GoTo errline:
        MSComm1.Output = "3"
        Shape3.FillColor = vbGreen
        Exit Sub
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub

        Private Sub Command6_Click()
        On Error GoTo errline:
        MSComm1.Output = "7"
        Shape3.FillColor = vbRed
        Exit Sub
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub

        Private Sub Command7_Click()
        On Error GoTo errline:
        MSComm1.Output = "4"
        Shape4.FillColor = vbGreen
        Exit Sub
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub

        Private Sub Command8_Click()
        On Error GoTo errline:
        MSComm1.Output = "8"
        Shape4.FillColor = vbRed
        Exit Sub
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub

        Private Sub Command9_Click()
        On Error GoTo errline:
        MSComm1.CommPort = 6
        MSComm1.Settings = "9600,n,8,1"
        MSComm1.InputMode = comInputModeText
        MSComm1.InputLen = 0
        MSComm1.PortOpen = True
        Timer2.Enabled = True
        Timer3.Enabled = True

        Text3.Text = "串口已開"
        Exit Sub
        errline:
         If Err.Number = 8013 Then
         Text3.Text = "串口已開"
         End If
         Err.Clear
        End Sub

        Private Sub Form_Load()
        End Sub
        Private Sub Text1_Change()
        On Error GoTo errline:
        errline:
        If Err.Number = 13 Then
        Text1.Text = "輸入錯誤"
        End If
        Err.Clear
        End Sub
        Private Sub Timer1_Timer()
        On Error GoTo errline
        If Text1.Text < 0 Then
        Text1.Text = 0
        End If
        If Text1.Text = 0 Then
        MSComm1.Output = "5"
        MSComm1.Output = "6"
        MSComm1.Output = "7"
        MSComm1.Output = "8"
        Shape1.FillColor = vbRed
        Shape2.FillColor = vbRed
        Shape3.FillColor = vbRed
        Shape4.FillColor = vbRed
        Timer1.Enabled = False
        Exit Sub
        End If
        Text1.Text = Text1.Text - 1
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub
        Private Sub Timer2_Timer()
        On Error GoTo errline
        If MSComm1.Input = "9" Then
        Text2.Text = "有反饋"
        End If
        If MSComm1.Input = "a" Then
        Text2.Text = "無反饋"
        End If
        errline:
         If Err.Number = 8018 Then
         Text3.Text = "串口已關"
         End If
         Err.Clear
        End Sub
        Private Sub Timer3_Timer()
        If Shape4.FillColor = vbGreen And Text2.Text = "有反饋" Then
        Text4.Text = "運行"
        End If
        If Shape4.FillColor = vbGreen And Text2.Text = "無反饋" Then
        Text4.Text = "故障"
        End If
        If Shape4.FillColor = vbRed And Text2.Text = "無反饋" Then
        Text4.Text = "停止"
        End If

        End Sub
        Private Sub Timer4_Timer()
        Timer4.Enabled = False
        End Sub
        
				
            
                
			
							
        
                
			            
        
                            	              			              			              			上一頁
	              			              			1
              		              			              		              	              				              				2
              					              						              						              				下一頁
		              					              				              			              		              	
        
                            
              
            
        
		
		
        
		
        
		
        
		
        
			
			
        
		
        
		
		
        
		
        
			
			
		
        
        
		
        
			
        關鍵詞：
            			            51VB數字
                        
            
        
            
			
        
		
        	
		

	

        
	
	
        
		
        
			
        評論
        					
		
        
		
        
			
        
			
				
        
					
					
        
						
                        
					
        
				
        
                		
						
						
			
        
		
        
		
        
		
        
            
			
            
		
        
	
        
	
        
	
        
		

        
	
        
		
        相關推薦
        					
	
        
	
    
	

        		



	
        
	
        
		
		
	
        


    
        
        
        技術專區
        
      
        
      
        
			
      
         
       


   











        
	
        
	    關閉
	
        
	
	

        














	
	



        




        





主站蜘蛛池模板：
封丘县|
敖汉旗|
齐河县|
桑植县|
高安市|
申扎县|
九台市|
孝感市|
新疆|
霍州市|
灵宝市|
湛江市|
乳山市|
襄城县|
京山县|
临安市|
鸡西市|
积石山|
会理县|
万年县|
邢台市|
水城县|
慈利县|
海城市|
台东市|
舞钢市|
长治县|
定安县|
吕梁市|
保康县|
沿河|
枞阳县|
邻水|
凤翔县|
新晃|
巴林右旗|
衡南县|
鲁山县|
海丰县|
洪湖市|
巴东县|