最近工作需要,要控制直流电机的转速,以前没有做过类似的项目,查了好多东西,终于鼓捣出一个,实际效果还可以,现在仿真出来,供大家参考,如有更好的建议也可以告诉我.

原理图如下

我简要说明一下

1.电源部分:

220伏交流经整流,再经过R3的降压和D10的稳压,提供一个和电网电压频率一样的同步信号.这一路再经过7815,提供控制电路部分的直流电源+15V.

2.电机控制部分

AC220V经整流出来经过一个可控硅和电机串联接入回路,通过控制可控硅的通断频率来控制电机的通断,从而控制了转速,这里D7的主要作用就是在电机线圈不通电的时候,把多余的能量释放掉.

3.控制部分

主要通过控制程控管Q3的通断,来产生一定平率的脉冲,通过光偶加到可控硅的门极,从而控制电机速度.

控制程控管的信号主要有三个:1.电压给定信号,通过调节R4,R5,R6三个电位器给定一个电压信号,中间一个也是一个调速的旋钮.2.同步信号,当电网电压过零点时,5处会产生一个0电压信号,使C7通过Q1放电,等待下一个周期来临.

3.反馈信号,从电机线圈端采样反馈到程控管的控制极,使输出信号更加平稳.程控管开通的长短有C7决定.

仿真输出波形图1:

调速旋钮R5改变一以后:

 红色为电机线圈端的波形,绿色为程控管正极的波形.

从波形来看,调速效果还可以,达到预想的效果

以下为自己做的实验板:

因为最近自己想开发一款产品,但芯片比较贵,我就试着去免费申请,结果真的拿到了.现在我把可以申请免费样片的网址都罗列出来,希望和我一样有心没钱的人也能享受开发的乐趣.

1、推荐铁电存储器（未见量的限制,据说最多有人申请了100片，不知真假.）

介绍：铁电存储器（FRAM）产品将ROM的非易失性数据存储特性和RAM的无限次读写、高速读写以及低功耗等优势结合在一起。FRAM产品包括各种接口和多种密度，像工业标准的串行和并行接口，工业标准的封装类型，以及4Kbit、6Kbit、64Kbit、256Kbit和1Mbit等密度。

申请地址：http://www.huazhoucn.com/mianfei.aspx

申请注意：填写好企业、姓名等内容，不然可能收不到。当然可以多几个人申请，嘿嘿

2、VK系列UART（一次最多2片）

介绍：维肯公司主要提供集成电路，射频电子标签读卡模块,医疗电子产品,汽车电子产品等在类的电子产品和整体解决方案。

申请地址：http://www.vkic.com/usermanage/login.asp

申请注意：属企业级的申请，要填正确公司、姓名、联系方式。

3、ADI公司（最多索取3种产品，每种2片）

介绍：ADI含几乎所有的模拟器件产品。

申请地址：http://www.analog.com/intl/china/orderSamples/

4、Maxim公司（最多索取3种产品，每种2片）

介绍：Maxim公司免费提供Maxim/Dallas样品，以方便您评估测试其性能之用。

申请地址：http://www.maxim-ic.com.cn/samples/

申请注意：需填写该表格中的“最终产品”和“预计年用量” 两项内容

5、Microchip Technology Inc（最多索取5种，每种1片）

介绍：单片机和模拟半导体供应商

申请地址：http://sample.microchip.com/Default.aspx?testCookies=true

申请注意：时间较长，2个星期

6、TI（(最多提供 8 种不同型号的器件样片) ）

介绍：模拟和 DSP 技术

申请地址：http://focus.ti.com.cn/cn/general/docs/gencontent.tsp?contentId=29859&DCMP=TI-cn_Home_Tracking&HQS=v?

OT+home_b_samples

申请注意：在申请前组织下运用

7、成都国腾

介绍：IC接口类、IC电源类、IC存储类、IC消费类、IC其它产品、IP类、IC通讯类

申请地址：http://www.gticc.com/cn/khfw-ypsq1.htm

8、南京沁恒

介绍：涵盖电子电路、单片机和DSP、可编程器件、计算机硬件体系构架、计算机BIOS和系统软件

申请地址：http://www.wch.cn/technique/index2.asp

申请注意：客户需自付快递运费

9、飞思卡尔

申请地址：http://www.freescale.com/webapp/sps/site/homepage.jsp?nodeId=010984007869597059286929489

10、美国微芯科技公司

介绍：以太网控制器

申请地址：http://www.skyhic.com/

11、北天星

介绍：ATMEL、RAMTRON、ALLIANCE、TAISOL、ATCHIP、UTC、ESI、VIMICRO、Philips、MXIC、ST等原厂的各种芯片样品

申请地址：http://www.po-star.

12、深圳市英蓓特信息技术有限公司

介绍：嵌入式开发

申请地址：http://www.embed.com.cn/yangpian/index.asp?company_id=5089

注意：邮资自付

13、润金法

介绍：单片机

申请地址：http://www.ic365.com.cn/asp/apply.asp

注意：向企业，个人有些困难

14、双龙电子

介绍：SUNSHINE（编程器）、HILO（编程器/仿真器）、MICROTEK（仿真器）、ADVANTECH（编程器）、LEAP（编程器）、XELTEK（编程器）、

ENPLAS（Seckt）、3M（Socket）、CHIPTOOL（Socket）、ATMEL AVR（仿真器）

申请地址：http://www.sl.com.cn/

15、杭州利尔达科技

介绍：TI、ROHM、SIPEX、CATALYST、RAINSUN 等诸多国际著名半导体产品

申请地址：http://www.lierda.com/

16、泰仁发

介绍：单片机

申请地址：http://www.tairenfa.com/apply.htm

17、丹特公司

介绍：功率转换和电力存储系统

申请地址：http://www.dionics-usa.com/sample_req_form.htmhttp://www.mcu-memory.comcom/sample.asp

　　到目前为止，笔者认为它有下列七项不足或令人失望的地方：　　

　　1、售价

　　虽然3G版iPhone比第一代iPhone要便宜一半，售价仅199美元。但是对于消费者来说，这个价格并不算便宜。仔细算算，3G版iPhone的价格其实比第一代iPhone的价格还要贵160美元，因为AT&T将另一款售价更高的服务与3G版iPhone捆绑在一起，以弥补iPhone最开始的成本。Gizmodo的败家发烧友将这称作是“在价格上玩的小把戏”，但是纽约时报的技术博客Bits将这称为“对于消费者而言的一次退步”。　　

　　2、不支持Flash

　　IPhone的网络浏览器功能很强大。它配备的显示屏尺寸大，分辨率高，用户完全可以用手指操作。 但是它最大的问题是，不支持Adobe的Flash技术，这也就是说，它不能完全显示那些包含多媒体内容的网站。Adobe正在努力提高其技术的兼容性，但是目前iPhone仍不支持它。　　

　　3、未配备可更换电池

　　许多商旅人士通常都没有时间停下来给手机充电。他们一般会随身携带多块备用电池。 但是，3G版iPhone不能更换电池，这一点令消费者们颇为失望。虽然消费者可以买到DIY的工具，但是笔者建议消费者们最好不要自己去改装。　　

　　4、视频录制

　　苹果电脑中预装了一款视频编辑和娱乐软件iMovie。除Shuffle之外的iPod都已经可以观看视频。 但是如果消费者想录制视频，那最好去购买索尼的产品。 尽管它内建了一款200万像素的数码相机，但是苹果3G版iPhone还不能录制视频，这个功能即使连许多低端的功能手机都已经具备了。　　

　　5、没有剪切与粘贴功能

　　自从第一款iPhone去年上市以来，发烧友们就对不能在iPhone上使用复制与粘贴功能感到不爽。这项功能其实非常有用，比如消费者可以将博客中的一段话通过复制与粘贴功能迅速添加到电子邮件中发送给好友。 而且，这还不用改变手机的接口。　　

　　6、没有多媒体信息类的服务

　　福布斯的David Ewalt将3G版iPhone不支持多媒体信息服务称作最令人抓狂的问题之一。 消费者根本没办法打开好友通过短信息发来的任何图片。　　

　　7、没有语音拨号功能

　　到目前为止，还没有人对此提出意见。也许那是因为大家都还在抱怨iPhone的按键不好按。iPhone没有语音识别功能。正是因为这项功能，消费者们才能够在旅途中使用黑莓。

