織物組織CAD軟件的開發

第六章織物組織CAD軟件的開發一、CAD系統功能概述菜單化設計集成織物組織CAD設計的功能，配合密碼登錄管理；參數化設計功能，輸入參數后，可生成三原、變化、聯合組織，以及自定義組織；可以保存數據文件和圖像文件，并能打開相應的數據文件和圖像文件。二、菜單設計根據系統功能，進行相應的菜單設計，可如下表進行分級：文件管理原組織變化組織聯合組織自定義組織幫助建立下拉式菜單打開VB，新建EXE文件；選擇菜單/工具/菜單編輯器，或直接從工具欄選擇菜單編輯器，進入菜單編輯狀態。依次編輯各級菜單，分別填寫標題和名稱；插入和刪除分別表示增加或刪除一個菜單命令項；上下箭頭表示菜單位置上下移動；左右箭頭表示菜單級別調整，左表示級別高；三、分別建立各子模塊1、平紋模塊（窗體設計+代碼編寫）窗體設計：新建exe文件建立1個picturebox控件2個commandbutton控件1個frame控件在frame控件內放置1個label控件；2個radio按鈕；1個text控件控件屬性調整：Form：caption屬性改為：平紋Picturebox屬性：Autoredraw設為：true；Height、width、scaleheight、scalewidth均設為相同的值，如6000Commandbutton的caption屬性分別為：繪圖、退出Frame的caption屬性為：參數選擇Label的caption屬性為：循環次數Text的text設定為：默認值，如10單選按鈕分別設定caption為：單起、雙起將單起對應的單選按鈕的value設為：true代碼編寫：通用模塊部分：Dimx,y,w,hAsSingleDimi,jAsIntegerDimnAsIntegerDima()AsInteger退出按鈕：PrivateSubCommand2_Click()UnloadMeEndSub繪圖按鈕（第一部分）PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n=Val(Text1.Text)*2'獲取組織圖幅面w=Picture1.Width/n'定義組織點尺寸h=Picture1.Height/nReDima(1Ton,1Ton)AsInteger'定義組織矩陣IfOption1.Value=TrueThen'單起Fori=1Ton'組織矩陣編碼Forj=1Tonk=i+jIfkMod2=0Thena(i,j)=0Elsea(i,j)=1EndIfNextjNextiEndIfIfOption2.Value=TrueThen'雙起Fori=1Ton'組織矩陣編碼Forj=1Tonk=i+jIfkMod2=0Thena(i,j)=1Elsea(i,j)=0EndIfNextjNextiEndIf繪圖按鈕（第二部分）Fori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.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)NextiEndSub繪圖按鈕（第三部分）2、斜紋組織窗體設計：1個picturebox控件；1個frame控件，內含：3個文本框控件；2個單選按鈕控件；1個標簽控件；1條水平線段；2個commandbutton控件控件屬性調整：參照前面的設置方法，結合右圖代碼編寫通用部分：Dimx,y,w,hAsSingleDimi,jAsIntegerDimn,n1,n2,n3,n4

