设为首页收藏本站网络运维任务中心道具中心获得家元原创收益搜优惠券VIP会员
切换到宽版

数码之家

 找回密码
 立即注册
搜索
数码之家»社区 › 电子技术区 › 我爱单片机 › 新站发帖，汇编语言编写的GPS授时数字钟 ...
12下一页
返回列表 发新帖
查看: 3545|回复: 25

新站发帖，汇编语言编写的GPS授时数字钟

[复制链接]
nnn2688
发表于 2019-1-8 14:54:22 | 显示全部楼层 |阅读模式

爱科技、爱创意、爱折腾、爱极致，我们都是技术控

您需要 登录 才可以下载或查看，没有账号？立即注册

x
这是一个GPS授时的数字钟，做了已经好几年了，现在拿出来和大家分享一下


新版发图片还是有大小限制，要求文件尺寸小于5M，而我的手机照出来的照片基本都在6-7M左右，所以上传之前还得要压缩一下才行


本作品来源于本坛一位高手的创意，GPS授时部分直接采用了@fang3 老师的程序，在此表示感谢，如有侵权请联系我删除
fang3 老师的原帖在此http://bbs.mydigit.cn/read.php?tid=505033


先看看成品的效果吧，放在卧室的空调上，夜里睁眼就能看得到
P81020-072858(2048x1536).jpg

fang3 老师在原帖里写的非常详细，我只是在程序及硬件上简化了一些


这是电路，实际上采用了大字符数码管，电路有些改动，每段都采用了两个三极管驱动
GPSCLOCK.GIF

开始制作，过程不细说了，看图
P70331-213134(2048x1536).jpg

P70331-213219(2048x1536).jpg

P70331-213240(2048x1536).jpg

P70331-213256(2048x1536).jpg

P70331-213312(2048x1536).jpg

P70331-221229(2048x1536).jpg

连接显示板
P70422-210925(2048x1536).jpg

调试走时程序
P70422-210907(2048x1536).jpg

P70422-210936(2048x1536).jpg

关灯的效果
P70411-195839(2048x1536).jpg

白天正常显示
P70411-195854(2048x1536).jpg

晚上21:00-次日6:00为暗显示，降低显示亮度，以保证夜间不刺眼
P70422-210942(2048x1536).jpg

从领导那里要了个画状品盒子，装起来
P70427-210305(2048x1536).jpg

P70427-210239(2048x1536).jpg

关灯的效果
P70501-195941(2048x1536).jpg

P70501-195946(2048x1536).jpg

正常运行


左上角的灯亮起表示没有授时成功
P60409-114253(2048x1536).jpg

左上角的灯熄灭表示授时成功
P81020-072912(2048x1536).jpg

电源用的是12V1A的路由器电源
P81020-072931(2048x1536).jpg

GPS模块线缆由空调孔穿到室外
P81020-072944(2048x1536).jpg

将GPS模块做好防水处理后固定到空调穿墙孔处，以便接收GPS卫星信号
P81020-073019(2048x1536).jpg

位置还是很隐蔽的，外面看不出来
P81020-073027(2048x1536).jpg

