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

標(biāo)題: BASCOM-8051寫的單片機(jī)開發(fā)板4位led時(shí)鐘仿真附帶串口輸出程序 [打印本頁]
作者: hotpet    時(shí)間: 2020-4-22 23:55
標(biāo)題: BASCOM-8051寫的單片機(jī)開發(fā)板4位led時(shí)鐘仿真附帶串口輸出程序
用BASCOM-8051寫的4位led時(shí)鐘，帶串口輸出。附源碼，hex文件，protues仿真文件。
代碼較粗燥，只是為了驗(yàn)證軟硬件功能。
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


單片機(jī)源程序如下:
  1. $crystal = 11059000
  2. $baud = 9600

  4. Dim Ct As Byte
  5. Dim H As Byte
  6. Dim H1 As Byte
  7. Dim H2 As Byte
  8. Dim M As Byte

  10. Dim M1 As Byte
  11. Dim M2 As Byte

  13. Dim S As Byte

  15. Dim S1 As Byte
  16. Dim S2 As Byte
  17. Dim Led0 As Bit                                               'LED is a Bit variable since it will turn on and
  18. Dim Led1 As Bit
  19. Dim Point As Byte
  20. Dim K As Byte


  23. Dim A(10) As Byte
  24. A(1) = Not &H06
  25. A(2) = Not &H5B
  26. A(3) = Not &H4F
  27. A(4) = Not &H66
  28. A(5) = Not &H6D
  29. A(6) = Not &H7D
  30. A(7) = Not &H07
  31. A(8) = Not &H7F
  32. A(9) = Not &H6F
  33. A(10) = Not &H3F


  36. Config Timer0 = Timer , Gate = Internal , Mode = 1
  37. 'Timer0 = counter : timer0 operates as a counter
  38. 'Gate = Internal  : no external gate control
  39. 'Mode = 2         : 8-bit auto reload (default)
  40. 'Mode = 1         : 16-bit reload
  41. On Timer0 Timer_0_int
  42. Load Timer0 , 0                                               'when the timer reaches 100 an interrupt will occur
  43. Enable Interrupts                                             'enable the use of interrupts
  44. Enable Timer0                                                 'enable the timer


  47. Rem Setting Of Priority
  48. Priority Set Timer0                                           'highest priority
  49. Start Timer0



  53. Led0 = 1
  54. Led1 = 0

  56. P2 = &HFF


  59. Do


  62. K = Inkey()
  63. If K = 48 Then
  64.    M = M + 1
  65.    If M = 60 Then
  66.       M = 0
  67.    End If
  68. Elseif K = 49 Then
  69.    M = M - 1
  70.    If M = 255 Then
  71.       M = 59
  72.    End If
  73. End If

  75. P2.0 = 0
  76. P0 = A(m1)
  77. Waitms 2
  78. P2.0 = 1
  79. Waitms 3

  81. P2.1 = 0
  82. If Point = 1 Then
  83.    P0 = A(m2) + &H80
  84. Else
  85.    P0 = A(m2)
  86. End If
  87. Waitms 2
  88. P2.1 = 1
  89. Waitms 3

  91. P2.2 = 0
  92. P0 = A(s1)
  93. Waitms 2
  94. P2.2 = 1
  95. Waitms 3

  97. P2.3 = 0
  98. P0 = A(s2)
  99. Waitms 2
  100. P2.3 = 1
  101. Waitms 3


  104. Loop
  105. End


  108.   Rem The Interrupt Handler For The Timer0 Interrupt
  109. Timer_0_int:
  110. If Ct = 13 Then
  111.      Ct = 0

  113.      P1.1 = Led1
  114.      P1.0 = Led0

  116.      Led0 = Not Led0
  117.      Led1 = Not Led1                                          'invert LED value


  120.      H1 = H / 10
  121.      H2 = H Mod 10
  122.      M1 = M / 10

  124.      M2 = M Mod 10

  126.      S1 = S / 10

  128.      S2 = S Mod 10
  129.      Point = S Mod 2

  131.      Print "Time is:" ; H1 ; H2 ; ":" ; M1 ; M2 ; ":" ; S1 ; S2       '; (Second / 10) ;
  132.      If M1 = 0 Then
  133.       M1 = 10
  134.      End If
  135.      If M2 = 0 Then
  136.       M2 = 10
  137.      End If
  138.      If S1 = 0 Then
  139.       S1 = 10
  140.      End If
  141.      If S2 = 0 Then
  142.       S2 = 10
  143.      End If
  144.      S = S + 1
  145.      If S = 60 Then
  146.            S = 0
  147.            M = M + 1

  149.            If M = 60 Then
  150.               M = 0
  151.               H = H + 1
  152.               If H = 24 Then
  153.                  H = 0
  154.               End If
  155.            End If
  156.      End If
  157. Else
  158.    Incr Ct
  159. End If
  160. Return
復(fù)制代碼

所有資料51hei提供下載:
QXmini51.zip (612.65 KB, 下載次數(shù): 8)


作者: 富貴竹    時(shí)間: 2020-7-22 22:52
hotpet 你好，看到你發(fā)的BASCOM 貼我很高興，希望能加你 QQ
作者: 富貴竹    時(shí)間: 2020-7-22 22:52
hotpet 你好，看到你發(fā)的 BASCOM 貼很想和你聯(lián)系一下 請(qǐng)加我QQ 976086284



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