在文本框里输入“（154-45）×4＋8^2”之类的运算怎样得到结果啊，太伤脑了，高人指点一下！

2005-04-30 09:43:26 297 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

cly2004 墨衍会员 · AI 创作全网分发关注 + 加入社区

FPGA实现三阶LC滤波器：移位运算替代乘法，系数和8~128选型全解析本文围绕三阶LC滤波器的FPGA实现，系统梳理了从系数设定、差分方程推导到定点运算落地的完整链路，核心要点可归纳为以下三个方面。系数设定规律：各阶滤波器的分子系数 a0、a1、a2 与反馈系数 b1、b2、b3 保持对称结构，系数和依次取 8、16、32、64、128，对应右移位数 3、4、5、6、7。系数和越大，滤波越平滑、噪声抑制越强，但硬件位宽和收敛时间也随之增加。稳定性条件：系统稳定的关键在于反馈系数之和严格小于 1。阅读详情

通过判断运算符吗？，优先级怎么做啊，太伤脑了

...全文

基于Simulink/Matlab的VSG并网系统单相接地与相间短路故障仿真建模与特性分析本文详细介绍了基于Simulink/Matlab搭建虚拟同步发电机（VSG）并网系统仿真模型的方法，并重点分析了单相接地与相间短路故障下的系统特性。通过设置三相故障模块参数，模拟了故障发生时的电压、电流变化及VSG动态响应，为理解故障机理、优化控制策略及设计继电保护提供了仿真依据与实践指导。阅读详情

cly2004

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

hwshws123 2005-05-02

打赏
举报

关注

aloka 2005-05-02

打赏
举报

gillianhu 2005-05-01

打赏
举报

学到一个新control!谢谢。

apple_001 2005-05-01

打赏
举报

mark

therockdelt 2005-05-01

打赏
举报

mark

现在还是人类 2005-05-01

打赏
举报

楼上的，自己写解码程序识别表达式是不错，但是对于
复杂的表达式呢,就不那么容易写了，最主要的是稳定性。

to 搂主
=====================
laviewpbt(人一定要靠自己) 主要是给你了一个API函数
他用那个API函数来解释你的表达式，就这么简单。
API函数的使用方法他也有例子了。不过建议使用
Microsoft Script Control 1.0，可以解释整段VBScript语言。
非常好用，我就用它作了一个自己的ASP解释器。

xiuyuan 2005-05-01

打赏
举报

我看过我们老师自己编的程序,使用的是递归的办法

cly2004 2005-04-30

打赏
举报

laviewpbt(人一定要靠自己)

能不能注释一下，看的不是很懂啊

cly2004 2005-04-30

打赏
举报

谢谢搞定
结

laviewpbt 2005-04-30

打赏
举报

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Sub calc(ByVal x As String)
Dim result
ExecuteLine "dim x as double"
ExecuteLine "x= " & x
ExecuteLine "clipboard.settext x"
result = Clipboard.GetText
MsgBox x & "=" & result
Set result = Nothing
End Sub

Private Sub Command1_Click()
calc Text1
End Sub

Private Sub Form_Load()
Text1.Text = "(1+(2*((3-2)-4)))/2"
End Sub

cly2004 2005-04-30

打赏
举报

ScriptControl是哪个引用啊

cly2004 2005-04-30

打赏
举报

VBDN 2005-04-30

打赏
举报

引用“Microsoft Script Control 1.0”
Private Sub Command1_Click()
Dim VBEval As New ScriptControl
Dim Result As String
On Error GoTo E
VBEval.Language = "vbscript"
Result = VBEval.Eval(Text1.Text)
MsgBox Text1.Text & "=" & Result
Exit Sub
E:
MsgBox "表达式错误，检查是否输入了非法字符！"
End Sub

在文本框里输入“（154-45）×4＋8^2”之类的运算怎样得到结果啊，太伤脑了，高人指点一下！

相关推荐