电容滤波电路 ★滤波原理 ◆当u2为正半周并且数值大于电容两端电压uC时，二极管D1和D3管导通，D2和D4管截止，电流一路流经负载电阻RL，另一路对电容C充电。当uC>u2，导致D1和D3管反向偏置而截止，电容通过负载电阻RL放电，uC按指数规律缓慢下降。 ◆当u2为负半周幅值变化到恰好大于uC时，D2和D4因加正向电压变为导通状态，u2再次对C充电，uC上升到u2的峰值后又开始下降；下降到一定数值时D2和D4变为截止，C对RL放电，uC按指数规律下降；放电到一定数值时D1和D3变为导通，重复上述过程。 RL、C对充放电的影响： 电容充电时间常数为rDC，充电速度快；RLC为放电时间常数，放电速度慢。电容C愈大，负载电阻RL愈大，滤波后输出电压愈平滑，并且其平均值愈大。 　　★输出电压平均值 ◆当负载开路，即 时， ； ◆当RLC=(3~5)T/2时，可取得较好的滤波效果， 。 考虑电网电压波动范围为±10％，电容的耐压值应大于 。 　　★脉动系数 ★整流二极管的导通角 ◆在未加滤波电容之前，整流电路中的二极管导通角θ为π。 ◆加滤波电容后，只有当电容充电时，二极管才导通，因此，每只二极管的导通角均小于π。 RLC的值愈大，滤波效果愈好，导通角θ将愈小。整流二极管承的冲击电流大。 ★电容滤波电路的输出特性和滤波特性 输出特性：当滤波电容C选定后，输出电压平均值UO(AV)和输出电流平均值IO(AV)的关系称为输出特性。 滤波特性：脉动系数S和输出电流平均值IO(AV)的关系称为滤波特性。如下图所示，曲线表明，C愈大电路带负载能力愈强，滤波效果愈好；IO(AV)愈大（即负载电阻RL愈小），UO(AV)愈低，S的值愈大。 小结：电容滤波电路简单，输出电压平均值高，适用于负载电流较小且其变化也较小的场合。 倍压整流电路 倍压整流电路：利用滤波电容的存储作用，由多个电容和二极管可以获得几倍于变压器副边电压的输出电压，称为倍压整流电路。 利用压整流电路可实现二倍压和多倍压。 其它形式的滤波电路 ★电感滤波电路 电感滤波后，不但负载电流及电压的脉动减小，波形变得平滑，而且整流二极管的导通角增大。L愈大，滤波效果愈好。另外，由于滤波电感电动势的作用，可以使二极管的导通角接近π，减小了二极管的冲击电流，平滑了流过二极管的电流，从而延长了整流二极管的寿命。 ★复式滤波电路 当单独使用电容或电感进行滤波时，效果仍不理想时，可采用复式滤波电路。 ★各种滤波电路的比较 各种滤波电路性能的比较 类型 性能 电容滤波 电感滤波 LC滤波 RC或LCπ型滤波 UL(AV)/U2 1.2 0.9 0.9 1.2 θ 小 大 大 小 适用场合 小电流负载 大电流负载 适应性较强 小电流负载

    一直因为工作太忙的缘故,没有把我的万年历程序修改,相信看过我博客的都清楚,原先的虽然有公历转农历的功能,但是不正确,经过热心网友帮助后,终于修改成功了,具有了日期查询的功能,现在把公历转换农历与星期的程序贴出来,给需要的人参考.

    /***************************************************
* 标题：公历与阴历、星期转换                    *
* 作者：Wujieflash                                      *
* 日期：2008年1月18日                              *
* 说明：阴历日期与星期随公历变化            *
***************************************************/
static unsigned char const year_code[]={
0x04,0xAe,0x53, //1901 0
0x0A,0x57,0x48, //1902 3
0x55,0x26,0xBd, //1903 6
0x0d,0x26,0x50, //1904 9
0x0d,0x95,0x44, //1905 12
0x46,0xAA,0xB9, //1906 15
0x05,0x6A,0x4d, //1907 18
0x09,0xAd,0x42, //1908 21
0x24,0xAe,0xB6, //1909
0x04,0xAe,0x4A, //1910
0x6A,0x4d,0xBe, //1911
0x0A,0x4d,0x52, //1912
0x0d,0x25,0x46, //1913
0x5d,0x52,0xBA, //1914
0x0B,0x54,0x4e, //1915
0x0d,0x6A,0x43, //1916
0x29,0x6d,0x37, //1917
0x09,0x5B,0x4B, //1918
0x74,0x9B,0xC1, //1919
0x04,0x97,0x54, //1920
0x0A,0x4B,0x48, //1921
0x5B,0x25,0xBC, //1922
0x06,0xA5,0x50, //1923
0x06,0xd4,0x45, //1924
0x4A,0xdA,0xB8, //1925
0x02,0xB6,0x4d, //1926
0x09,0x57,0x42, //1927
0x24,0x97,0xB7, //1928
0x04,0x97,0x4A, //1929
0x66,0x4B,0x3e, //1930
0x0d,0x4A,0x51, //1931
0x0e,0xA5,0x46, //1932
0x56,0xd4,0xBA, //1933
0x05,0xAd,0x4e, //1934
0x02,0xB6,0x44, //1935
0x39,0x37,0x38, //1936
0x09,0x2e,0x4B, //1937
0x7C,0x96,0xBf, //1938
0x0C,0x95,0x53, //1939
0x0d,0x4A,0x48, //1940
0x6d,0xA5,0x3B, //1941
0x0B,0x55,0x4f, //1942
0x05,0x6A,0x45, //1943
0x4A,0xAd,0xB9, //1944
0x02,0x5d,0x4d, //1945
0x09,0x2d,0x42, //1946
0x2C,0x95,0xB6, //1947
0x0A,0x95,0x4A, //1948
0x7B,0x4A,0xBd, //1949
0x06,0xCA,0x51, //1950
0x0B,0x55,0x46, //1951
0x55,0x5A,0xBB, //1952
0x04,0xdA,0x4e, //1953
0x0A,0x5B,0x43, //1954
0x35,0x2B,0xB8, //1955
0x05,0x2B,0x4C, //1956
0x8A,0x95,0x3f, //1957
0x0e,0x95,0x52, //1958
0x06,0xAA,0x48, //1959
0x7A,0xd5,0x3C, //1960
0x0A,0xB5,0x4f, //1961
0x04,0xB6,0x45, //1962
0x4A,0x57,0x39, //1963
0x0A,0x57,0x4d, //1964
0x05,0x26,0x42, //1965
0x3e,0x93,0x35, //1966
0x0d,0x95,0x49, //1967
0x75,0xAA,0xBe, //1968
0x05,0x6A,0x51, //1969
0x09,0x6d,0x46, //1970
0x54,0xAe,0xBB, //1971
0x04,0xAd,0x4f, //1972
0x0A,0x4d,0x43, //1973
0x4d,0x26,0xB7, //1974
0x0d,0x25,0x4B, //1975
0x8d,0x52,0xBf, //1976
0x0B,0x54,0x52, //1977
0x0B,0x6A,0x47, //1978
0x69,0x6d,0x3C, //1979
0x09,0x5B,0x50, //1980
0x04,0x9B,0x45, //1981
0x4A,0x4B,0xB9, //1982
0x0A,0x4B,0x4d, //1983
0xAB,0x25,0xC2, //1984
0x06,0xA5,0x54, //1985
0x06,0xd4,0x49, //1986
0x6A,0xdA,0x3d, //1987
0x0A,0xB6,0x51, //1988
0x09,0x37,0x46, //1989
0x54,0x97,0xBB, //1990
0x04,0x97,0x4f, //1991
0x06,0x4B,0x44, //1992
0x36,0xA5,0x37, //1993
0x0e,0xA5,0x4A, //1994
0x86,0xB2,0xBf, //1995
0x05,0xAC,0x53, //1996
0x0A,0xB6,0x47, //1997
0x59,0x36,0xBC, //1998
0x09,0x2e,0x50, //1999 294
0x0C,0x96,0x45, //2000 297
0x4d,0x4A,0xB8, //2001
0x0d,0x4A,0x4C, //2002
0x0d,0xA5,0x41, //2003
0x25,0xAA,0xB6, //2004
0x05,0x6A,0x49, //2005
0x7A,0xAd,0xBd, //2006
0x02,0x5d,0x52, //2007
0x09,0x2d,0x47, //2008
0x5C,0x95,0xBA, //2009
0x0A,0x95,0x4e, //2010
0x0B,0x4A,0x43, //2011
0x4B,0x55,0x37, //2012
0x0A,0xd5,0x4A, //2013
0x95,0x5A,0xBf, //2014
0x04,0xBA,0x53, //2015
0x0A,0x5B,0x48, //2016
0x65,0x2B,0xBC, //2017
0x05,0x2B,0x50, //2018
0x0A,0x93,0x45, //2019
0x47,0x4A,0xB9, //2020
0x06,0xAA,0x4C, //2021
0x0A,0xd5,0x41, //2022
0x24,0xdA,0xB6, //2023
0x04,0xB6,0x4A, //2024
0x69,0x57,0x3d, //2025
0x0A,0x4e,0x51, //2026
0x0d,0x26,0x46, //2027
0x5e,0x93,0x3A, //2028
0x0d,0x53,0x4d, //2029
0x05,0xAA,0x43, //2030
0x36,0xB5,0x37, //2031
0x09,0x6d,0x4B, //2032
0xB4,0xAe,0xBf, //2033
0x04,0xAd,0x53, //2034
0x0A,0x4d,0x48, //2035
0x6d,0x25,0xBC, //2036
0x0d,0x25,0x4f, //2037
0x0d,0x52,0x44, //2038
0x5d,0xAA,0x38, //2039
0x0B,0x5A,0x4C, //2040
0x05,0x6d,0x41, //2041
0x24,0xAd,0xB6, //2042
0x04,0x9B,0x4A, //2043
0x7A,0x4B,0xBe, //2044
0x0A,0x4B,0x51, //2045
0x0A,0xA5,0x46, //2046
0x5B,0x52,0xBA, //2047
0x06,0xd2,0x4e, //2048
0x0A,0xdA,0x42, //2049
0x35,0x5B,0x37, //2050
0x09,0x37,0x4B, //2051
0x84,0x97,0xC1, //2052
0x04,0x97,0x53, //2053
0x06,0x4B,0x48, //2054
0x66,0xA5,0x3C, //2055
0x0e,0xA5,0x4f, //2056
0x06,0xB2,0x44, //2057
0x4A,0xB6,0x38, //2058
0x0A,0xAe,0x4C, //2059
0x09,0x2e,0x42, //2060
0x3C,0x97,0x35, //2061
0x0C,0x96,0x49, //2062
0x7d,0x4A,0xBd, //2063
0x0d,0x4A,0x51, //2064
0x0d,0xA5,0x45, //2065
0x55,0xAA,0xBA, //2066
0x05,0x6A,0x4e, //2067
0x0A,0x6d,0x43, //2068
0x45,0x2e,0xB7, //2069
0x05,0x2d,0x4B, //2070
0x8A,0x95,0xBf, //2071
0x0A,0x95,0x53, //2072
0x0B,0x4A,0x47, //2073
0x6B,0x55,0x3B, //2074
0x0A,0xd5,0x4f, //2075
0x05,0x5A,0x45, //2076
0x4A,0x5d,0x38, //2077
0x0A,0x5B,0x4C, //2078
0x05,0x2B,0x42, //2079
0x3A,0x93,0xB6, //2080
0x06,0x93,0x49, //2081
0x77,0x29,0xBd, //2082
0x06,0xAA,0x51, //2083
0x0A,0xd5,0x46, //2084
0x54,0xdA,0xBA, //2085
0x04,0xB6,0x4e, //2086
0x0A,0x57,0x43, //2087
0x45,0x27,0x38, //2088
0x0d,0x26,0x4A, //2089
0x8e,0x93,0x3e, //2090
0x0d,0x52,0x52, //2091
0x0d,0xAA,0x47, //2092
0x66,0xB5,0x3B, //2093
0x05,0x6d,0x4f, //2094
0x04,0xAe,0x45, //2095
0x4A,0x4e,0xB9, //2096
0x0A,0x4d,0x4C, //2097
0x0d,0x15,0x41, //2098
0x2d,0x92,0xB5, //2099
};