AsIntegerDimsAsIntegerDima()asintegerDimbase()asinteger退出按鈕：PrivateSubCommand2_Click()UnloadMeEndSub繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=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/nn4=n2+n3s=1ReDima(1Ton,1Ton)AsInteger'定義循環后組織矩陣ReDimbase(1Ton4,1Ton4)AsInteger'定義組織矩陣IfOption1.Value=TrueThen'右斜Fori=1Ton4Ifi<=n3Thenbase(1,i)=0Elsebase(1,i)=1EndIfNextiForj=2Ton4Fori=1Ton4Ifi+s<=n4Thenbase(j,i)=base(j-1,i+s)Elsebase(j,i)=base(j-1,(i+s)Modn4)EndIfNextiNextjEndIf二維數組，列前，行后數組base首列賦值數組base其他列賦值n2=3n3=1n4=4j=2j=1j=3j=4IfOption2.Value=TrueThen'左斜Fori=1Ton4Ifi<=n3Thenbase(n4,i)=0Elsebase(n4,i)=1EndIfNextiForj=n4-1To1Step-1Fori=1Ton4Ifi+s<=n4Thenbase(j,i)=base(j+1,i+s)Elsebase(j,i)=base(j+1,(i+s)Modn4)EndIfNextiNextjEndIfj=3j=4j=2j=1n2=3n3=1n4=4二維數組，列前，行后數組base末列賦值數組base其余列賦值Fori=1Ton1Forj=1Ton1Fork=1Ton4Forl=1Ton4a((i-1)*n4+k,(j-1)*n4+l)=base(k,l)NextlNextkNextjNextiFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.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)NextiEndSub產生循環矩陣an1=2n2=3n3=1n4=4bbbb3、緞紋組織窗體設計1個picturebox控件；1個frame控件內含：3個text控件；2個單選按鈕控件；3個label控件；2個commandbutton按右圖進行控件屬性設置控件代碼編寫：通用模塊：Dimi,jAsIntegerDimn,n1,n2,n3,n4,n5,n6AsInteger'申明整形變量，其中n1,n2,n3分別表示循環次數，枚數，飛數，n4，n5，n6為判斷枚飛互質的中間變量，n為循環后經緯紗數Dima()AsInteger'申明動態整型數組a，循環后數組Dimbase()AsInteger'申明動態整型數組base，基礎緞紋組織數組退出：PrivateSubCommand2_Click()UnloadMeEndSub繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text1.Text)'循環次數n2=Val(Text2.Text)'枚數n3=Val(Text3.Text)'飛數If(n2>=5)And(n3>1)And(n3<n2-1)Then'枚、飛最大公約數n6n4=n2n5=n3Whilen4<>n5Ifn4>n5Thenn4=n4-n5Elsen5=n5-n4EndIfWendn6=n4EndIf判斷枚數和飛數是否合理，計算最大公約數If(n2>=5)And(n3>1)And(n3<n2-1)And(n6=1)Thenn=n1*n2‘獲取組織圖行列w=Picture1.Width/n‘組織點寬h=Picture1.Height/n‘組織點高ReDima(1Ton,1Ton)AsInteger‘定義循環后組織矩陣ReDimbase(1Ton2,1Ton2)AsInteger‘定義基礎組織矩陣IfOption2.Value=TrueThen'緯面Fori=1Ton2Ifi=1Thenbase(i,n2)=1Elsebase(i,n2)=0EndIfNexti緯面緞紋末行賦值n2=5n3=3Forj=(n2-1)To1Step-1Fori=1Ton2Ifi+n3<=n2Thenbase(i+n3,j)=base(i,j+1)Elsebase((i+n3)Modn2,j)=base(i,j+1)EndIfNextiNextjEndIfIfOption1.Value=TrueThen'經面Fori=1Ton2Ifi<n2Thenbase(1,i)=1Elsebase(1,i)=0EndIfNexti緯面緞紋其他行賦值經面緞紋首列賦值n2=5n3=3Forj=2Ton2Fori=1Ton2Ifn2+i-n3<=n2Thenbase(j,n2+i-n3)=base(j-1,i)Elsebase(j,(n2+i-n3)Modn2)=base(j-1,i)EndIfNextiNextjEndIfFori=1Ton1Forj=1Ton1Fork=1Ton2Forl=1Ton2a((i-1)*n2+k,(j-1)*n2+l)=base(k,l)NextlNextkNextjNexti經面緞紋其他列賦值循環矩陣的產生n1=2bbbbFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.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)NextiElseMsgBox"請重新設置枚數和飛數",0,"請改正錯誤"EndIfEndsub錯誤提示對話框4.方平組織模塊代碼編程：通用部分：Dimi,jAsInteger'申明變量i，j為整形變量，用來作為循環變量Dimx,y,w,hAsSingle'申明單精度實型x,y為坐標，w，h為單元格尺寸Dimn,n1,n2AsInteger'申明整形變量，其中n1,n2分別表示循環次數，方格組織邊長，n為循環后經緯紗數Dima()AsInteger'申明動態整型數組a，循環后數組繪圖按鈕command1PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色Picture1.DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text1.Text)'循環次數n2=Val(Text2.Text)'方格邊長n=n1*n2*2'獲取組織圖幅面w=Picture1.Width/n'組織點寬h=Picture1.Height/n'組織點高ReDima(1Ton,1Ton)AsInteger'定義組織矩陣Fori=1Ton'產生方平組織矩陣第1列IfiMod2*n2<=n2AndiMod2*n2>0Thena(1,i)=0Elsea(1,i)=1EndIfNextiForj=2Ton'產生方平組織矩陣其余各列Fori=1TonIfjMod2*n2<=n2AndjMod2*n2>0ThenIfa(1,i)=1Thena(j,i)=1Elsea(j,i)=0EndIfElseIfa(1,i)=1Thena(j,i)=0Elsea(j,i)=1EndIfEndIfNextiNextjFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.Line(x+(i-1)*w,y)-(x+(i-1)*w,y+n*h),RGB(0,0,0),BPicture1.Line(x,y+(i-1)*h)-(x+n*w,y+(i-1)*h),RGB(0,0,0),BNextiEndSub退出按鈕Command2部分：PrivateSubCommand2_Click()UnloadMe'卸載窗體EndSub4、變化方平模塊通用模塊：Dimx,y,w,hAsSingleDimi,jAsIntegerDimn,n1,n4,n5AsInteger'組織圖幅面Dimn2,n3AsString‘經浮長字符串，緯浮長字符串退出和窗體加載，和前面代碼一樣繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text1.Text)'循環次數n2=Text2.Text'經浮長字符串n3=Text3.Text'緯浮長字符串n4=Len(n2)'經緯浮長對數ReDimwarp(1Ton4)AsIntegerReDimweft(1Ton4)AsIntegerReDimtemp(1Ton4)AsIntegern5=0Fori=1Ton4warp(i)=Val(Mid(n2,n4-i+1,1))'從經浮長字符串依次取得各經浮長weft(i)=Val(Mid(n3,n4-i+1,1))'從緯浮長字符串依次取得各緯浮長temp(i)=warp(i)+weft(i)n5=n5+temp(i)'獲取完全組織循環數Nextin=n1*n5'獲取組織圖幅面w=Picture1.Widthh=Picture1.HeightPicture1.ScaleHeight=h'定義圖片框內部大小Picture1.ScaleWidth=ww=w/n'定義組織點尺寸h=h/nReDima(1Ton,1Ton)AsInteger‘定義循環組織圖矩陣ReDimb(1Ton5,1Ton5)AsInteger'定義完全組織矩陣ReDimn6(0Ton4)AsIntegern6(0)=0Fori=1Ton4n6(i)=n6(i-1)+temp(i)Nexti'產生第1經紗Fori=1Ton4Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Thenb(1,j)=0Elseb(1,j)=1EndIfNextjNextiReDimbb(1Ton5)'判斷向量Fori=1Ton5bb(i)=b(1,n5-i+1)Nexti'根據判斷向量依次產生其他經紗Forj=2Ton5Ifbb(j)=1ThenFori=1Ton5b(j,i)=b(1,i)NextiElseFori=1Ton5b(j,i)=Abs(1-b(1,i))NextiEndIfNextjFori=1Ton1Forj=1Ton1Fork=1Ton5Forl=1Ton5a((i-1)*n5+k,(j-1)*n5+l)=b(k,l)NextlNextkNextjNextI剩下部分為繪圖部分，和前面一致。Endsub5、復合斜紋窗體設計1個picturebox1個frame內含：3個text控件；1個label控件；2個單選按鈕；1個水平線2個commandbutton控件屬性修改參考右圖代碼編寫：通用模塊：Dimi,jAsInteger'申明變量i，j為整形變量，用來作為循環變量Dimx,y,w,hAsSingle'申明單精度實型x,y為坐標，w，h為單元格尺寸Dimn,n1,n4,n5AsInteger'申明整形變量，其中n1為循環次數；n4表示分子分母對數；n5表示完全組織循環數；n為循環后經緯紗數Dimn2,n3AsString'申明字符串變量n2表示經浮點字符串；n3表示緯浮點字符串DimsAsInteger'申明整型變量s，飛數Dimwarp()AsInteger'申明動態整型數組warp，經浮點數組Dimweft()AsInteger'申明動態整型數組weft，緯浮點數組Dimtemp()AsInteger'申明動態整型數組temp，臨時存放數組Dima()AsInteger'申明動態整型數組a，循環后數組Dimbase()AsInteger'申明動態整型數組base，基礎復合斜紋數組Dimn6()AsInteger'申明動態整型數組temp，臨時存放數組繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text3.Text)'循環次數n2=Text1.Text'分子字符串賦給n2n3=Text2.Text'分母字符串賦給n3n4=Len(n2)'分子、分母對數ReDimwarp(1Ton4)AsIntegerReDimweft(1Ton4)AsIntegerReDimtemp(1Ton4)AsIntegern5=0Fori=1Ton4warp(i)=Val(Mid(n2,n4-i+1,1))'將字符串n2逐個字符轉為數值并存入經浮點數組weft(i)=Val(Mid(n3,n4-i+1,1))'將字符串n3逐個字符轉為數值并存入緯浮點數組temp(i)=warp(i)+weft(i)'建立每次經緯交織的經緯浮長總數n5=n5+temp(i)'獲取完全組織循環數Nextin=n1*n5'獲取循環后組織圖行列w=Picture1.Width/n'組織點寬h=Picture1.Height/n'組織點高s=1'飛數ReDima(1Ton,1Ton)AsInteger'定義組織圖矩陣ReDimbase(1Ton5,1Ton5)AsInteger'定義完全組織矩陣ReDimn6(0Ton4)AsIntegern6(0)=0Fori=1Ton4n6(i)=n6(i-1)+temp(i)NextIIfOption2.Value=TrueThen'右斜Fori=1Ton4Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Then'基礎組織首列賦值base(1,j)=0Elsebase(1,j)=1EndIfNextjNextiForj=2Ton5'基礎組織其余列賦值Fori=1Ton5Ifi+s<=n5Thenbase(j,i)=base(j-1,i+s)Elsebase(j,i)=base(j-1,(i+s)Modn5)EndIfNextiNextjEndIfIfOption1.Value=TrueThen'左斜Fori=1Ton4'基礎組織末列賦值Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Thenbase(n5,j)=0Elsebase(n5,j)=1EndIfNextjNextiForj=(n5-1)To1Step-1'基礎組織其余列賦值Fori=1Ton5Ifi+s<=n5Thenbase(j,i)=base(j+1,i+s)Elsebase(j,i)=base(j+1,(i+s)Modn5)EndIfNextiNextjEndIfFori=1Ton1'根據循環次數將基礎組織base鋪設產生數組aForj=1Ton1Fork=1Ton5Forl=1Ton5a((i-1)*n5+k,(j-1)*n5+l)=base(k,l)NextlNextkNextjNextiFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.Line(x+(i-1)*w,y)-(x+(i-1)*w,y+n*h),RGB(0,0,0),BPicture1.Line(x,y+(i-1)*h)-(x+n*w,y+(i-1)*h),RGB(0,0,0),BNextiEndSub

