三点建面&点到面距离计算源代码vb.net下载

weixin_39821746 2020-06-23 01:30:37

vb.net写的三点建面和点到面距离计算的程序，适用于点击光测量产品的平面度
相关下载链接：//download.csdn.net/download/qq_24750539/10589821?utm_source=bbsseo

...全文

48 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

vb.net写的三点建面和点到面距离计算的程序，适用于点击光测量产品的平面度

利用VB.net，根据空间圆上三点的三维坐标来计算圆心的三维坐标及半径。完整vs2015程序工程。

已知ABC三点坐标，得到A点到BC的最近距离。 VB.net源代码 VS2012开发环境 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim A_x As Double = Me.TextBox_AX.Text Dim A_y As Double = Me.TextBox_AY.Text Dim B_x As Double = Me.TextBox_BX.Text Dim B_y As Double = Me.TextBox_BY.Text Dim C_x As Double = Me.TextBox_CX.Text Dim C_y As Double = Me.TextBox_CY.Text Dim Gsz_dis As Double If A_x = B_x Then Gsz_dis = Math.Abs(C_x - A_x) Else Dim Line_K As Double = (B_y - A_y) / (B_x - A_x) Dim Line_C As Double = (B_x * A_y - A_x * B_y) / (B_x - A_x) Gsz_dis = Math.Abs(Line_K * C_x - C_y + Line_C) / (Math.Sqrt(Line_K * Line_K + 1)) End If Me.TextBox_Result.Text = Gsz_dis End Sub

内容索引:VB源码,界面编程,多边形窗体　　VB生成圆形、三角形、五角星、菱形窗体，代码个别地方有错误，不影响编译，运行界面如上图所示。