//月份数据表
static unsigned char  const day_code1[9]={0x0,0x1f,0x3b,0x5a,0x78,0x97,0xb5,0xd4,0xf3};
static unsigned short const day_code2[3]={0x111,0x130,0x14e};
/****************************************************************************
* 子函数,用于读取数据表中农历月的大月或小月,如果该月为大返回1,为小返回0
****************************************************************************/
static unsigned char GetMoonDay(unsigned char month_p,unsigned short table_addr)
{
 switch (month_p)
 {
  case 1:
   if((year_code[table_addr]&0x08)==0) return(0);
   else         return(1);
  case 2:
   if((year_code[table_addr]&0x04)==0) return(0);
   else         return(1);
  case 3:
   if((year_code[table_addr]&0x02)==0) return(0);
   else         return(1);
  case 4:
   if((year_code[table_addr]&0x01)==0) return(0);
   else         return(1);
  case 5:
   if((year_code[table_addr+1]&0x80)==0) return(0);
   else          return(1);
  case 6:
   if((year_code[table_addr+1]&0x40)==0) return(0);
   else          return(1);
  case 7:
   if((year_code[table_addr+1]&0x20)==0) return(0);
   else          return(1);
  case 8:
   if((year_code[table_addr+1]&0x10)==0) return(0);
   else          return(1);
  case 9:
   if((year_code[table_addr+1]&0x08)==0) return(0);
   else          return(1);
  case 10:
   if((year_code[table_addr+1]&0x04)==0) return(0);
   else          return(1);
  case 11:
   if((year_code[table_addr+1]&0x02)==0) return(0);
   else          return(1);
  case 12:
   if((year_code[table_addr+1]&0x01)==0) return(0);
   else          return(1);
  case 13:
   if((year_code[table_addr+2]&0x80)==0) return(0);
   else          return(1);
 }
 return(0);
}

/*********************************************************************************************************
** 函数名称:GetChinaCalendar
** 功能描述:公农历转换(只允许1901-2099年)
** 输　入:  year        公历年
**          month       公历月
**          day         公历日
**          p           储存农历日期地址
** 输　出:  1           成功
**          0           失败
** 作　者:  Campo
** 修  改:  赖皮
** 日　期:  2007年02月06日
**-------------------------------------------------------------------------------------------------------
** 修改人:
** 日　期:
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/
unsigned char GetChinaCalendar(
        unsigned int  year, 
        unsigned char month,
        unsigned char day,
        unsigned char *p)
{
 unsigned char temp1,temp2,temp3,month_p,yearH,yearL; 
 unsigned char flag_y;
 unsigned short temp4,table_addr;

 yearH=year/100; yearL=year%100;
 if((yearH!=19)&&(yearH!=20)) return(0);
 
 // 定位数据表地址
 if(yearH==20) table_addr=(yearL+100-1)*3;
 else     table_addr=(yearL-1)*3;

 // 取当年春节所在的公历月份/
 temp1=year_code[table_addr+2]&0x60; 
 temp1>>=5;

 // 取当年春节所在的公历日
 temp2=year_code[table_addr+2]&31;

 // 计算当年春年离当年元旦的天数,春节只会在公历1月或2月 */
 if(temp1==1)  temp3=temp2-1;
 else    temp3=temp2+31-1;

 // 计算公历日离当年元旦的天数
 if (month<10)  temp4=day_code1[month-1]+day-1;
 else     temp4=day_code2[month-10]+day-1;
 // 如果公历月大于2月并且该年的2月为闰月,天数加1
 if ((month>2)&&(yearL%4==0))  temp4++;

 // 判断公历日在春节前还是春节后 */
 if (temp4>=temp3)
 {       
  temp4-=temp3;
  month=1;
  month_p=1;
       
  flag_y=0;
  if(GetMoonDay(month_p,table_addr)==0) temp1=29; //小月29天
  else          temp1=30; //大小30天
  // 从数据表中取该年的闰月月份,如为0则该年无闰月 */
  temp2=year_code[table_addr]/16;  
  while(temp4>=temp1)
  {
   temp4-=temp1;
   month_p++;
   if(month==temp2)
   {
    flag_y=~flag_y;
    if(flag_y==0)month++;
   }
   else month++;
   if(GetMoonDay(month_p,table_addr)==0) temp1=29;
   else          temp1=30;
  }
  day=temp4+1;
 }
 // 公历日在春节前使用下面代码进行运算 */
 else
 {       
  temp3-=temp4;
  if (yearL==0)
  {
   yearL=100-1;
   yearH=19;
  }
  else yearL--;
  table_addr-=3;
  month=12;
  temp2=year_code[table_addr]/16;  
  if (temp2==0) month_p=12;
  else    month_p=13;

  flag_y=0;
  if(GetMoonDay(month_p,table_addr)==0) temp1=29;
  else          temp1=30;
  while(temp3>temp1)
  {
   temp3-=temp1;
   month_p--;
   if(flag_y==0)  month--;
   if(month==temp2) flag_y=~flag_y;
   if(GetMoonDay(month_p,table_addr)==0) temp1=29;
   else          temp1=30;
  }
  day=temp1-temp3+1;
 }

 *p++=yearH;
 *p++=yearL;
 *p++=month;
 *p=day; 
 return(1);
}

static unsigned char const table_week[12]={0,3,3,6,1,4,6,2,5,0,3,5}; //月修正数据表
/*********************************************************************************************************
** 函数名称:GetWeek
** 功能描述:输入公历日期得到星期(只允许1901-2099年)
** 输　入:  year        公历年
**          month       公历月
**          day         公历日
**          p           储存星期地址
** 输　出:  无
** 作　者:  Campo
** 修  改:  赖皮
** 日　期:  2007年02月06日
**-------------------------------------------------------------------------------------------------------
** 修改人:
** 日　期:
**------------------------------------------------------------------------------------------------------
********************************************************************************************************/
void GetWeek(
   unsigned int year,
   unsigned char month,
   unsigned char day,
   unsigned char *p)
{ 
 unsigned int temp2;
 unsigned char yearH,yearL;
 
 yearH=year/100; yearL=year%100;
 
 // 如果为21世纪,年份数加100 */
 if (yearH>19)   yearL+=100;
 // 所过闰年数只算1900年之后的 */
 temp2=yearL+yearL/4;
 temp2=temp2%7;
 temp2=temp2+day+table_week[month-1];
 if (yearL%4==0&&month<3) temp2--;
 *p=(temp2%7);
}

/*********************************************************************************************************

上面的程序已经得到过验证,是没有问题的,希望抛砖引玉.

       本来我一直以为只要学会了一种液晶控制器,就够了,所以我一直使用的是KS0108,但最近有网友让我写一个液晶串行驱动.我想了一下,的确有必要,因为他的最大优点在于他省了很多端口.所以,我找到SED1565系列(和ST7565差不多)尝试写了个驱动,以回馈网友,并用PROTEUS软件仿真通过,我想实际也基本可以用的.

一,原理图

芯片的接线很少,只使用了四个口,实际的液晶端口很多,但串行只用这四个就够了.

如液晶资料上说的,当P/S端接低电平时为串口模式.

串行传输时的时序如下所示:

所以CS2端口可以不用,一直接高电平.A0是指示输入的是数据或是命令,高电平为数据,低电平为命令.

在时钟上升沿时,数据输入.

二.程序(PICC8.05)

/***********************************************
* 标题：SED1565图形LCD模块驱动                 * 
* 作者：Flashbird                              *
* 日期：2008.03.16                             *
* 版本：ZHX1.0                                 *
* 说明：所用单片机为PIC16F877A                 *
***********************************************/
#include <pic.h>

#define NOP() asm("nop")
#define SI    RB0  
#define SCL   RB1  
#define A0    RB2  
#define CS1   RB3  
#define uch   unsigned char

/**********************************************
* 函数：SerialInputByte(uch dat)              *
* 描述：从SI口串行输入8位数据                 *
**********************************************/
void SerialInputByte(uch dat)
{
 uch i;
 for(i=0;i<8;i++)
 {
  if(dat&0x80)SI=1;
  else SI=0;
  SCL=0;            //上升沿有效
  NOP();
  SCL=1;
  dat=dat<<1;
 }
}

/**********************************************
* 函数：WriteData(uch dat)                    *
* 描述：从SI口串行输入要显示的数据            *
**********************************************/ 
void WriteData(uch dat)
{
 CS1=0;
 A0=1;                 //写数据
 SerialInputByte(dat);
 CS1=1;
}

/**********************************************
* 函数：WriteCommand(uch cmd)                 *
* 描述：从SI口串行输入命令                    *
**********************************************/ 
void WriteCommand(uch cmd)
{
 CS1=0;
 A0=0;                 //写命令
 SerialInputByte(cmd);
 CS1=1;
}

/**********************************************
* 函数：ClearScreen()                         *
* 描述：清屏                                  *
**********************************************/ 
void ClearScreen()
{
 uch i,j;
 for(i=0;i<8;i++)
 {
  WriteCommand(0xb0+i);
  WriteCommand(0x10);
  WriteCommand(0x0);
  for(j=0;j<132;j++)
  {
   WriteData(0x00);
  }
 }
}

/**********************************************
* 函数：SetLine(uch line)                     *
* 描述：设定页地址----X:0--7                  *
**********************************************/ 
void SetLine(uch line)
{
 line=line&0x07;               //0<=line<=7 
 line=line|0xb0;
 WriteCommand(line);
}

