时钟代码用VB编写一个钟表的代码是？
时钟代码 时间:2021-05-29 阅读:()
vb 时钟代码
修改并测试成功！！！！！！！！ Private?Sub?Form_Load() ?????Form1.AutoRedraw?=?True ?????Form1.Height?=?8000 ?????Form1.Width?=?8000 ?????Form1.Scale?(-100,?-100)-(100,?100) ?????Line1.X1?=?0:?Line1.Y1?=?0 ?????Line2.X2?=?0:?Line2.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) ?????Line3.BorderWidth?=?1 ?????Shape1.Top?=?-95 ?????Shape1.Left?=?-95 ?????Shape1.Width?=?190 ?????Shape1.Height?=?190 ?????Shape1.BorderStyle?=?3 ?????Shape1.BorderWidth?=?3 ?????Shape1.BorderColor?=?RGB(0,?0,?255) ?????Timer1.Interval?=?1000 End?Sub Private?Sub?Timer1_Timer() ???sx?=?Sin((180?-?6?*?Second(Time))?*?3.14159?/?180)?*?65 ???sy?=?Cos((180?-?6?*?Second(Time))?*?3.14159?/?180)?*?65 ???Line3.X2?=?sx ???Line3.Y2?=?sy ???mx?=?Sin((180?-?6?*?Minute(Time))?*?3.14159?/?180)?*?65 ???my?=?Cos((180?-?6?*?Minute(Time))?*?3.14159?/?180)?*?65 ???Line2.X2?=?mx ???Line2.Y2?=?my ???hx?=?Sin((180?-?(30?*?Hour(Time)?+?30?*?Minute(Time)?/?60))?*?3.14159?/?180)?*?40 ???hy?=?Cos((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?"6" ??? ???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 Scale用于标示对象的坐标系统，其中前一组数字表示Picture1的左上角的坐标值，后一组数字表示Picture1的右下角的坐标值。因此如果你将左上角的坐标和右下角的坐标值设置为同一个坐标，则VB会认为你设置有误，会报“除数为零”的错误。
..........张志晨..............
在网上找到了一个电脑桌面的时钟代码 怎么用呀
桌面上使用有两种方式：
1、桌面-右健属性-web，把网上的swf的网址写入，
2、把这个时钟下载到本地，然后包装成exe文件，设置开机运行，并设置窗口在最上，就可以了。
可用flash的这个插件工具，具体下载和使用上网找资料：
C程序编写一个时钟的代码怎样写？
时钟源程序(C语言） #include<graphics.h> #include<math.h> #include<stdio.h> #include<dos.h> #define pi 3.1415926 #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; setbkcolor(3); outtextxy(224, 234, "9"); outtextxy(375,234,"3"); outtextxy(295,165,"12"); outtextxy(299,305,"6"); circle(300,240,100); circle(300,240,105); circle(300,240,5); for(i=0;i<60;i++) {if(i%5==0) l=15; else l=5; x1=100*cos(i*6*pi/180)+300; y1=100*sin(i*6*pi/180)+240; x2=(100-l)*cos(i*6*pi/180)+300; y2=(100-l)*sin(i*6*pi/180)+240; line(x1,y1,x2,y2); } } main() { int x,y,i; int gd=VGA,gm=2; unsigned char h,m,s; struct time t[1]; initgraph(&gd,&gm,"d:\tc"); init(); setwritemode(1); gettime(t); h=t[0].ti_hour; m=t[0].ti_min; s=t[0].ti_sec; setcolor(10); d(60,h,30); setcolor(14); d(80,m,6); setcolor(4); d(100,s,6); while(!kbhit()) {while(t[0].ti_sec==s) gettime(t); sound(400); delay(70); sound(200); delay(30); nosound(); setcolor(4); d(100,s,6); s=t[0].ti_sec; d(100,s,6); if (t[0].ti_min!=m) { setcolor(14); d(80,m,6); m=t[0].ti_min; d(80,m,6); } if (t[0].ti_hour!=h) { setcolor(7); d(60,h,30); h=t[0].ti_hour; d(60,h,30); sound(1000); delay(240); nosound(); delay(140); sound(2000); delay(240); nosound(); } } getch(); closegraph(); }谁知道一些个性时钟的代码?告诉我几个,拜托!
有一个c 的： #include谁有时钟的源代码？
#include<math.h> #include<dos.h> #include<graphics.h> #define CENTERX 320 #define CENTERY 175 #define CLICK 100 #define CLICKDELAY 30 #define HEBEEP 10000 #define LOWBEEP 500 #define BEEPDELAY 200 int Mrk_1[8]={-5,-160,5,-160,5,-130,-5,-130, }; int Mrk_2[8]={-5,-160,5,-160,2,-130,-2-130, }; int HourHand[8]={-3,-100,3,-120,4, 10,-4,10}; int MiHand[8]={-3,-120,3,-120,4, 10,-4,10}; int SecHand[8]={-2,-150,2,-150,3, 10,-3,10}; void Click() { sound(CLICK); delay(CLICKDELAY); nosound(); } void HighBeep() { sound(HEBEEP); delay(BEEPDELAY); nosound; } void LowBeep() { sound(LOWBEEP); } void DrawPoly(int *data,int angle,int color) { int usedata[8]; float sinang,cosang; int i; sinang=sin((float)angle/180*3.14); cosang=cos((float)angle/180*3.14); for(i=0;i<8;i+=2) { usedata[i] =CENTERX+ cosang*data[i]-sinang*data[i+1]+.5; usedata[i+1]=CENTERY+sinang*data[i]+cosang*data[i+1]+.5; } setfillstyle(SOLID_FILL,color); fillpoly(4,usedata); } void DrawClock(struct time *cutime) { int ang; float hourrate,minrate,secrate; setbkcolor(BLACK); cleardevice(); setcolor(WHITE); for(ang=0;ang<360;ang+=90) { DrawPoly(Mrk_1,ang,WHITE); DrawPoly(Mrk_2,ang+30,WHITE); DrawPoly(Mrk_2,ang+60,WHITE); } secrate=(float)cutime->ti_sec/60; minrate=((float)cutime->ti_min+secrate)/60; hourrate=(((float)cutime->ti_hour/12)+minrate)/12; ang=hourrate*360; DrawPoly(HourHand,ang,YELLOW); ang=minrate*360; DrawPoly(MiHand,ang, GREEN); ang=secrate*360; DrawPoly(SecHand,ang, RED); } main() { int gdriver=EGA, gmode=EGAHI; int curpage; struct time curtime ,newtime ; initgraph(&gdriver,&gmode,"c:\tc"); setbkcolor(BLUE); cleardevice(); gettime(&curtime); curpage=0; DrawClock(&curtime); while(1) { if(kbhit()) break; gettime(&newtime); if(newtime.ti_sec!=curtime.ti_sec) { if(curpage==0) curpage=1; else curpage=0; curtime=newtime; setactivepage(curpage); DrawClock(&curtime); isualpage(curpage); if(newtime.ti_min==0&&newtime.ti_sec==0) HighBeep(); else if(newtime.ti_min==59&& newtime.ti_sec<=59) LowBeep(); else Click(); } } closegraph(); } 此代码有声音用VB编写一个钟表的代码是？
Private Sub Command1_Click() End Sub Private Sub Check1_Click() If Check1.Value = 0 Then Timer1.Enabled = False Check1.Caption = "钟表已停" Else Timer1.Enabled = True Check1.Caption = "钟表正在走动" End If End Sub Private Sub Check2_Click() If Check2.Value = 0 Then Label1.Visible = False Check2.Caption = "钟表已关闭" Else Label1.Visible = True Check2.Caption = "钟表已打开" End If End Sub Private Sub Form_Load() Label1.Caption = Time End Sub Private Sub HScroll1_Change() Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value)) End Sub Private Sub HScroll2_Change() Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value)) End Sub Private Sub HScroll3_Change() Label1.ForeColor = RGB(Int(HScroll3.Value), Int(HScroll2.Value), Int(HScroll1.Value)) End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub Private Sub Timer2_Timer() Dim i, j, k As Integer i = Int(Rnd() * 225 + 1) + 0 j = Int(Rnd() * 225 + 1) + 0 k = Int(Rnd() * 225 + 1) + 0 Label1.BackColor = RGB(i, j, k) End Sub
- 时钟代码用VB编写一个钟表的代码是？相关文档
- 时钟代码C语言时钟源代码
- 时钟代码求一段画钟表指针的代码,C#语言
- 时钟代码网页时钟代码
Megalayer优化带宽和VPS主机主机方案策略 15M CN2优化带宽和30M全向带宽
Megalayer 商家主营业务是以独立服务器和站群服务器的，后来也陆续的有新增香港、菲律宾数据中心的VPS主机产品。由于其线路的丰富，还是深受一些用户喜欢的，有CN2优化直连线路，有全向国际线路，以及针对欧美的国际线路。这次有看到商家也有新增美国机房的VPS主机，也有包括15M带宽CN2优化带宽以及30M带宽的全向线路。Megalayer 商家提供的美国机房VPS产品，提供的配置方案也是比较多，...
VoLLcloud7折月付$3，香港CMI云服务器原生IP解锁，香港VoLLcloud
vollcloud怎么样?vollcloud LLC创立于2020年，是一家以互联网基础业务服务为主的 技术型企业，运营全球数据中心业务。VoLLcloud LLC针对新老用户推出全场年付产品7折促销优惠，共30个，机会难得，所有产品支持3日内无条件退款，同时提供产品免费体验。目前所有产品中，“镇店之宝”产品性价比高，适用大部分用户基础应用，卖的也是最好，同时，在这里感谢新老用户的支持和信任，我们...
Dataideas：$1.5/月KVM-1GB/10G SSD/无限流量/休斯顿(德州)_主机域名
Dataideas是一家2019年成立的国外VPS主机商，提供基于KVM架构的VPS主机，数据中心在美国得克萨斯州休斯敦，主机分为三个系列：AMD Ryzen系列、Intel Xeon系列、大硬盘系列，同时每个系列又分为共享CPU和独立CPU系列，最低每月1.5美元起。不过需要注意，这家没有主页，你直接访问根域名是空白页的，还好他们的所有套餐支持月付，相对风险较低。下面以Intel Xeon系列共...
时钟代码为你推荐
-
我的世界外国服务器我的世界外国服务器怎么进？cdn加速教程服务器只有内网ip 想要建站并且cdn加速 怎么实现呢linux开放8080端口linux 如何将本地80端口的请求转发到8080端口，当前主机IP为192.168.2.1cdn是什么意思阿里流量包是什么意思快云服务器快云的云服务器好用吗？gd域名注册请问gd注册的域名，能不能主……国内云盘国内的企业网盘哪个好？高带宽电脑的内存类型 DDR3 1333MHz这些是什么意思？cdn能防ddos吗云主机可以防DDOS攻击吗？阿里云服务器关闭防火墙远程连接阿里云服务器失败，是为什么？