下面是程序


  3. ;89C2051+GPS 1.8寸数码管四位电子钟
  4. ;11.0592M晶振;GPS模块接在P3.0 P3.1
  5. ;第一位小数点是GPS未收到信号标识
  6. ;P3.7是GPS模块供电控制端,58-00分输出高电平
  7. ;***************************************


  10. LEDR1 BIT P3.2;时十位
  11. LEDR2 BIT P3.3;时个位
  12. LEDR3 BIT P3.4;分十位
  13. LEDR4 BIT P3.5;分个位
  14. ;;;;;;;;;;;;;;;;;;;;;;;;

  16. HOU EQU 60H;时
  17. MIN EQU 61H;分
  18. SEC EQU 62H;秒

  20. ;;;;;;;;;;;;;;;;;;;;;;;;
  21. ORG 0H
  22. AJMP  START
  23. ORG 0BH
  24. AJMP INT_T0  ;T0中断
  25. ORG 23H;;串行中断
  26. LJMP GPS
  27. ;;;;;;;;;;;;;;;;;;;;;;;;
  28. ORG  30H              
  29. START:
  30. MOV P1,#0;;初始化P1口
  31. ORL P3,#0FFH;初始化P3口,不能用mov P3,#0
  32. MOV HOU,#0
  33. MOV MIN,#0
  34. MOV SEC,#0

  36. ;***************
  37. ;初始化串口波特率9600，允计接收
  38. MOV SCON,#50H;串行通讯控制SM1 REN
  39. MOV TMOD,#21H;定时/计数器M1  M0
  40. MOV TH1,#0FDH;定时时间设置高位
  41. MOV TL1,#0FDH;定时时间设置低位
  42. SETB TR1;定时/计数器(TCON)
  43. SETB ES;中断允许(IE)
  44. ;***************
  45. MOV TH0,#4CH;定时器0 50ms
  46. MOV TL0,#0
  47. SETB TR0;定时/计数器(TCON)
  48. SETB ET0;中断允许(IE)
  49. SETB EA;中断允许(IE)

  51. ;*******************
  52. MAIN:
  53. ;GPS模块供电控制
  54. JNB 24H.7,kkk;----------------------如果没有校时成功则一直打开P3.7

  56. mov a,min
  57. cjne a,#58,AAA
  58. ajmp kkk

  60. AAA:cjne a,#59,BBB
  61. ajmp kkk

  63. BBB:cjne a,#00,NNN
  64. ajmp kkk

  66. kkk:setb P3.7;GPS模块供电控端
  67. ajmp PPP

  69. NNN:clr P3.7

  71. PPP:mov a,hou;判断夜间21:00-6:00暗显示
  72. cjne a,#21,ten
  73. CALL display2

  75. ten:cjne a,#22,eleven
  76. CALL display2

  78. eleven:cjne a,#23,twelve
  79. CALL display2

  81. twelve:cjne a,#0,one
  82. CALL display2

  84. one:cjne a,#1,two
  85. CALL display2

  87. two:cjne a,#2,three
  88. CALL display2

  90. three:cjne a,#3,four
  91. CALL display2

  93. four:cjne a,#4,five
  94. CALL display2

  96. five:cjne a,#5,nor
  97. CALL display2

  99. nor:
  100. CALL DISPLAY;送显示
  101. AJMP MAIN

  103. ;**************************

  105. DISPLAY:;显示
  106. MOV  DPTR,#TAB
  107. MOV   A,HOU;时十位
  108. MOV B,#10
  109. DIV AB
  110. cjne a,#0,zero;消隐无效0
  111. mov a,#10
  112. zero:MOVC A,@A+DPTR
  113. JNB 24H.7,GGGG;判断GPS是否收到时间信号
  114. setb ACC.7;第一位小数点显示GPS状态
  115. GGGG:MOV P1,A  ;送显
  116. SETB LEDR1
  117. CALL DELAY1MS
  118. CLR LEDR1
  119. ;----------------
  120. MOV A,B
  121. MOVC A,@A+DPTR
  122. MOV C,0AH;秒点闪烁
  123. MOV ACC.7,C
  124. MOV P1,A  ;送显
  125. SETB LEDR2
  126. CALL DELAY1MS
  127. CLR LEDR2

  129. ;**************************
  130. MOV   A,MIN;分十位
  131. MOV B,#10
  132. DIV AB
  133. MOVC A,@A+DPTR
  134. MOV C,0AH;秒点闪烁
  135. MOV ACC.7,C
  136. MOV P1,A  ;送显
  137. SETB LEDR3
  138. CALL DELAY1MS
  139. CLR LEDR3
  140. ;----------------
  141. MOV  DPTR,#TAB
  142. MOV A,B
  143. MOVC A,@A+DPTR
  144. MOV P1,A  ;送显
  145. SETB LEDR4
  146. CALL DELAY1MS
  147. CLR LEDR4
  148. RET

  150. ;**************************

  152. DISPLAY2:;暗显示
  153. MOV  DPTR,#TAB
  154. MOV   A,HOU;时十位
  155. MOV B,#10
  156. DIV AB
  157. cjne a,#0,zero2
  158. mov a,#10
  159. zero2:MOVC A,@A+DPTR
  160. JNB 24H.7,GGGG2
  161. setb ACC.7
  162. GGGG2:MOV P1,A  ;送显
  163. SETB LEDR1
  164. CALL DELAY3
  165. CLR LEDR1
  166. call delay2;显示后关一段时间,以实现亮度降低
  167. ;----------------
  168. MOV A,B
  169. MOVC A,@A+DPTR
  170. MOV C,0AH;秒点闪烁
  171. MOV ACC.7,C
  172. MOV P1,A  ;送显
  173. SETB LEDR2
  174. CALL DELAY3
  175. CLR LEDR2
  176. call delay2
  177. ;**************************
  178. MOV   A,MIN;分十位
  179. MOV B,#10
  180. DIV AB
  181. MOVC A,@A+DPTR
  182. MOV C,0AH;秒点闪烁
  183. MOV ACC.7,C
  184. MOV P1,A  ;送显
  185. SETB LEDR3
  186. CALL DELAY3
  187. CLR LEDR3
  188. call delay2
  189. ;----------------
  190. MOV  DPTR,#TAB
  191. MOV A,B
  192. MOVC A,@A+DPTR
  193. MOV P1,A  ;送显
  194. SETB LEDR4
  195. CALL DELAY3
  196. CLR LEDR4
  197. call delay2
  198. RET
  199. ;****************;****************;****************

  201. INT_T0:
  202. PUSH  ACC ;定时器0中断计时
  203. PUSH  PSW
  204. MOV TH0,#4CH;50MS
  205. MOV TL0,#0

  207. INC 30H
  208. MOV A,30H
  209. CJNE A,#10,T0_OUT;
  210. MOV 30H,#0

  212. CPL   0AH;秒闪位

  214. INC 31H
  215. MOV A,31H
  216. CJNE A,#2,T0_OUT;500MS*2=1S
  217. MOV 31H,#0


  220. INC SEC;秒加一
  221. MOV A,SEC
  222. CJNE A,#60,T0_OUT
  223. MOV SEC,#0

  225. INC MIN;分加一
  226. MOV A,MIN
  227. CJNE A,#60,T0_OUT
  228. MOV MIN,#0

  230. SETB ES;每小时打开一次串行中断，进行GPS校时

  232. INC HOU;时加一
  233. MOV A,HOU
  234. CJNE A,#24,T0_OUT
  235. MOV HOU,#0

  237. T0_OUT:
  238. POP PSW
  239. POP ACC
  240. RETI
  241. ;****************;****************;****************

  243. DELAY1MS:   ;白天延时,亮2ms
  244.     MOV R6,#50H
  245. DL0:
  246.     MOV R5,#0AH
  247.     DJNZ R5,$
  248.     DJNZ R6,DL0
  249.     NOP
  250.     RET

  252. DELAY2:   ;夜间延时,灭3ms
  253.     MOV R6,#0FBH
  254. DL2:
  255.     MOV R5,#04H
  256.     DJNZ R5,$
  257.     DJNZ R6,DL2
  258.     NOP
  259.     RET

  261. DELAY3:   ;夜间延时,亮1ms
  262.     MOV R6,#66H
  263. DL3:
  264.     MOV R5,#03H
  265.     DJNZ R5,$
  266.     DJNZ R6,DL3
  267.     NOP
  268.     RET

  270. ;****************;****************;****************
  271. TABGPRMC: DB "$GPRMC," ;$GPRMC,数据

  273. TABGPGSV: DB "$GPGSV," ;$GPGSV,数据
  274. ;****************;****************;****************

  276. PD_GPG:;接收比较数据
  277. MOV R2,#7;
  278. PD_GPG1:
  279. JNB RI,$
  280. CLR RI
  281. MOV A,#0
  282. MOVC A,@A+DPTR
  283. CJNE A,SBUF,gOUT
  284. INC DPTR;下一个数据
  285. djnz R2,PD_GPG1;校对完7个数据
  286. clr c
  287. ret
  288. gOUT:setb c
  289. ret


  292. ;*******************************************
  293. GPGSV:;判断GPGSV，的后10位是否是0
  294. MOV DPTR,#TABGPGSV;$TABGPGSV的数据指针GPGSV
  295. acall PD_GPG;接收比较是否是收到“$GPGSV，”
  296. jnc sdsj;收到继续
  297. AJMP OUT

  299. sdsj:
  300. MOV R1,#10;跳过10个数
  301. GE10:
  302. JNB RI,$
  303. CLR RI
  304. DJNZ R1,GE10
  305. ;**********************
  306. JNB RI,$
  307. CLR RI
  308. MOV A,SBUF
  309. CJNE A,#'0',GPSOK;非0跳出读时间
  310. JNB RI,$
  311. CLR RI
  312. MOV A,SBUF
  313. CJNE A,#'0',GPSOK;非0跳出读时间
  314. SETB 24H.7;继续判断，开绿灯位
  315. AJMP OUT
  316. GPSOK:
  317. CLR 24H.7;关绿灯
  318. SETB 24H.0;置读时间位
  319. AJMP OUT

  321. ;****************;****************;************
  322. ;-------串行口中断

  324. ;接收到$GPRMC, 后面的是时分秒数据ANSI格式的

  326. ;*********************;****************
  327. GPS:;$GPRMC
  328. CLR ES;关串行中断，避免反复中断，下面接收用查询
  329. PUSH ACC;保护
  330. PUSH DPH
  331. PUSH DPL

  333. JNB 24H.0,GPGSV;因为室内收不定位,所以首先判断GPGSV，再往后10位否为0,如果是0的话时间是不对的，
  334. ;如果非0,即使收不到定位信号时间也是对的

  336. TGPRMC:
  337. MOV DPTR,#TABGPRMC;$GPRMC的数据指针
  338. acall PD_GPG;接收比较是否是收到“$GPRMC，”
  339. jnc sdsjq;收到继续
  340. OUT:
  341. POP DPL
  342. POP DPH
  343. POP ACC
  344. SETB  ES;打开串行中断
  345. RETI;退出

  347. sdsjq:
  348. ;**********************
  349. MOV R0,#40H;ANSI码时间的保存地址指针
  350. MOV R1,#6;时分秒6个ANSI码数据
  351. GET_GPS:
  352. JNB RI,$
  353. CLR RI
  354. MOV A,SBUF
  355. SUBB A,#30H;ANSI减30H是16进制数
  356. MOV @R0,A
  357. INC R0;下一内存
  358. DJNZ R1,GET_GPS
  359. ;**********************

  361. ;---------------
  362. ;处理数据，把6位数合成时分秒三位数
  363. MOV R0,#40H;ANSI码时间的保存地址指针
  364. MOV R1,#HOU;小时指针
  365. ZLGO:
  366. MOV A,@R0
  367. MOV B,#10
  368. MUL AB
  369. INC R0
  370. ADD A,@R0
  371. MOV @R1,A
  372. INC R0
  373. INC R1
  374. CJNE R0,#46H,ZLGO
  375. ;----------------
  376. ;收到的是伦敦时间，北京东8区 ＋8小时

  378. MOV A,HOU
  379. ADD A,#8;小时加8
  380. CJNE A,#24,JJ;是否大于24小时
  381. JJ:JC XY
  382. SUBB A,#24;大于24减24
  383. XY:
  384. MOV HOU,A;保存成北京时间
  385. CLR 24H.0;清读时间位
  386. POP DPL
  387. POP DPH
  388. POP ACC
  389. RETI
  390. ;****************;****************

  392. TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,00H
  393. ;0,1,2,3,4,5,6,7,8,9,灭


  396. END