/**********************************************
* 函数：SetColumn(uch column)                 *
* 描述：设定列地址----Y:0--127                *
**********************************************/
void SetColumn(uch column)
{
 uch column_h,column_l;
 column=column&0x7f;          //0<=column<=127
 column_h=column&0x0f0;       //列地址高四位
 column_h=column>>4;
 column_l=column&0x0f;        //列地址低四位
 column_h=column_h|0x10;
 column_l=column_l|0x00;
 WriteCommand(column_h);
 WriteCommand(column_l);
}

/**********************************************
* 函数：SetOnOff(uch state)             *
* 描述：开关显示  1:开显示  0:关显示 *
**********************************************/
void SetOnOff(uch state)
{
 state=state|0xae;
 WriteCommand(state);
}

/*****************************************************
* 函数：Show16X16(uch line,uch comlon,const uch *pt) *
* 描述：显示一个16X16的汉字                                        *
*       line:显示的页（0--7）                                             *
*       column:显示的列（0--127）                                   *
*       *pt:显示字的首地址                                                 *
*****************************************************/
void Show16X16(uch line,uch column,const uch *pt)
{
 uch i,column_temp;
 WriteCommand(0xa1);                  //反向显示(即从左到右显示)
 column_temp=column;
 SetColumn(column);                   //设置起始列
 SetLine(line);                       //设置行
 for(i=0;i<16;i++)
 {  
  WriteData(*pt);                  //写数据
  *pt++;//
  column++;
 }
 SetLine(line+1);                    //设置汉字下半部分显示页
 column=column_temp;
 SetColumn(column);
 for(i=0;i<16;i++)
 { 
  WriteData(*pt);
  *pt++;
  column++;
 }
}
//以下为测试程序
/**********************************************
* 函数：Init()                                      *
* 描述：端口初始化                            *
**********************************************/ 
void init()
{
 TRISB=0;
 PORTB=0;
}

//字库
const uch huan[]=
{0x14,0x24,0x44,0x84,0x64,0x1C,0x20,0x18,0x0F,0xE8,0x08,0x08,0x28,0x18,0x08,0x00,
 0x20,0x10,0x4C,0x43,0x43,0x2C,0x20,0x10,0x0C,0x03,0x06,0x18,0x30,0x60,0x20,0x00};/*"欢",0*/
const uch ying[]=
{0x40,0x41,0xCE,0x04,0x00,0xFC,0x04,0x02,0x02,0xFC,0x04,0x04,0x04,0xFC,0x00,0x00,
 0x40,0x20,0x1F,0x20,0x40,0x47,0x42,0x41,0x40,0x5F,0x40,0x42,0x44,0x43,0x40,0x00};/*"迎",1*/
const uch fang[]=
{0x40,0x41,0x4E,0xC4,0x00,0x08,0x08,0x08,0x09,0xFE,0x4A,0x48,0x48,0xC8,0x08,0x00,
 0x00,0x00,0x00,0x3F,0x10,0x48,0x20,0x18,0x07,0x00,0x20,0x60,0x20,0x1F,0x00,0x00};/*"访",2*/
const uch wen[]=
{0x00,0x00,0xF8,0x01,0x06,0xE0,0x22,0x22,0x22,0x22,0xE2,0x02,0x02,0xFE,0x00,0x00,
 0x00,0x00,0xFF,0x00,0x00,0x03,0x02,0x02,0x02,0x02,0x03,0x40,0x80,0x7F,0x00,0x00};/*"问",3*/

//滚动显示“欢迎访问”
void test()
{
 int i;
 uch set=0;
 uch column=32;
 while(1)
 {
  Show16X16(3,column,huan);
  Show16X16(3,column+16,ying);
  Show16X16(3,column+32,fang);
  Show16X16(3,column+48,wen);
  for(i=0;i<4000;i++);
  if(set==0)column--;
  if(set==1)
  {
   column++;
   SetColumn(column-1);
   SetLine(3);
   WriteData(0);           //擦除前面显示的数据
   SetColumn(column-1);
   SetLine(4);
   WriteData(0);           //擦除前面显示的数据
  }
  if(column==0)set=1;         //如果到最左，就往右移
  if((column+48)==111)set=0;  //如果到最右，就往左移
 }
}

void main()
{
 init();
 while(1)
 {
  test(32);
 }
}
三.总结

由于前段时间太忙,让网友久等了,谢谢他对我的支持,如有不对的地方,请指出,共同探讨.    

       最近由于工作的调整,开始接触三菱PLC.但是我们公司只有一根编程电缆,但用的人很多,插来拔去实在很麻烦,买买又很贵,所以查了好多资料,决定自己用现有的RS232线改制,下面是接线图.

几点需要说明:

1.RS232,RS422均是全双工通讯,只是电平信号相反且电压不同,本图采用422单边驱动的方式,这样就和RS232基本相同了.

2.电阻的作用主要用来限制电流,防止电流过大烧坏通讯端口.我用的是3K的电阻,效果良好.

3.不要在两头都带电的情况下插拔电缆,以免烧坏通讯端口.

经一段时间用下来,没有出现任何异常情况,且适合FX1N,FX2N等多种机型.

这样经后学习PLC就方便多了,再不用和同事们抢电缆了.希望有兴趣的朋友和我多多讨论啊.

     马上要过年了,明天就要发工资了,我今天把这个实例贴出来,这一年的工作和学习就告一段落了,朋友们,我们明年再见了.

一.原理和功能介绍

1.PROTEUS模拟的效果图如下:

我简要介绍一下系统的组成及各部分的功能

本系统主要有五部分构成:

1.显示和键盘

显示采用的是最常用最便宜的1602液晶,内藏HD44780,且内含简单字库.指令简单,容易上手

键盘部分由7个按键和一个电位器旋钮组成系统的输入部分.(如图)

2.运算处理单元

本系统的所有操作都由PIC16F877A单片机完成(选择他的理由:端口多,不需扩展)

3.存储单元

主要由一片24C01的1K内存的EEPROM完成,此芯片与单片机通过I2C总线通信,具有占有端口少的优点.

4.输出控制单元

由一片光耦和一个双向晶闸管组成.单片机输出的脉冲通过控制光耦的通断控制双向晶闸管的通断,从而控制电灯的亮度.

5.时钟单元

这是一个附加单元,对本系统无关键作用,只是为了增加附加值.有一片DS1302时钟芯片和一个32768Hz的晶振组成

功能说明

1.一上电,系统显示"ADJUST"可调状态,此时旋钮调节光的亮度,即PWM波的占空比,如果此时按下"存储"键,则此时的亮度值被记录下来并保存,共可以记录下三个不同的亮度.

2.如你按下"模式"键,此时旋钮被屏蔽,只能调用你存储的三个亮度值,分别为"MODE 1","MODE 2","MODE 3"方便你的使用.

3.时间设置的两个按键可以实时调整时间.

二.程序(picc 8.05)

1.主程序

/***************************************************************
* 标题：PWM输出                                                   *
* 作者：Wujieflash                                                  *
* 日期：2008年1月25日                                          *
* 功能：使用PIC的CCP模块输出PWM波                 *
***************************************************************/
#include <pic.h>
#include "LCD1602_init.h"
#include "ds1302.h"
#include "i2c.h"

static volatile       bit GODONE  @ ((unsigned)&ADCON0*8)+2;
uch k,kb,kmem;
void PWMinit()
{
  TRISC=0xfb;//设置C口状态
 PORTC=0x00;
 PR2=0xff;      //设置PWM波的周期
 CCP1CON=0x0c;
 CCPR1L=0x1c;//设置占空比
 
 T2CON=0x01; //设置1:4预分频
 TMR2ON=1;   //开启定时器2
}
/*-------------------------------------------------------*/

void AD_convert_init()     //旋钮采样输出
{
 uch i;
 ADCON1=0x00;
 ADCON0=0x01;
 for(i=0;i<100;i++);
 GODONE=1;
}
/*-------------------------------------------------------*/

void ADScan()
{
 
 if(GODONE==0)
 {
  if(ADRESH>0xe3)ADRESH=0xe3;   //限制占空比的范围
  if(ADRESH<0x1c)ADRESH=0x1c;
  CCPR1L=ADRESH;
  GODONE=1;
  
 }
}
/*-------------------------------------------------------*/

void KeyScan()             //设置时间子程序
{
 int d;
 
 if(RC6==0)  //设置键按下
 {
  k++;    //选定入口值
  k=k%3;
 }
 while(1)
 {
  if(RC6==1)break;//等待按键松开
 }
 switch(k)//键盘服务入口
 {
  case 1://设置分
  {
   d=R1302(0x83);//读取分
   d=d/16*10+d%16;//转换为16进制
   minute=flag;   //设置秒的闪烁标志
   hour=1;      //其余变量不闪烁
 
   if(minute==0)  //闪烁
   {
    WriteCommand_1602(0xce);
    WriteData_1602(0x00);
    WriteData_1602(0x00);
   }
   if(RC7==0)     //分数值加1
   {
    d++;
    if(d>0x3b)d=0;//大于59就为0
    d=d/10*16+d%10;
    W1302(0x82,d);//写入DS1302
    while(1)
    {
     if(RC7==1)break;//等待键松开
    }
   }
   break;
  }
  case 2://设置时
  {
   d=R1302(0x85);//读取时
   d=d/16*10+d%16;//转换为16进制
   hour=flag;   //设置秒的闪烁标志
   minute=1;      //其余变量不闪烁
 
   if(hour==0)  //闪烁
   {
    WriteCommand_1602(0xcb);
    WriteData_1602(0x00);
    WriteData_1602(0x00);
   }
   if(RC7==0)     //时数值加1
   {
    d++;
    if(d>0x17)d=0;//大于59就为0
    d=d/10*16+d%10;
    W1302(0x84,d);//写入DS1302
    while(1)
    {
     if(RC7==1)break;//等待键松开
    }
   }
   break;
  }
  case 0://设置完毕，不闪烁
  {
   minute=1;
   hour=1;
   break;
  }
 }
}
/*-------------------------------------------------------*/

