闹钟怎样设置？
vivo手机设置闹钟方法：
进入闹钟时钟 → 点击右上角“+”，编辑添加新的闹钟；
OriginOS系统可直接点击桌面闹钟组件语音图标或进入闹钟--右上角语音图标，可以语音创建闹钟；
贪睡小助手 （部分机型支持）：进入闹钟时钟--点击需要设置的闹钟--贪睡，开启“贪睡小助手”功能，闹钟贪睡超过5次将自动发送信息给指定的联系人；
闹钟铃声：
OriginOS系统：进入闹钟时钟--点击单个闹钟--更多设置--提醒方式--设置铃声即可；
Funtouch OS/iQOO UI系统：进入闹钟时钟--点击需要设置的闹钟--铃声，选择自定义铃声或者系统备选铃声；
语音播报：进入闹钟时钟--点击需要设置的闹钟--开启“语音播报”，在手动关闭闹钟后，系统将自动为您语音播报当天的天气。
1.
打开手机后,选择手机主界面中的“时钟”图标
2.
选择屏幕左下角的“新建闹钟”按钮,进入设置闹钟界面,可以进行如下操作:
3.
根据个人需求,选择自己要设置的时间
4.
在闹钟列表中就会显示出刚才设置的闹钟,旁边有闹钟开关。
小米闹钟设置方法：
1.打开并进入到小米手机桌面，然后在手机的系统文件夹找到“时钟工具”。内
2.接下来，点击打开容时钟界面，看到有闹钟、时钟。秒表、计时器等设置。
3.点击下面的闹钟下面的选项，即点击打开添加闹钟按钮。
4.之后进入添加闹钟的界面，具体有重复，铃声，震动，备注等设置按钮。
5.看到上面的重复按钮，点击进去看到可以对闹铃的循环使用时间进行设计。
6.把上面设置的全部设置ok之后，点击确定按钮之后，铃声相当于设置完成了。
7.如果还想更详细的设置，那么点击地步添加闹钟旁边的，设置按钮，进入以下界面，对铃声进行更细致的设置。
#include <stdio.h>
#include <windows.h>
#include <winbase.h>
int main(int argc, char *argv[])
{
SYSTEMTIME time
SYSTEMTIME clock
GetLocalTime(&time)
printf("当前时间为：%2d:%2d:%2d\n",time.wHour,time.wMinute,time.wSecond)
printf("请设定闹钟时间：\n")
printf("时：")
scanf("%2d",&clock.wHour)
printf("分：")
scanf("%2d",&clock.wMinute)
while(1)
{
Sleep(1000)
GetLocalTime(&time)
if((time.wHour==clock.wHour)&&(time.wMinute==clock.wMinute))
{
printf("\a\a\a时间到!!!")
break
}
}
return 0
}
就是闹钟
新建一工程，窗体名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