复制代码

新站, 发帖, 汇编语言, 编写, 数字钟
P60409-114241(2048x1536).jpg
P60409-114254(2048x1536).jpg

打赏

参与人数 6 +3 家元 +108 收起 理由
ztrdiy + 12 谢谢分享！
亲爱的混蛋 + 1 就剩下一个专家了，给你吧
snowrose2000 + 1
zzy_85569381 + 18 謝謝分享
whgf + 18 優秀文章，原創內容
家睦 + 1 + 60 以資鼓勵

查看全部打赏

本帖被以下淘专辑推荐:

相关帖子
回复

使用道具 举报

发表于 2019-1-8 18:51:08 | 显示全部楼层
本帖最后由 zzy_85569381 于 2019-1-8 18:53 编辑

这个真不错，值得学习请问楼主有没有C语言程序，汇编我都忘光了
回复 支持 反对

使用道具 举报

发表于 2019-1-8 20:36:17 | 显示全部楼层
看来还是汇编语言精简
回复 支持 反对

使用道具 举报

nnn2688
 楼主| 发表于 2019-1-8 21:38:02 | 显示全部楼层
zzy_85569381 发表于 2019-1-8 18:51
这个真不错，值得学习请问楼主有没有C语言程序，汇编我都忘光了

fang3 老师的原帖http://bbs.mydigit.cn/read.php?tid=505033里面有C语言程序
回复 支持 反对

