欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: STC單片機制作磁懸浮程序 [打印本頁]
作者: rld11210    時間: 2018-7-8 11:34
標題: STC單片機制作磁懸浮程序
單片機源程序如下:
  1. ;---------------------------------------------------------------------
  2. ;定義與 ADC 有關的特殊功能寄存器     
  3. ADC_CONTR           EQU     0C5H             ;A/D 轉換控制寄存器
  4. ADC_DATA            EQU     0C6H             ;A/D 轉換結果寄存器
  5. P1M0                EQU      91H             ;P1口模式寄存器0
  6. P1M1                EQU      92H             ;P1口模式寄存器1
  7. CCON                EQU     0D8H
  8. CMOD                EQU     0D9H
  9. CCAP0L             EQU     0EAH
  10. CCAP0H       EQU     0FAH
  11. CCAP1L       EQU     0EBH
  12. CCAP1H       EQU     0FBH
  13. CCAPM0       EQU     0DAH
  14. CCAPM1       EQU     0DBH
  15. PCA_PWM0     EQU     0F2H
  16. PCA_PWM1     EQU     0F3H
  17. CR                             EQU     0DEH
  18. CL                                  EQU     0E9H
  19. CH                                  EQU     0F9H       
  20. EPCA                          EQU     IE.6       
  21. ;---------------------------------------------------------------------

  23. ;---------------------------------------------------------------------
  24. main:
  25.            ; ACALL initiate_RS232
  26.                 SETB   P1.7                 ;將 P1 口置高, 為 A/D 轉換作準備
  27.             ORL   ADC_CONTR, #80H            ;1000,0000 打開 A/D 轉換電源
  28.             MOV   P1M0, #80H        
  29.                 MOV  CMOD,#82H
  30.                 MOV  CCON,#00H       
  31.                 MOV  CL,#00H       
  32.                 MOV  CH,#00H       
  33.                 MOV  CCAPM1,#42H       
  34.                 MOV  PCA_PWM1,#00H
  35.                 SETB  EPCA
  36.                 SETB  EA
  37.                 SETB  CR
  38.                   MOV  31H,#40H
  39. main_loop1:
  40.                   MOV   ADC_CONTR, #0E7H           ;1110,0000 清 ADC_FLAG, ADC_START 位和低 3 位
  41.       MOV   ADC_DATA, #00                ;清 A/D 轉換結果寄存器  
  42.            ORL   ADC_CONTR, #08H            ;0000,1000 令 ADCS = 1, 啟動A/D轉換,  
  43. finishe:
  44.       MOV   A, #10H                    ;0001,0000 測試A/D轉換結束否
  45.       ANL   A, ADC_CONTR
  46.       JZ    finishe
  47.       ANL   ADC_CONTR, #0E7H           ;1110,0111 清 ADC_FLAG 位, 停止A/D轉換
  48.       MOV   A, ADC_DATA                ;保存、返回 A/D 轉換結果
  49.       CLR  P3.7
  50.            clr c
  51.                 subb a,#60h
  52.            jc bhx
  53.            mov a,#0
  54.            ljmp fsw
  55. bhx:  MOV   A, ADC_DATA
  56.            clr c
  57.            subb a,31h
  58.            jnc fsw
  59.            mov a,#0

  61. fsw:        MOV  CCAP1H ,a;#0Ch       
  62.       MOV  CCAP1L ,a
  63.    
  64. JKW:  SJMP  main_loop1

  66. ;---------------------------------------------------------------------


  69. ;---------------------------------------------------------------------
  70. set_P1_IO_port:                      ;P1 口設置為普通 I/O 模式
  71.            MOV   P1M0, #00H
  72.       MOV   P1M0, #00H
  73.       ANL   ADC_CONTR, #7FH            ;0111,1111 關閉 A/D 轉換電源
  74.       RET

  76. ;---------------------------------------------------------------------

  78. initiate_RS232:                      ;串口初始化
  79.      CLR   ES                         ;禁止串口中斷
  80.      MOV   TMOD, #20H                 ;設置 T1 為波特率發生器
  81.      MOV   SCON, #50H                 ;0101,0000 8位數據位, 無奇偶校驗
  82.      MOV   TH1, #0FDH                 ;11.0592MHz 晶振, 波特率 = 9600  
  83.      MOV   TL1, #0FDH
  84.      CLR   RI
  85.      SETB  TR1
  86.      SETB  ES                         ;允許串口中斷
  87.      RET

  89. ;---------------------------------------------------------------------
  90. Send_Byte:                           ;發送一個字節
  91.      CLR   TI                         ;清零串口發送中斷標志
  92.           ;mov a,ADC_DATA        
  93.      MOV   SBUF, A
  94. Send_Byte_wait:                      ;等待發送完畢
  95.      JNB   TI, Send_Byte_wait
  96.      CLR   TI                         ;清零串口發送中斷標志
  97.      RET
  98. ;--------------------------------------------------------------------------

  100. ;---------------------------------------------------------------------
  101. delay:                               ;延時
  102.    
  103.      MOV   R4, #1
  104. delay_loop1:
  105.      MOV   R2, #18H
  106.      MOV   R3, #0
  107. delay_loop2:
  108.      DJNZ  R3, delay_loop2
  109.      DJNZ  R2, delay_loop2
  110.      DJNZ  R4, delay_loop1
  111.      RET
  112. ;---------------------------------------------------------------------
  113.      END
復制代碼

所有資料51hei提供下載:
STC單片機做的上拉式磁懸浮程序.rar (1.71 KB, 下載次數: 62)


作者: 山青水秀    時間: 2018-11-13 14:44
正在研究磁懸浮，好料，參考一下。謝謝！



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