数字物理论文-通过 VB 模拟电、磁场的场强分布.docVIP

数字物理论文-通过 VB 模拟电、磁场的场强分布.doc

  1. 1、本文档共26页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
河海大学2009学年数字物理论文 通过VB模拟电、磁场的场强分布 班级:测绘(1)班 学号:0804040121 姓名: 曹 奇 指导老师:张爱梅 二零零九年十二月 中国 南京 通过VB模拟电、磁场的场强分布 曹奇 (南京 河海大学 土木工程学院 0804040124) 摘要:Visual Basic是一种面向对象的程序设计语言,同时也是一种实用的图形界面的软件开发环境,具有很强的图形处理功能。本程序将利用Visual Basic的这一功能模拟电、磁场的场强分布,主要以通电螺旋形线圈、带电球体、通有电流的圆柱体和通有变化磁场的螺线管四种示例来模拟绘制中心磁感应强度、电场分布图形、磁场和感生电场图形分布,并计算相应结果。 关键词:VB 电、磁场的场强分布 模拟绘图 引言:由于电、磁场内容过于复杂抽象,无法直观的感觉和体会,往往给人一种无法着力的感觉,而利用图像则可以很好的解决这一问题,传统绘图多为人工,费时且不准确。随着计算机的发展,计算机绘图技术也逐渐成熟,本程序即采用Visual Basic强大的绘图及图形处理功能模拟电、磁场的场强分布,快速准确的绘制出电场、磁场分布图形,并且通过计算功能编写算法计算出图形特殊点的场强,简单而又便捷。 程序思路: 本程序通过VB编辑较为人性化的窗口,不仅拥有windows一贯的的菜单界面,更添加了弹出式菜单,以方便操作。通过使用者的选择不同的操作程序,从而进入不同的操作界面。 此程序主要分为四个程序界面:(1)通电螺旋形线圈求中心磁感应强度;(2)模拟带点球体的北外电场分布;(3)模拟通有电流圆柱体求内外磁场分布;(4)模拟通有变化磁场产生感生电场的分布。在各个程序界面中均设有相应的文本框、按钮等控件来收集使用者对于绘制图形的要求。然后通过vb绘点、绘线、绘曲线程序完成,并且有相应的算法语句来计算出图形中一些特殊点的物理量,运用以直代曲,以点代线方法,以使图形更加量化,内容更加具体。 主要过程、模块及其功能: (1)窗体的相互切换: Private Sub button2_Click() Form1.Hide Form3.Show End Sub (2)窗体label控件的文本显示 Private Sub Form_Load() Label1.Caption = 测绘一班 Chr(13) 0804040124 Chr(13) 曹奇 (本语句在VB程序中为行语句) Label2.Caption = 本程序分为个子程序,均关于模拟电、磁场: Chr(13) Chr(13) (1)关于通电螺旋形线圈求中心磁感应强度 Chr(13) Chr(13) (2)模拟带点球体的内外电场分布 Chr(13) Chr(13) (3)模拟通有电流圆柱体求内外磁场分布End Sub (3)输入绘图信 息并计算 Private Sub Command1_Click() If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Or Not IsNumeric(Text3.Text) Or Not IsNumeric(Text4.Text) Then (本语句在VB程序中为行语句,主要是用户判断是否输入数值) MsgBox 请输入数值, vbInformation End If On Error Resume Next 添加此句更人性化,避免不必要的麻烦 R1 = Text1.Text R2 = Text2.Text N = Text3.Text I = Text4.Text B = 4 * 3.1415926 * 10 ^ -7 * N * I * 0.5 * Log(R2 / R1) Text5.Text = B (本语句主要用来收录使用者对“通电螺旋形线圈求中心磁感应强度”绘制图形的相关指令,并计算出圆心处磁感应强度B) (4)绘制坐标系(x轴和y轴) Dim X As Single, Y As Single, j As Single Picture1.Cls Picture1.Scale (-80, 80)-(80, -80) Picture1.Line (0, 80)-(0, -80)

您可能关注的文档

文档评论(0)

***** + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档