使用道具 举报

bluedevil
发表于 2019-1-8 21:59:54 | 显示全部楼层
真的很不错，还会汇编语言。
回复 支持 反对

使用道具 举报

snaker
发表于 2019-1-11 08:30:11 | 显示全部楼层
会汇编的都是大神
回复 支持 反对

使用道具 举报

发表于 2019-1-11 22:56:18 | 显示全部楼层
今天怎么没分了。。。
回复 支持 反对

使用道具 举报

nnn2688
 楼主| 发表于 2019-1-11 23:16:08 | 显示全部楼层
snowrose2000 发表于 2019-1-11 22:56
今天怎么没分了。。。

先欠着啊哈
回复 支持 反对

使用道具 举报

huaweiwx
发表于 2019-1-13 01:16:27 | 显示全部楼层
用汇编写，非常精简。
回复 支持 反对

使用道具 举报

发表于 2019-1-13 09:36:06 来自手机浏览器 | 显示全部楼层
那个秒点怎么看着那么别扭呢？
回复 支持 反对

使用道具 举报

nnn2688
 楼主| 发表于 2019-1-13 17:58:45 | 显示全部楼层
触景情伤 发表于 2019-1-13 09:36
那个秒点怎么看着那么别扭呢？

利用第二位和第三位的小数点组成的，所以看着别扭
回复 支持 反对

