【分享】想用小数的不用等吴老板了。

urenai

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

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

复制代码

火山的没法复制代码，就截图+源码了。
XS.v (2.9 KB, 下载次数: 13)

2022-7-19 20:29 上传

点击文件名下载附件

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

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

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


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








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

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

复制代码

照样子火山上图+源码
FLOATCLASS.v (2.68 KB, 下载次数: 17)

2022-7-20 00:37 上传

点击文件名下载附件

zhqyong

厉害的样子，棒！

shuimiao

吴总给高手们弄了个难题，七拐八拐

jiaozhu

一言难尽

urenai

这回再也不整小数了，传参、回参 都搞好了。

tmf19901124

有必要这么麻烦吗？直接右移32位不就取出来了,管它什么精不精的，直接操作内存准没错

qaz2428119

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

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

itismine

关于错误的语句，具体见图。

urenai

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

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

tmf19901124

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

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