VB也能访问内存
2002-03-18 09:12
330 查看
有人说vb不能操作内存,效率低下,我不是太赞同.vb跟c比当然效率比较低下了,但是如果使用得当还是有不少的效率提高的.
在开发windows上的应用时(注意啊,不是驱动),理论上来说,用vb可以做任何软件.因为vb本身没有的,可以使用api,而win32 api时可以实现windows上的任何应用功能的.当然这和使用者的功力有很大的关系,如果c/c++的功力很好,你甚至可以用vb实现内存拷贝的功能,因为long类型可以做指针.
最近在做界面, 对vb有点研究, 给个例子吧.比如10进制转换2进制.
用vb的一般用除法这么做:
public function o2b(byval long nValue) as string
dim nValueCopy as long
dim nTmp as byte '商
dim sReturn as string '返回值
nValueCopy = nValue
'也有用nValue - 2^N 方式的,这里就不多说了
do while nValueCopy > 0
nTmp = nValueCopy / 2
sReturn = cstr( nValueCopy - nTmp / 2 ) & sReturn '反向累计
nValueCopy = nTmp
loop
o2b = sReturn
end function
而用c比较熟的人一般按位去做:
public function o2b(byref long nValue) as string
dim nBit( 0 to 7 ) as byte ' 最小的单位是byte了,放掩码
dim nByte( 1 to 4 ) as byte ' 分解nValue到字节的
dim nTmp as byte
dim pValue as long ' 指针
dim sReturn as string ' 返回值
dim i as byte, j as byte
nBit(0) = 1 '00000001
nBit(1) = 2 '00000010
nBit(2) = 4 '00000100
nBit(3) = 8 '00001000
nBit(4) = 16 '00010000
nBit(5) = 32 '00100000
nBit(6) = 64 '01000000
nBit(7) = 128 '10000000
' 取 nValue 的地址
pValue = VarPtr( nValue )
' win32 api, 将nValue的4个字节分别复制到nByte中,byref 就相当于指针
CopyMemory( nByte(1), byref pValue, 4 )
for i = 4 to 1 '低字节在前
for j = 7 to 0 '高位开始
' 方法一, 减法
nTmp = 0
if nByte(i) > nBit(j) then
nByte = nByte(i) - nBit(j)
nTmp = 1 ' 这一位二进制是1
end if
sReturn = sReturn & cstr(nTmp)
' 方法二,按位与 效率更高
nTmp = 1
if ( not ( nByte(i) imp nBit(j) ) ) = nBit(j) then
' 我没有找到vb按位与的函数,只有按位"同与"(不记得是不是)的imp
nTmp = 0
end if
sReturn = sReturn & cstr(nTmp)
next j, i
o2b = sReturn
end function
在网吧里,没有环境,随手写写,有错误请见谅,主要是思路.
在开发windows上的应用时(注意啊,不是驱动),理论上来说,用vb可以做任何软件.因为vb本身没有的,可以使用api,而win32 api时可以实现windows上的任何应用功能的.当然这和使用者的功力有很大的关系,如果c/c++的功力很好,你甚至可以用vb实现内存拷贝的功能,因为long类型可以做指针.
最近在做界面, 对vb有点研究, 给个例子吧.比如10进制转换2进制.
用vb的一般用除法这么做:
public function o2b(byval long nValue) as string
dim nValueCopy as long
dim nTmp as byte '商
dim sReturn as string '返回值
nValueCopy = nValue
'也有用nValue - 2^N 方式的,这里就不多说了
do while nValueCopy > 0
nTmp = nValueCopy / 2
sReturn = cstr( nValueCopy - nTmp / 2 ) & sReturn '反向累计
nValueCopy = nTmp
loop
o2b = sReturn
end function
而用c比较熟的人一般按位去做:
public function o2b(byref long nValue) as string
dim nBit( 0 to 7 ) as byte ' 最小的单位是byte了,放掩码
dim nByte( 1 to 4 ) as byte ' 分解nValue到字节的
dim nTmp as byte
dim pValue as long ' 指针
dim sReturn as string ' 返回值
dim i as byte, j as byte
nBit(0) = 1 '00000001
nBit(1) = 2 '00000010
nBit(2) = 4 '00000100
nBit(3) = 8 '00001000
nBit(4) = 16 '00010000
nBit(5) = 32 '00100000
nBit(6) = 64 '01000000
nBit(7) = 128 '10000000
' 取 nValue 的地址
pValue = VarPtr( nValue )
' win32 api, 将nValue的4个字节分别复制到nByte中,byref 就相当于指针
CopyMemory( nByte(1), byref pValue, 4 )
for i = 4 to 1 '低字节在前
for j = 7 to 0 '高位开始
' 方法一, 减法
nTmp = 0
if nByte(i) > nBit(j) then
nByte = nByte(i) - nBit(j)
nTmp = 1 ' 这一位二进制是1
end if
sReturn = sReturn & cstr(nTmp)
' 方法二,按位与 效率更高
nTmp = 1
if ( not ( nByte(i) imp nBit(j) ) ) = nBit(j) then
' 我没有找到vb按位与的函数,只有按位"同与"(不记得是不是)的imp
nTmp = 0
end if
sReturn = sReturn & cstr(nTmp)
next j, i
o2b = sReturn
end function
在网吧里,没有环境,随手写写,有错误请见谅,主要是思路.
相关文章推荐
- VB也能访问内存
- VB编程的一些小技巧 - vb直接访问dx7屏幕内存的例子
- 三层架构之数据库访问层(VB)
- 内存越界访问保护 内存泄漏研究 未完待续
- 关于用VB读写内存的方法
- Linux下访问内存物理地址
- CUDA:对齐内存访问、展开循环提高运算性能
- 保护模式下的内存访问
- 2014-04-16工作日志:error:用RegSetValueEx设置注册表的SZ_DWORD类型的值时,提示无访问内存的权限
- OD的 CC断点,内存访问断点,硬件断点 解析
- 发现一个很奇怪的现象--关于VB程序的内存占用
- iOS指南系列:如何解决奔溃问题-关于内存访问续
- 浅谈对象的内存分配及对象的成员的访问(一)
- IE9 开启硬件加速,访问某些网站的时候,flash插件会内存泄露 ?
- Java 访问CPU使用率,内存使用率等方法
- Linux内核开发之内存与I/O访问(三)
- [VB.NET]有人用过API CreateFileMapping 内存共享 没有?能后给段例子?
- 汇编语言入门:寄存器和内存访问
- 【C/C++】【FAQ】【内存泄露】未处理的异常:0xC0000005:读取位置0xabababab时发生访问冲突
- 又遇到访问内存越界错误