| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 787 人关注过本帖
标题:临时要用,画了个表盘
只看楼主 加入收藏
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
结帖率:100%
收藏
 问题点数:0 回复次数:1 
临时要用,画了个表盘
'临时要用,画了个表盘, pic1 是一个picturebox ,大一点吧。
Option Explicit

Const PI = 3.1415926
Const 长度 = 120
Const 长度2 = 180
Const 中心点 = 2500
Const 半径 = 2400

Private Sub Command1_Click()
Dim i As Long
Dim x1 As Long, y1 As Long, x2 As Long, y2 As Long
Dim s1 As Single, s2 As Single, j1 As Single

    pic1.Line (中心点 - 长度, 中心点)-(中心点 + 长度, 中心点)
    pic1.Line (中心点, 中心点 - 长度)-(中心点, 中心点 + 长度)

    pic1.DrawWidth = 2
    pic1.Circle (中心点, 中心点), 半径
   
For i = 1 To 60
    j1 = 2 * PI * i / 60
    s1 = Sin(j1)
    s2 = Cos(j1)
   
    x1 = 半径 * s1 + 中心点
    y1 = 半径 * s2 + 中心点
    If i Mod 5 = 0 Then
        pic1.DrawWidth = 2
        'pic1.ForeColor = RGB(0, 255, 0)
        x2 = (半径 - 长度2) * s1 + 中心点
        y2 = (半径 - 长度2) * s2 + 中心点
    Else
        'pic1.ForeColor = 0
        pic1.DrawWidth = 1
        x2 = (半径 - 长度) * s1 + 中心点
        y2 = (半径 - 长度) * s2 + 中心点
    End If
    pic1.Line (x1, y1)-(x2, y2)   
Next i
End Sub
搜索更多相关主题的帖子: 表盘 
2010-05-12 17:06
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
收藏
得分:0 
学习,顶贴

护肤小店 http://mina2010.
靓装小店 http://liangliyizu2010.
2010-05-13 08:23
快速回复:临时要用,画了个表盘
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.094727 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved