在线看毛片网站电影-亚洲国产欧美日韩精品一区二区三区,国产欧美乱夫不卡无乱码,国产精品欧美久久久天天影视,精品一区二区三区视频在线观看,亚洲国产精品人成乱码天天看,日韩久久久一区,91精品国产91免费

<menu id="6qfwx"><li id="6qfwx"></li></menu>

    1. <menu id="6qfwx"><dl id="6qfwx"></dl></menu>
      

      <label id="6qfwx"><ol id="6qfwx"></ol></label><menu id="6qfwx"></menu><object id="6qfwx"><strike id="6qfwx"><noscript id="6qfwx"></noscript></strike></object>
      2. 

          3. <center id="6qfwx"><dl id="6qfwx"></dl></center>
            
	
	
            
		
			
		
            
    
    	
            
  		
            
		    
            
		      
		      
		      
		    
            
  		
            
  		
            
	
            


	


            
		
            
		            
            
        		
            
		
            







            


            
	
	
            
		
            新聞中心
            
	
            
	
            
	
            EEPW首頁 
	 > 嵌入式系統(tǒng) > 設計應用 > 51和VB數(shù)字量簡易測試
            
    
            

            

            


	
	
	

            
	
            
		
            
			
            51和VB數(shù)字量簡易測試
            
						
            
				作者：
				時間：2016-11-30
				來源：網(wǎng)絡
				
				
				
				
				收藏
			
            

			
            
				
				
			
            

			
            
			
			
            
			
			
            
				
				
			
            
                
			
            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數(shù)字
                        
            
            
            
			
            
		
            	
		

	

            
	
	
            
		
            
			
            評論
            					
		
            
		
            
			
            
			
				
            
					
					
            
						
                        
					
            
				
            
                		
						
						
			
            
		
            
		
            
		
            
            
			
            
		
            
	
            
	
            
	
            
		

            
	
            
		
            相關推薦
            					
	
            
	
    
	

            		



	
            
	
            
		
		
	
            


    
            
        
            技術專區(qū)
            
      
            
      
            
			
      
             
       


   











            
	
            
	    關閉