時鐘代碼

更新時間:2023-03-01 10:26:41 閱讀：評論：0

要個簡單一點的小時鐘代碼~

這個是文字時鐘代碼:
<script>

var dayarray=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
var montharray=new Array("January","February","March","April","May","June","July","August","September","October","November","December")

function getthedate(){
var mydate=new Date()
var year=mydate.getYear()
if (year < 1000)
year+=1900
var day=mydate.getDay()
var month=mydate.getMonth()
var daym=mydate.getDate()
if (daym<10)
daym="0"+daym
var hours=mydate.getHours()
var minutes=mydate.getMinutes()
var conds=mydate.getSeconds()
var dn="AM"
if (hours>=12)
dn="PM"
if (hours>12){
hours=hours-12
}
if (hours==0)
hours=12
if (minutes<=9)
minutes="0"+minutes
if (conds<=9)
conds="0"+conds
//change font size here
var cdate="<small><font color='000000' face='Arial'><b>"+dayarray[day]+", "+montharray[month]+" "+daym+", "+year+" "+hours+":"+minutes+":"+conds+" "+dn
+"</b></font></small>"
if (document.all)
document.all.clock.innerHTML=cdate
el
document.write(cdate)
}
if (!document.all)
getthedate()
function goforit(){
if (document.all)
tInterval("getthedate()",1000)
}

</script>
<body onload="goforit()">
<span id="clock"></span>

c語言時鐘代碼

#include<graphics.h> /* 引入graphic.h */
#include<math.h> /* 引入math.h */
#include<dos.h> /* 引入dos.h */
#define pi 3.1415926 /*定義pi=3.14159*/
#define X(a,b,c) x=a*cos(b*c*pi/180-pi/2)+300;
#define Y(a,b,c) y=a*sin(b*c*pi/180-pi/2)+240;
#define d(a,b,c) X(a,b,c);Y(a,b,c);line(300,240,x,y) /*定義……*/
void init() /*初始化程序*/
{int i,l,x1,x2,y1,y2; /*定義……*/
tbkcolor(1); /*設置顏色*/
circle(300,240,200); /*作園*/
circle(300,240,205);
circle(300,240,5);
for(i=0;i<60;i++) /*循環（算時間）*/
{if(i%5==0) l=15;
el l=5;
x1=200*cos(i*6*pi/180)+300;
y1=200*sin(i*6*pi/180)+240;
x2=(200-l)*cos(i*6*pi/180)+300;
y2=(200-l)*sin(i*6*pi/180)+240;
line(x1,y1,x2,y2);
}
}
main()
{
int x,y;
int gd=VGA,gm=2;
unsigned char h,m,s; /*定義*/
struct time t[1];
initgraph(&gd,&gm,"d:\\tc");
init();
twritemode(1);
gettime(t);
h=t[0].ti_hour;
m=t[0].ti_min;
s=t[0].ti_c; /*定義時分秒*/
tcolor(7); /*設置顏色*/
d(150,h,30);
tcolor(14);
d(170,m,6);
tcolor(4);
d(190,s,6);
while(!kbhit()) /*獲取鍵盤相應*/
{while(t[0].ti_c==s)
gettime(t); /*C語言中得到時間的函數*/
sound(400); /*計算時間……*/
delay(70);
sound(200);
delay(30);
nosound();
tcolor(4);
d(190,s,6);
s=t[0].ti_c;
d(190,s,6);
if (t[0].ti_min!=m)
{
tcolor(14);
d(170,m,6);
m=t[0].ti_min;
d(170,m,6);
}
if (t[0].ti_hour!=h)
{ tcolor(7);
d(150,h,30);
h=t[0].ti_hour;
d(150,h,30);
sound(1000);
delay(240);
nosound();
delay(140);
sound(2000);
delay(240);
nosound();
}
}
getch(); /*設置空格后退出*/
clograph();
}

具體的。。就是套用用幾個函數算時間。。
不要對這種很長的東西害怕，其實大部分都是在畫這個鐘～
加油哦～

FLASH時鐘代碼

http://www.qqywf.com/show/fd.swf?id=4288(
粉色FLASH可愛時鐘
女生專用
MIni款)
http://www.qqywf.com/show/fd.swf?id=3836(
簡潔數字FLASH時鐘版
黑白電子表)
http://www.qqywf.com/show/fd.swf?id=3826(
玩的就是心跳_視覺FLASH時鐘代碼
黑色款)
http://www.qqywf.com/show/fd.swf?id=3825(QQ
空間水晶FLASH時鐘代碼)
http://www.qqywf.com/show/fd.swf?id=3328(QQ
空間黑色FLASH時鐘
旋轉特效)
http://www.qqywf.com/skin.swf?m=37(
按住可拖動的QQ空間時鐘FLASH代碼
個性ING)

JAVA畫時鐘代碼

importjava.awt.*;
importjava.awt.event.*;
importjavax.swing.*;
importsun.util.calendar.Gregorian;
importjava.util.Calendar;
importjava.util.GregorianCalendar;

