鞍座的有了，大家有没有兴趣做个耳座的？

swaywood · 发表于 2004-5-9 02:04

我给一个思路，大家想一想，可以分工来做，共同学习……

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt">耳座程序的思路

1. 整个程序数据的初始化，如果各参数值为nil则全部赋值为0，如果不为nil则将该值导入对话框，同时赋值为相关变量。子程序名为：SL-DATA-IN要用到的子程序有：SL-TYPE-IN,SL-LIST-IN,SL-SCALE-IN,SL-DATA-VIEW,SL-SLIDE-SHOW

2. 耳座类型的导入SL-TYPE-IN

3. 公称直径的导入，SL-LIST-IN

4. 绘图比例的确定SL-SCLE-IN

5. 各相关数据的显示SL-DATA-VIEW

6. 各相关数据修改后变量的重新赋值

7. 幻灯片的显示，目前只让其与耳座类型相关起来

8. 绘图主程序SL-DRAW

9. 错误处理函数

10. 确保各数据不为nil的情况下执行主程序，开始绘图

要求数据可以动态显示，数据修改后应及时传递给相关变量

<SPAN lang=EN-US style="FONT-SIZE: 10.5pt; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 宋体; mso-bidi-font-size: 12.0pt; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA"><?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com

ffice:office" /><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype>

hpy · 发表于 2004-5-9 02:48

我到有一个绘制耳座的程序，不知是否符合你的要求。

swaywood · 发表于 2004-5-9 03:01

传一个上来吧，或许有帮助，多谢，我可以将它完善！

swaywood · 发表于 2004-5-10 20:44

耳座程序已完成大半，晚上家再将部分程序帖上来，大家出点点子，怎么将它做的更好……

鞍座的有了，大家有没有兴趣做个耳座的？

本帖子中包含更多资源

本帖子中包含更多资源