当前位置：文档库 › 冯月芹实验四

冯月芹实验四

实验四SPI总线的DS1302实时钟控制

一、实验目的

1、了解电子电路PROTEUS软件的在单片机方面的仿真应用

2、掌握具有SPI总线DS1302、MAX7219芯片的应用及编程

二、实验要求

在PROTEUS环境下，利用DS1302实时钟芯片实现时间、日期的显示，并且具有调节时间、日期的功能，显示用共阴极LED显示。用串行芯片MAX7219驱动LED显示.

实现此功能的电路原理图如下所示：

1、显示“星期”的共阳极二极管接到单片机的P0口，P0口数据线接上拉电阻；

2、显示“时间”或“日期”，是采用MAX7219控制共阴极LED来实现

3、DS1302的IO脚接单片机的P1.1，时钟信号SCLK接单片机P1.0，复位信号/RST接单片机P1.2。DS1302的晶振在这里可以不接，电源、地线都省略。

4、MAX7219是用来驱动“时间”或“日期”的LED显示的。MAX7219的DIN信号脚接单片机的P2.0，/LOAD接单片机的P2.1，CLK接单片机的P2.2；

5、时间/日期的调整：按下调整键，再分别按相应的“星期”、“年”、“月”、“日”，“时”、“分”、“秒“键，即可以调整时间/日期；

6、在正常显示时，按下“时间/日期“切换键，即可以在显示时间或日期来回切换。

三、PROTEUS环境下的硬件设计

1、打开PROTEUS ISIS，在PROTEUS ISIS编辑窗口中单击列表上的“P”按钮，添加下列元器件：

在PROTEUS编辑窗口添加完元器件，连线。

三、软件设计

在KEIL环境下编辑、编译程序，生成*.HEX文件后，装入单片机即可

四、参考资料，网上查阅有关芯片的应用资料

五、部分参考程序

Ds1302的读写程序：

//写一个字节：

void inputbyte(uchar dd) //把数据dd写入DS1302的IO口，先送低位 {

uchar i;

ACC=dd;

for(i=8;i>0;i--)

{

dat=A0; //dat位DS1302的IO脚，连单片机的P1.1 clk=1;

clk=0;

ACC=ACC>>=1; //右移一位

}

//读一个字节：读出的数据保存在dd中

void outputbyte(void)

{

uchar i;

dat=1;

for(i=8;i>0;i--)

{

ACC=ACC>>=1; //右移1位

A7=dat; //dat=p1.1,先读出的是低位数据

clk=1;

clk=0;

}

dd=ACC;

}

//写入DS1302地址和数据子程序：addr代表寄存器地址；num代表要写入寄存器的数据

void write1302(uchar addr,uchar num) //

{

rst=0;

clk=0;

rst=1;

inputbyte(addr);

inputbyte(num);

clk=1;

rst=0;

}

//根据寄存器地址读出ds1302的相应数据子程序：

void read1302(uchar addr)

{

rst=0;

clk=0;

rst=1;

inputbyte(addr);

outputbyte(); //读出的数据在dd中 clk=1;

rst=0;

}

Max7219驱动程序

//管脚定义

sbit LOAD=P2^1; //MAX7219片选12脚

sbit DIN=P2^0; //MAX7219串行数据1脚

sbit CLK=P2^2; //MAX7219串行时钟13脚

//寄存器宏定义

#define DECODE_MODE 0x09 //译码控制寄存器

#define INTENSITY 0x0A //亮度控制寄存器

#define SCAN_LIMIT 0x0B //扫描界限寄存器

#define SHUT_DOWN 0x0C //关断模式寄存器

#define DISPLAY_TEST 0x0F //测试控制寄存器

//函数声明

void Write7219(unsigned char address，unsigned char dat); void Initial(void);

//地址、数据发送子程序

void Write7219(unsigned char address，unsigned char dat) {

unsigned char i;

ACC=address;

LOAD=0; //拉低片选线，选中器件

//发送地址

for (i=0;i<8;i++) //移位循环8次

{

CLK=0; //清零时钟总线

DIN=A7; //每次取最高位送max7219

CLK=1; //时钟上升沿，发送地址

address<<=1; //左移一位

}

//发送数据

ACC=dat;

for (i=0;i<8;i++)

{

CLK=0;

DIN=A7;

dat<<=1;

CLK=1; //时钟上升沿，发送数据

}

LOAD=1; //发送结束，上升沿锁存数据

}

