VB程序中定时器(三菱PLC定时器如何写程序?)

AquArius 34 0

VB程序中定时器

怎么把时间延长 比如30分钟等等 原始的只能60秒 有什么办法延长?像i=i+1 就别说了 API的不至于! 要简单有效的!

timer
间隔是1分钟
每十分提示 "十分钟了"
代码如下

Public a

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a = 30 Then
MsgBox "30分钟了"
a = 0
End If
End Sub

可编程作息时间控制器程序设计

任务 编写一个控 *** 息时间的程序。 基本要求 按照给定的时间模拟控制实现播广播、上下课打铃、灯光控制(屏幕显示)。 具备日期和时钟的显示。 扩展要求 1 给定的时间可修改。 2 可模拟手动控制。 3 用扬声器模拟打铃。
主程序: 在程序开始时,首先初始化,设置中断0源允许、总允许为一,两个定时器的工作模式为一模式,整个程序由P2.6接低电平时启动,启动后,进入A段工作。在A短工作中调用显示子程序,A段工作完时进入B段工作,每段工作时都要调用显示子程序,,最后一段工作完时,关闭显示,即对P2送入0FFH
显示子程序:首先,对定时器赋初值,然后进行拆字,拆字采用除以十进行,除以十后,分别把商和余数送到显缓单元,再查七段码,把七段码送到P1,送字位口到P2口,进行动态显示,每次显示一位时延时255个指令周期(即FFH个指令周期),四位显示完后,再进行多次扫描,保证人眼看不到闪烁,最后判断设定的工作时间到没,到了几跳出显示子程序。
中断程序:进入中断后输出报警信号,同时显示器全部显示0,,最后跳出中断。
四:程序及其说明:
1.程序:
ORG 0000H
LJMP MAIN
ORG 0003H
LJMP BAOJING
ORG 0010H
;初始化程序
MAIN:SETB EA ;设置中断
SETB EX0
CLR IT0
MOV TMOD,#11H ;设置定时器工作模式
SETB P3.4 ;驱动继电器
SETB P3.5
SETB P3.6
SETB P3.7
HERE:JB P2.6,HERE ;判断是否启动
;进入工作阶段
GONGZUO:MOV 41H,#0AH ;工作于A段
MOV R7,#0AH ;A段工作时间
CLR P3.4 ;驱动外部继电器
LCALL SCAN ;调显示程序
SETB P3.4 ;关断外部驱动
MOV 41H,#0BH ;工作于B段
MOV R7,#14H ;B段工作时间
CLR P3.5 ;驱动外部继电器
LCALL SCAN ;调显示程序
SETB P3.5 ;关断外部驱动
MOV 41H,#0CH ;工作于C段
MOV R7,#1EH ;C段工作时间
CLR P3.6 ;驱动外部继电器
LCALL SCAN ;调显示程序
SETB P3.6 ;关断外部驱动
MOV 41H,#0DH ;工作于D段
MOV R7,#28H
CLR P3.7 ;驱动外部继电器
LCALL SCAN ;调显示程序
SETB P3.7 ;关断外部驱动
MOV P2,#0FFH ;关显示
LJMP HERE ;返回判断处,确定是否继续工作
;中断报警程序
BAOJING: MOV P2.4,#00H ;指示灯亮
Mov P2.5,#00H
MOV TL0,#0E0H ;定时20ms
MOV TH0,#0B1H
SETB TR0 ;启动定时
LP:MOV P1,#3FH ; 全部显示为零
MOV P2,#00H
MOV P2.5,#00H ;扬声器工作
JNB TF0,LP ;查询定时时间到否
SETB P2.4 ;关指示灯
SETB P2.5 ;关扬声器
RETI
;显示子程序
ORG 0F00H
SCAN: MOV 42H,#0EH ;“—”(横线)的七段码
MOV R1,#32H ;延时常数
MOV TL1,#0E0H ;定时20ms的常数
MOV TH1,#0B1H
LP1: MOV A,R7 ;拆字程序(采用除法拆字)
MOV B,#10
DIV AB
MOV 43H,A ;送显缓单元
MOV 44H,B
LP2: MOV R0,#41H ;设置显缓的初始单元
MOV R4,#0FFH ;延时常数
MOV R5,#0FEH ;送字位口
LP3: MOV A,@R0
MOV P2,#0FFH ;关显示
MOV DPTR,#TAB ;查七段码、显示
MOVC A,@A+DPTR
MOV P1,A
MOV P2,R5
LP4: DJNZ R4,LP4
INC R0 ;修改指针
MOV A,R5 ;改变显示单元
RL A
MOV R5,A
JB ACC.4,LP3 ;判断四位是否显示完
SETB TR1 ;启动定时器
JNB TF1,LP2 ;判断定时时间是否到
DJNZ R1,LP2 ;延时一秒是否到
DJNZ R7,LP1 ;判断设定时间是否到
RET
ORG 10FFH
;七段码表单
TAB: DB 3FH ,06H,5BH, 4FH, 66H,6DH , 7DH
DB 07H, 7FH,6FH,77H, 7CH,39H, 5EH, 40H
2.说明:
主程序:设整个系统工作有四个阶段,分为ABCD段,每段工作时间设为10S、20S、30S、40S,在程序的初始化阶段设定定时器的工作模式、中断允许,程序的运行由单片机的P2.6脚接低电平启动,进入工作阶段,在每个工作阶段显示工作段数和剩余工作时间。
在A段工作时,把“A”这个字符送达41H显缓单元,再设定A段的工作时间,送到R7寄存器中,设定对应的输出脚的工作电平值,然后调显示子程序,A段工作完毕,关闭对应的驱动输出脚。
B、C、D段工作均和A段工作相似,只是驱动不同的输出对象,最后一段工作完后,对P2口赋值高电平,关所有的显示,最后跳回判断处,判断是否继续工作。
显示子程序:在显示子程序中因为每段工作时,均要显示“—”,所以在开始时把“—”的对应序号(在本程序的七段码表中对应的序号为0EH)送到显缓单元,对定时器T1定时20ms进行赋初值,计算初值的公式为:
T1初值=2^n-fosc/12×t
由于定时器工作在1模式,振荡频率为12MHZ,所以计时器T1的初值为:E0B1(十六进制)
将设定的时间进行拆字,然后送到显缓单元。拆字采用除法的方式进行,将定时时间送到寄存器A中,然后在B中送常数10,经过相除后在寄存器A中得到高位送到显缓43H中,在寄存器B中得到低位送到显缓44H单元中,显缓单元指针首先指向显缓首地址,通过变址寻址方式查询对应的七段码送到P1口(字形口),对P2口送入字位口,每个显示位显示后经过延时255指令周期再进入下一步工作。每位显示完后,修改显示单元的指针,对指针单元的当前值自加一,然后对字位口进行左移,修改显示单元,再进行判断四位是否显示完,即判断字位口的第五位是否为1,若为1,则程序转移,继续显示;若为0,则依次执行。四位显示完后,启动定时器1,定时20ms,查询TF1的值,若TF1为0,则在此等待,若TF1为1,则R1自减1并判断是否为0,若不为0,则转移到显示部分,若为0,则顺序执行(即判断1S到否);1S到则R7自减1并判断R7是否为0,若不为0,转移到拆字部分,若为0,则跳出调用(即判断每段工作时间到设定时间没有)。
中断程序:若外部出现故障(外部故障用P3.2接低电平表示),P2.4、P2.5接低电平(即输出报警信号,指示灯亮,扬声器发出声音),对定时器定T0时20ms赋初值,计算公式为:
T0初值=2^n-fosc/12×t
由于定时器工作在1模式,振荡频率为12MHZ,所以计时器T1的初值为:E0B1(十六进制)
对P1口送入“0”的七段码,P2口送入00,每个显示单元全部显示为0,启动定时器,若定时时间没有到,则转到显示处,继续让全部显示0,,若时间到,则对P2.4、P2.5全部送入高电平,关闭报警提示,中断返回。
七段码表单:将要显示的数码或字母的七段码按在日常生活中的默认顺序定义在一个表单中,通过把表单的首地址付给DPTR,再把需要显示的数字或字母的对应序号送到寄存器A中,通过变址寻址的方式(即MOVC指令)即可查出对应的七段码。 希望被采纳啊!!好长时间菜找到