void KeyScan1()               //输出显示子程序
{
 if(RC0==0)              //模式键
 {
  kb++;
  kb=kb%2;
 }
 while(1)
 {
  if(RC0==1)break;
 }
 switch(kb)
 {
  case 0:                        //可调模式,
  {
   ADON=1;                    //旋钮有效
   WriteCommand_1602(0x80);
   WriteData_1602('A');
   WriteData_1602('D');
   WriteData_1602('J');
   WriteData_1602('U');
   WriteData_1602('S');
   WriteData_1602('T');
   WriteCommand_1602(0x8a);
   WriteData_1602(0x00);
   WriteData_1602(0x00);
   WriteData_1602(0x00);
   WriteData_1602(0x00);
   WriteData_1602(0x00);
   WriteData_1602(0x00);
   
   if(RC5==0)                //存储键
   {
    kmem++;
    kmem=kmem%3;
   while(1)
   {
    if(RC5==1)break;
   }
    switch(kmem)
    {
     case 1:
     {
      w_24cl01b(0x00,ADRESH);             //写入第一通道
      WriteCommand_1602(0x8a);
      WriteData_1602('C');
      WriteData_1602('H');
      WriteData_1602('1');
      WriteData_1602(0x00);
      WriteData_1602('O');
      WriteData_1602('K');
      break;
     }
     case 2:
     {
      w_24cl01b(0x01,ADRESH);        //写入第二通道
      WriteCommand_1602(0x8a);
      WriteData_1602('C');
      WriteData_1602('H');
      WriteData_1602('2');
      WriteData_1602(0x00);
      WriteData_1602('O');
      WriteData_1602('K');
      break;
     }
     case 0:
     {
      w_24cl01b(0x02,ADRESH);            //写入第三通道
      WriteCommand_1602(0x8a);
      WriteData_1602('C');
      WriteData_1602('H');
      WriteData_1602('3');
      WriteData_1602(0x00);
      WriteData_1602('O');
      WriteData_1602('K');
      break;
     }
    }
   }
   break;
  }
  case 1:                         //"MODE"模式
  {
   ADON=0;                    //屏蔽旋钮
   WriteCommand_1602(0x80);
   WriteData_1602('M');
   WriteData_1602('O');
   WriteData_1602('D');
   WriteData_1602('E');
   WriteData_1602(0x0);
   WriteData_1602(0x0);

   if(RC1==0)                             //模式一
   {
    CCPR1L=r_24cl01b(0x00);
    ADRESH=r_24cl01b(0x00);
    while(1)
       {
         if(RC1==1)break;
       }
       WriteCommand_1602(0x8a);
    WriteData_1602('C');
    WriteData_1602('H');
    WriteData_1602('1');
    WriteData_1602(0x00);
    WriteData_1602(0x00);
    WriteData_1602(0x00);
   }
   if(RC3==0)              //模式二
   {
    CCPR1L=r_24cl01b(0x01);
    ADRESH=r_24cl01b(0x01);
    while(1)
       {
         if(RC3==1)break;
       }
       WriteCommand_1602(0x8a);
    WriteData_1602('C');
    WriteData_1602('H');
    WriteData_1602('2');
    WriteData_1602(0x00);
    WriteData_1602(0x00);
    WriteData_1602(0x00);
   }
   if(RC4==0)            //模式三
   {
    CCPR1L=r_24cl01b(0x02);
    ADRESH=r_24cl01b(0x02);
    while(1)
       {
         if(RC4==1)break;
       }
       WriteCommand_1602(0x8a);
    WriteData_1602('C');
    WriteData_1602('H');
    WriteData_1602('3');
    WriteData_1602(0x00);
    WriteData_1602(0x00);
    WriteData_1602(0x00);
   }
   break;
  }
 }
}
/*-------------------------------------------------------*/

void DisplaySet(uch val)              //显示占空比子程序
{
 int pwm,pwm_shi,pwm_ge;
 if(val>0xe3)val=0xe3;
 if(val<0x1c)val=0x1c;
 pwm=val*100/255;
 pwm_shi=0x30+pwm/10;
 pwm_ge=0x30+pwm%10;
 WriteCommand_1602(0xc4);
 WriteData_1602(pwm_shi);
 WriteData_1602(pwm_ge);
 WriteData_1602('%');
}
/*-------------------------------------------------------*/

void main()
{
 init1602();
 i2c_init();
 AD_convert_init();
 TMR1init();
 PWMinit();
 while(1)
 {
  ADScan();                            
  DisplaySet(ADRESH);
  FlashMaohao();
  DisplayTime1602();
  KeyScan();
  KeyScan1();
 }
}
2.I2C子程序

/***************************************************************
* 标题：I2C协议                                            *
* 作者：Wujieflash                                             *
* 日期：2008年2月2日                                          *
* 功能：I2C通讯协议                                *
***************************************************************/
#define nop() asm("nop")
#define SCL   RD6
#define SDA   RD7

void i2c_init()
{
 TRISD6=0;
 TRISD7=0;
 RD6=0;
 RD7=0;
}
/*------------------------------------------------------------------*/
//start
void start_iic()
{
 SDA=1;
 nop();
 nop();
 SCL=1;
 nop();
 nop();
 nop();
 nop();
 SDA=0;
 nop();
 nop();
 SCL=0;//it is ready to send data
 nop();
}
/*------------------------------------------------------------------*/ 
//stop
void stop_iic(void)
{
 SDA=0;
 nop();
 nop();
 SCL=1;
 nop();
 nop();
 nop();
 nop();
 SDA=1;
 nop();
}
/*------------------------------------------------------------------*/
//send ack
void ack_iic()
{
 SDA=0;
 nop();
 nop();
 SCL=1;
 nop();
 nop();
 nop();
 nop();
 SCL=0;
 nop();
 nop();
}
/*------------------------------------------------------------------*/
//send nack
void nack_iic()
{
 SDA=1;
 nop();
 nop();
 SCL=1;
 nop();
 nop();
 nop();
 nop();
 SCL=0;
 nop();
 nop();
}
/*------------------------------------------------------------------*/
//send 1 byte
void send_iic(char c)
{
 uch i;
 for(i=0;i<8;i++)
 {
  SCL=0;
  if((c<<i)&0x80)
  {
   SDA=1;
  }
  else
  {
   SDA=0;
  }
  SCL=1;
  nop();
  nop();
  nop();
  nop();
  SCL=0;
  nop();
 }
  SDA=1;
  TRISD7=1;
  SCL=1;
  nop();
  nop();
  nop();
  nop();
  SCL=0;
  nop();
  TRISD7=0;
}
/*------------------------------------------------------------------*/
//receive 1 byte
uch receive_iic(void)
{
 uch rxbuf=0;
 uch i;
 //SDA=1;
 
 TRISD7=1;
 for(i=0;i<8;i++)
 {
  SCL=0;
  nop();
  nop();
  nop();
  nop();
  nop();
  SCL=1;
  nop();
  nop();
  rxbuf=rxbuf<<1;
  if(SDA==1)
  {
   rxbuf=rxbuf+1;
  }
  nop();
  nop();
 }
 
 SCL=0;
 nop();
 TRISD7=0;
 return(rxbuf);
}
/*------------------------------------------------------------------*/
//write 24cl01b subroutine
void w_24cl01b(unsigned char addr,unsigned char data)
{
 int i;
 start_iic();
 send_iic(0xa0);
 send_iic(addr);
 send_iic(data);
 stop_iic();
 for(i=0;i<500;i++);
}
/*------------------------------------------------------------------*/ 
//read 24cl01b subroutine
char r_24cl01b(unsigned char addr)
{
 int i;
 uch data;
 start_iic();
 send_iic(0xa0);
 send_iic(addr);
 
 start_iic();
 send_iic(0xa1);
 
 data=receive_iic();
    nack_iic();
 stop_iic();
 for(i=0;i<1000;i++);
 return(data);
 }

3.1602操作子程序

/***************************************************************
* 标题：LCD1602驱动                                            *
* 作者：Wujieflash                                             *
* 日期：2008年1月29日                                          *
* 功能：驱动1602液晶的驱动程序                                 *
***************************************************************/
#include <pic.h>

#define RS RD0
#define RW RD1
#define E  RD2

#define uch unsigned char

//延时子程序
void delay_1602(int time)
{
 while(time--);
}
/*-----------------------------------------------*/

//写命令子程序
void WriteCommand_1602(uch command)
{
 RS=0;
 RW=0;
 
 delay_1602(400);
 E=1;
 PORTB=command;
 E=0;
}
/*-----------------------------------------------*/

//写数据子程序
void WriteData_1602(uch data)
{
 RS=1;
 RW=0;
 
 delay_1602(400);
 E=1;
 PORTB=data;
 E=0;
}
/*-----------------------------------------------*/

//初始化LCD1602子程序
void init1602()
{
 TRISD0=0;
 TRISD1=0;
 TRISD2=0;
 RD0=0;
 RD1=0;
 RD2=0;
 TRISB=0;
 PORTB=0;
 WriteCommand_1602(0x01);
 WriteCommand_1602(0x38);
 WriteCommand_1602(0x0c);
 WriteCommand_1602(0x80);
 //WriteData_1602('M');
 //WriteData_1602('O');
 //WriteData_1602('D');
 //WriteData_1602('E');
 //WriteData_1602(':');
 WriteCommand_1602(0xc0);
 WriteData_1602('P');
 WriteData_1602('W');
 WriteData_1602('M');
 WriteData_1602(':');
}
4.时钟子程序

