一乐电子
设为首页收藏本站
切换到窄版

 找回密码
 请使用微信账号登录和注册会员

QQ登录

只需一步，快速开始

微信扫码登录

手机号码，快捷登录

手机号码，快捷登录

搜索
一乐电子百科»首页 › 分享进步 › 实用单片机 › bascom编写的天马四段数码1602显示DS1302时钟 ...
返回列表 发新帖
查看: 8766|回复: 6

[其他综合] bascom编写的天马四段数码1602显示DS1302时钟

[复制链接]
keanu131
发表于 2012-9-17 19:19 | 显示全部楼层 |阅读模式
本帖最后由 keanu131 于 2012-9-17 20:26 编辑

中元节过去很久了，小鬼还是不少。刚才的问题已经解决了，把1302读写信号线像双绞线那样搅在一起就好了。。。我汗。。。。

版主大人：看您觉得如果有必要的话，可以移到单片机区去了。。。
-------------------------------------------------------------
更新分隔，原标题：
DS1302插上VCC2（5V）读出的数就乱了，拔下来好了。。。求教
RT，同时给出显示结果和代码。bascom 2.0
http://ww2.sinaimg.cn/large/9d382e6bjw1dwxkf37s7hj.jpg
  1. $regfile = "m128def.dat"
  2. $crystal = 8000000
  3. $hwstack = 32                                               ' 设置堆栈大小
  4. $swstack = 10
  5. $framesize = 40

  7. Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
  8. Config Lcd = 16 * 2
  9. Cursor Off Noblink
  10. Cls



  14. Dim Secs As Byte

  16. Dim Mins As Byte

  18. Dim Hour As Byte

  20. Dim Dates As Byte

  22. Dim Month As Byte

  24. Dim Day As Byte

  26. Dim Year As Byte

  28. Dim Tri As Byte



  32. '----------------------- Define RTC I/O Port       --------------------------



  36. Config Portb.5 = Output

  38. Config Portb.4 = Output



  42. Ds_rst Alias Portb.5                                        'reset pin.

  44. Ds_dat Alias Portb.3                                        'IO(data pin).

  46. Ds_dati Alias Pinb.3                                        'IO(data pin). Used for reading

  48. Ds_clk Alias Portb.4                                        'Clock pin.





  54. '----------------------- Write Commands For DS1302 --------------------------



  58. Const Writesec = &H80                                       ' Write Seconds

  60. Const Writemin = &H82                                       ' Write Minutes

  62. Const Writehour = &H84                                      ' Write Hour

  64. Const Writedates = &H86                                     ' Write Date

  66. Const Writemonth = &H88                                     ' Write Month

  68. Const Writeday = &H8A                                       ' Write Day

  70. Const Writeyear = &H8C                                      ' Write Year

  72. Const Writectrl = &H8E                                      ' Write Protect

  74. 'Const Writectrl = &H90

  76. Const Protect = &H80

  78. Const Unprotect = &H00

  80. '------------------------- Read Commands For DS1302 -------------------------



  84. Const Readsec = &H81                                        ' Read seconds from DS1302

  86. Const Readmin = &H83                                        ' Read minutes from DS1302

  88. Const Readhour = &H85                                       ' Read hours from DS1302

  90. Const Readdates = &H87                                      ' Read date from DS1302

  92. Const Readmonth = &H89                                      ' Read month from DS1302

  94. Const Readday = &H8B                                        ' Read day from DS1302

  96. Const Readyear = &H8D                                       ' Read year from DS1302

  98. Const Readprotect = &H8F                                    ' Read Protect

  100. Const Readctrl = &H91







  108. Declare Sub Ds1302_w_byte(byval Wdata As Byte)

  110. Declare Sub Ds1302_r_byte(wdata As Byte )

  112. Declare Sub Write_ds1302(byval Cmd As Byte , Byval Wdata As Byte)

  114. Declare Function Read_ds1302(byval Cmd As Byte) As Byte

  116. Declare Sub Gettime

  118. Declare Sub Settime

  120. Declare Sub Ds1302_init





  126.    Call Ds1302_init





  132. Do



  136.    Call Gettime


  139.    Locate 1 , 1
  140.    Lcd "  " ; Hex(year) ; "/" ; Hex(month) ; "/" ; Hex(dates) ; " Week " ; Hex(day)
  141.    Locate 2 , 1
  142.    Lcd "  " ; Hex(hour) ; ":" ; Hex(mins) ; ":" ; Hex(secs)



  146.    Waitms 500



  150. Loop



  154. End



  158. Sub Ds1302_init







  166.   Tri = Read_ds1302(&Hc1)



  170.   If Tri <> &HF0 Then                                       'Clock is stopped
  171.   Call Write_ds1302(writectrl , Unprotect)
  172.   Call Write_ds1302(writesec , &H01)                        'Let it run
  173.   Call Write_ds1302(writemin , &H28)
  174.   Call Write_ds1302(writehour , &H18)
  175.   Call Write_ds1302(writedates , &H17)
  176.   Call Write_ds1302(writemonth , &H09)
  177.   Call Write_ds1302(writeyear , &H12)
  178.   Call Write_ds1302(writeday , &H01)
  179.   Call Write_ds1302(&H90 , &HAA)
  180.   Call Write_ds1302(&Hc0 , &HF0)
  181.   Call Write_ds1302(writectrl , Protect)

  183.   End If



  187. End Sub



  191. Sub Settime



  195.   Call Write_ds1302(writectrl , Unprotect)

  197.   Call Write_ds1302(writesec , Secs)

  199.   Call Write_ds1302(writemin , Mins)

  201.   Call Write_ds1302(writehour , Hour)

  203.   Call Write_ds1302(writeday , Day)

  205.   Call Write_ds1302(writedates , Dates)

  207.   Call Write_ds1302(writemonth , Month)

  209.   Call Write_ds1302(writeyear , Year)

  211.   Call Write_ds1302(writectrl , Protect)



  215. End Sub



  219. Sub Gettime



  223.    Secs = Read_ds1302(readsec)

  225.    Mins = Read_ds1302(readmin)

  227.    Hour = Read_ds1302(readhour)

  229.    Dates = Read_ds1302(readdates)

  231.    Month = Read_ds1302(readmonth)

  233.    Day = Read_ds1302(readday)

  235.    Year = Read_ds1302(readyear)



  239. End Sub



  243. Sub Ds1302_w_byte(wdata As Byte)

  245. Config Portb.3 = Output

  247.   Local I As Byte

  249.    Reset Ds_clk
  250.    Waitus 2

  252.    For I = 0 To 7



  256.       If Wdata.i = 1 Then

  258.         Set Ds_dat

  260.         Else

  262.         Reset Ds_dat

  264.       End If


  267.       Waitus 2
  268.       Set Ds_clk
  269.       Waitus 2
  270.       Reset Ds_clk



  274.    Next I



  278. End Sub



  282. Sub Ds1302_r_byte(wdata As Byte )

  284. Config Pinb.3 = Input
  285. Pinb.3 = 1


  288.   Local I As Byte
  289.   Waitus 2


  292.   For I = 0 To 7

  294.     Wdata.i = Ds_dati
  295.     Waitus 2
  296.     Set Ds_clk
  297.     Waitus 2
  298.     Reset Ds_clk

  300.   Next I





  306. End Sub



  310. Sub Write_ds1302(cmd As Byte , Wdata As Byte)


  313.    Reset Ds_rst
  314.    Reset Ds_clk
  315.    Set Ds_rst

  317.    Call Ds1302_w_byte(cmd)

  319.    Call Ds1302_w_byte(wdata)
  320.    Set Ds_clk
  321.    Reset Ds_rst





  327. End Sub



  331. Function Read_ds1302(cmd As Byte)



  335.    Local I As Byte

  337.    Local X As Byte

  339.    Reset Ds_rst
  340.    Reset Ds_clk

  342.    Set Ds_rst

  344.    Call Ds1302_w_byte(cmd)

  346.    Call Ds1302_r_byte(x)

  348.    Set Ds_clk
  349.    Reset Ds_rst

  351.    Read_ds1302 = X



  355. End Function
