织物组织CAD软件的开发.ppt

第六章 织物组织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