/***************************************************************
* 标题：DS1302数字时钟                                         *
* 作者：Wujieflash                                             *
* 日期：2008年1月29日                                          *
* 功能：显示日历与时间的程序                                   *
***************************************************************/
#define  RST  RD3
#define  SCLK RD4
#define  IO   RD5
uch flag=0;
uch minute=1,hour=1;
uch clock[]={0};
uch DisCash[]={0x00,0x30,0x09,0x16,0x01,0x03,0x09}; 
/////往1302写入1Byte数据////////////////////////
void RTInputByte(uch d)
{
    uch i;
    TRISD3=0;
    TRISD4=0;
    TRISD5=0;
    for(i=8; i>0; i--)
    {
      IO = d&0x01;      //取最低位
      SCLK = 1;         //上升沿发送
      SCLK = 0;         //恢复
      d = d >> 1;      
    }
}
///////从1302读取1Byte数据////////////////////////
uch RTOutputByte(void)
{
    uch i,val=0;
    TRISD5=1;            //设置为输入
    for(i=8; i>0; i--)
    {
      val = val >>1;        
      if(IO)val=val|0x80;// 从最低位开始接收
      SCLK = 1;          //下降沿接收
      SCLK = 0;
    }
     TRISD5=0;
     return(val);
}
///////先写地址，后写命令/数据//////////////////////////
void W1302(uch ucAddr, uch ucDa)
{
    RST = 0;
    SCLK = 0;
    RST = 1;                  //打开DS1302
    RTInputByte(ucAddr);      // /* 地址，命令 */
    RTInputByte(ucDa);        // /* 写1Byte数据*/
    SCLK = 1;
    RST = 0;                  //关闭DS1302
}
///////先写地址，后读命令/数据////////////////////////
uch R1302(uch ucAddr)
{
    uch ucData;
    RST = 0;
    SCLK = 0;
    RST = 1;
    RTInputByte(ucAddr);            // /* 地址，命令 */
    ucData = RTOutputByte();        // /* 读1Byte数据 */
    SCLK = 1;
    RST = 0;
    return(ucData);
}
/////////向1302写入 秒 分 时 日 月 星期 年 */////////////
void Set1302(uch *pClock)
{
    uch i;
    uch ucAddr = 0x80;          //起使地址
    W1302(0x8e,0x00);           ///* 控制命令,WP=0,允许写操作*/
    for(i =7; i>0; i--)
    {
      W1302(ucAddr,*pClock);    ///* 秒 分 时 日 月 星期 年 */
      pClock++;
      ucAddr +=2;               //写地址加2
    }
     W1302(0x8e,0x80);          // /* 控制命令,WP=1,写保护*/
}
////////从1302读出 秒 分 时 日 月 星期 年 *//////////////////
void v_Get1302(unsigned char  ucCurtime[])
{
unsigned char i;
unsigned char ucAddr = 0x81;
for(i=0;i<7;i++)
   {
      ucCurtime[i] = R1302(ucAddr);///*格式为: 秒 分 时 日 月 星期 年 */
      ucAddr += 2;
   }
}

//使用LCD1602显示
void DisplayTime1602()
{
 uch hour_shi,hour_ge,minute_shi,minute_ge;
 v_Get1302(clock);
 hour_shi=0x30+clock[2]/16;
 hour_ge=0x30+clock[2]%16;
 minute_shi=0x30+clock[1]/16;
 minute_ge=0x30+clock[1]%16;
 
 if(hour==1)
 {WriteCommand_1602(0x80+0x4b);
  WriteData_1602(hour_shi);
  WriteData_1602(hour_ge);
 }
 
 if(minute==1)
 {WriteCommand_1602(0x80+0x4e);
  WriteData_1602(minute_shi);
  WriteData_1602(minute_ge);
 }
}
//TRM1初始化子程序
void TMR1init()
{
 //TRM1 INITIAL
   T1CON=0X30;       //8分频
   TMR1IF=0;         //清中断标志
   TMR1IE=1;         //使能定时器1中断
   TMR1L=0XDB;       //初始值（定时0.5S）
   TMR1H=0X0B;
   TMR1ON=1;         //开定时器1
}

//冒号闪烁子程序
void FlashMaohao()
{
 if(TMR1IF==1)
 {
  TMR1ON=0;
  TMR1IF=0;
  TMR1L=0XDB;     //重新付初值
     TMR1H=0X0B;
     flag++;
     flag=flag%2;    //闪烁标志在0-1间翻转
     TMR1ON=1;
 }
 if(flag==0)
 {
  WriteCommand_1602(0xcd);
  WriteData_1602(':');
 }
 if(flag==1)
 {
  WriteCommand_1602(0xcd);
  WriteData_1602(0x00);
 }
}

三.总结

     虽然是完成了,但还有很多遗憾:

     1.并没有完全仿真出来,主要由于软件需要的数字和模拟器件太多,资源太多,运行不过来.

     2.有些实物已经验证的程序在PROTEUS上却失败,如24C01能写入,却读出来总为0,事实却可以的.

     3.程序逻辑性还是差了点,感觉很混乱.

大家如有兴趣,帮我改改I2C的程序,让他能仿真出来.

最后祝大家新年快乐,万事如意!

      为了把KS0108系列的液晶吃透,特别制作了这款万年历,感觉效果还是不错的.希望大家分享我的喜悦,毕竟有了更多志同道合的朋友支持,我才能更进一步提高.

一,原理介绍

说明:

1.单片机还是采用PIC中最经典的PIC16F877A,端口多,功能全,特别是他有8K的ROM,这是我选择的主要原因,因为储存液晶的字库需要很大的空间.

2.液晶显示还是用的KS0108系列,主要是他性价比高,指令简单,特别是公司也在用.

3.时钟/日历芯片用的DALLOS的DS1302芯片,他可以储存从2000-2099年的日历,及实时时钟,可以方便的读写.

4.温度测量还是用的DS18B20,这在我上一实例中已经用过,有兴趣可以查阅.

5.本万年历可以显示实时时钟,精确到秒,年,月,日,星期,阴历,温度,生肖等,显示的信息量大.

6,可以通过按键自由设定时钟及日历,按"设置"键可以在秒,分,时,日,月,星期,年之间来回切换,要设置的单元以闪烁提醒.通过"+"."-"按键可以把要设置的单元设定到预想状态.

二,程序说明:

本程序有许多小的模块,现分列如下:

1.主程序

/***************************************************
* 标题：万年历                                        *
* 作者：Wujieflash                                  *
* 日期：2008年1月13日                          *
* 说明：包含文件<ziku.h>,<lcd_init.h> 

                         <DS1302.H>,<DS18B20.H>

                         <KEYSCAN.H>,<YILI.H>  *                                 
***************************************************/
#include <pic.h>
#include "ziku.h"
#include "lcd_init.h"
#include "ds1302.h"
#include "ds18b20.h"
#include "keyscan.h"
#include "yinli.h"

//子程序
//LCD显示空白边框子程序
void LCDShowTable()
{
 uch i;
 SlectScreen(1);     //写左半屏
 SetLine(0);         //起使页
 SetColumn(0);       //起使列
 for(i=0;i<64;i++)
 {
  if((i==0)||(i==63))WriteData(0xff);//第1、63列竖线
  else WriteData(0x01);              //最上面一行线
 }
 for(i=1;i<7;i++)
 {
  SetLine(i);
  SetColumn(0);
  WriteData(0xff); //竖线
  SetColumn(63);
  WriteData(0xff); //竖线 
 }
 SetLine(7);
 SetColumn(0);
 for(i=0;i<64;i++)
 {
  if((i==0)||(i==63))WriteData(0xff);
  else WriteData(0x80);             //最下面的横线
 }
 
 SlectScreen(2);//写右半屏
 SetLine(0);
 SetColumn(0);
 for(i=0;i<64;i++)
 {
  if(i==63)WriteData(0xff);
  else WriteData(0x01);
 }
 SetLine(4);
 SetColumn(0);
 for(i=0;i<64;i++)
 {
  if(i==63)WriteData(0xff);
  else WriteData(0x01);
 }
 for(i=1;i<7;i++)
 {
  SetLine(i);
  SetColumn(63);
  WriteData(0xff); 
 }
 SetLine(7);
 SetColumn(0);
 for(i=0;i<64;i++)
 {
  if(i==63)WriteData(0xff);
  else WriteData(0x80);
 } 
}
/*----------------------------------------------------------*/

//显示固定字符子程序
void LCDShowGudingWord()
{
 Show8X16_2(0,24,s0);
 Show8X16_2(0,32,s0);
 Show8X16(2,1,s0);
 Show8X16(2,9,s0);
 Show16X16_3(6,40,ri);
 Show16X32(2,24,ss0);
 Show16X32(2,40,ss0);
 Show8X16_2(0,64,s0);
 Show8X16_2(0,72,s0);
 Show8X16_2(0,80,maohao);
 Show8X16_2(0,88,s0);
 Show8X16_2(0,96,s0);
 Show8X16_2(0,104,maohao);
 Show8X16_2(0,112,s0);
 Show8X16_2(0,119,s0);
 Show8X16(2,80,s0);
 Show8X16(2,88,s0);
 Show16X16_2(4,64,shiyi);
 Show16X16_2(4,80,yue);
 Show16X16_2(4,95,chu);
 Show16X16_2(4,111,yi);
 Show16X16_3(6,72,sheng);
 Show16X16_3(6,88,xiao);
 Show16X16_3(6,104,shu);
 
 Show16X16_2(0,40,nian);
 Show16X16(4,2,yue);
 Show16X16_3(6,8,xing);
 Show16X16_3(6,24,qi);
 Show16X16(2,96,danwei1);
 Show8X16_2(0,8,s2);
 Show8X16_2(0,16,s0);
}
/*----------------------------------------------------------*/

//TRM1初始化子程序
void TMR1init()
{
 //TRM1 INITIAL
   T1CON=0X30;       //8分频
   TMR1IF=0;         //清中断标志
   TMR1IE=1;         //使能定时器1中断
   TMR1L=0XDB;       //初始值（定时0.5S）
   TMR1H=0X0B;
   TMR1ON=1;         //开定时器1
}

//冒号闪烁子程序
void FlashMaohao()
{
 static uch timecount=0;
 if(TMR1IF==1)
 {
  TMR1ON=0;
  TMR1IF=0;
  TMR1L=0XDB;     //重新付初值
     TMR1H=0X0B;
     flag++;
     flag=flag%2;    //闪烁标志在0-1间翻转
     TMR1ON=1;
  timecount++;
  if(timecount==120)//1分钟采样一次温度
  {
   timecount=0;
   get_temp();   //温度转换子程序
  }
 }
 if(flag==0)
 {
  Show8X16_2(0,80,maohao);
  Show8X16_2(0,104,maohao);
 }
 if(flag==1)
 {
  Show8X16_2(0,80,noshu);//清除
  Show8X16_2(0,104,noshu);
 }
}

