Board logo

标题: [日期时间] 批处理日历、时钟3.0版(2010-05-02更新) [打印本页]

作者: zcydez    时间: 2010-1-27 12:19     标题: 批处理日历、时钟3.0版(2010-05-02更新)

日历时钟3.0版:
闲着没事做,又搞了个升级版,又改了一些代码,还在想办法解决闰年时显示月份的bug,还望高手指教。
解决了关闭按钮只有指向才能有用的BUG,现在只有单击才有效~~~
小弟才12岁,现在读六年级,水平有限,还望大家多多关照。
新版和旧版都在附件里。
另外本批处理需要附加程序Cmos.exe、Curs.exe,都在附件里。
附加程序地址:http://bbs.bathome.net/thread-3148-1-1.html
点此下载:
链接: https://pan.baidu.com/s/1qnJzbYmY9aoT5Pd4_sEMyQ 提取码: ji71
  1. @echo off
  2. title 日历时钟 QQ:1061159532
  3. echo.正在启动,请稍后
  4. mode con: cols=38 lines=18
  5. curs /crv 0
  6. set rq=
  7. set sj=
  8. set xq=
  9. set y=
  10. set r=
  11. set n=
  12. :a
  13. set ra=
  14. set rb=
  15. set rc=
  16. set +1=
  17. set y=%date:~5,-7%
  18. set r=%date:~8,-4%
  19. set n=%date:~0,-10%
  20. set xq=%date:~13,1%
  21. set sj=%time:~0,-9%时%time:~3,-6%分%time:~6,-3%秒
  22. if %xq% equ 六 (color fc&goto tgcolor) else (goto c1)
  23. :c1
  24. if %xq% equ 日 (color fc) else (color f0)
  25. :tgcolor
  26. if %y% equ 01 (set yue=  一月大)
  27. if %y% equ 02 (set yue=  二月小)
  28. if %y% equ 03 (set yue=  三月大)
  29. if %y% equ 04 (set yue=  四月小)
  30. if %y% equ 05 (set yue=  五月大)
  31. if %y% equ 06 (set yue=  六月小)
  32. if %y% equ 07 (set yue=  七月大)
  33. if %y% equ 08 (set yue=  八月大)
  34. if %y% equ 09 (set yue=  九月小)
  35. if %y% equ 10 (set yue=  十月大)
  36. if %y% equ 11 (set yue=十一月小)
  37. if %y% equ 12 (set yue=十二月大)
  38. set ra=%r:~0,-1%
  39. set rb=%r:~1,1%
  40. if %ra% equ 0 (
  41. set rc=y
  42. if %rb% equ 1 (
  43. set r1=      █      
  44. set r2=    ██      
  45. set r3=      █      
  46. set r4=      █      
  47. set r5=      █      
  48. set r6=      █      
  49. set r7=      █      
  50. set r8=   ████   
  51. )
  52. if %rb% equ 2 (
  53. set r1=     ██     
  54. set r2=   █    █   
  55. set r3=          █  
  56. set r4=         █   
  57. set r5=        █   
  58. set r6=      █      
  59. set r7=    █        
  60. set r8=   ████   
  61. )
  62. if %rb% equ 3 (
  63. set r1=     ██     
  64. set r2=   █    █   
  65. set r3=        █   
  66. set r4=      █      
  67. set r5=        █   
  68. set r6=   █    █   
  69. set r7=     ██     
  70. set r8=              
  71. )
  72. if %rb% equ 4 (
  73. set r1=       █     
  74. set r2=      █▌   
  75. set r3=     ██     
  76. set r4=    █ █     
  77. set r5=   █  █     
  78. set r6=  █████  
  79. set r7=       █     
  80. set r8=       █     
  81. )
  82. if %rb% equ 5 (
  83. set r1=    ███   
  84. set r2=    █        
  85. set r3=    █        
  86. set r4=    ███   
  87. set r5=        █   
  88. set r6=        █   
  89. set r7=    ███   
  90. set r8=              
  91. )
  92. if %rb% equ 6 (
  93. set r1=       █     
  94. set r2=     █      
  95. set r3=    █        
  96. set r4=   █ █▋   
  97. set r5=   █▌  █   
  98. set r6=   █    █   
  99. set r7=    █  █   
  100. set r8=      █      
  101. )
  102. if %rb% equ 7 (
  103. set r1=  █████  
  104. set r2=          █  
  105. set r3=         █   
  106. set r4=        █   
  107. set r5=       █     
  108. set r6=      █      
  109. set r7=     █      
  110. set r8=    █        
  111. )
  112. if %rb% equ 8 (
  113. set r1=     ██     
  114. set r2=   █    █   
  115. set r3=   █    █   
  116. set r4=     ██     
  117. set r5=   █    █   
  118. set r6=   █    █   
  119. set r7=     ██     
  120. set r8=              
  121. )
  122. if %rb% equ 9 (
  123. set r1=     ██     
  124. set r2=   █    █   
  125. set r3=   █    █   
  126. set r4=     ██     
  127. set r5=         █   
  128. set r6=   █    █   
  129. set r7=     ██     
  130. set r8=              
  131. )
  132. ) else (
  133. if %rb% equ 0 (
  134. set r9 =███
  135. set r10=█  █
  136. set r11=█  █
  137. set r12=█  █
  138. set r13=█  █
  139. set r14=█  █
  140. set r15=███
  141. set r16=      
  142. )
  143. if %rb% equ 1 (
  144. set r9 =  █  
  145. set r10=  █  
  146. set r11=  █  
  147. set r12=  █  
  148. set r13=  █  
  149. set r14=  █  
  150. set r15=  █  
  151. set r16=      
  152. )
  153. if %rb% equ 2 (
  154. set r9 =███
  155. set r10=    █
  156. set r11=    █
  157. set r12=███
  158. set r13=█   
  159. set r14=█   
  160. set r15=███
  161. set r16=      
  162. )
  163. if %rb% equ 3 (
  164. set r9 =███
  165. set r10=    █
  166. set r11=    █
  167. set r12=███
  168. set r13=    █
  169. set r14=    █
  170. set r15=███
  171. set r16=      
  172. )
  173. if %rb% equ 4 (
  174. set r9 =█  █
  175. set r10=█  █
  176. set r11=█  █
  177. set r12=███
  178. set r13=    █
  179. set r14=    █
  180. set r15=    █
  181. set r16=      
  182. )
  183. if %rb% equ 5 (
  184. set r9 =███
  185. set r10=█   
  186. set r11=█   
  187. set r12=███
  188. set r13=    █
  189. set r14=    █
  190. set r15=███
  191. set r16=      
  192. )
  193. if %rb% equ 6 (
  194. set r9 =███
  195. set r10=█   
  196. set r11=█   
  197. set r12=███
  198. set r13=█  █
  199. set r14=█  █
  200. set r15=███
  201. set r16=      
  202. )
  203. if %rb% equ 7 (
  204. set r9 =███
  205. set r10=█  █
  206. set r11=    █
  207. set r12=    █
  208. set r13=    █
  209. set r14=    █
  210. set r15=    █
  211. set r16=      
  212. )
  213. if %rb% equ 8 (
  214. set r9 =███
  215. set r10=█  █
  216. set r11=█  █
  217. set r12=███
  218. set r13=█  █
  219. set r14=█  █
  220. set r15=███
  221. set r16=      
  222. )
  223. if %rb% equ 9 (
  224. set r9 =███
  225. set r10=█  █
  226. set r11=█  █
  227. set r12=███
  228. set r13=    █
  229. set r14=    █
  230. set r15=███
  231. set r16=      
  232. )
  233. )
  234. if %ra% equ 1 (
  235. set r1=  █  
  236. set r2=  █  
  237. set r3=  █  
  238. set r4=  █  
  239. set r5=  █  
  240. set r6=  █  
  241. set r7=  █  
  242. set r8=      
  243. )
  244. if %ra% equ 2 (
  245. set r1=███
  246. set r2=    █
  247. set r3=    █
  248. set r4=███
  249. set r5=█   
  250. set r6=█   
  251. set r7=███
  252. set r8=      
  253. )
  254. if %ra% equ 3 (
  255. set r1=███
  256. set r2=    █
  257. set r3=    █
  258. set r4=███
  259. set r5=    █
  260. set r6=    █
  261. set r7=███
  262. set r8=      
  263. )
  264. if not defined rc (
  265. set r1=%r1%  %r9 %
  266. set r2=%r2%  %r10%
  267. set r3=%r3%  %r11%
  268. set r4=%r4%  %r12%
  269. set r5=%r5%  %r13%
  270. set r6=%r6%  %r14%
  271. set r7=%r7%  %r15%
  272. set r8=%r8%  %r16%
  273. ) else (
  274. cls
  275. )
  276. :b
  277. cls
  278. echo.
  279. echo. ┌────────────────┐
  280. echo. │%n%年     日历时钟     %yue%│
  281. echo. ├────────────────┤
  282. echo. │%sj%                    │
  283. echo. │星期%xq%                          │
  284. echo. │         %r1%         │
  285. echo. │         %r2%         │
  286. echo. │         %r3%         │
  287. echo. │         %r4%         │
  288. echo. │         %r5%         │
  289. echo. │         %r6%         │
  290. echo. │         %r7%         │
  291. echo. │         %r8%         │
  292. echo. ├────────────────┤
  293. echo. │        要退出,请单击此按钮→╳│
  294. echo. └────────────────┘
  295. Cmos 0 1 1 0 2
  296. set /a P=%errorlevel%
  297. if %P% lss 0 goto b
  298. set /a X=%P:~0,-3%
  299. set /a Y=%P%-1000*%X%
  300. if x%x%y%y% equ x34y16 (goto exit)
  301. if x%x%y%y% equ x35y16 (goto exit)
  302. goto a
  303. :exit
  304. cls
  305. color 07
  306. echo.正在退出,谢谢使用。
  307. set +1=
  308. set +=
  309. set rq=
  310. set sj=
  311. set xq=
  312. set y=
  313. set r=
  314. set n=
  315. set P=
  316. set P=
  317. set X=
  318. set ra=
  319. set rb=
  320. set rc=
  321. Cmos 3 1 1 0 2
