如何设闹钟
vivo手机设置闹钟方法：
进入闹钟时钟 → 点击右上角“+”，编辑添加新的闹钟；
OriginOS系统可直接点击桌面闹钟组件语音图标或进入闹钟--右上角语音图标，可以语音创建闹钟；
贪睡小助手 （部分机型支持）：进入闹钟时钟--点击需要设置的闹钟--贪睡，开启“贪睡小助手”功能，闹钟贪睡超过5次将自动发送信息给指定的联系人；
闹钟铃声：
OriginOS系统：进入闹钟时钟--点击单个闹钟--更多设置--提醒方式--设置铃声即可；
Funtouch OS/iQOO UI系统：进入闹钟时钟--点击需要设置的闹钟--铃声，选择自定义铃声或者系统备选铃声；
语音播报：进入闹钟时钟--点击需要设置的闹钟--开启“语音播报”，在手动关闭闹钟后，系统将自动为您语音播报当天的天气。
1.
打开手机后,选择手机主界面中的“时钟”图标
2.
选择屏幕左下角的“新建闹钟”按钮,进入设置闹钟界面,可以进行如下操作:
3.
根据个人需求,选择自己要设置的时间
4.
在闹钟列表中就会显示出刚才设置的闹钟,旁边有闹钟开关。
KG316T微电脑时控开关说明书 特点 1.理想的节能、延长照明器件的使用寿命。应在天暗时用定时自动打开，半夜时用定时自动关闭。是路灯、灯箱、霓虹灯、生产设备、农业养殖、仓库排风除湿、自动预热、广播电视等最理想的控制产品。 2.内置可充电池、外置电池开关，高精度，工业级芯片，强抗干扰。 特性
型号
KG316T
电源电压
220VAC 50-60HZ ±15%
内部电池电压
3.6VDC
电力消耗
约1.5VA
控制输出
25A 250VAC(阻性负载)
显示输出
LCD显示
走时误差
小于1秒/天
开关次数
日/周循环12次开关
环境温度
-25℃至60℃
环境湿度
45至85%RH
机械寿命
最少3000,000次
重量、尺寸
约410克，120×74×52mm
安装方式
装置式
中英文周日标志对照表
MO
TU
WE
TH
FR
SA
SU
星期一
星期二
星期三
星期四
星期五
星期六
星期日
接线 1.图1直接控制方式 2.图2控制接触器、线圈电压220VAC/50HZ 3.图3控制接触器、线圈电压380VAC/50HZ操作使用 1.使用前把产品左面的电池开关置于"开"位置！显示器上显示(星期一、5点正)，按住“时钟键” 不放的同时再按“星期键、时键、分键”，调整北京时间。 2.设定开关时间：
步骤
按键
设定项目
1
按(手动)
使显示器的短横线在自动位置
2
按(设定)
进入定时开设定(显示1ON)
3
按(星期)
设定每天相同，每天不同，星期一至星期五相同，或星期六至星期日相同
4
按(时)(分)
设定开的时间
5
按(设定)
进入定时关设定(显示1OFF)
6
按(时)(分)
设定关的时间
7
重复2-6
设定第2-12次开关的时间
8
按(时钟)
结束时间设定
*如不需12个开关定时按(时钟)键，返回实际时间 *如设定错误或聚消设定按(取消)键，再按一次恢复原来的设定 *无设定时显示(--:--) 3.检查：按(设定)键检查所设定的时间是否正确。 4.修改：请在该设定处按(取消)键，然后重量新设定该定时开关的时间及星期 5.结束检查：按(时钟)结束检查及设定，显示时钟 6.手动控制：按(手动)键，即可实现随意的开关 参考使用 1.例如控制器每天下午6点自动打开电源，到夜里2点关闭电源，按以下操作 2.调好时间后按一下“设定键”显示器上显示如图4，按住“时键”显示器显示如图5。再按一下 “设定键”显示器显示如图6，按住“时键”显示器显示如图7。以上调整完再按一下“时钟键”显示器恢复显示北京时间。再按“手动键”可以直接开或关闭电路，然后每天控制器按自动运行。 注意事项 1.为防强电流下融点发热，接线时务必拧紧接线柱的螺钉 2.控制器进线220VAC/50-60HZ电源，切勿接到380VAC 3.填订单时，希望电源电压，订制:24V、110V、380VAC 4.控制器红灯亮有电进入，红绿灯同时亮开关有电输出 5.设定的时间，不能交叉设定，应按时间的顺序设定
就是闹钟
新建一工程，窗体名AlarmForm.
放置一个Timer，名字为Timer1。放置一个Label，名字为lblTime
代码如下：
Option Explicit
Dim AlarmTime
Const conMinimized = 1
Private Sub Form_Click()
AlarmTime = InputBox("输入启动闹钟的时间", "VB 闹钟", AlarmTime)
If AlarmTime = "" Then Exit Sub
If Not IsDate(AlarmTime) Then
MsgBox "您输入的时间无效。"
Else' 从 InputBox 返回的字符串使有效时间,
AlarmTime = CDate(AlarmTime)' 将它作为一个日期/时间值存储在 AlarmTime 中。
End If
End Sub
Private Sub Form_Load()
AlarmTime = ""
End Sub
Private Sub Form_Resize()
If WindowState = conMinimized Then ' 如果窗体被最小化, 在标题处显示时间。
SetCaptionTime
Else
Caption = "闹钟"
End If
End Sub
Private Sub SetCaptionTime()
Caption = Format(Time, "Medium Time") ' 使用中等时间格式显示时间。
End Sub
Private Sub Timer1_Timer()
Static AlarmSounded As Integer
If lblTime.Caption <>CStr(Time) Then
' 当前秒数与显示秒数不同。
If Time >= AlarmTime And Not AlarmSounded Then
Beep
MsgBox "启动闹钟在 " &Time
AlarmSounded = True
ElseIf Time <AlarmTime Then
AlarmSounded = False
End If
If WindowState = conMinimized Then
' 如果处于最小化状态, 每分钟都需更新窗体标题。
If Minute(CDate(Caption)) <>Minute(Time) Then SetCaptionTime
Else
' 否则每秒钟对标签的标题进行更新。
lblTime.Caption = Time
End If
End If
End Sub
截图方法详见：（原网页已被修改，只能用百度快照了，可能会慢一点，耐心）
http://cache.baidu.com/c?word=vb%3B%BD%D8%CD%BC&url=http%3A//www%2Elinkdns%2Ecom/ArticleView/%3FArticleID%3D7795&b=0&a=20&user=baidu
Timer1.Enabled = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
End
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim mydate As Date, x As Integer
mydate = Now - #3/23/2009 6:00:00 PM#
x = Val(Second(mydate))
If x Mod 2 = o Then
Form1.Picture = LoadPicture("d:\我的文档\下载的图片\200710300213568037.jpg")'当然这是我的电脑上的路径，你输入你想要的图片的绝对路径就OK了
Else
Form1.Picture = LoadPicture("")
End If
Label1 = Now
End Sub
第四点需要用到交直流变压的设备，实践起来会有些纹波等的指标要调，不过也不难。现成的电路图很多，你可以搜一搜。
程序参考
---------------------------------------------------------------------
文件名称：nz.ASM
程序功能：定时闹钟
--------------------------------------------------------------------
---------------------------- 程序初始化-----------------------
定义存放计时单元地址
....................
ALB EQU 20H.0 闹铃设置标志
....................
BUF EQU 30H 30～33H 连续4字节存放显示器数据
HOUR EQU 34H 存放小时变量
MIN EQU 35H 存放分钟变量
SEC EQU 36H 存放秒钟变量
DEDA EQU 37H 存放5 ms 计数值
....................
HH EQU 38H 闹铃设置小时变量
MM EQU 39H 闹铃设置分钟变量
....................
按键输入引脚定义
K1 EQU P2.4 按键K1引脚定义
K2 EQU P2.5 按键K2引脚定义
K3 EQU P2.6 按键K3引脚定义
K4 EQU P2.7 按键K4引脚定义
蜂鸣器和指示灯引脚定义
SPK EQU P3.4 蜂鸣器控制信号引脚
WLED EQU P1.0 工作指示灯引脚定义
程序开始执行地址
ORG 0H 程序代码由地址0开始
AJMP MAIN
ORG 0BH 定时器T0 中断地址设置
AJMP TO_SRV
------------------------------- 主程序 -------------------------------
MAIN: 主程序标号
...................
CLR ALB 清除闹铃标志
...................
ACALL BZ 蜂鸣器连续两次鸣响一声
ACALL BZ
ACALL LED_SD LED 闪动，表示程序开始执行
ACALL INIT 初始变化量
ACALL INIT_TIMER 设置定时器
加载显示器初值数据
MOV A, #0C0H
MOV P0, A
无穷循环
LOOP: 无穷循环
ACALL CONV 转换 时时 分分 数据
....................
ACALL TIME_PRO 检查闹铃时间
....................
ACALL DISP 扫描显示
JB K1, M1 未按下K1键则继续扫描
ACALL LED_SD LED闪动
ACALL SET_TIME 设置目前时间
AJMP LOOP 跳转到LOOP处执行
设置闹铃时间
M1:JB K2, M2 未按下K2键则继续扫描
.....................
ACALL LED_SD
ACALL SET_ATIME 设置闹铃时间
.....................
AJMP LOOP 跳转到LOOP处执行
M2: JB K3, M3 未按下K3键则继续扫描
AJMP LOOP 跳转到LOOP处执行
M3: JB K4, M4 未按下K4键则继续扫描
...................
CPL ALB
JNB ALB, M31
闹铃启动连续3次发出响声
ACALL BZ
ACALL BZ
ACALL BZ
...................
AJMP LOOP 跳转到LOOP处执行
....................
M31:
ACALL BZ 闹铃停止，发出一声响
AJMP LOOP 跳转到LOOP处执行
...................
M4:
AJMP LOOP 跳转到LOOP处执行
------------------------- 定时中断模块 -------------------
定时器T0模式0计时
INIT_TIMER: 初始化定时器
MOV TMOD,#00000000B 设置定时器T0工作模式0
MOV IE, #10000010B 启用定时器T0中断产生
MOV TL0, #(8192-4900)MOD 32 加载初始值
MOV TH0, #(8192-4900)/32
SETB TR0 启动定时器T0开始计时
RET
--------------------------
中断服务程序
TO_SRV: 定时器T0计时中断程序每隔5ms中断一次
PUSH ACC 将A值压入堆栈
MOV TL0, #(8192-4900)MOD 32 重加载初始值
MOV TH0, #(8192-4900)/32
INC DEDA 加1
秒输出
MOV A, DEDA
CJNE A, #200, TT1 是否1s到了
MOV DEDA, #0 计数值清除为0
CPL WLED LED灯亮灭变换
INC SEC 秒计数加1
MOV A, SEC
CJNE A, #60, TT1 是否1min到了
分输出
INC MIN 分计数加1
MOV SEC, #0 秒计数清除为0
MOV A, MIN
CJNE A, #60, TT1 是否1h到了
时输出
INC HOUR 小时计数加1
MOV MIN, #0 分计数清除为0
MOV A, HOUR
CJNE A,#24, TT1 是否24h到了
MOV SEC, #0 秒钟变量清除为0
MOV MIN, #0 分钟变量清除为0
MOV HOUR, #0 小时变量清除为0
TT1:
POP ACC 将A值由堆栈取出
RETI
---------------------------------------- 转换十进制模块---------------------------------
CONV: 转换十进制子程序
转换小时数据
MOV DPTR,#TABLE 存表
MOV A, HOUR
MOV B, #10
DIV AB
MOVC A, @A+DPTR 查表转换
MOV BUF, A
MOV A, B
MOVC A, @A+DPTR
MOV BUF+1, A
转换分钟数据
MOV A, MIN
MOV B, #10
DIV AB
MOVC A, @A+DPTR 查表转换
MOV BUF+2, A
MOV A, B
MOVC A, @A+DPTR 查表转换
MOV BUF+3, A
RET
字型数据编码表
TABLE:
DB 0C0H,0F9H,0A4H,0B0H
DB 99H,92H,82H,0F8H
DB 80H,90H,88H,83H
DB 0C6H,0A1H,86H,8EH
-------------------------------------- 扫描显示模块 ------------------------------------
DISP: 扫描显示子程序
MOV R0, #BUF 指向显示器显示缓冲区起始地址
MOV R2, #4 执行4次循环
MOV ACC, #11110111b 加载扫描信号初值11110111B
S1:
PUSH ACC
MOV A, @R0 读取出显示器数据
MOV P0, A 由P0送出一位显示器数据
POP ACC
MOV P2, ACC 由P2送出扫描输出信号
MOV R5, #2 延迟一段时间
ACALL DELAY1MS_R5
改变扫描码 EX:XXXX1011
RR A 累加器A向右移动一位
INC R0 显示器显示缓冲区地址加1
DJNZ R2, S1 判断是否继续执行循环
RET
-------------------------------------- 调整时间模块 ------------------------------------
SET_TIME: 设置目前时间子程序
CLR TR0 定时器工作暂停
MOV SEC, #0 秒钟变量清除为0
L0:
ACALL DISP 扫描显示
JB K2, L1 未按下K2键则继续扫描
JNB K2, $ 有按下则等待放开
K2小时调整
INC HOUR 小时计数加1
MOV A, HOUR
CJNE A,#24, L11 是否24H到了
MOV HOUR, #0 小时变量清除为0
L11:
ACALL CONV 转换显示数据
ACALL DISP 扫描显示
AJMP L0 继续程序执行
L1: JB K3, L2 未按下K3键则继续扫描
JNB K3,$ 有按下则等待放开
K3分钟调整.
INC MIN 分钟计数加1
MOV A, MIN
CJNE A, #60, L21 是否60 min到了
MOV MIN, #0 分钟变量清除为0
L21:
ACALL CONV 转换显示数据
ACALL DISP 扫描显示
AJMP L0 跳转到L0处执行
L2: JB K4,L0 未按下K4键则继续扫描
JNB K4, $ 有按下则等待放开
ACALL BZ 蜂鸣器鸣响一声
K4设置完成
ACALL LED_SD LED闪动
SETB TR0 启动定时器
RET
------------------------------------- 计时单元清零模块 -------------------------------
INIT: 计时单元清零子程序
MOV DEDA, #0 5ms计数值清除为0
MOV SEC, #0 秒钟变量清除为0
MOV MIN, #0 分钟变量清除为0
MOV HOUR, #0 小时变量清除为0
RET
-------------------------------------- 蜂鸣器鸣响模块--------------------------------------
BZ: 蜂鸣器鸣响一声子程序
MOV R6, #250
B1: ACALL DEX
CPL SPK
DJNZ R6,B1
MOV R5, #50
ACALL DELAY1MS_R5
RET
------------------------------------- LED闪动模块 -------------------------------------
LED_SD: 工作指示灯闪烁子程序
MOV R4,#6
LE1:CPL WLED 位反向
MOV R5,#25
ACALL DELAY1MS_R5
DJNZ R4, LE1 延迟50ms
RET
------------------------------------------ 延时模块 --------------------------------------
DELAY1MS_R5: 总延迟时间 2ms×R5
MOV R6,#10
D1:MOV R7,#100
DJNZ R7,$
DJNZ R6, D1
DJNZ R5, DELAY1MS_R5
RET
------------------------------------------ 短暂延时模块 ---------------------------------
DEX: 短暂延时子程序
MOV R7,#180
DE1: NOP
DJNZ R7, DE1
RET
********************* 增加定时闹铃程序部分 ********************
----------------------------------------- 设置闹铃时间模块 --------------------------------
SET_ATIME: 设置闹铃时间子程序
MOV HH,#0
MOV MM,#0
ACALL CONVA 加载闹铃时间数据
N0:
ACALL DISP
－－－－－－－－－－－
JB K2, N1 未按下K2键则继续扫描
JNB K2, $ 有按下则等待放开
K2调整小时
INC HH 小时数加1
MOV A, HH
CJNE A, #24,N11 是否24h到了
MOV HH, #0 小时清为0
N11:
ACALL CONVA 加载闹铃时间数据
ACALL DISP 扫描显示
AJMP N0 跳转到N0处执行
－－－－－－－－－－－－
N1: JB K3, N2 未按下K3键则继续扫描
JNB K3, $ 有按下则等待放开
K3调整分钟
INC MM 调整分钟数
MOV A,MM 分钟数加1
CJNE A, #60,N21 是否60min到了
MOV MM, #0 分钟数清为0
N21:
ACALL CONVA 加载闹铃时间数据
ACALL DISP
小米闹钟设置方法：
1.打开并进入到小米手机桌面，然后在手机的系统文件夹找到“时钟工具”。内
2.接下来，点击打开容时钟界面，看到有闹钟、时钟。秒表、计时器等设置。
3.点击下面的闹钟下面的选项，即点击打开添加闹钟按钮。
4.之后进入添加闹钟的界面，具体有重复，铃声，震动，备注等设置按钮。
5.看到上面的重复按钮，点击进去看到可以对闹铃的循环使用时间进行设计。
6.把上面设置的全部设置ok之后，点击确定按钮之后，铃声相当于设置完成了。
7.如果还想更详细的设置，那么点击地步添加闹钟旁边的，设置按钮，进入以下界面，对铃声进行更细致的设置。
在设计小闹钟的时候，引导学生说出不同造型的闹钟，有几何形状、动物、植物、生活用品等不同造型的闹钟。对于学生的设计稿我采用学生自评和互评的形式进行，先在四人一小组里进行评价，每个学生对自己设计的小闹钟进行展示，并且说说自己的设计理念。在巡视的过程中，发现个别学生俨然想个小小的设计师，说得头头是道。同时我也发现个别学生趁机在那闲聊。如何让每个学生参与活动中，是我要思考的问题。然后小组里挑选出一张最优秀的作品贴在黑板上展示，给全班的学生进行评价，这样其他组的同学可以在欣赏的时候找到自己的一些创作灵感。学生在评价别人作业的时候，经常出现这样的情况，一位学生在说，其他学生也忍不住要说，没有学好倾听的习惯。
有了第一节的设计稿，在第二课时学生制作小闹钟的时候就得心应手了。学生都能设计出不同造型的闹钟，在时针和分针的固定上，我让学生采用图钉进行固定，这样的效果不错。对于专这样的制作课，学生作品的评价展示显得尤其重要。因为我们制作的东西不容易保存，所以要及时进行展示。我让学生给自己制作的小闹钟标价，我给学生订了一个价格的范围10元到50元的范围，好的闹钟价格标得高，做得不好的闹钟价格就低。学生将自己标好价格的闹钟上台展示，如果做得不好的价格标得高，其他学生会不同意。这样就很好得进行了互评。学生的积极性很高。对于学生美术课堂作业的评价是我们每一位美术教师需要思考的问题，我们应该思考一些更有效的评价，提高学生的审美能力，促进学生的学习兴趣。
