用vb编写程序 画出 方波怎么整 在picture里面画
3个回答
展开全部
用Picture框的Line方法。通过循环,每次循环画出方波的一个周期。比如程序:
Private Sub Command1_Click()
Dim x As Integer, x0 As Integer, y As Integer
Dim w As Integer, h As Integer
y = Picture1.ScaleHeight / 2 '确定方波在Picture框中的位置
w = 300 '方波宽度
h = 200 '方波高度
For x = 0 To Picture1.ScaleWidth - w Step 2 * w
x0 = x
Picture1.Line (x0, y)-(x + w, y) '向右
Picture1.Line (x + w, y)-(x + w, y - h) '向上
Picture1.Line (x + w, y - h)-(x + 2 * w, y - h) '向下
Picture1.Line (x + 2 * w, y - h)-(x + 2 * w, y) '向右
Next x
End Sub
Private Sub Command1_Click()
Dim x As Integer, x0 As Integer, y As Integer
Dim w As Integer, h As Integer
y = Picture1.ScaleHeight / 2 '确定方波在Picture框中的位置
w = 300 '方波宽度
h = 200 '方波高度
For x = 0 To Picture1.ScaleWidth - w Step 2 * w
x0 = x
Picture1.Line (x0, y)-(x + w, y) '向右
Picture1.Line (x + w, y)-(x + w, y - h) '向上
Picture1.Line (x + w, y - h)-(x + 2 * w, y - h) '向下
Picture1.Line (x + 2 * w, y - h)-(x + 2 * w, y) '向右
Next x
End Sub
展开全部
用画线、画点的办法,即用line,pset语句来画,具体请看相关的VB教材。
追问
老师让用pset 画 请问具体程序怎样的啊 下午就要验收了 急求啊 谢谢了 用 picture
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Pset(x,y),RGB(r,g,b) 在(X,Y)点画一个颜色为RGB(r,g,b)的点
要画线就取一个小点的累加值不停地加到另外一个坐标。。。
要画线就取一个小点的累加值不停地加到另外一个坐标。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询