Foxtable(狐表)用户栏目专家坐堂 → [求助] 根据计算结果选定相应数值


  共有12739人关注过本帖树形打印复制链接

主题:[求助] 根据计算结果选定相应数值

帅哥哟,离线,有人找我吗?
黄力
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:858 威望:0 精华:0 注册:2011/9/2 12:59:00
[求助] 根据计算结果选定相应数值  发帖心情 Post By:2012/5/26 10:11:00 [只看该作者]

请教各位大侠:当计算出两个数值后(上差 和 下差),如何用Select Case语句判定应该选用这两个数值之间的相应的数值(根据上差和下差数值的范围,选用几个固定数值当中符合的一个数值)并显示在窗口的文本框内,我上传附件给各位帮看看,小弟非常感激。图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:计算公式.rar


 回到顶部
帅哥,在线噢!
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2012/5/26 11:03:00 [只看该作者]

(根据上差和下差数值的范围,选用几个固定数值当中符合的一个数值)

这句话,俺没看懂。
生性愚笨啊

 回到顶部
帅哥哟,离线,有人找我吗?
黄力
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:858 威望:0 精华:0 注册:2011/9/2 12:59:00
  发帖心情 Post By:2012/5/26 11:32:00 [只看该作者]

比如:上差是3.71 下差是3.58     我的固定数值有3.55  3.70  3.85  4  4.15  4.3  4.45  4.6  那么我应该选3.7

上差最大数值,下差是最小数值,也就是3.58~3.71之间,固定数值有3.55  3.70  3.85  4  4.15  4.3  4.45  4.6 ,判断应该选那个数值图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
FoxMan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:1860 威望:0 精华:0 注册:2012/4/27 11:34:00
  发帖心情 Post By:2012/5/26 12:38:00 [只看该作者]

Dim sq,xq,Avg1,qe1,nD1,qs1 As Double
Dim Dbs As Double() ={3.55,3.70,3.85,4 ,4.15,4.3,4.45,4.6}
sq =3.71
xq =3.58
Avg1=(sq+xq)/2   
qs1 =  Dbs(0)
qe1 = Math.Abs(Dbs(0) -Avg1)

For Each nD1 In Dbs
    If Math.Abs(nD1 -Avg1) < qe1 Then      
        qs1 = nD1
    End If
Next

Output.Show(qs1 )


 回到顶部
帅哥哟,离线,有人找我吗?
黄力
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:858 威望:0 精华:0 注册:2011/9/2 12:59:00
  发帖心情 Post By:2012/5/26 12:38:00 [只看该作者]

还有如何设置窗口文本框为两位小数


图片点击可在新窗口打开查看此主题相关图片如下:999副本.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
黄力
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:858 威望:0 精华:0 注册:2011/9/2 12:59:00
  发帖心情 Post By:2012/5/26 13:42:00 [只看该作者]

我刚刚换了一个上下差数值分别为:4.19和3.95的时候结果输出是4.6  按理应是4.15

不知哪里出写错了


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/5/26 13:57:00 [只看该作者]

上差和下差之间的固定数有可能出现两个或多个怎么办?(也就是上差和下差之间的差距过大时,比如输入上差3.88,输入下茬3.50时)

 回到顶部
帅哥哟,离线,有人找我吗?
黄力
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:858 威望:0 精华:0 注册:2011/9/2 12:59:00
  发帖心情 Post By:2012/5/26 14:44:00 [只看该作者]

不好意思,我没有把上下差计算公式列出来,计算公式是这样的:

3.34+a+b-d-e-0.15≤δ≤3.34+a+b-d-e,  δ 系列尺寸为:3.55±0.1  3.70±1  3.85±0.1  4±0.1  4.15±0.1  4.3±0.1   4.45±0.1   4.6±0.1   所以上下差之间只有0.15的值,不会有两个值的。


 回到顶部
帅哥哟,离线,有人找我吗?
黄力
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:858 威望:0 精华:0 注册:2011/9/2 12:59:00
  发帖心情 Post By:2012/5/26 15:09:00 [只看该作者]

3.34+a+b-d-e-0.15≤δ≤3.34+a+b-d-e

其中3.34和0.15是固定值,不会改变的。


 回到顶部
帅哥哟,离线,有人找我吗?
lkqing
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:492 积分:4243 威望:0 精华:0 注册:2008/9/1 20:47:00
  发帖心情 Post By:2012/5/26 15:11:00 [只看该作者]

以下是引用FoxMan在2012-5-26 12:38:00的发言:
Dim sq,xq,Avg1,qe1,nD1,qs1 As Double
Dim Dbs As Double() ={3.55,3.70,3.85,4 ,4.15,4.3,4.45,4.6}
sq =3.71
xq =3.58
Avg1=(sq+xq)/2   
qs1 =  Dbs(0)
qe1 = Math.Abs(Dbs(0) -Avg1)

For Each nD1 In Dbs
    If Math.Abs(nD1 -Avg1) < qe1 Then      
        qs1 = nD1
    End If
Next

Output.Show(qs1 )

改改,试试:

Dim sq,xq,Avg1,nD1,qs1 As Double
Dim Dbs As Double() ={3.55,3.70,3.85,4 ,4.15,4.3,4.45,4.6}
sq =4.5
xq =4.28
Avg1=(sq+xq)/2  

 

For Each nD1 In Dbs
    If nD1 < sq And nD1 > Avg1 Then     
        qs1 = nD1
    End If
Next


Output.Show(qs1 )


 回到顶部
总数 28 1 2 3 下一页