打开APP
未登录
开通VIP,畅享免费电子书等14项超值服
开通VIP
首页
好书
留言交流
下载APP
联系客服
【例题】指针
夜的影子
>《VisualFreeBasic》
2018.01.31
关注
''
变量指针:
''
dim
as
integer i
=
5
dim
as
integer ptr p
p
=
@i
print
i
,
*
p
''
''
程序指针:
''
sub
sayhi
(
)
print
"hi"
end
sub
sayhi
(
)
dim psayhi
as
sub
(
)
=
@sayhi
psayhi
(
)
function
add
(
byval a
as
integer
,
byval b
as
integer
)
as
integer
return
a
+
b
end
function
print
add
(
1
,
2
)
type
AddFn
as
function
(
byval
as
integer
,
byval
as
integer
)
as
integer
dim padd
as
AddFn
=
@add
print
padd
(
1
,
2
)
''
''
指针索引(与数组非常相似):
''
''
为
3
个整数分配内存
p
=
callocate
(
sizeof
(
integer
)
*
3
)
p
[
0
]
=
123
p
[
1
]
=
456
p
[
2
]
=
789
print
p
[
0
],
p
[
1
],
p
[
2
]
deallocate
(
p
)
''
''
以前的
peek
():
''
dim
as
any ptr address
dim
as
byte
dat
(
0
to
3
)
=
{
123
,
123
,
123
,
123
}
dim
as
integer j
=
12345
address
=
@dat
(
0
)
print
peek
(
address
)
address
=
@j
print
peek
(
integer
,
address
)
''
''
指针
to
UDTs
:
''
type
MyVector
as
integer x
,
y
,
z
end
type
dim
as
MyVector
v
dim
as
MyVector
ptr pv
=
@v
pv
->
x
=
1
pv
->
y
=
2
pv
->
z
=
3
print
pv
->
x
,
pv
->
y
,
pv
->
z
print
(*
pv
).
x
,
(*
pv
).
y
,
(*
pv
).
z
with
*
pv
print
.
x
,
.
y
,
.
z
end
with
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报
。
打开APP,阅读全文并永久保存
查看更多类似文章
猜你喜欢
类似文章
vb.net 打印代碼
VB.NET自动操作其他程序(3)
【VFB】 多线程(VFB教程3
VBA的过程及参数详解
公历农历转换VB类
用VB写高效的图像处理程序
更多类似文章 >>
生活服务
热点新闻
留言交流
回顶部
联系我们
分享
收藏
点击这里,查看已保存的文章
导长图
关注
一键复制
下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!
联系客服
微信登录中...
请勿关闭此页面
先别划走!
送你5元优惠券,购买VIP限时立减!
5
元
优惠券
优惠券还有
10:00
过期
马上使用
×