|
5精币
易语言创建了个求任意三角形面积程序,点计算按钮之后程序自动关闭!什么原因!RT,求解!
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 a边长, 小数型
.局部变量 b边长, 小数型
.局部变量 c边长, 小数型
a边长 = 到小数 (编辑框1.内容)
b边长 = 到小数 (编辑框2.内容)
c边长 = 到小数 (编辑框3.内容)
面积编辑框.内容 = 到文本 (求任意三角形面积 (a边长, b边长, c边长))
.DLL命令 求任意三角形面积, 小数型,
库文件名
"求任意三角形面积.dll",
在库中对应命令名
"求任意三角形面积"
.参数 边长一, 小数型
.参数 边长二, 小数型
.参数 边长三, 小数型
下面是调用的DLL代码:
.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 返回值被忽略。
.子程序 _临时子程序
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
.子程序 求任意三角形面积, 小数型, 公开
.参数 边长一, 小数型
.参数 边长二, 小数型
.参数 边长三, 小数型
.局部变量 半周长, 小数型
.局部变量 乘积, 小数型
.局部变量 面积, 小数型
半周长 = (边长一 + 边长二 + 边长三) ÷ 2
乘积 = 半周长 × (半周长 - 边长一) × (半周长 - 边长二) × (半周长 - 边长三)
面积 = 求平方根 (乘积)
返回 (四舍五入 (面积, 2)) ' 保留两位小数
|
最佳答案
查看完整内容
亲测没有问题 建议吧DLL的命令名 和文件名 改为英文 另外 检测是不是杀毒软件关闭 或者 易语言无法编译 或者 DLL不在运行目录或C盘windows目录下
|