OriosのActiveBasic講座(1-4):配列・構造体・ポインタ

今回は「配列」「構造体」「ポインタ」をやります。 これらは「効率の良いプログラム」と「高速で動作するプログラム」を作るのに必要なものです。 配列・構造体は共に変数を一つの変数名でまとめることができるもので効率のいいプログラムを組むことができます。 またポインタはActiveBasicをはじめとするBASIC系言語ではあまり使うことのないもので難しいものですが、使えるようになるとよりプログラムを高速化することができますし、コンピュータ内部にも詳しくなります。 ではOriosのActiveBasic講座、第四章へ入りましょう。

1.配列

今回はデータをより扱いやすくするものの第一弾として「配列」を扱います。 これは数学でいう添え字(a_nのn)にあたるもので、これが使えると大量のデータを扱う際に一つ一つに変数名をつける必要がなく、また、まとめてデータ処理をすることができます。 さらに今回からは以前ちらっと説明した「ポインタ」というものが頻繁に出てきますが、これも今のABには重要なものなので少しずつ覚えていきましょう。 では早速次のプログラムを実行してみましょう。

'lesson1-4-1
#console
Dim kuji[3, 1] As Long
Dim mes[1] As String
Dim substr As String
Dim num As Long
mes[0] = "○"
mes[1] = "×"
substr = "00100111"
SubstArray(substr, kuji)
Randomize
num = Fix(Rnd() * 4)
Print "金運　 : " + mes[kuji[num, 0]]
Print "仕事運 : " + mes[kuji[num, 1]]
Sleep(3000)
End

Sub SubstArray (ByVal substr As String, ByVal array As DWordPtr)
    Dim i As Long
    Dim str As String
    For i = 0 To 7
        str = Mid$(substr, i + 1, 1)
        array[i] = Val(str)
    Next
End Sub

今回は「自動おみくじプログラム」ですがどうでしょうか？ 「また占い系か……」という方もいらっしゃるかもしれませんが、私の好きな分野なのでご勘弁を……。 では、これの結果が良くても悪くても、説明に入りますので、しっかりと読んでくださいね。

'次元数を代入
Dim n As Byte
'各次元の要素数(第a次元の要素数をElementAmount[a - 1]に代入)
Dim ElementAmount[255] As DWord
'各次元の要素番号(第a次元の要素番号をElementNumber[a - 1]に代入)
Dim ElementNumber[255] As DWord
'合成要素数が格納される変数
Dim CompositeElementNumber As DWord

Dim i As Integer
Dim j As DWord
Dim weight As DWord
For i = 0 To n - 1
    weight = 1
    For j = i + 1 To (n - 1)
        weight = weight * ElementAmount[j]
    Next
    CompositeElementNumber = CompositeElementNumber + weight * ElementNumber[i]
Next

今回は主に「配列関数」について学習しました。 コンピューターで大量のデータを扱う際には絶対「配列」を使う方が効率のいいプログラムが作れます。 また今回からしばらくの間「ポインタ」という概念も出てきます。 この「ポインタ」というのはプログラミングを始めたばかりの人には関門だと言われています。 しかし「ポインタ」も一回扱うことができるようになれば効率がよく高速動作ができるプログラムが作れるようになります。 なので今回の「配列」と今回からしばらく登場する「ポインタ」はしっかりと扱えるようにしましょう。 毎回書いていますが質問・疑問・間違いの指摘・感想などは掲示板やメールで遠慮なく言ってきてください。 あなたの理解にもなりますし、同じような疑問を持つ方にとっては参考にもなります。 では、最後の仕上げの「やってみよう」です。