- 1、本文档共60页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
织物组织CAD软件的开发
第六章 织物组织CAD软件的开发;一、CAD系统功能概述;二、菜单设计;建立下拉式菜单;三、分别建立各子模块;控件属性调整:
Form:caption属性改为:平纹
Picturebox属性:Autoredraw设为:true;Height、width、scaleheight、scalewidth均设为相同的值,如6000
Command button的caption属性分别为:绘图、退出
Frame的caption属性为:参数选择
Label的caption属性为:循环次数
Text的text设定为:默认值,如10
单选按钮分别设定caption为:单起、双起
将单起对应的单选按钮的value设为:true
;代码编写:
通用模块部分:
Dim x, y, w, h As Single
Dim i, j As Integer
Dim n As Integer
Dim a() As Integer
退出按钮:
Private Sub Command2_Click()
Unload Me
End Sub
;绘图按钮(第一部分)
Private Sub Command1_Click()
Picture1.Cls 清除上次的画图
Picture1.BackColor = RGB(255, 255, 255) 设置图片框背景色白色
DrawWidth = 1 划线宽度为1
x = 0 起点x坐标为0
y = 0 起点y坐标为0
n = Val(Text1.Text) * 2 获取组织图幅面
w = Picture1.Width/ n 定义组织点尺寸
h = Picture1.Height/ n;ReDim a(1 To n, 1 To n) As Integer 定义组织矩阵
If Option1.Value = True Then 单起
For i = 1 To n 组织矩阵编码
For j = 1 To n
k = i + j
If k Mod 2 = 0 Then
a(i, j) = 0
Else
a(i, j) = 1
End If
Next j
Next i
End If
;For i = 1 To n
For j = 1 To n
If a(i, j) = 1 Then 判断元素1处绘制实心矩形
Picture1.Line (x + (i - 1) * w, y + (j - 1) * h)-(x + i * w, y + j * h), RGB(0, 0, 255), BF
End If
Next j
Next i
x = 0 组织图框线
y = 0
For i = 1 To n + 1
Picture1.Line (x + (i - 1) * w, y)-(x + (i - 1) * w, y + n * h), RGB(0, 0, 0)
Picture1.Line (x, y + (i - 1) * h)-(x + n * w, y + (i - 1) * h), RGB(0, 0, 0)
Next i
End Sub
;2、斜纹组织;代码编写
通用部分:
Dim x, y, w, h As Single
Dim i, j As Integer
Dim n,n1,n2,n3,n4 As Integer
Dim s As Integer
Dim a() as integer
Dim base() as integer
退出按钮:
Private Sub Command2_Click()
Unload Me
End Sub
;绘图按钮:
Private Sub Command1_Click()
Picture1.Cls 清除上次的画图
Picture1.BackColor = RGB(255, 255, 255) 设置图片框背景色白色
DrawWidth = 1 划线宽度为1
x = 0 起点x坐标为0
y = 0 起点y坐标为0
n1 = Val(Text1.Text) 将文本框1的字符转为数值,循环次数
n2 = Val(Text2.Text) 将文本框2的字符转为数值,分子
n3 = Val(Text3.Text) 将文本框3的字符转为数值,分母
n = n1 * (n2 + n3) 获取组织图幅面
w =Picture1.Width / n 定义组织点尺寸
h =Picture1.Height / n
n4 = n2 + n3
s = 1;ReDim a(1 To n, 1 To n) As Integer 定义循环后组织矩阵
ReDim base(1 To n4, 1 To n4) As Integer 定义组织矩阵
If Option1.Value = True Then 右斜
For i = 1 To n4
文档评论(0)