Command2部分：PrivateSubCommand2_Click()UnloadMe'卸載窗體EndSub六、曲線斜紋窗體設計：1個picturebox；1個frame內含：4個text3個label1水平線2個commondialog控件4個commandbutton控件屬性參考右圖設定模塊文件通用模塊：Dimx,y,w,hAsSingleDimi,jAsIntegerDimn,n1,n4,n5AsInteger'組織圖幅面Dimn2,n3AsString'分子，分母字符串Dimn7AsIntegerDimn8AsInteger'緯紗循環數Dimn9AsInteger'經紗循環數Dimn10AsInteger'飛數和DimfeiAsString‘飛數字符串退出和窗體加載部分和前面一致模塊：（公共數組a，b，c）Publica()AsIntegerPublicb()AsIntegerPublicc()AsInteger繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Form1.Text1.Text)'循環次數n2=Text2.Text'分子字符串n3=Text3.Text'分母字符串fei=Text4.Textn4=Len(n2)‘分子、分母對數ReDimwarp(1Ton4)AsIntegerReDimweft(1Ton4)AsIntegerReDimtemp(1Ton4)AsIntegern5=0Fori=1Ton4warp(i)=Val(Mid(n2,n4-i+1,1))'從分子中依次取得經紗浮長weft(i)=Val(Mid(n3,n4-i+1,1))'從分母中依次取得緯紗浮長temp(i)=warp(i)+weft(i)n5=n5+temp(i)'獲取完全組織緯紗循環數NextiDims2()AsString'字符串數組s2=Split(fei,",",-1)'按照","分隔字符串fei,并賦給下標0開始的字符串數組s2n9=UBound(s2)+1'得到字符串數組最大下標并+1，得到字符串數組個數n9ReDims(1Ton9,1)AsInteger'飛數數值數組Fori=1Ton9s(i,1)=Val(s2(i-1))'將字符串數組s2各元素，轉換為數值，賦值給數組sNextin10=0Fori=1Ton9n10=n10+s(i,1)NextiIf(n10Modn5=0)Thenn=n1*n9'獲取組織圖幅面w=Picture1.Widthh=Picture1.HeightPicture1.ScaleHeight=h'定義圖片框內部大小Picture1.ScaleWidth=ww=w/n'定義組織點尺寸h=h/nReDimn6(0Ton4)AsIntegern6(0)=0Fori=1Ton4n6(i)=n6(i-1)+temp(i)NextiReDima(1Ton,1Ton)AsInteger'定義組織矩陣ReDimb(1Ton9,1Ton5)AsInteger'完全組織矩陣Fori=1Ton4Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Thenb(1,j)=0Elseb(1,j)=1EndIfNextjNextIForj=2Ton9Fori=1Ton5Ifi+s(j-1,1)<=n5Andi+s(j-1,1)>0Thenb(j,i)=b(j-1,i+s(j-1,1))ElseIfi+s(j-1,1)<=0Thenb(j,i)=b(j-1,n5-(Abs(i+s(j-1,1))Modn5))ElseIfi+s(j-1,1)>n5Thenb(j,i)=b(j-1,(i+s(j-1,1))Modn5)EndIfEndIfEndIfNextiNextj根據交織規律產生第1列經紗根據飛數產生其余各列經紗Fori=1Ton1Forj=1Ton/n5Fork=1Ton9Forl=1Ton5a((i-1)*n9+k,(j-1)*n5+l)=b(k,l)NextlNextkNextjNextI繪圖和前面一致ElseMsgBox"飛數和與完全組織緯紗數不成倍數關系，請調整",0,"錯誤"EndIfEndSub數據保存按鈕：PrivateSubCommand3_Click()DimintfileAsIntegerDimstrfilenameAsStringOnErrorGoTo100WithCommonDialog1.Filter="所有文件|*.*|文本文件|*.txt"'文件過濾器，選擇txt文件.FilterIndex=2'文本文件缺省索引值為2.DefaultExt="TXT"'缺省的文本文件擴展名TXT.Flags=cd