亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

標(biāo)題: VB上位機(jī)控制單片機(jī)8位led燈亮滅 [打印本頁]
作者: 瞧瞧泥    時間: 2017-5-17 15:47
標(biāo)題: VB上位機(jī)控制單片機(jī)8位led燈亮滅
本例實(shí)現(xiàn)用VB上位機(jī)來控制51單片機(jī)8位led燈的亮和滅

單片機(jī)端的程序：
  1. #include<reg52.h>
  2. sbit LED1=P0^0;
  3. sbit LED2=P0^1;
  4. sbit LED3=P0^2;
  5. sbit LED4=P0^3;
  6. sbit LED5=P0^4;
  7. sbit LED6=P0^5;
  8. sbit LED7=P0^6;
  9. sbit LED8=P0^7;
  10. void Uartconfiguration();
  11. void main()
  12. {
  13. Uartconfiguration();
  14. while(1);

  16. }
  17. void ser() interrupt 4
  18. {
  19.   if(RI)
  20.         {
  21.          RI=0;
  22.          if(SBUF=='1')
  23.          LED1=~LED1;
  24.          else if(SBUF=='2')
  25.          {LED2=~LED2;}
  26.    else if(SBUF=='3')
  27.          {LED3=~LED3;}
  28.          else if(SBUF=='4')
  29.          {LED4=~LED4;}
  30.          else if(SBUF=='5')
  31.          LED5=~LED5;
  32.          else if(SBUF=='6')
  33.          LED6=~LED6;
  34.          else if(SBUF=='7')
  35.          LED7=~LED7;
  36.          else if(SBUF=='8')
  37.          LED8=~LED8;
  38.          }
  39.          else
  40.           TI=0;
  41. }
  42. void Uartconfiguration()
  43. {
  44.   TMOD=0x20;
  45.         TH1=0xfd;
  46.         TL1=0xfd;
  47.         PCON=0x00;
  48.         TR1=1;
  49.         EA=1;
  50.         ES=1;
  51.   SCON=0x50;
  52. }
復(fù)制代碼



VB上位機(jī)程序
Private Sub Command1_Click()               
strBuff = "1"                             
MSComm1.Output = strBuff                  
End Sub                                    

Private Sub Command2_Click()         
strBuff = "2"
MSComm1.Output = strBuff
End Sub

Private Sub Command3_Click()
strBuff = "3"
MSComm1.Output = strBuff
End Sub

Private Sub Command4_Click()
strBuff = "4"
MSComm1.Output = strBuff
End Sub

Private Sub Command5_Click()
strBuff = "5"
MSComm1.Output = strBuff
End Sub

Private Sub Command6_Click()
strBuff = "6"
MSComm1.Output = strBuff
End Sub

Private Sub Command7_Click()
strBuff = "7"
MSComm1.Output = strBuff
End Sub

Private Sub Command8_Click()
strBuff = "8"
MSComm1.Output = strBuff
End Sub

Private Sub Command9_Click()
End
End Sub

Private Sub Form_Load()
form1.WindowState = 2 '界面設(shè)置為最大
MSComm1.Settings = "9600,n,8,1"
MSComm1.OutBufferSize = 2   '設(shè)置MSComm1發(fā)送緩沖區(qū)為2字節(jié)
MSComm1.OutBufferCount = 0 '清除發(fā)送緩沖區(qū)
MSComm1.CommPort = 4  '指定使用com4
MSComm1.PortOpen = True '打開接口


End Sub
Private Sub Form_Resize()
Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

作者: zqy181818    時間: 2017-5-18 00:27
要是有個截圖就好了，方便初學(xué)者
作者: dpj121    時間: 2017-5-18 00:59
本例實(shí)現(xiàn)用VB上位機(jī)來控制51單片機(jī)8位led燈的亮和滅
作者: 283635892    時間: 2017-12-5 18:01
謝謝呵呵學(xué)習(xí)一下
作者: 丨黑丨    時間: 2018-5-25 15:08
前來學(xué)習(xí)
作者: bg3irm    時間: 2018-12-27 22:46
感謝分享，謝謝樓主，收藏了。



歡迎光臨 (http://www.denmoz.com/bbs/) Powered by Discuz! X3.1