用递归的方法画分形图用递归的方法画分形图　　分形几何是数学领域里新兴的课题，如果将图形的每个元素按某种规则进行变形，得到新的图形，以此类推，进行若干次变形后得到的图形就是分形图形。Couch曲线是最典型的分形图形：　　将一条线段按照图1进行变换，得到图1，再将图1中的每条线段按图1的折线变换得到图2，以此类推，进行6次变换就得到图6，如果进行无限次变换，就得到的是Couch曲线，Couch曲线的维数不是整数维，更多详情请见分形方面的书籍。　　用分形图形能画图许多漂亮的图案而被广泛地应用，下面将几个简单的分形图形的代码与图形大家分享。 //Couch曲线的画法 void Couch(CDC *pDC,int x1,int y1,int x2,int y2,int n) { //pDC是画图的设备上下文的指针 //x1,y1,x2,y2是起始的两点 //其中参数n是递归的层数 int x3,y3,x4,y4,x5,y5; //以下是根据空间几何计算出来的坐标 x3=x1+(x2-x1)/3; y3=y1+(y2-y1)/3; x4=x1+(x2-x1)*2/3; y4=y1+(y2-y1)*2/3; x5=x3+(x4-x3)/2+int(sqrt(3)*(y4-y3)/2); y5=y3-int(sqrt(3)*(x4-x3)/2)+(y4-y3)/2; //递归最后一层,递归的出口 if(n==1) { pDC->MoveTo(x1,y1); pDC->LineTo(x3,y3); pDC->LineTo(x5,y5); pDC->LineTo(x4,y4); pDC->LineTo(x2,y2); } else { //递归画图 Couch(pDC,x1,y1,x3,y3,n-1); Couch(pDC,x3,y3,x5,y5,n-1); Couch(pDC,x5,y5,x4,y4,n-1); Couch(pDC,x4,y4,x2,y2,n-1); } } //斯宾斯基篓垫的画法 void Floor(CDC *pDC,int x1, int y1,int x2,int y2,int x3,int y3,int n) { //pDC是画图的设备上下文的指针 //x1,y1,x2,y2,x3,y3是起始的三角形的三点坐标 //其中参数n是递归的层数 int x11,x22,x33,y11,y22,y33; //以下是根据空间几何计算出来的坐标 x11=(x2+x3)/2; y11=(y2+y3)/2; x22=(x1+x3)/2; y22=(y1+y3)/2; x33=(x1+x2)/2; y33=(y1+y2)/2; pDC->MoveTo(x11,y11); pDC->LineTo(x22,y22); pDC->MoveTo(x11,y11); pDC->LineTo(x33,y33); pDC->MoveTo(x22,y22); pDC->LineTo(x33,y33); //递归最后一层,递归的出口 if(n==1) { pDC->MoveTo(x11,y11); pDC->LineTo(x22,y22); pDC->LineTo(x33,y33); pDC->LineTo(x11,y11); } else { //递归画图 Floor(pDC,x1,y1,x33,y33,x22,y22,n-1); Floor(pDC,x33,y33,x2,y2,x11,y11,n-1); Floor(pDC,x22,y22,x11,y11,x3,y3,n-1); } } //分形矩形的画法 void Rect(CDC *pDC,int x1,int y1,int x2,int y2,int n) { //pDC是画图的设备上下文的指针 //x1,y1,x2,y2是起始矩形坐标 //其中参数n是递归的层数 int x3,y3,x4,y4,x5,y5,x6,y6; //以下是根据空间几何计算出来的坐标 x3=x1+(x2-x1)/3; y3=y1+(y2-y1)/3; x4=x1+(x2-x1)*2/3; y4=y1+(y2-y1)*2/3; x5=x3+(y4-y3); y5=y3-(x4-x3); x6=x4-(y3-y4); y6=y4+(x3-x4); pDC->MoveTo(x1,y1); pDC->LineTo(x3,y3); pDC->MoveTo(x4,y4); pDC->LineTo(x2,y2); //递归最后一层,递归的出口 if(n==1) { pDC->MoveTo(x1,y1); pDC->LineTo(x3,y3); pDC->LineTo(x5,y5); pDC->LineTo(x6,y6); pDC->LineTo(x4,y4); } else { //递归画图 Rect(pDC,x3,y3,x5,y5,n-1); Rect(pDC,x5,y5,x6,y6,n-1); Rect(pDC,x6,y6,x4,y4,n-1); } } //分形树的画法，其中参数n是递归的层数 void Tree(CDC *pDC,int x1,int y1,int x2,int y2,int n) { //pDC是画图的设备上下文的指针 //x1,y1,x2,y2是起始矩形坐标 //其中参数n是递归的层数 int x3,y3,x4,y4,x5,y5; //以下是根据空间几何计算出来的坐标 x3=x1+(x2-x1)/3; y3=y1+(y2-y1)/3; x4=x3+int((x1-x3)*cos(5*pi/6))-int((y1-y3)*sin(5*pi/6)); y4=y3+int((x1-x3)*sin(5*pi/6))+int((y1-y3)*cos(5*pi/6)); x5=x3+int((x1-x3)*cos(5*pi/6))+int((y1-y3)*sin(5*pi/6)); y5=y3-int((x1-x3)*sin(5*pi/6))+int((y1-y3)*cos(5*pi/6)); pDC->MoveTo(x1,y1); pDC->LineTo(x2,y2); //递归最后一层,递归的出口 if(n==1) { pDC->MoveTo(x3,y3); pDC->LineTo(x4,y4); pDC->MoveTo(x3,y3); pDC->LineTo(x5,y5); } else { //递归画图 Tree(pDC,x3,y3,x2,y2,n-1); Tree(pDC,x3,y3,x4,y4,n-1); Tree(pDC,x3,y3,x5,y5,n-1); } } 　　上述的代码及图形附有Visual C++源代码，并在Windows XP和Visual C++6.0下调试成功。更多的分形图形及图形坐标空间几何的计算方法请与作者联系。最新评论 [发表评论] [文章投稿] 查看所有评论推荐给好友打印改成sqrt(3.0)就好了，vs的问题，参数多类型重载没自己识别出来 ( maxint 发表于 2008-9-4 21:27:00) skinfeature界面产品特点介绍 SkinFeature完全支持各种常用控件及窗口。对话框，单文档界面，多文档界面的全部支持。完全支持PNG、TGA、bmp 图像格式。支持皮肤(.rss)文件加密。保护美工图像不被别人非法使用，进一步保护自身知识产权。支持从msstyle wba 等主题文件中自动转化为rss皮肤文件。 SkinFeature完全支持 VC,Delphi,C#,VB.Net,Visual Basic,C++ Bulider, PowerBuilder, Win32 SDK Supported WTL, ATL, 第三方厂商SDK, OUTLOOK 等等界面换肤。支持各Windows平台 Windows 9X/NT/2000/2003/XP/Vista 完全支持ANSI UNICODE 文字编码格式。完全支持动态换肤(*.rss)，支持不规则窗体，支持美工设计自定义界面生成方案。完全多线程，自定义窗口类换肤支持。内含15种专业皮肤(.rss)文件。内含SkinDesigner 皮肤文件开发工具。 http://www.skinfeature.com ( skinfeature 发表于 2008-6-18 17:30:00) change sqrt(3) to sqrt(3.0) ( Eric_wang 发表于 2007-10-30 9:59:00) x5=x3+(x4-x3)/2+int(sqrt(3)*(y4-y3)/2); y5=y3-int(sqrt(3)*(x4-x3)/2)+(y4-y3)/2; 运行是错误的啊? 错误 1 error C2668: 'sqrt' : ambiguous call to overloaded function d:\wordplay\c++\范例\fractral递归方法画分图形\stdafx.cpp 19 错误 2 fatal error C1903: unable to recover from previous error(s); stopping compilation d:\wordplay\c++\范例\fractral递归方法画分图形\stdafx.cpp 19

下载资源悬赏专区

13,654

社区成员

12,572,709

社区内容

发帖

与我相关

我的任务

其他技术论坛（原bbs）

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章