社区
多媒体
帖子详情
求助用VB计算图象多个圆形和近圆形实体的面积
thinkinuml
2005-08-03 11:43:12
用数码相机拍摄的位图相片有多个圆形和近圆形的实体,现向高手请教用VB计算其多个圆形和近圆形实体的面积或直径的源程序
...全文
248
15
打赏
收藏
求助用VB计算图象多个圆形和近圆形实体的面积
用数码相机拍摄的位图相片有多个圆形和近圆形的实体,现向高手请教用VB计算其多个圆形和近圆形实体的面积或直径的源程序
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
15 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
thinkinuml
2005-09-13
打赏
举报
回复
未解。还真难?但发贴时间很久了。版主如认为占空间,就先结贴吧。
laviewpbt
2005-08-22
打赏
举报
回复
发个图看看 .
thinkinuml
2005-08-22
打赏
举报
回复
急!急!急!哪为高手能给予把上述难题解决?
thirdapple
2005-08-13
打赏
举报
回复
最好给幅图来说明情况,否则不好解啊,
thirdapple
2005-08-12
打赏
举报
回复
数象素……
yhg007
2005-08-08
打赏
举报
回复
up
of123
2005-08-08
打赏
举报
回复
难度最小的方法:
1 首先将图片处理一下,例如用 Photoshop 的魔棒选中,再填充一种图片其他部分没有的颜色。
2 将图片加载到一个 Picture 控件中。然后用 Point 方法逐点检查像素的颜色。如果是填充色,计数器加 1。
3 用所得的像素数,除以图片的像素总数(长 X 宽),再乘以图片所对应的总面积。
DooDu
2005-08-08
打赏
举报
回复
看看是这个样子不:
http://computer10.cbern.gov.cn/computer/upload/c2005/200507350385/200507350385.exe
thinkinuml
2005-08-08
打赏
举报
回复
急!急!急!上述难题请哪位高手救命!
thinkinuml
2005-08-08
打赏
举报
回复
of1230的回复的程序已试。bmp图象中有多个如圆柱体或瓶状体叠放在一块,需计算的是的每一个端面的圆形和近圆形的面积和直径,并诼个将直径的数字存放在文本文件。请哪位高手救命!
sj1210
2005-08-06
打赏
举报
回复
编辑困难啊~~
jxgzay
2005-08-06
打赏
举报
回复
先用某种颜色填充你的区域,再编写代码,计算颜色量ysl。
实际面积=ysl/(图片长*图片宽)*整张图片对应的实际面积
代码实现是很简单的。
Blue_remember
2005-08-05
打赏
举报
回复
一。手动取点量测
二。自动识别(比较难)
DooDu
2005-08-05
打赏
举报
回复
1.hough变换识别圆形
2.测量
sfel801208
2005-08-05
打赏
举报
回复
涉及到图像识别方面的问题,图像识别的算法很复杂
我也不懂,帮你顶吧
最强悍的 VC
VB
反编译工具 Hex-Rays
最强悍的反编译工具 Hex-Rays。可以反编译
VB
VC BCB Delphi 等等一切 x86/x64 代码为 C 代码。密码参见内附说明文件。我写了个简单的介绍 http://blog.caozhongyan.com/article.asp?id=19
DirectX修复工具V4.3增强版
DirectX修复工具(DirectX Repair)是一款系统级工具软件,简便易用。 本程序的主要功能是检测当前系统的DirectX状态,如果发现异常则进行修复。程序主要针对0xc000007b问题设计,可以完美修复该问题。...
计算
机二级(
VB
)
该课程面向对象: 备考
计算
机二级(
VB
)的课程 备课期末考试 自学
VB
程序设计 课程注意提高学习者实战技巧,授课过程中以实际操作演示为主,帮助学习者快速地掌握编程的实际方法和技巧。 课程以2019年
计算
机二级大纲...
VB
中函数的用法,
计算
三角形
面积
Print "三角形
面积
是"; s Else Print "不能构成三角形" End If End Sub Public Function pd(x, y, z) As Boolean If x > 0 And y > 0 And z > 0 And x + y > z And x + z > y And y + z > x Then ...
VB
计算
圆周率的方法
VB
计算
圆周率的方法 方法有二:1. 利用迭代公式进行
计算
,如下: Private Sub Command1_Click() Dim pi As Double, n As Long pi = 2 For n = 1 To 10000 pi = pi * ((2 * n) / (2 * n - 1)) * ((2 * n
多媒体
809
社区成员
8,275
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章