//MAX7219初始化，设置MAX7219内部的控制寄存器

void Initial(void)

{

Write7219(SHUT_DOWN,0x01); //开启正常工作模式（0xX1）Write7219(DISPLAY_TEST,0x00); //选择工作模式（0xX0）

Write7219(DECODE_MODE,0x00); //选用不译码模式

Write7219(SCAN_LIMIT,0x07); //8只LED全用

Write7219(INTENSITY,0x04); //设置初始亮度

四年级科学实验总结

实验一实验名称：不会湿的纸团实验材料：水槽、塑料袋、玻璃杯、纸、气球、石块。实验步骤：1、把实验器材摆放整齐， 2、在水槽内倒入适量水（大约一半）， 3、把石块放入水中，水位会上升，说明石头要占据一定空间， 4、把纸放进玻璃杯，把杯子倒立垂直放入水中，拿出，发现纸并没有湿， 5、空气把纸和水隔开了，实验结论：空气是占据一定空间的。实验二实验名称：称量气球实验材料：气球、木条、细线实验步骤： 1、取一支轻质、粗细均匀的直木条，用确定其中心点，用细线将其悬挂，静止后使直木条恰好保持水平平衡。 2、将A、B两个质量相等的未充气的气球挂在直木条的两端，静止后直木条恰好保持水平平衡。 3、将A气球拿下，给它充足空气后再挂上，结果A气球一端下沉。实验结论：空气是有质量的。实验三实验名称：蜡烛水泵实验材料：蜡烛、水、透明盘子、玻璃杯实验步骤：1、在水中放根点燃蜡烛 2、在上面扣上杯子，等蜡烛熄灭后，看水升高了多少，升高的高度，和原来空气的高度的比值，就是空气中氧气的含量实验结论：空气中有氧气，且大约占空气的五分之一。实验四实验名称：旋转的纸蛇实验器材:纸片、支架、蜡烛、火柴、剪刀实验步骤

1.在纸片上画出螺旋纹，用剪刀沿纹路剪出一条纸蛇。 2.把纸蛇挂在支架上。 3.点燃蜡烛，放在纸蛇下面。 4.观察纸蛇的变化。实验现象:悬挂的纸蛇旋转起来了。实验结论:热空气会上升，带动纸蛇旋转。注意事项:蜡烛和纸蛇之间要保持一段距离，以免烧坏纸蛇。实验五实验名称：冷热空气的对流实验器材：两个玻璃杯、玻璃片、打火机、香。实验步骤：1、把香点燃放入玻璃瓶中，烟雾充满后快速拿出，盖上玻璃片。 2、把另一个玻璃瓶扣在玻璃片上，把玻璃片抽出。实验现象：烟雾慢慢到了上边的杯子里。实验结论：热空气上升，冷空气下降。实验六温度计的使用方法测量一杯热水。画表格实验七实验名称：熔化的蜡油实验材料：火柴、酒精灯、三角架、勺子、蜡烛、夹子。实验步骤： 1、在勺子上滴上两滴蜡油，要间隔一定距离。 2、把实验装置都装好了，确保桌子上没有纸张后，再点燃酒精灯。注意事项：1、注意安全，不用手去触摸勺子。2、仔细观察，屏住呼吸，以免灯焰摇动。实验现象：离火焰近的先融化，然后离火远的也融化了。结论：热总是从较热的一端传向较冷的一端。实验八雨和冰霜雾的形成实验名称：雨的成因模拟实验

完整word版标准实验报告模板.docx

实验报告实验名称课程名称 ___电子技术基础实验院系部:专业班级：学生姓名：学号 :同组人:实验台号 :指导教师：成绩：实验日期 : 华北电力大学

实验报告要求：一、实验目的及要求二、仪器用具仪器名称规格/型号数量备注实验箱1 示波器1 数字万用表1 交流毫伏表1 信号放生器1 三、实验原理四、实验步骤（包括原理图、实验结果与数据处理）五、讨论与结论（对实验现象、实验故障及处理方法、实验中存在的问题等进行分析和讨论，对实验的进一步想法或改进意见。）六、实验原始数据

一、实验目的及要求： 1.学会放大器静态工作点的调试方法，分析静态工作点对放大器性能的影响。 2.掌握放大器电压放大倍数和最大不失真输出电压的测试方法。 3.悉常用电子仪器及模拟电路实验设备的使用。二、仪器用具：略三、实验原理图 1.2.1为电阻分压式工作点稳定单管放大器实验电路图。图 1.2.1共射极单管放大器实验电路在图 1.2.1电路中，当流过偏置电阻R B1和 R B2的电流远大于晶体管VT 的基极电流I B时（一般 5～ 10 倍），则它的静态工作点可用下式估算： R B1U CC I E U U I C CE＝U CC－I C（R C＋R F1+ R E） U B R B2B U BE R B1R E R F1 电压放大倍数： A Vβ R C //R L 其中 r be＝ 200+26 (1+β)/I E r be(1)R F 1 输入电阻： R i＝ R B1 // R B2 // [r be+(1+β)R F1 ] 输出电阻： R O≈ R C 四、实验方法与步骤: 1.调试静态工作点接通＋ 12V 电源、调节R W，使 U E＝ 2.0V ，测量 U B、 U E、U C、 R B2值。记入表 1.2.1 。表 1.2.1U＝ 2.0V E 测量值计算值U B（ V）U E（ V）U C（ V）R B2（KΩ） U BE（ V） U CE（ V） I C（ mA） 2.665 2.07.8530.865 5.2 2.0 根据表格测量数据，计算得到： U=U -U E =0.665V，U = U - U E =5.8V,I ≈ I = U /R =2/(1.1)=1.82mA BE B CE C CE EE 实验数据显示，Q点的值满足放大电路的静态工作点要求，BJT 处于放大区。 2.测量不同负载下的电压放大倍数

数学实验报告

高等数学数学实验报告实验人员：院（系） __ __学号____姓名_ __ 实验地点：计算机中心机房实验一空间曲线与曲面的绘制一、实验题目：（实验习题1-2）利用参数方程作图，做出由下列曲面所围成的立体图形： (1) x y x y x z =+--=2 222,1及xOy 平面； (2) 01,=-+=y x xy z 及.0=z 二、实验目的和意义 1、利用数学软件Mathematica 绘制三维图形来观察空间曲线和空间曲面图形的特点，以加强几何的直观性。 2、学会用Mathematica 绘制空间立体图形。三、程序设计空间曲面的绘制作参数方程],[],,[,),(),() ,(max min max min v v v u u v u z z v u y y v u x x ∈∈? ?? ??===所确定的曲面图形的 Mathematica 命令为： ParametricPlot3D[{x[u,v],y[u,v],z[u,v]},{u,umin,umax}, {v,vmin,vmax},选项] (1) (2)

四、程序运行结果 (1) （2）五、结果的讨论和分析 1、通过参数方程的方法做出的图形，可以比较完整的显示出空间中的曲面和立体图形。 2、可以通过mathematica 软件作出多重积分的积分区域，使积分能够较直观的被观察。 3、从(1)中的实验结果可以看出，所围成的立体图形是球面和圆柱面所围成的立体空间。 4、从(2)中的实验结果可以看出围成的立体图形的上面曲面的方程是xy z =，下底面的方程是z=0，右边的平面是01=-+y x 。实验一空间曲线与曲面的绘制一、实验题目：（实验习题1-3）观察二次曲面族kxy y x z ++=22的图形。特别注意确定k 的这样一些值，当k 经过这些值时，曲面从一种类型变成了另一种类型。

word20XX的实验报告

竭诚为您提供优质文档/双击可除word20XX的实验报告篇一：word实验报告实验报告课程名称计算机应用基础实验项目名称word综合练习班级与班级代码12级新闻1班实验室名称（或课室）ss1-201专业新闻学任课教师刘松学号：12251204102姓名：蔡晓童实验日期：20XX-04-11 广东商学院教务处制姓名实验报告成绩评语：指导教师（签名）年月日说明：指导教师评分后，实验报告交院（系）办公室保存。一、实验目的 1、2、掌握常用的word编辑方法综合运用word桌面排版功能（字符排版、段落排版、

页面排版、图文混排、艺术字等）进行实际文档的处理。二、实验设备 1、2、计算机word20XX软件三、实验步骤 1、新建一个word文档，输入文章。 2、选择“插入”→“图片”→“艺术字”，选择艺术字样式→在对话框中设置字体、字号。 3、选择“插入”→“图片”→“来自文件”，选择所要插入的图片，在合适的位置插入相应的图片，并对图片的格式进行定义。 4、选中要分栏的段落，选择“格式”→“分栏”命令，显示“分栏”对话框，在预设类型中选择一种类型，单击“确定”按钮。 5、将第一段的“潮”字首字下沉，点击【格式】→【首字下沉】→【下沉】，单击“确定”。 6、选择“编辑”→“查找”，输入要查找的内容，然后选择“你”，再进行字体变换。 7、进行字符格式设置，如改变字型，大小，颜色等。8、进行页眉（学号和姓名）和页脚（页码）格式设置。四、实验结果如下页所示

五、实验分析与体会通过本次实验，我了解了word字符格式、段落格式和页面格式等排版技术和图文混排等技术的使用，今后可以更好的运用word在生活中工作中制作文档。而且通过这次试验，我觉得自己动手排版非常有趣。因为我对word文档的操作的不熟悉，所以，我的速度一直很慢，而且，还不可以更具自己想要的效果自由的进行操作，但是在经过一边查书，一边操作的过程中，经过自己的努力，终于完成了我的文档。我越来越熟悉它的操作，并且能够运用其中大部分的工具，来完善自己的文档。而且我也明白了，word文档的操作是很基础的计算机运用，也是使用范围非常广泛的程序。因此，学习这一门课程是非常重要和必要的。广□播站潮州市高级中学云里之音○ 作为校园文化的传媒机构，以丰富学生的校园生活，传播校园资讯为目的，以＂努只为把声音传得更远＂为口号，力，陪伴高级走过了许多风风雨雨。在高级中学团中学学生会的管理下，委会、广播站一如既往地坚持发扬广播不怕苦，不怕累的精神，努力唱响青春，唱响热情。 mondaysunshineAfternoon：品味生活点滴享受午后阳光；为你带来新鲜的生活资讯，介绍生活小常识。Tuesdaywindow：ListeningListeningwindow，

数学实验答案-1

1.（1） [1 2 3 4;0 2 -1 1;1 -1 2 5;]+(1/2).*([2 1 4 10;0 -1 2 0;0 2 3 -2]) 2. A=[3 0 1;-1 2 1;3 4 2],B=[1 0 2;-1 1 1;2 1 1] X=(B+2*A)/2 3. A=[-4 -2 0 2 4;-3 -1 1 3 5] abs(A)>3 % 4. A=[-2 3 2 4;1 -2 3 2;3 2 3 4;0 4 -2 5] det(A),eig(A),rank(A),inv(A) 求计算机高手用matlab解决。 >> A=[-2,3,2,4;1,-2,3,2;3,2,3,4;0,4,-2,5] 求|A| >> abs(A) ans = （ 2 3 2 4 1 2 3 2 3 2 3 4 0 4 2 5 求r（A） >> rank(A) ans =

4 求A-1 《 >> A-1 ans = -3 2 1 3 0 -3 2 1 2 1 2 3 -1 3 -3 4 求特征值、特征向量 >> [V,D]=eig(A) %返回矩阵A的特征值矩阵D 与特征向量矩阵V , V = - + + - - + - + - + - + D = { + 0 0 0 0 - 0 0 0 0 + 0 0 0 0 - 将A的第2行与第3列联成一行赋给b >> b=[A(2,:),A(:,3)'] b = 《 1 - 2 3 2 2 3 3 -2

1． a=round(unifrnd(1,100)) i=7; while i>=0 i=i-1; b=input('请输入一个介于0到100的数字：'); if b==a ￥ disp('You won!'); break; else if b>a disp('High'); else if b