复制代码
单片机
打赏
回复

使用道具 举报

灰太狼8888
发表于 2012-9-17 19:31 | 显示全部楼层
2002？漂亮
打赏
回复

使用道具 举报

keanu131
 楼主| 发表于 2012-9-17 19:33 | 显示全部楼层
回复 1# keanu131

再上张有问题时候的图。上面单个插针就是vcc2，直接接到5v。拔下来后时间就正常了
   http://ww3.sinaimg.cn/large/9d382e6bjw1dwzquenf6gj.jpg
打赏
回复

使用道具 举报

keanu131
 楼主| 发表于 2012-9-17 19:34 | 显示全部楼层
2002？漂亮
灰太狼8888 发表于 2012-9-17 19:31 https://www.yleee.com.cn/images/common/back.gif



   天马那个带四个数码管的1602
打赏
回复

使用道具 举报

sdf15937
发表于 2012-9-17 19:58 | 显示全部楼层
vcc2应该要低一点儿吧？3.7V锂电池或者3V纽扣电池试试……
打赏
回复

使用道具 举报

keanu131
 楼主| 发表于 2012-9-17 20:16 | 显示全部楼层
vcc2应该要低一点儿吧？3.7V锂电池或者3V纽扣电池试试……
sdf15937 发表于 2012-9-17 19:58 https://www.yleee.com.cn/images/common/back.gif


我以前也是这么认为的，所以法拉电容接的位置不对，一直充不上电。后来看了pdf改好了，如图： 未命名.bmp
   
打赏
回复

使用道具 举报

阳光999
发表于 2012-9-28 22:11 | 显示全部楼层
不错不错  bascom还是通俗易懂
打赏
回复

使用道具 举报

返回列表 发新帖

本版积分规则

QQ|一淘宝店|手机版|商店|一乐电子 ( 粤ICP备09076165号 ) 公安备案粤公网安备 44522102000183号

GMT+8, 2025-11-4 20:13 , Processed in 0.035084 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表