//主程序
void main()
{
 TMR1init();             //定时器1初始化
 keyinit();              //键盘初始化
 LCDinit();              //LCD操作初始化
 LCDShowTable();         //显示空白表格
 LCDShowGudingWord();    //显示固定字符
 //Set1302(DisCash);     //设置初始时间（默认写入我写程序的时间）
 get_temp();             //读取温度
 while(1)
 {
  v_Get1302(clock);   //读取时间、日历
  display();
  YangToYin(clock[6]/16*10+clock[6]&0x0f,clock[4]/16*10+clock[4]&0x0f,clock[3]/16*10+clock[3]&0x0f);
  FlashMaohao();      //冒号闪烁
  KeyScan();         //键盘扫描
 }
}

2.测温程序:

/***************************************************
* 标题：DS18B20测温                             *
* 作者：Wujieflash                                   *
* 日期：2008年1月13日                           *
* 说明：使用DS18B20芯片测温                *
***************************************************/
# define DQ RC3                                //定义18B20数据端口
# define DQ_DIR TRISC3                         //定义18B20D口方向寄存器
# define DQ_HIGH() DQ_DIR =1                   //设置数据口为输入
# define DQ_LOW() DQ = 0; DQ_DIR = 0           //设置数据口为输出
 unsigned char  TLV=0 ;                        //采集到的温度高8位
 unsigned char  THV=0;                         //采集到的温度低8位
 unsigned char TZ=0;                           //转换后的温度值整数部分
 
 //------------------------------------------------
//延时函数

//系统初始化函数
void init()
{
  ADCON1=0X07;                                //设置A口为普通数字口
  TRISA=0X00;                                 //设置A口方向为输出
  //TRISC3=0;                                 //设置D口方向为输出
}

//-----------------------------------------------
//复位DS18B20函数
reset(void)
{
  char presence=1;
  while(presence)
  {
    DQ_LOW() ;                                //主机拉至低电平
    delay(2,90);                              //延时503us
    DQ_HIGH();                                //释放总线等电阻拉高总线,并保持15~60us
    delay(2,8);                               //延时70us
    if(DQ==1) presence=1;                     //没有接收到应答信号，继续复位
    else presence=0;                          //接收到应答信号
    delay(2,70);                              //延时430us
   }
  }

//-----------------------------------------------
//写18b20写字节函数
void write_byte(uch val)
{
 uch i;
 uch temp;
 for(i=8;i>0;i--)
 {
   temp=val&0x01;                            //最低位移出
   DQ_LOW();
   NOP();
   NOP();
   NOP();
   NOP();
   NOP();                                    //从高拉至低电平,产生写时间隙
   if(temp==1)  DQ_HIGH();                   //如果写1,拉高电平
   delay(2,7);                               //延时63us
   DQ_HIGH();
   NOP();
   NOP();
   val=val>>1;                               //右移一位
  }
}

//------------------------------------------------
//18b20读字节函数
uch read_byte(void)
{
 uch i;
 uch value=0;                                //读出温度
 static bit j;
 for(i=8;i>0;i--)
 {
   value>>=1;
   DQ_LOW();
   NOP();
   NOP();
   NOP();
   NOP();                                   //6us
   DQ_HIGH();                               //拉至高电平
   NOP();
   NOP();
   NOP();                                //4us
   j=DQ;
   if(j) value|=0x80;
   delay(2,7);                             //63us
  }
  return(value);
}

//-------------------------------------------------
//启动温度转换函数
void get_temp()
{
int i;
DQ_HIGH();
reset();                                 //复位等待从机应答
write_byte(0XCC);                        //忽略ROM匹配
write_byte(0X44);                        //发送温度转化命令 
for(i=10;i>0;i--)
    {
       
        delay(201,132);                       //调用多次显示函数，确保温度转换完成所需要的时间
    }
reset();                                 //再次复位，等待从机应答
write_byte(0XCC);                        //忽略ROM匹配
write_byte(0XBE);                        //发送读温度命令
TLV=read_byte();                         //读出温度低8
THV=read_byte();                         //读出温度高8位
DQ_HIGH();                               //释放总线
TZ=(TLV>>4)|(THV<<4)&0X3f;               //温度整数部分
ChangeToLCD(2,80,TZ);
}

3.日历显示程序

/***************************************************
* 标题：DS1302读写                                *
* 作者：Wujieflash                                   *
* 日期：2008年1月14日                           *
* 说明：日历显示范围：2000年--2099年  *
***************************************************/
#define  RST  RC0
#define  SCLK RC1
#define  IO   RC2
uch flag=0;
uch second=1,minute=1,hour=1,year=1,month=1,date=1,day=1;
uch clock[]={0};
uch DisCash[]={0x00,0x30,0x09,0x16,0x01,0x03,0x09}; 
/////往1302写入1Byte数据////////////////////////
void RTInputByte(uch d)
{
    uch i;
    TRISC=0x00;
    for(i=8; i>0; i--)
    {
      IO = d&0x01;      //取最低位
      SCLK = 1;         //上升沿发送
      SCLK = 0;         //恢复
      d = d >> 1;      
    }
}
///////从1302读取1Byte数据////////////////////////
uch RTOutputByte(void)
{
    uch i,val=0;
    TRISC2=1;            //设置为输入
    for(i=8; i>0; i--)
    {
      val = val >>1;        
      if(IO)val=val|0x80;// 从最低位开始接收
      SCLK = 1;          //下降沿接收
      SCLK = 0;
    }
     return(val);
}
///////先写地址，后写命令/数据//////////////////////////
void W1302(uch ucAddr, uch ucDa)
{
    RST = 0;
    SCLK = 0;
    RST = 1;                  //打开DS1302
    RTInputByte(ucAddr);      // /* 地址，命令 */
    RTInputByte(ucDa);        // /* 写1Byte数据*/
    SCLK = 1;
    RST = 0;                  //关闭DS1302
}
///////先写地址，后读命令/数据////////////////////////
uch R1302(uch ucAddr)
{
    uch ucData;
    RST = 0;
    SCLK = 0;
    RST = 1;
    RTInputByte(ucAddr);            // /* 地址，命令 */
    ucData = RTOutputByte();        // /* 读1Byte数据 */
    SCLK = 1;
    RST = 0;
    return(ucData);
}
/////////向1302写入 秒 分 时 日 月 星期 年 */////////////
void Set1302(uch *pClock)
{
    uch i;
    uch ucAddr = 0x80;          //起使地址
    W1302(0x8e,0x00);           ///* 控制命令,WP=0,允许写操作*/
    for(i =7; i>0; i--)
    {
      W1302(ucAddr,*pClock);    ///* 秒 分 时 日 月 星期 年 */
      pClock++;
      ucAddr +=2;               //写地址加2
    }
     W1302(0x8e,0x80);          // /* 控制命令,WP=1,写保护*/
}
////////从1302读出 秒 分 时 日 月 星期 年 *//////////////////
void v_Get1302(unsigned char  ucCurtime[])
{
unsigned char i;
unsigned char ucAddr = 0x81;
for(i=0;i<7;i++)
   {
      ucCurtime[i] = R1302(ucAddr);///*格式为: 秒 分 时 日 月 星期 年 */
      ucAddr += 2;
   }
}

/////////与LCD的显示接口//////////////////////
void display()
{
 uch i;
 for(i=0;i<7;i++)
 {
  clock[i]=clock[i]/16*10+clock[i]%16;//转换为十六进制
 }
 if(second==1)ChangeToLCD2(0,111,clock[0]);//显示秒
    if(minute==1)ChangeToLCD2(0,88,clock[1]); //显示分
    if(hour==1)ChangeToLCD2(0,64,clock[2]);   //显示时
    if(year==1)ChangeToLCD2(0,24,clock[6]);   //显示年
 if(month==1)ChangeToLCD(2,2,clock[4]);    //显示月
 if(date==1)ChangeToLCD3(2,24,clock[3]);   //显示日
 if(day==1)ChangeToLCD4(6,40,clock[5]);   //显示星期
 ChangeToLCD5(6,104,clock[6]);             //显示生肖
 
} 

4.按键扫描与服务程序

/***************************************************
* 标题：按键扫描和服务                             *
* 作者：Wujieflash                                     *        
* 日期：2008年1月17日                             *
* 说明：当按键按下，选中的单元就会闪烁 *
***************************************************/
uch k=0;

//键盘初始化子程序
void keyinit()
{
 TRISD0=1;
 TRISD0=1;
 TRISD0=1;
}
/*----------------------------------------------------------*/

