| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2238 人关注过本帖
标题:求助: vb 数据转成 float 方法
只看楼主 加入收藏
风火九天
Rank: 1
等 级:新手上路
帖 子:10
专家分:7
注 册:2014-7-7
结帖率:75%
收藏
已结贴  问题点数:18 回复次数:5 
求助: vb 数据转成 float 方法
各位老师好:

    在VB中,从数据文里显示4个字节为:00,00,96,44。DEC显示是:1,150,681,088。请问在VB中,怎样才能显示出float模式的:1200。谢谢


如图:
图片附件: 游客没有浏览图片的权限,请 登录注册


2014-07-11 12:09
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:9 
使用 CopyMemory API 函数吧。

定义一个 Float 的变量,
然后把这人数组 复制过去,声明时按地址传递。

警告,这个API函数调用时,如果传递的地址有错误,会导致 应用程序/VB6 无提示的直接关闭。

授人于鱼,不如授人于渔
早已停用QQ了
2014-07-11 13:45
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:9 
程序代码:
Option Explicit
Private Type makelong
    l As Long
End Type
Private Type makesingle
    f As Single
End Type
Private Sub Form_Load()
    Dim tl As makelong
    Dim tf As makesingle
    tl.l = &H44960000
    LSet tf = tl
    Debug.Print tf.f
End Sub
LSet 这个也可以。
2014-07-11 14:13
风火九天
Rank: 1
等 级:新手上路
帖 子:10
专家分:7
注 册:2014-7-7
收藏
得分:0 
谢谢2位版主。
  还想请教bczgvip版主,在tl.l=&H44960000句子中,如果“44960000”是一个变量而不是具体的数值,那这段代码如何写呢?再谢!!!!
2014-07-11 20:55
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
它这里是一个整数。变量是整数,就照样直接给它。
如果你是从 byte数组过来,要么你修改结构体定义(在手机上无法测试)。要么你转成整数。要么用我的方法。
lset 结构体复制结构体,不考虑数据类型,只考虑长度。

授人于鱼,不如授人于渔
早已停用QQ了
2014-07-11 23:24
风火九天
Rank: 1
等 级:新手上路
帖 子:10
专家分:7
注 册:2014-7-7
收藏
得分:0 
谢谢2位版主的指教!!!!按你们的方法解决了。
这个论坛因为你们而更加精彩!
2014-07-12 10:23
快速回复:求助: vb 数据转成 float 方法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037144 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved