递归火山软件开发平台

标题: 【分享】想用小数的不用等吴老板了。 [打印本页]

作者: urenai 时间: 2022-7-19 20:38
标题: 【分享】想用小数的不用等吴老板了。
本帖最后由 urenai 于 2022-7-20 00:37 编辑

下面的是易语言DLL 公开的子程序 2个参数都必须为4字节小数。

.版本 2
.子程序 xs, , 公开
.参数小数1, 小数型
.参数小数2, 小数型
信息框 (“小数参数1：” ＋到文本 (小数1) ＋ #换行符＋ “小数参数2：” ＋到文本 (小数2), 0, “易语言接收2个小数”, )

复制代码

(, 下载次数: 81)

火山的没法复制代码，就截图+源码了。
(, 下载次数: 11)
(, 下载次数: 74)

每次测试不通都放弃，多少次了，在非嵌入式情况下，小数8字节，传递出去始终会变形。
不搞了，小数在这里画个句号。这是我最终的解决方案了。

既然整数和单小数都是4字节，
那么干脆将双精度小数使用嵌入式转到单精度小数，
再取出单小数的内存地址，以整数读出。

再以整数值传递出去。测试完美正确。没有变形。
在定义外部DLL库的时候，只需要将单精度小数定义成整数，使用上面方法：_小数转整数() 。返回值赋参即可。
认真看易语言导出函数参数定义的是小数，而火山调用的定义为整数，这应该不难理解了吧。
哎、非嵌入情况下，硬是拐了个大弯。幸好是绕回来了。

少上个图，在编辑一下吧。

(, 下载次数: 78)

又更新了一下，搞了个【单小数类】用作输出输入小数。
先上易语言的参考下。

.版本 2
.子程序 xs, , 公开
.参数小数1, 小数型
.参数小数2, 小数型
.参数小数指针3, 整数型, , 这个是模拟写回小数，，，传输
.局部变量小数4, 小数型
小数4 ＝ 1.2345
写到内存 (小数4, 小数指针3, )
信息框 (“小数参数1：” ＋到文本 (小数1) ＋ #换行符＋ “小数参数2：” ＋到文本 (小数2), 0, “易语言接收2个小数”, )

复制代码

(, 下载次数: 76)

照样子火山上图+源码
(, 下载次数: 16)
(, 下载次数: 91)

作者: zhqyong 时间: 2022-7-19 20:59
厉害的样子，棒！

作者: shuimiao 时间: 2022-7-19 21:08
吴总给高手们弄了个难题，七拐八拐

作者: jiaozhu 时间: 2022-7-19 22:00
一言难尽

作者: urenai 时间: 2022-7-20 00:39
这回再也不整小数了，传参、回参都搞好了。

作者: tmf19901124 时间: 2022-7-20 01:33
有必要这么麻烦吗？直接右移32位不就取出来了,管它什么精不精的，直接操作内存准没错

作者: qaz2428119 时间: 2022-7-20 09:48

tmf19901124 发表于 2022-7-20 01:33
有必要这么麻烦吗？直接右移32位不就取出来了,管它什么精不精的，直接操作内存准没错 ...

火山的位操作命令,只能是整数

作者: itismine 时间: 2022-7-20 09:48
关于错误的语句，具体见图。

(, 下载次数: 81)

作者: urenai 时间: 2022-7-20 11:40

itismine 发表于 2022-7-20 09:48
关于错误的语句，具体见图。

返回值错误看看。
我功力浅薄，我知道这是取址错误。

作者: tmf19901124 时间: 2022-7-20 12:23

qaz2428119 发表于 2022-7-20 09:48
火山的位操作命令,只能是整数

不要用火山的位操作，自己30秒封一个支持长整数，变整数的位操作完事，这个问题提过几次了，老吴一直没有改

作者: 小蜗牛 时间: 2022-7-20 12:31
内存复制...也是可以的...

作者: qaz2428119 时间: 2022-7-28 08:33

tmf19901124 发表于 2022-7-20 12:23
不要用火山的位操作，自己30秒封一个支持长整数，变整数的位操作完事，这个问题提过几次了，老吴一直没有 ...

你自己封装也可以,不过还是建议让基础命令支持
还有变整数只是为了X32与X64 不要在此种命令中使用变整数

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)