vb时钟程序有哪些？

答案:3 悬赏:10

解决时间 2021-10-20 00:34

提问者网友：流星是天使的眼泪
2021-10-19 15:07

vb时钟程序有哪些？

最佳答案

二级知识专家网友：罪歌
2021-10-19 16:35

timer1.enable=true 表示时钟控件计时开始timer1.enable=false 表示时钟控件停止计时

全部回答

1楼网友：廢物販賣機
2021-10-19 18:42

1.打开你的vb程序 2.添加一个标准工程，单机打开 3.待你进行编程的界面 4.添加三个line控件，一个timer控件，一个shape控件，（双击控件即可添加一个） 5.修改timer的属性，在右侧的属性窗口内。也可以单机小时钟，此时右面属性栏显示为的项目。进行编辑就可以了。把ennabled修改为true，interval修改为1000 6.双击窗体空白处，也就是没有控件的地方，编辑代码 7.再来编辑出这个代码 8.继续编辑，这次是timer，就是小时钟的时间。每1000ms（修改的interval为1000）即一秒钟，它的时间响应一次。 9.按F5或单机运行调试图标运行 10.运行成功还可以，点击文件-生成工程form.exe，放到你想要的地方，比如桌面，和你的应用差不多，最后点击保存即可退出。

2楼网友：迷人又混蛋
2021-10-19 17:35

使用控件：一个按钮、一个标签、两根直线、一个计时器、一个形状（设置为圆）。 'Line1 代表时针 'Line2 代表分针 Dim X0 As Integer, Y0 As Integer Dim L As Integer Const Pi = 3.1415926 Private Sub Command1_Click() Do h = Int(Val(InputBox("请输入你需要的小时数：", "修改", Hour(Now)))) Loop Until h >= 0 And h < 24 Do m = Int(Val(InputBox("请输入你需要的分钟数：", "修改", Minute(Now)))) Loop Until m >= 0 And m < 60 Do s = Int(Val(InputBox("请输入你需要的秒数：", "修改", Second(Now)))) Loop Until s >= 0 And s < 60 Label1 = Trim(Str(h)) & ":" & Trim(Str(m)) & ":" & Trim(Str(s)) End Sub Private Sub Form_Activate() For DU = 0 To 354 Step 6 '画秒刻度 xd = Cos(DU * Pi / 180) * (L - 100) + X0 yd = Sin(DU * Pi / 180) * (L - 100) + Y0 PSet (xd, yd), RGB(0, 0, 0) Next Me.FillColor = RGB(200, 200, 200) For DU = 0 To 330 Step 30 '画5秒刻度 xd = Cos(DU * Pi / 180) * (L - 100) + X0 yd = Sin(DU * Pi / 180) * (L - 100) + Y0 Circle (xd, yd), 25 xd = Cos(DU * Pi / 180) * (L - 250) + X0 yd = Sin(DU * Pi / 180) * (L - 250) + Y0 CurrentX = xd - 100 CurrentY = yd - 100 If DU > 270 Then '写数字 Print DU / 30 - 9 Else If DU = 270 Then CurrentX = CurrentX - 80 Print DU / 30 + 3 End If Next Me.FillColor = RGB(250, 100, 100) '画15秒刻度 For DU = 0 To 270 Step 90 xd = Cos(DU * Pi / 180) * (L - 100) + X0 yd = Sin(DU * Pi / 180) * (L - 100) + Y0 Circle (xd, yd), 40, RGB(0, 0, 255) Next End Sub Private Sub Form_Load() L = 2000 '长度基准，也是表盘的半径 Me.AutoRedraw = True Me.Width = 4 * L Me.Height = 3.5 * L Me.FillColor = RGB(120, 250, 250) Me.FillStyle = 0 X0 = Me.Width / 2 - 40 Y0 = Me.Height / 2 - 400 Line1.X1 = X0 Line1.Y1 = Y0 Line1.BorderWidth = 3 Line2.X1 = X0 Line2.Y1 = Y0 Line2.BorderWidth = 2 Shape1.Shape = 3 '秒针 Shape1.FillColor = RGB(255, 0, 0) Shape1.FillStyle = 0 Shape1.Height = L / 12 Shape1.Width = L / 12 Shape1.BorderStyle = 0 Circle (X0, Y0), L '表盘 Me.FillColor = RGB(250, 0, 0) Me.Circle (X0, Y0), L / 40, RGB(255, 0, 0) '中心 Timer1.Interval = 1000 Call Timer1_Timer Command1.Caption = "修改时间" Command1.Top = Me.Height - L * 3 / 4 Command1.Left = Me.Width - L * 3 / 4 Command1.Height = L / 3 Label1.Top = Command1.Top Label1.Left = Width / 4 Label1.Width = Width / 3 Label1.FontSize = 24 Label1.Height = Command1.Height Label1.Caption = "" End Sub Private Sub Timer1_Timer() If Label1 = "" Then t = Time Else t = CDate(Label1) + 1 / 24 / 60 / 60 End If DU = Second(t) * 6 - 90 '制作秒针 Shape1.Top = Sin(DU * Pi / 180) * L * 0.85 + Y0 - Shape1.Height / 2 Shape1.Left = Cos(DU * Pi / 180) * L * 0.85 + X0 - Shape1.Width / 2 m = L * 0.7 '制作分针 DU = Minute(t) * 6 - 90 '+ Second(T) * 6 / 60 Line2.X2 = Cos(DU * Pi / 180) * m + X0 Line2.Y2 = Sin(DU * Pi / 180) * m + Y0 h = L * 0.6 '制作时针 DU = (Hour(t) Mod 12) * 30 + Minute(t) * 6 / 12 - 90 Line1.X2 = Cos(DU * Pi / 180) * h + X0 Line1.Y2 = Sin(DU * Pi / 180) * h + Y0 Label1 = t End Sub

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！