//键盘扫描子程序
void KeyScan()
{
 int d;
 if(RD0==0)  //设置键按下
 {
  k++;    //选定入口值
  k=k%8;
 }
 while(1)
 {
  if(RD0==1)break;//等待按键松开
 }
 switch(k)//键盘服务入口
 {
  case 1://设置秒
  {
   d=R1302(0x81);//读取秒
   d=d/16*10+d%16;//转换为16进制
   second=flag;   //设置秒的闪烁标志
   minute=1;      //其余变量不闪烁
   hour=1;
   year=1;
   month=1;
   date=1;
   day=1;
   if(second==0)  //闪烁
   {
    Show8X16_2(0,111,noshu);
    Show8X16_2(0,119,noshu);
   }
   if(RD1==0)     //秒数值加1
   {
    d++;
    if(d>0x3b)d=0;//大于59就为0
    d=d/10*16+d%10;
    W1302(0x80,d);//写入DS1302
    while(1)
    {
     if(RD1==1)break;//等待键松开
    }
   }
   if(RD2==0)//数值减1
   {
    d--;
    if(d<0)d=0x3b;//小于0就写59
    d=d/10*16+d%10;
    W1302(0x80,d);
    while(1)
    {
     if(RD2==1)break;
    }
   }
   break;
  }
  case 2://设置分
  {
   d=R1302(0x83);
   d=d/16*10+d%16;
   minute=flag;
   second=1;
   hour=1;
   year=1;
   month=1;
   date=1;
   day=1;
   if(minute==0)
   {
    Show8X16_2(0,96,noshu);
    Show8X16_2(0,88,noshu);
   }
   if(RD1==0)
   {
    d++;
    if(d>0x3b)d=0;
    d=d/10*16+d%10;
    W1302(0x82,d);
    while(1)
    {
     if(RD1==1)break;
    }
   }
   if(RD2==0)
   {
    d--;
    if(d<0)d=0x3b;
    d=d/10*16+d%10;
    W1302(0x82,d);
    while(1)
    {
     if(RD2==1)break;
    }
   }
   break;
  }
  case 3://设置时
  {
   d=R1302(0x85);
   d=d/16*10+d%16;
   hour=flag;
   second=1;
   minute=1;
   year=1;
   month=1;
   date=1;
   day=1;
   if(hour==0)
   {
    Show8X16_2(0,64,noshu);
    Show8X16_2(0,72,noshu);
   }
   if(RD1==0)
   {
    d++;
    if(d>0x17)d=0;
    d=d/10*16+d%10;
    W1302(0x84,d);
    while(1)
    {
     if(RD1==1)break;
    }
   }
   if(RD2==0)
   {
    d--;
    if(d<0)d=0x17;
    d=d/10*16+d%10;
    W1302(0x84,d);
    while(1)
    {
     if(RD2==1)break;
    }
   }
   break;
  }
  case 4://设置日期
  {
   d=R1302(0x87);
   d=d/16*10+d%16;
   date=flag;
   second=1;
   minute=1;
   year=1;
   month=1;
   hour=1;
   day=1;
   if(date==0)
   {
    Show16X32(2,24,noshu2);
    Show16X32(2,40,noshu2);
   }
   if(RD1==0)
   {
    d++;
    if(d>0x1f)d=1;
    d=d/10*16+d%10;
    W1302(0x86,d);
    while(1)
    {
     if(RD1==1)break;
    }
   }
   if(RD2==0)
   {
    d--;
    if(d<1)d=0x1f;
    d=d/10*16+d%10;
    W1302(0x86,d);
    while(1)
    {
     if(RD2==1)break;
    }
   }
   break;
  }
  case 5://设置月
  {
   d=R1302(0x89);
   d=d/16*10+d%16;
   month=flag;
   second=1;
   minute=1;
   year=1;
   hour=1;
   date=1;
   day=1;
   if(month==0)
   {
    Show8X16(2,2,noshu);
    Show8X16(2,10,noshu);
   }
   if(RD1==0)
   {
    d++;
    if(d>0x0c)d=1;
    d=d/10*16+d%10;
    W1302(0x88,d);
    while(1)
    {
     if(RD1==1)break;
    }
   }
   if(RD2==0)
   {
    d--;
    if(d<1)d=0x0c;
    d=d/10*16+d%10;
    W1302(0x88,d);
    while(1)
    {
     if(RD2==1)break;
    }
   }
   break;
  }
  case 6://设置星期
  {
   d=R1302(0x8b);
   d=d/16*10+d%16;
   day=flag;
   second=1;
   minute=1;
   year=1;
   hour=1;
   date=1;
   month=1;
   if(day==0)
   {
    Show16X16_3(6,40,noshu3);
   }
   if(RD1==0)
   {
    d++;
    if(d>0x07)d=1;
    d=d/10*16+d%10;
    W1302(0x8a,d);
    while(1)
    {
     if(RD1==1)break;
    }
   }
   if(RD2==0)
   {
    d--;
    if(d<1)d=0x07;
    d=d/10*16+d%10;
    W1302(0x8a,d);
    while(1)
    {
     if(RD2==1)break;
    }
   }
   break;
  }
  case 7://设置年
  {
   d=R1302(0x8d);
   d=d/16*10+d%16;
   year=flag;
   second=1;
   minute=1;
   month=1;
   hour=1;
   date=1;
   day=1;
   if(year==0)
   {
    Show8X16_2(0,24,noshu);
    Show8X16_2(0,32,noshu);
   }
   if(RD1==0)
   {
    d++;
    if(d>0x63)d=0;
    d=d/10*16+d%10;
    W1302(0x8c,d);
    while(1)
    {
     if(RD1==1)break;
    }
   }
   if(RD2==0)
   {
    d--;
    if(d<0)d=0x63;
    d=d/10*16+d%10;
    W1302(0x8c,d);
    while(1)
    {
     if(RD2==1)break;
    }
   }
   break;
  }
  case 0://设置完毕，不闪烁
  {
   second=1;
   minute=1;
   month=1;
   hour=1;
   date=1;
   day=1;
   year=1;
   break;
  }
 }
}

5.液晶显示程序

/***************************************************
* 标题：LCD操作                                    *
* 作者：Wujieflash                                  *
* 日期：2008年1月12日                          *
* 说明：KS0108系列液晶不带字库          *
***************************************************/
#include <pic.h>

#define E    RA0        //液晶使能端
#define RW   RA1        //读写控制端
#define DI   RA2        //数据/指令通道
#define CSA  RA5        //片选
#define CSB  RA3        //片选
#define nop() asm("nop")

////////////////////////基本子函数///////////////////////
//延时
void delay(char x,char y)
{
  char z;
  do{
      z=y;
      do{;}while(--z);
     }while(--x);
 }
//其指令时间为：7+（3*（Y-1）+7）*（X-1）如果再加上函数调用的call 指令、页面设定、传递参数花掉的7 个指令。
//则是：14+（3*（Y-1）+7）*（X-1）。

//--------------------------------------------------
void LCDdelay()
{
 unsigned int i=500;
 while(i--)
 {;}
}
/*----------------------------------------------------*/

//状态检查
void CheckState()
{
 unsigned int dat;
 RW=1;                             //读状态
 DI=0;
 TRISB=0xff;                       //设置口为输入
 while(1)
 {
  E=1;                          //高电平读数据
  dat=PORTB&0x90;               //当4、7位为0时为正常状态
  E=0;
  if(dat==0x00)break;
 }
 TRISB=0x00;                       //恢复口为输出
}
/*----------------------------------------------------*/

//写显示数据
//dat:显示数据
void WriteData(unsigned char dat)
{
 CheckState();
 DI=1;                            //写数据
 RW=0;
 PORTB=dat;
 E=1;
 E=0;
}
/*---------------------------------------------------*/

//写指令
//command:操作LCD的指令
void WriteCommand(unsigned char dat)
{
 CheckState();
 RW=0;                          //写指令
 PORTB=dat;
 E=1;
 E=0;
}
/*---------------------------------------------------*/

//设定页地址----X:0--7
void SetLine(unsigned char line)
{
 line=line&0x07;               //0<=line<=7 
 line=line|0xb8;
 WriteCommand(line);
}
/*---------------------------------------------------*/

//设定列地址----Y:0--63
void SetColumn(unsigned char column)
{
 column=column&0x3f;          //0<=column<=63
 column=column|0x40;
 WriteCommand(column);
}
/*--------------------------------------------------*/

//设定开始行
void SetStartLine(unsigned char startline)
{
 startline=startline&0x3f;   //0<=startline<=63
 startline=startline|0xc0;
 WriteCommand(startline);
}
/*--------------------------------------------------*/

//开关显示
//1:开显示  0:关显示
void SetOnOff(unsigned char state)
{
 state=state|0x3e;
 WriteCommand(state);
}
/*--------------------------------------------------*/

//选择屏幕
//screen: 1:左屏 2:右屏
void SlectScreen(unsigned char screen)
{
 switch(screen)
 {
  case 1: CSA=0;
     CSB=1;//左屏
     break;
  case 2: CSA=1;
    CSB=0;//右屏
    break;
 }
}
/*--------------------------------------------------*/

//清屏
//screen: 1:左屏 2:右屏
void ClearScreen(unsigned char screen)
{
 unsigned char i,j;
 SlectScreen(screen);
 for(i=0;i<8;i++)
 {
  SetLine(i);
  for(j=0;j<64;j++)
  {
   WriteData(0x00);
   WriteData(0x00);
  }
 }
}
/*---------------------------------------------------*/

//显示一个16X16的汉字
void Show16X16(unsigned char line,unsigned char column,const unsigned char *pt)
{
 unsigned char i,column_temp;
 column_temp=column;
 SlectScreen(1);                      //选通左屏
 SetColumn(column);                   //设置起始列
 SetLine(line);                       //设置行
 for(i=0;i<16;i++)
 {
  if(column>=64)                   //如果列>=64，则选通右屏
  {
   SlectScreen(2);
   column=column%64;            //设置右屏起始列
   SetColumn(column);
   SetLine(line);
  } 
  WriteData(*pt);                  //写数据
  *pt++;//
  column++;
 }
 SlectScreen(1);
 SetLine(line+1);                    //设置汉字下半部分显示页
 column=column_temp;
 SetColumn(column);
 for(i=0;i<16;i++)
 {
  if(column>=64)
  {
   SlectScreen(2);
   column=column%64;
   SetColumn(column);
   SetLine(line+1);
  } 
  WriteData(*pt);
  *pt++;
  column++;
 }
}
/*-------------------------------------------------------*/

//显示一个16X16的汉字带上划线
void Show16X16_2(unsigned char line,unsigned char column,const unsigned char *pt)
{
 unsigned char i,column_temp;
 column_temp=column;
 SlectScreen(1);                      //选通左屏
 SetColumn(column);                   //设置起始列
 SetLine(line);                       //设置行
 for(i=0;i<16;i++)
 {
  if(column>=64)                   //如果列>=64，则选通右屏
  {
   SlectScreen(2);
   column=column%64;            //设置右屏起始列
   SetColumn(column);
   SetLine(line);
  } 
  WriteData(*pt|0x01);                  //写数据
  *pt++;
  column++;
 }
 SlectScreen(1);
 SetLine(line+1);                    //设置汉字下半部分显示页
 column=column_temp;
 SetColumn(column);
 for(i=0;i<16;i++)
 {
  if(column>=64)
  {
   SlectScreen(2);
   column=column%64;
   SetColumn(column);
   SetLine(line+1);
  } 
  WriteData(*pt);
  *pt++;
  column++;
 }
}
/*------------------------------------