publicclassClockPointerextendsJFrame{
intx,y,x0,y0,r,h,olds_x,olds_y,oldm_x,oldm_y,oldh_x,oldh_y,
ss,mm,hh,old_m,old_h,ang;
finaldoubleRAD=Math.PI/180;

publicClockPointer(){
super("Java時鐘");
tDefaultCloOperation(JFrame.EXIT_ON_CLOSE);
Imageimage=getToolkit().getImage("clock.gif");
tIconImage(image);
tSize(400,400);
tBackground(Color.white);
//tLocation(300,150);
this.tLocationRelativeTo(null);
tResizable(true);
intdelay=1000;
//創建一個監聽事件

tVisible(true);
ActionListenerdrawClock=newActionListener(){
publicvoidactionPerformed(ActionEventevt){
repaint();
}
};
//創建一個時間計數器，每一秒觸發一次
newTimer(delay,drawClock).start();
}

java.text.SimpleDateFormatfmTime=newjava.text.SimpleDateFormat("HH:mm:ss");
//繪制圖形
publicvoidpaint(Graphicsg){
super.paint(g);
g.tFont(null);
Graphics2Dg2D=(Graphics2D)g;

Intsints=getInts();
intL=ints.left/2,T=ints.top/2;
h=getSize().height;
g.tColor(Color.white);
//畫圓
g2D.tStroke(newBasicStroke(2.0f));
g.tColor(Color.gray);
g.drawOval(L+40,T+40,h-80,h-80);
r=h/2-40;
x0=40+r-5+L;
y0=40+r-5-T;
ang=60;
//繪制時鐘上的12個字
for(inti=1;i<=12;i++){
x=(int)((r+10)*Math.cos(RAD*ang)+x0);
y=(int)((r+10)*Math.sin(RAD*ang)+y0);
g.tColor(Color.black);
g.drawString(""+i,x,h-y);
ang-=30;
}
//獲得現在的時間
Calendarnow=newGregorianCalendar();
intnowh=now.get(Calendar.HOUR_OF_DAY);
intnowm=now.get(Calendar.MINUTE);
intnows=now.get(Calendar.SECOND);

Stringst=fmTime.format(now.getTime());
//在窗體上顯示時間
g.tColor(Color.pink);
g.fillRect(L,T,50,28);
g.tColor(Color.blue);
g.drawString(st,L+2,T+26);

//計算時間與度數的關系
ss=90-nows*6;
mm=90-nowm*6;
hh=90-nowh*30-nowm/2;
x0=r+40+L;
y0=r+40+T;
g2D.tStroke(newBasicStroke(1.2f));
//擦除秒針
//if(olds_x>0){
//g.tColor(getBackground());
////g.tColor(Color.gray);
//g.drawLine(x0,y0,olds_x,h-olds_y);//(?)
//}
//繪制秒針
x=(int)(r*0.9*Math.cos(RAD*ss))+x0;
y=(int)(r*0.9*Math.sin(RAD*ss))+y0-2*T;
g.tColor(Color.yellow);
g.drawLine(x0,y0,x,h-y);
olds_x=x;
olds_y=y;
g2D.tStroke(newBasicStroke(2.2f));
//擦除分針
//if(old_m!=mm){
//g.tColor(getBackground());
//g.drawLine(x0,y0,oldm_x,h-oldm_y);
//}
//繪制分針
x=(int)(r*0.7*Math.cos(RAD*mm))+x0;
y=(int)(r*0.7*Math.sin(RAD*mm))+y0-2*T;
g.tColor(Color.green);
g.drawLine(x0,y0,x,h-y);
oldm_x=x;
oldm_y=y;
old_m=mm;
g2D.tStroke(newBasicStroke(3.2f));
//擦除時針
//if(old_h!=hh){
//g.tColor(getBackground());
//g.drawLine(x0,y0,oldh_x,h-oldh_y);
//}
//繪制時針
x=(int)(r*0.5*Math.cos(RAD*hh))+x0;
y=(int)(r*0.5*Math.sin(RAD*hh))+y0-2*T;
g.tColor(Color.red);
g.drawLine(x0,y0,x,h-y);
oldh_x=x;
oldh_y=y;
old_h=hh;
}

publicstaticvoidmain(String[]args){
newClockPointer();
}
}

//整理一下

vb中怎樣做出時鐘?

VB可使用Timer控件、Line控件和繪圖或加載圖片等制作指針式時鐘。

Timer 控件，通過引發 Timer 事件，Timer 控件可以有規律地隔一段時間執行一次代碼。

Line 控件，Line 控件是圖形控件，它顯示水平線、垂直線或者對角線。

運行時不能使用 Move 方法移動 Line 控件，但是可以通過改變 X1、X2、Y1 和 Y2
屬性來移動它或者調整它的大小。

Circle 方法，在對象上畫圓、橢圓或弧。

以下是通過加載圖片的指針式時鐘代碼：