下面分享相关内容的知识扩展:

怎样用单片机定时器设计0到9秒的循环程序

图我画简单电路图图基础写程序

自己动手做啦,我给你思路。
(如果你是为了应付课程设计,那么希望你醒醒吧,也许这些东西在你工作以后用不到,但是它何尝不是你解开自然奥秘的过程呢?)

把7段码的原理搞清楚,P3.0的每一口对应的一个7段码中的一小截灯亮,让不同的灯亮就可以组合成0-9的任意一个数字,所以,你根据你的硬件把0-9的真值表列出来。

然后按下面这个思路写程序,显示0,也就是让P3输出0的真值----(定时器)1S后-----显示1-----1秒后----显示2 等等等等。他们包含在while(1)里,就可以循环了。

我知道你可能不采纳我的答案,但是,我真的希望你能好好的把单片机学学,这对你以后很重要的。也许你琢磨了你所问的这个问题,你就对电控制有那么一点点感情了。加油吧。

介绍计数器 /定时器 程序 的编写步骤 (C语言的)

注意:

多数C语言编译器不支持多线程,而且ANSI C也没有线程库,因此C语言无法实现实际意义上的定时器(即包含触发机制的定时器)。

回到本问题:

1 计数器:

简单的int变量(一般为全局或相对全局)就可以实现。

2 计时器:

包含time.h,使用clock相关函数,通过运行时间差来实现计时功能。示例:
/*@*/ clock_t startstart = clock();
……
/*@*/ clock_t endend = clock();
float start2end = (float)(endend-startstart)/CLOCKS_PER_SEC;
// 这里的start2end就是时间差

3 定时器

使用系统API,比如Windows下的Sleep()函数(注意,是大写),原型如下:
VOID Sleep(
DWORD dwMilliseconds // sleep time in milliseconds
);

利用定时器的定时中断方式产生1hz的方波,怎么编写程序,51单片机?

主程序中:
*** it OUT=P1^0;
uchar a=0;//计中断次数的变量
TMOD=0x01;// 定时器1工作方式一
ET0=1;
EA=1;
TH0=(65536-50000)/256;//定时50ms
TL0=(65536-50000)%256;
TR0=1;//启动定时器
while(1);
中断程序:
void Timer0(void) interrupt 1
{
TH0=(65536-50000)/256;
TL0=(65536-50000)%256;
a++;
if(a==10) {a=0;OUT=!OUT;}//中断10次500MS,半个周期
}