使用道具 举报

发表于 2019-1-13 21:49:11 来自手机浏览器 | 显示全部楼层
nnn2688 发表于 2019-1-13 17:58
利用第二位和第三位的小数点组成的，所以看着别扭

我说呢，尽量还是找专用的反正也比较便宜…
回复 支持 反对

使用道具 举报

junzi000
发表于 2019-1-14 12:22:02 | 显示全部楼层
玩汇编的都是牛人
回复 支持 反对

使用道具 举报

维超
发表于 2019-1-15 17:04:32 | 显示全部楼层
佩服会汇编的大牛。硬件上用IC作倒相会更简单
回复 支持 反对

使用道具 举报

kuanglf
发表于 2019-1-15 21:47:42 | 显示全部楼层
不错，用汇编的已经很少了
回复 支持 反对

使用道具 举报

gdszyrx
发表于 2019-1-19 20:59:48 | 显示全部楼层
给个程序吧，发这里再复制出来粘贴会有乱码。
回复 支持 反对

使用道具 举报

nnn2688
 楼主| 发表于 2019-1-19 22:18:05 | 显示全部楼层
gdszyrx 发表于 2019-1-19 20:59
给个程序吧，发这里再复制出来粘贴会有乱码。

点击程序最后一行的“复制代码”再粘就行了
回复 支持 反对

使用道具 举报

gdszyrx
发表于 2019-1-20 09:40:57 | 显示全部楼层
nnn2688 发表于 2019-1-19 22:18
点击程序最后一行的“复制代码”再粘就行了

就是这么做的，提示有Unicode码，是否另存为
回复 支持 反对

使用道具 举报

nnn2688
 楼主| 发表于 2019-1-20 11:38:42 | 显示全部楼层
gdszyrx 发表于 2019-1-20 09:40
就是这么做的，提示有Unicode码，是否另存为

粘贴到记事本里，保存成TXT格式
回复 支持 反对

使用道具 举报

任我菜
发表于 2019-1-21 08:42:05 | 显示全部楼层
楼主你好，你的GPS模块在哪儿买的？接收效果如何？方便的话私我个地址，谢谢
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

APP|手机版|小黑屋|关于我们|联系我们|法律条款|技术知识分享平台

闽公网安备35020502000485号

闽ICP备2021002735号-2

GMT+8, 2024-4-19 06:41 , Processed in 0.483601 second(s), 25 queries , Redis On.

Powered by Discuz!

© 2006-2023 smzj.net

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