#include<windows.h>
#include<math.h>
#define ID_TIMER 1//计时器ID
#define TWOPI (2*3.14159)
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM)
int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR szCmdLine,int iCmdShow)
{
static TCHAR szAppName[]=TEXT("Clock")
HWND hwnd
MSG msg
WNDCLASS wndclass
wndclass.cbClsExtra=0
wndclass.cbWndExtra=0
wndclass.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH)
wndclass.hCursor=LoadCursor(NULL,IDC_ARROW)
wndclass.hIcon=LoadIcon(NULL,IDI_APPLICATION)
wndclass.hInstance=hInstance
wndclass.lpfnWndProc=WndProc
wndclass.lpszClassName=szAppName
wndclass.lpszMenuName=NULL
wndclass.style=CS_HREDRAW|CS_VREDRAW
if(!RegisterClass(&wndclass))
{
MessageBox(NULL,TEXT("This program requires Windows
T"),szAppName,MB_ICONERROR)
return 0
}
hwnd=CreateWindow(szAppName,TEXT("Analog Clock"),WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,hInstance,NULL)
ShowWindow(hwnd,iCmdShow)
UpdateWindow(hwnd)
while(GetMessage(&msg,NULL,0,0))
{
TranslateMessage(&msg)
DispatchMessage(&msg)
}
return msg.wParam
}
void Setsotropic(HDC hdc,int cxClient,int cyClient)
{
SetMapMode(hdc,MM_ISOTROPIC)
SetWindowExtEx(hdc,1000,1000,NULL)
SetViewportExtEx(hdc,cxClient/2,-cyClient/2,NULL)
SetViewportOrgEx(hdc,cxClient/2,cyClient/2,NULL)
}
void RotatePoint(POINT pt[],int iNum,int iAngle)
{
int i
POINT ptTemp
for(i=0i<iNumi++)
{
ptTemp.x=(int)(pt[i].x*cos(TWOPI*iAngle/360)+pt[i].y*sin(TWOPI*iAngle/360))
ptTemp.y=(int)(pt[i].y*cos(TWOPI*iAngle/360)+pt[i].x*sin(TWOPI*iAngle/360))
pt[i]=ptTemp
}
}
void DrawClock(HDC hdc)
{
int iAngle
POINT pt[3]
for(iAngle=0iAngle<360iAngle+=6)
{
pt[0].x=0
pt[0].y=900
RotatePoint(pt,1,iAngle)
pt[2].x=pt[2].y=iAngle%5?33:100
pt[0].x-=pt[2].x/2
pt[0].y-=pt[2].y/2
pt[1].x=pt[0].x+pt[2].x
pt[1].y=pt[0].y+pt[2].y
SelectObject(hdc,GetStockObject(BLACK_BRUSH))
Ellipse(hdc,pt[0].x,pt[0].y,pt[1].x,pt[1].y )
}
}
void DrawHands(HDC hdc,SYSTEMTIME *pst,BOOL fChange)
{
static POINT pt[3][5]={0,-150,100,0,0,600,-100,0,0,-150, 0,-200,50,0,0,800,-50,0,0,-200, 0,0,0,0,0,0,0,0,0,800 }
int i,iAngle[3]
POINT ptTemp[3][5]
iAngle[0]=(pst->wHour*30)%360+pst->wMinute/2
iAngle[1]=pst->wMinute*6
iAngle[2]=pst->wSecond*6
memcpy(ptTemp,pt,sizeof(pt))
for(i=fChange?0:2i<3i++)
{
RotatePoint(ptTemp[i],5,iAngle[i])
Polyline(hdc,ptTemp[i],5)
}
}
LRESULT CALLBACK WndProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam)
{
static int cxClient,cyClient
static SYSTEMTIME stPrevious
BOOL fChange
HDC hdc
PAINTSTRUCT ps
SYSTEMTIME st
switch(message)
{
case WM_CREATE:
SetTimer(hwnd,ID_TIMER,1000,NULL)
GetLocalTime(&st)
stPrevious=st
return 0
case WM_SIZE:
cxClient=LOWORD(lParam)
cyClient=HIWORD(lParam)
return 0
case WM_TIMER:
GetLocalTime(&st)
fChange=st.wHour!=stPrevious.wHour||st.wMinute!=stPrevious.wMinute
hdc=GetDC(hwnd)
Setsotropic(hdc,cxClient,cyClient)
SelectObject(hdc,GetStockObject(WHITE_PEN))
DrawHands(hdc,&stPrevious,fChange)
SelectObject(hdc,GetStockObject(BLACK_PEN))
DrawHands(hdc,&st,TRUE)
stPrevious=st
return 0
case WM_PAINT:
hdc=BeginPaint(hwnd,&ps)
Setsotropic(hdc,cxClient,cyClient)
DrawClock(hdc)
DrawHands(hdc,&stPrevious,TRUE)
EndPaint(hwnd,&ps)
return 0
case WM_DESTROY:
KillTimer(hwnd,ID_TIMER)
PostQuitMessage(0)
return 0
}
return DefWindowProc(hwnd,message,wParam,lParam)
}
C语言是一门通用计算机编程语言,应用广泛。C语言的设计目标是提供一种能以简易的方式编译、处理低级存储器、产生少量的机器码以及不需要任何运行环境支持便能运行的编程语言。尽管C语言提供了许多低级处理的功能,但仍然保持着良好跨平台的特性,以一个标准规格写出的C语言程序可在许多电脑平台上进行编译,甚至包含一些嵌入式处理器(单片机或称MCU)以及超级电脑等作业平台。
C语言是由UNIX的研制者丹尼斯·里奇(Dennis Ritchie)于1970年 由 肯·汤普逊(Ken Thompson)所研制出的B语言的基础上发展和完善起来的。目前,C语言编译器普遍存在于各种不同的 *** 作系统中,例如UNIX、MS-DOS、Microsoft Windows及Linux等。C语言的设计影响了许多后来的编程语言,例如C++、Objective-C、Java、C#等。
程序的窗体内含有两个Timer控件,一个文本框控件,两个命令按钮控件,四个标签控件。其中Timer1的Interval属性设置为60000,也就是一分钟响应一次,Timer1的Interval属性设置为500,也就是每0.5秒响应一次。Label1显示剩余时间,Label2显示现在时间。代码如下:
Dim n As Integer
Dim t As String
Private Sub Command1_Click()'计时开始
If Text1.Text = "" Then
Exit Sub
End If
t = Val(Text1.Text)
Timer1.Enabled = True
Label1.Caption = "剩余时间:" &t &"分钟"
End Sub
Private Sub Command2_Click() '退出程序
End
End Sub
Private Sub Timer1_Timer()
n = n + 1
Label1.Caption = "剩余时间:" &t - n &"分钟"
If n = t Then
Beep
MsgBox "时间到", vbExclamation + vbOKOnly
Timer1.Enabled = False
n = 0
End If
End Sub
Private Sub Timer2_Timer()
Label2.Caption = "现在时间:" &Time
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)