OptionExplicit
PrivateConstPI=3.1415926
DimX(1)AsSingle,Y(1)AsSingle
DimOriAngleAsSingle,DestAngleAsSingle,rAsSingle
PrivateSubRotateLine(objLAsLine,bsPointXAsSingle,bsPointYAsSingle,RotateAngleAsSingle)
WithobjL
X(0)=.X1
Y(0)=.Y1
X(1)=.X2
Y(1)=.Y2
EndWith
DimiAsInteger
Fori=0To1
IfX(i)-bsPointX<>0Then
OriAngle=Atn((Y(i)-bsPointY)/(X(i)-bsPointX))
El
OriAngle=IIf(Y(i)>bsPointY,PI/2,1.5*PI)
EndIf
IfX(i)-bsPointX<0Then
IfOriAngle<0Then
OriAngle=PI-Abs(OriAngle)
El
OriAngle=PI+Abs(OriAngle)
EndIf
EndIf
DestAngle=OriAngle+RotateAngle
r=Sqr((X(i)-bsPointX)^2+(Y(i)-bsPointY)^2)
X(i)=bsPointX+r*Cos(DestAngle)
Y(i)=bsPointY+r*Sin(DestAngle)
Nexti
WithobjL
.X1=X(0)
.Y1=Y(0)
.X2=X(1)
.Y2=Y(1)
EndWith
EndSub
PrivateSubForm_Load()
Timer1.Interval=1000
DimiAsLong
Fori=1ToVal(Mid(Time$,7,2))
RotateLineLine3,Line3.X1,Line3.Y1,1*PI/30
Next
Fori=1ToVal(Mid(Time$,4,2))
RotateLineLine2,Line2.X1,Line2.Y1,1*PI/30
Next
Fori=1ToVal(Mid(Time$,1,2))*5'對時針
RotateLineLine1,Line1.X1,Line1.Y1,1*PI/30
Next
Fori=1ToVal(Mid(Time$,4,2))'對時針
RotateLineLine1,Line1.X1,Line1.Y1,1*PI/360
Next
EndSub
PrivateSubTimer1_Timer()
RotateLineLine3,Line3.X1,Line3.Y1,1*PI/30
RotateLineLine2,Line2.X1,Line2.Y1,PI/1800
IfMid(Time$,7,2)="00"OrMid(Time$,7,2)="30"Then
RotateLineLine1,Line1.X1,Line1.Y1,1*PI/720
EndIf
Me.Caption=Time$
EndSub

vb 時鐘代碼

Private
Sub
Form_Load()
Form1.AutoRedraw
=
True
Form1.Height
=
3500
Form1.Width
=
3500
Form1.Scale
(-100,
100)-(100,
-100)
'這里VB是以正X和負Y開始原始坐標,就是Y坐標和我們平時畫的相反
Line1.X1
=
0:
Line1.Y1
=
0
Line2.X1
=
0:
Line2.Y1
=
0
Line3.X1
=
0:
Line3.Y1
=
0
Line1.BorderColor
=
RGB(0,
0,
0)
Line1.BorderWidth
=
3
Line2.BorderColor
=
RGB(0,
0,
255)
Line2.BorderWidth
=
2
Line3.BorderColor
=
RGB(255,
0,
0)
Shape1.Top
=
95
'這里因為Y坐標是相反的,所以要正數
Shape1.Left
=
-95
Line3.BorderWidth
=
1
Shape1.BorderStyle
=
3
Shape1.BorderWidth
=
3
Shape1.Width
=
190
Shape1.Height
=
190
Shape1.BorderColor
=
RGB(0,
0,
255)
Timer1.Interval
=
1000
End
Sub
Private
Sub
Timer1_Timer()
sx
=
Cos((180
-
6
*
Second(Time))
*
3.14159
/
180)
*
65
'COS。不知道怎么說
sy
=
Sin((180
-
6
*
Second(Time))
*
3.14159
/
180)
*
65
'同上,的秒針反方向轉了
Line3.X2
=
sx
Line3.Y2
=
sy
mx
=
Cos((180
-
6
*
Minute(Time))
*
3.14159
/
180)
*
65
my
=
Sin((180
-
6
*
Minute(Time))
*
3.14159
/
180)
*
65
Line2.X2
=
mx
Line2.Y2
=
my
hx
=
Cos((180
-
(30
*
Hour(Time)
+
30
*
Minute(Time)
/
60))
*
3.14159
/
180)
*
40
hy
=
Sin((180
-
(30
*
Hour(Time)
+
30
*
Minute(Time)
/
60))
*
3.14159
/
180)
*
40
Line1.X2
=
hx
Line1.Y2
=
hy
Form1.CurrentX
=
-2
Form1.CurrentY
=
80
Form1.Print
"12"
Form1.CurrentX
=
75
Form1.CurrentY
=
-8
Form1.Print
"3"
Form1.CurrentX
=
-80
Form1.CurrentY
=
-8
Form1.Print
"9"
End
Sub

本文發布于:2023-02-28 19:50:00，感謝您對本站的認可！

本文鏈接：http://m.newhan.cn/zhishi/a/167763760172033.html

本文word下載地址：時鐘代碼.doc

本文 PDF 下載地址：時鐘代碼.pdf

上一篇：ps作品(ps作品集)

下一篇：返回列表

標簽：時鐘代碼

留言與評論（共有 0 條評論）