VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴Private Sub Command2_Click()Dim x As IntegerDim y As IntegerPicture2.Scale (-50, 70)-(1600, -5) '定义坐标系Picture2.DrawWidth = 1.2'画x轴坐标系Picture2

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/07 03:06:46
VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴Private Sub Command2_Click()Dim x As IntegerDim y As IntegerPicture2.Scale (-50, 70)-(1600, -5) '定义坐标系Picture2.DrawWidth = 1.2'画x轴坐标系Picture2

VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴Private Sub Command2_Click()Dim x As IntegerDim y As IntegerPicture2.Scale (-50, 70)-(1600, -5) '定义坐标系Picture2.DrawWidth = 1.2'画x轴坐标系Picture2
VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴

Private Sub Command2_Click()

Dim x As Integer

Dim y As Integer

Picture2.Scale (-50, 70)-(1600, -5) '定义坐标系

Picture2.DrawWidth = 1.2

'画x轴坐标系

Picture2.Line (0, 0)-(1550, 0), vbBlue

Picture2.ForeColor = vbBlue

Picture2.Print "h"

'画温度坐标点（以10度为1个单位）

Picture2.DrawWidth = 4

For y = 0 To 60 Step 10

Picture2.PSet (0, y)

Next y

'画温度坐标点（以1度为1个单位）

Picture2.DrawWidth = 1.2

For y = 1 To 59

Picture2.PSet (0, y)

Next y

'画y轴坐标系

Picture2.Line (0, 0)-(0, 65), vbBlue

Picture2.ForeColor = vbBlue

Picture2.Print "℃"

'画时间坐标点（以1小时为1个单位）

For x = 0 To 1440 Step 60

Picture1.PSet (x, 0)

Next x

'画时间坐标点（以6小时为1个单位）

Picture2.DrawWidth = 4

Picture2.PSet (360, 0)

Picture2.PSet (720, 0)

Picture2.PSet (1080, 0)

Picture2.PSet (1440, 0)

'指定位置显示原点o

Picture2.CurrentX = -30

Picture2.CurrentY = -1

Picture2.Print "0"

End Sub

 

 

 

 

 


VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴Private Sub Command2_Click()Dim x As IntegerDim y As IntegerPicture2.Scale (-50, 70)-(1600, -5) '定义坐标系Picture2.DrawWidth = 1.2'画x轴坐标系Picture2
你没有写刻度当然就没有显示咯
'画温度坐标点（以10度为1个单位）
Picture2.DrawWidth = 4
For y = 10 To 60 Step 10 '原点就跳过吧
Picture2.PSet (0,y) ‘建议画圆
Picture2.CurrentX = 0 '坐标自己微调下更美观
Picture2.CurrentY = y
Picture2.Print y
Next y
（下同略）
箭头就自己画一个吧,两个线段而已,计算出起点终点就可以了.

VB中为何我的坐标轴没有箭头和刻度,我要的是时间温度坐标轴Private Sub Command2_Click()Dim x As IntegerDim y As IntegerPicture2.Scale (-50, 70)-(1600, -5) '定义坐标系Picture2.DrawWidth = 1.2'画x轴坐标系Picture2 Mathematica 刻度向外的问题 有谁知道在Mathematica中怎么设置刻度可以朝外的呀?就是我要做成这样的效果，坐标轴上的刻度都是朝外的。 我想画数轴,要带刻度和箭头的那种,求教怎么画呢?画好后我只要得到能打印的黑白图片就可以。 origin中如何改变坐标轴的刻度 请教高手如何在几何画板中建直角坐标系,要求有箭头和刻度的 Origin中如何将坐标轴的刻度设置的不均匀?想在Origin中作图.如何将坐标轴的刻度设置的不均匀,比如X范围为[0,100],我希望在【0,50】之间画得详细一些,所以显示要长一些,而在【50,100】之间显示 如何在EXCEL2007图表中的坐标轴上添加坐标单位?我用的是EXCEL2007,想在横坐标的箭头附近添加横坐标的单位,试了好几次都没成功,网上介绍说坐标轴格式——刻度——显示单位,我在EXCEL2007里没 MATLAB中画图,对坐标轴和轴上刻度的粗细和长短怎么设置? origin的axis 如图 我希望把坐标轴上的刻度朝里面,如何设置? origin 坐标轴等距9.0、坐标刻度变成了我输进去的数据~蛋疼 cad怎么画圆弧状的箭头?比如我要标注角度需要箭头的对称线和标注线重合是圆弧一样的箭头,而不是箭头的起点的中点和端点在圆弧上的箭头? 我想用matlab画一个圆,圆心在原点.但是要标出x轴和y轴.要有箭头.圆我画出来了.可是就是没有坐标轴.不知道怎么添加坐标轴.x=-5:10;y=-5:10;plot(x,y);hold on;plot([0 0],[min(y) max(y)],'k',[min(x) max(x)],[0 0],' 给你一个角,要你做出它的余角(只能用没有刻度直尺和圆规)快我有急用 3DMAX里的坐标轴问题我的坐标轴变成这个红色的了我要变成这种有彩色箭头的,三个轴方向,怎么弄啊,按X键是没有用的 matlab更改坐标轴刻度值有问题我用set语句可以把坐标轴的刻度值改动,比如原本1的地方刻度值可以改为0.1.但是数据值不会随着我改动的刻度值而自动改动.求大神指教,如何在改动坐标轴刻度 Origin中如何将坐标轴的刻度设置的不均匀 Matlab中怎么不显示坐标轴的刻度值 Matlab中怎么不显示坐标轴的刻度值