复制代码

作者: Batcher    时间: 2010-1-27 12:48

能否在顶楼注明使用了哪些附加程序?
作者: Spring    时间: 2010-1-27 14:51

我来个实用的:
  1. @ehco off
  2. echo do:wscript.sleep 1000:wscript.echo now:loop > Spring
  3. title 日历时钟
  4. color 17
  5. mode con cols=20 lines=2
  6. cscript -nologo -e:vbs Spring
复制代码

作者: zcydez    时间: 2010-1-27 15:46     标题: 回复 2楼 的帖子

谢谢建议,已在楼顶更新。
作者: Zombie    时间: 2010-2-22 21:11

楼主11岁.....
我12岁.....
作者: 523066680    时间: 2010-2-22 22:26     标题: 回复 5楼 的帖子

见过太多说年龄的,我以前刚入门的时候这样子,后来就没有了,
:年龄不是问题,问题是每个人都会长大。

[ 本帖最后由 523066680 于 2010-2-22 22:33 编辑 ]
作者: chuxian03    时间: 2010-5-13 13:27

3楼的很不错啊,顶下学习了。
作者: sc419    时间: 2012-9-6 17:27

凑够五个字
作者: eddf    时间: 2012-9-11 09:49

怎样用点阵列数字样本显示当前的系统时间,请教高手解答,用批处理实现。以下是点阵列数字样本的批处理文本。


——————————————————————————————————————————————————————————————————————————————————————————



@echo off
cls
echo.
rem  根据黄金分割比,此程序的每个数字的宽乘以高为10×16个点阵列。
color 0E
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.               ████
echo.               ████
echo.               ████
echo.               ████
echo.
echo.
echo.
echo.               ████
echo.               ████
echo.               ████
echo.               ████
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██    ██
echo.               ██████████
echo.               ██████████
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.                               ██
echo.               ██████████
echo.               ██████████
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                       ██
echo.                     ███
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                       ██
echo.                     ████
echo.                     ████
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.               ██████████
echo.               ██████████
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██            ██
echo.               ██████████
echo.               ██████████
echo.
echo.
echo.
echo.
pause
作者: eddf    时间: 2012-9-11 16:25

显示时间
作者: eddf    时间: 2012-9-11 16:29

[attach]5649[/attach]
作者: 狱渊    时间: 2013-5-1 10:36

显示时间的   我用最新版吧




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2