vb.net - Case 中的可编辑值(基于 Vb 的 Ilogic)
问题描述
我有一个根据绳索直径而变化的部分。定义了绳索范围和几何参数。但是一个参数必须是可编辑的。我希望获得一组默认值,但我可以自行决定更改我需要的参数或保持原样。这是一段代码:
Select Case dk
Case "From 3 to 3,7"
B = 6
B1 = 13
hк = 5
R = 2
Case "From 3,7 to 4,6"
B = 8
B1 = 15
hк = 6
R = 2.5
Case "From 4,6 to 5,6"
B = 9
B1 = 16
hк = 7
R = 3
Case "From 5,6 to 7,2"
B = 12
B1 = 19
hк = 9
R = 4
End Select
要更改的值为 B1。事实上,这个值不应小于或等于 B。因此,我对 B1 在范围内变化的解决方案感到满意。预先感谢您在此问题上的帮助。
解决方案
多用两个参数。B1max(B1 的最大值)和 B1req(B1 的请求值)。在您的代码集中 B1max 而不是 B1。参数 B1req 可以由用户或其他 iLogic 代码设置为任何值。
对于参数 B1,使用表达式“min(max(B;B1req);B1max)”。现在 B1 参数值只能从 B 到 B1max 范围内,并且尽可能等于 B1req。
Select Case dk
Case 3 to 3.7 '"From 3 to 3,7"
B = 6
B1max = 13
hk = 5
R = 2
Case 3.7 To 4.6 '"From 3,7 to 4,6"
B = 8
B1max = 15
hk = 6
R = 2.5
Case 4.6 To 5.6 '"From 4,6 to 5,6"
B = 9
B1max = 16
hk = 7
R = 3
Case 5.6 To 7.2 '"From 5,6 to 7,2"
B = 12
B1max = 19
hk = 9
R = 4
Case Else
Logger.Error("Parameter 'dk' is out of range")
End Select
Logger.Debug("B = " & B)
Logger.Debug("B1max = " & B1max)
Logger.Debug("hk = " & hk)
Logger.Debug("R = " & R)
推荐阅读
- java - Java - 存储在文件中的盐值与从文件中检索到的相同盐值不同
- android - 尝试通过列表视图显示数据时应用程序崩溃
- php - 像其他变量一样在 PHP 中发送的数组(对于每个索引)
- json - 如何在 ADFv2 中放气后强制执行静态文件夹路径
- php - 将时间表的时隙组合到数组中 - PHP
- css - 如何根据输入修改 CSS 浮动标签
- python - ValueError:无法将大小为 0 的序列复制到维度为 56 的数组轴
- python-3.x - pandas 内部如何执行滚动窗口?
- python - 使用 sklearn 从数据集中删除冗余
- javascript - 从通过 Ajax XHR Get 请求获取的 HTML 页面解析和访问 Dom 元素