source_dir/documentation/Examples/Array.pb.html · PureBasic/PureBasicPreference

代码拉取完成,页面将自动刷新

开源项目 > 其他开源 > 图书/手册/教程 &&

扫描微信二维码支付

取消

支付完成

richgiteeai

Watch

不关注关注所有动态仅关注版本发行动态关注但不提醒动态

6 Star 9 Fork 3

PureBasic/PureBasicPreference

代码 Issues 0 Pull Requests 0 Wiki 统计流水线

服务

加入 Gitee

与超过 1400万开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)

免费加入

已有帐号? 立即登录

文件

master

分支 (1)

管理

master

克隆/下载

HTTPS SSH SVN SVN+SSH 下载ZIP

提示

下载代码请复制以下命令到终端执行

为确保你提交的代码身份被 Gitee 正确识别,请执行以下命令完成配置

git config --global user.name userName 
git config --global user.email userEmail

初次使用 SSH 协议进行代码克隆、推送等操作时,需按下述提示完成 SSH 配置

1 生成 RSA 密钥

2 获取 RSA 公钥内容,并配置到 SSH公钥中

在 Gitee 上使用 SVN,请访问使用指南

使用 HTTPS 协议时,命令行会出现如下账号密码验证步骤。基于安全考虑,Gitee 建议配置并使用私人令牌替代登录密码进行克隆、推送等操作

Username for 'https://gitee.com': userName

Password for 'https://userName@gitee.com': # 私人令牌

分支 1

标签 0

PureBasicPreference

source_dir

documentation

Examples

Array.pb.html

Array.pb.html 3.55 KB

<html><head><title>Array.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre>;
; ------------------------------------------------------------
;
; PureBasic - Array example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;

Structure BasicStructure 
 Field1.b
 Field2.w
 Field3.l
EndStructure

Structure ComplexStructure
 Field.b
 Basic.BasicStructure ; Creation of the BasicStructure object inside this structure
EndStructure

Dim BasicArray.l(100) ; Reserve 101 elements from 0 to 100 of 'long' type

Dim StructuredArray.BasicStructure(10) ; 11 elements from 0 to 10 of 10 BasicStructure objects

Dim StructuredMultiArray.ComplexStructure(10, 20, 10) ; 11*21*11 = 2541 elements of ComplexStructures objects

; Filling arrays &amp; Structure access
;
For k=0 To 100 ; Fill the basic array with values from 0 to 100. 
 BasicArray(k) = k
Next

For k=0 To 10 ; Fill the structured array..
 StructuredArray(k)\Field1 = k
 StructuredArray(k)\Field2 = k+1
 StructuredArray(k)\Field3 = k+2
Next

For x=0 To 10 ; Fill the multi structured array..
 For y=0 To 20
 For z=0 To 10
 StructuredMultiArray(x, y, z)\Field = x
 StructuredMultiArray(x, y, z)\Basic\Field2 = y+1
 StructuredMultiArray(x, y, z)\Basic\Field3 = z+2
 Next
 Next
Next

; Copy the array into a new array
;
Dim BasicArrayCopy(1)
CopyArray(BasicArray(), BasicArrayCopy())

Debug ArraySize(BasicArrayCopy()) ; Display the size of the copy, should be 100 as the original

End
</pre>
</body></html>

一键复制编辑原始数据按行查看历史

麦壳饼提交于 2016年07月21日 13:08 +08:00 . chuci

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

<html><head><title>Array.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">; PureBasic - Array example file
</font><font color="#3A3966">;
</font><font color="#3A3966">; (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<b><font color="#3A3966">Structure</font></b> BasicStructure 
 Field1.b
 Field2.w
 Field3.l
<b><font color="#3A3966">EndStructure</font></b>


<b><font color="#3A3966">Structure</font></b> ComplexStructure
 Field.b
 Basic.BasicStructure <font color="#3A3966">; Creation of the BasicStructure object inside this structure
</font><b><font color="#3A3966">EndStructure</font></b>


<b><font color="#3A3966">Dim</font></b> <font color="#3A3966">BasicArray</font>.l(100) <font color="#3A3966">; Reserve 101 elements from 0 to 100 of 'long' type
</font>
<b><font color="#3A3966">Dim</font></b> <font color="#3A3966">StructuredArray</font>.BasicStructure(10) <font color="#3A3966">; 11 elements from 0 to 10 of 10 BasicStructure objects
</font>
<b><font color="#3A3966">Dim</font></b> <font color="#3A3966">StructuredMultiArray</font>.ComplexStructure(10, 20, 10) <font color="#3A3966">; 11*21*11 = 2541 elements of ComplexStructures objects
</font>
<font color="#3A3966">; Filling arrays &amp; Structure access
</font><font color="#3A3966">;
</font><b><font color="#3A3966">For</font></b> k=0 <b><font color="#3A3966">To</font></b> 100 <font color="#3A3966">; Fill the basic array with values from 0 to 100. 
</font><font color="#3A3966"> BasicArray</font>(k) = k
<b><font color="#3A3966">Next</font></b>

<b><font color="#3A3966">For</font></b> k=0 <b><font color="#3A3966">To</font></b> 10 <font color="#3A3966">; Fill the structured array..
</font><font color="#3A3966"> StructuredArray</font>(k)\Field1 = k
<font color="#3A3966"> StructuredArray</font>(k)\Field2 = k+1
<font color="#3A3966"> StructuredArray</font>(k)\Field3 = k+2
<b><font color="#3A3966">Next</font></b>

<b><font color="#3A3966">For</font></b> x=0 <b><font color="#3A3966">To</font></b> 10 <font color="#3A3966">; Fill the multi structured array..
</font> <b><font color="#3A3966">For</font></b> y=0 <b><font color="#3A3966">To</font></b> 20
 <b><font color="#3A3966">For</font></b> z=0 <b><font color="#3A3966">To</font></b> 10
<font color="#3A3966"> StructuredMultiArray</font>(x, y, z)\Field = x
<font color="#3A3966"> StructuredMultiArray</font>(x, y, z)\Basic\Field2 = y+1
<font color="#3A3966"> StructuredMultiArray</font>(x, y, z)\Basic\Field3 = z+2
 <b><font color="#3A3966">Next</font></b>
 <b><font color="#3A3966">Next</font></b>
<b><font color="#3A3966">Next</font></b>

<font color="#3A3966">; Copy the array into a new array
</font><font color="#3A3966">;
</font><b><font color="#3A3966">Dim</font></b> <font color="#3A3966">BasicArrayCopy</font>(1)
<font color="#3A3966">CopyArray</font>(<font color="#3A3966">BasicArray</font>(),<font color="#3A3966"> BasicArrayCopy</font>())

<b><font color="#3A3966">Debug</font></b> <font color="#3A3966">ArraySize</font>(<font color="#3A3966">BasicArrayCopy</font>()) <font color="#3A3966">; Display the size of the copy, should be 100 as the original
</font>

<b><font color="#3A3966">End</font></b>
</font></pre>
</body></html>