vb编程，画一个表盘弧度200度，，20个刻度，显示范围-30到70
答案:2 悬赏:80 手机版
解决时间 2021-03-10 22:31
- 提问者网友：原来太熟悉了会陌生
- 2021-03-10 18:48
vb编程，画一个表盘弧度200度，，20个刻度，显示范围-30到70
最佳答案
- 五星知识达人网友：妄饮晩冬酒
- 2021-03-10 19:49
采用默认单位缇twips，Picture1 背景色为黑色，仪表盘从-10度到190度，刻度显示-30到70
Dim px As Long, py As Long, i As Long
Picture1.Cls
Picture1.ForeColor = &H33AA22
Picture1.Circle (3000, 3000), 2800, &ha0a0a0, -350 * PI / 180, -190 * PI / 180, 1
For i = 0 To 20
px = cRadius * Cos(-10 * PI / 180 + i * 10 * PI / 180) + CX
py = cRadius * -Sin(-10 * PI / 180 + i * 10 * PI / 180) + CY '电脑和标准坐标系Y轴相反，所以这里用 -Sin
Picture1.PSet (px, py), &H5555EE '为了更加醒目可以画圆
Picture1.CurrentX = px '这里定位刻度文字位置，可以细调
Picture1.CurrentY = py
Picture1.Print Format(-30 + i * 5)
Next i
Dim px As Long, py As Long, i As Long
Picture1.Cls
Picture1.ForeColor = &H33AA22
Picture1.Circle (3000, 3000), 2800, &ha0a0a0, -350 * PI / 180, -190 * PI / 180, 1
For i = 0 To 20
px = cRadius * Cos(-10 * PI / 180 + i * 10 * PI / 180) + CX
py = cRadius * -Sin(-10 * PI / 180 + i * 10 * PI / 180) + CY '电脑和标准坐标系Y轴相反，所以这里用 -Sin
Picture1.PSet (px, py), &H5555EE '为了更加醒目可以画圆
Picture1.CurrentX = px '这里定位刻度文字位置，可以细调
Picture1.CurrentY = py
Picture1.Print Format(-30 + i * 5)
Next i
全部回答
- 1楼网友：毛毛
- 2021-03-10 20:32
我。。知。。道
加。。我。。私。。聊
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