ブログの説明

学校に通わないで学んだことを記しています。間違っているところが何かありましたらご指摘下さると幸いです。コメントに対する返信が遅れる可能性があります。その場合は申し訳ありません。

このブログではサイドバーに広告を表示しています。このブログ内の投稿記事を検索するには右上の拡大鏡のアイコンを、アーカイブやラベル付けから投稿記事を閲覧するには左上の三重線のアイコンをクリックして下さい。

数式の表示にはMathJaxを利用させていただいています。数式の表示のためにJavaScriptが有効である必要があります。そうでない場合、訳の分からないLatexのコードが表示されます。幾何学図形やチャートの表示にはHTML5 CanvasやGoogle Chartを使用しています。その表示のためにもJavaScriptが有効である必要があります。

LibreOffice Basic サブルーチン 函数 引数

サブルーチンと函数

サブルーチンと函数は、一つのまとまった処理を行う一連のステートメントに名前を付けて部品化する仕組み。サブルーチンのことをプロシージャと呼んだり、サブルーチンと函数を両方まとめてプロシージャと呼ぶことがある。函数が呼び出し元に返す値を持つのに対してサブルーチンは呼び出し元に返す値を持たないという違いがある。

サブルーチンはSub サブルーチン名によって始まり、End Subによって終わる。その間に一連の処理を行うステートメントを置く。サブルーチン名はそのサブルーチンを呼び出すために用いられる。

REM **** BASIC ****
'変数を明示的に宣言して使う
Option Explicit

Sub Main
  'サブルーチンHelloWorldを呼び出す
  HelloWorld
End Sub

'Hello, World!を出力するサブルーチン
Sub HelloWorld
  MsgBox "Hellow, World!"
End Sub

一方、函数はFunction 函数名によって始まり、End Functionによって終わる。その間に一連の処理を行うステートメントを置く。函数名と同じ名前の変数に値を代入すれば、その値が返り値となって呼び出し元に返される。函数名はその函数を呼び出すときに使われる。

REM **** BASIC ****
'変数を明示的に宣言して使う
Option Explicit

Sub Main
  'Kyooという関数を呼び出して返り値を出力
  MsgBox(Kyoo)
End Sub

'今日の日付を返す函数
Function Kyoo
  Kyoo = date()
End Function

モジュールの冒頭にOption Explicitを宣言していても、値を返すための変数、つまり函数と同じ名前の変数は、宣言する必要なく使うことができるようだ。函数の中に函数名と同じ名前の変数が複数ある場合には、もっとも終わりの行にあるものが返り値となる。

サブルーチン名と函数名には変数名と同じ命名規則が適用される。つまり、英字で始まり、それ以降は英字か数字かアンダースコアを使うことができ、スペースを含む場合には角括弧で名前全体をはさむ必要がある。

引数

サブルーチンや函数によっては、なんらかの値や値がある場所を示す情報を渡して処理させたいことがある。それらを受け取るためにサブルーチンや函数とともに宣言する変数が仮引数。仮引数は、サブルーチン名や函数名の直後に丸括弧ではさんで変数名とそのデータ型を指定することで利用することができる。データ型が無指定だとVariant型になる。カンマで区切って複数の仮引数を指定することができる。

引数はパラメータとも呼ばれている。

次のコードでは、メインのルーチンからHelloというサブルーチンを呼び出すときに文字列"Julia"を引数として渡している。Helloというサブルーチンでは、その文字列の値を受け取るための変数namaeをString型で定義してあるので、その値を受け取って処理する。

REM **** BASIC ****
'変数を明示的に宣言して使う
Option Explicit

Sub Main
  'サブルーチンを引数を与えて呼び出す
  Hello("Julia")
End Sub

'String型の引数を一つ持つサブルーチン
Sub Hello(namae As String)
  MsgBox "Hello, " & namae
End Sub

次のコードでは、メインのルーチンで身長と体重の入力を促し、その値を引数にしてボディマス指数を計算する函数funBmiを呼び出し、その返り値をメッセージボックスに出力している。呼び出された函数のほうでは、身長と体重の引数がSingle型の変数として定義されており、身長と体重の値を受け取ってボディマス指数を計算し、その計算結果を呼び出し元に返している。

REM **** BMIを計算 ****
'変数を明示的に宣言して使う
Option Explicit

Sub Main
  '局所変数をSingle型で宣言
  Dim height As Single
  Dim weight As Single
  Dim bmiValue As Single
  
  '入力
  height = InputBox("あなたの身長(cm)を入力してください")
  weight = InputBox("あなたの体重(kg)を入力してください")

  '身長と体重を引数に函数を呼び出してその返り値を代入
  bmiValue = funBmi(height,weight)

  '出力
  MsgBox "あなたのボディマス指数は" & bmiValue & "です"
End Sub

'Single型の引数を2つ持つ函数
Function funBmi(height As Single, weight As Single)
  '身長と体重からBMIを計算した値を返す
  funBmi = weight / (height/100)^2
End Function

引数が複数ある場合にはカンマで区切る。その順番は定義したときの順番と同じ。

身長と体重の入力時に何も入力しないと0と認識され、0除算ができないというエラーが生じる。これを避ける方法についてはまたの機会に。

サブルーチンや函数の適用範囲

マイクロソフトのVBAでは、SubプロシージャやFunctionプロシージャの先頭にPublicかPrivateを置くことによって変数のみならずプロシージャにも適用範囲を指定することができる。しかしLibreOffice Basicでは、Option Compatibleをモジュールの冒頭でたとえ宣言していたとしても、この機能を使うことができない。したがってPrivateと指定していてもすべてPublicとして認識され、他のモジュールから自由に呼び出せてしまう。

Privateという修飾子を有効にするには、Privateと指定したサブルーチンや函数を呼び出すその前にCompatibilityMode(True)を置く必要がある。こうすることで他のモジュールからPrivateのサブルーチンやPrivateの函数を呼び出すことができなくなる。

REM **** BASIC ****
'変数を明示的に宣言して使う
Option Explicit
'VBA拡張
Option Compatible

Sub Main
  CompatibilityMode(True) 'これが必要
  Hello("Julia")
End Sub

'このモジュール内限定のサブルーチン
Private Sub Hello(namae As String)
  MsgBox "Hello, " & namae
End Sub

条件分岐や繰り返しの処理を行うための制御構文についてはまたの機会に。

コメント

コメントを投稿

このブログの人気の投稿

LATEXで数式：指数と順列などで使う添数・添字

累乗（べき乗）で使われる指数（べき）など、右上に添えられる数や文字や記号はキャレット記号を用いて次のように表記することができる。添えられる数や文字や記号が複数に及んだり数式になる場合はそれらを{}で囲う必要がある。ちなみに、・は\cdotを、÷は\divを、≠は\neqをそれぞれ用い、分数は\frac{}{}で乗根は\sqrt[]{}で表すことができる。スペースを有効にするには\をスペースの前に付ける。 aのn乗 \( a^n \) a^n \( a^3 = a \cdot a \cdot a \) a^3 = a \cdot a \cdot a \( a^{m+n} \) a^{m+n} 指数法則 \( a^0 = 1 \ (a \neq 0) \) a^0 = 1 \ (a \neq 0) 指数法則 \( a^{\frac{1}{n}} = \sqrt[n]{a} \) a^{\frac{1}{n}} = \sqrt[n]{a} 指数法則 \( a^{\frac{m}{n}} = \sqrt[n]{a^m} \) a^{\frac{m}{n}} = \sqrt[n]{a^m} 指数法則 \( a^{-\frac{m}{n}} = \frac{1}{\sqrt[n]{a^m}} \) a^{-\frac{m}{n}} = \frac{1}{\sqrt[n]{a^m}} 指数法則 \( a^m a^n = a^{m+n} \) a^m a^n = a^{m+n} 指数法則 \( \frac{a^m}{a^n} = \frac{1}{a^{n-m}} \ (m < n) \) \frac{a^m}{a^n} = \frac{1}{a^{n-m}} \ (m < n) 指数法則 \( (a^m)^n = a^{mn} \) (a^m)^n = a^{mn} 指数法則 \( (ab)^n = a^n b^n \) (ab)^n = a^n b^n 指数法則 \( \left(\frac{a}{b}\right)^n = \frac{a^n}{b^n} \) \left(\frac{a}{b}\right)^n = \frac{a^n}{b^n} 指数法則 \( \frac{a^m}{a^n}
続きを読む

10の補数と9の補数と2の補数と1の補数

10進数と10の補数 10進法の四則演算に慣れている人なら算術的な直感で分かるのが10の補数。 算盤 そろばん を使っている人は10の補数と5の補数を出力する函数を会得しているかもしれない。 例えば、2に対して10の補数はいくつかと問われればそれは8だと分かるし、6に対して10の補数はいくつかと問われればそれは4だと分かるし、5に対して10の補数はいくつかと問われれば5だと直感的に分かる。 また、3に対して5の補数はいくつかと問われればそれは2だと分かるし、2に対して5の補数はいくつかと問われれば3だと分かる。 10の補数とは、ある自然数に対してそれにいくつの自然数を加えれば10になるのかという問いに答えたもの。自然数とは、ここでは0, 1, 2, 3, 4, 5, 6, 7, 8, 9のこと。 ある自然数xに対する10の補数yは次のように計算することによって答えることができる。 \[ y = 10 - x \] 10進法の位取り記数法では、桁上がり（位上がり）が起こる数が10であるので、ある数にあといくつ足すと桁上がりが起こるかを理解していることは、その四則演算においてとても重要な暗記事項になっている。 10進法の四則演算に慣れた人の頭の中には次のような函数または対応表があるのかもしれない。 \[ f(x) = 10 - x \] xは引数。「xに対する10の補数」を出力してくれる函数f(x)。 10の補数の対応表 10進数 10の補数 0 10 1 9 2 8 3 7 4 6 5 5 6 4 7 3 8 2 9 1 10 0 補数のこの対応表を見ると、数値を小さい順から並べた昇順と数値を大きい順から並べた降順との写像（マッピング）関係に見える。 10の補数と桁上がり 例えば、\( 6 + 7 = \)を計算するとき、人は6または7の補数を瞬時に思い浮かべ、加える数がそれを上回っている場合に桁上がりが起こると即座に認識するはず。つまり、6に対する10の補数である4を思い浮かべ、その4より大きい7から4を引いた数である3と10を足し合わせて答えを計算するかもしれない。 \[ \begin{align*} 6 + 7 &=
続きを読む

Visual Studio 2019にはC++のためのフォームデザイナーがない件

イメージ
Visual Studio 2019を利用してC++でWindowsフォームアプリを作成しようと「新しいプロジェクトの作成」で「Windowsデスクトップアプリケーション」を選んでみたものの、フォーム・デザイナーが見当たらないことに気が付いた。ユーザー・インターフェイスはソースコードを直接いじれということか。これは厳しい。 C++を諦めてC#でフォームをデザインしろというのが常識的な対処法になるのかもしれないが、それでもC++で作る必要があるという隙間需要を考慮し、今回はこの問題に対処する二通りの対処法をインターネット上で見つけることができたので紹介したいと思う。 Visual Studio Installerでは、「.NETデスクトップ開発」と「C++によるデスクトップ開発」にチェックを入れてインストールしておいたのだけれど、これだけではデフォルトで「ビルドツールC++/CLIサポート」がインストールされないようだ。これを追加インストールする必要がまずあった。その手順は次のとおり。 対処法１ コードを追加する方法 Visual Studio Installerをまず起動した。 「インストール済み」のVisual Studio **** 2019に対して「変更」を選んだ。 「ワークロード」タブで「.NETデスクトップ環境」と「C++によるデスクトップ環境」の両方にチェックが入っていることを確認した。 「個別のコンポーネント」タブを選び、「C++/CLI」として検索した。そうするとビルドツールのC++/CLIサポートの一覧が表示された。 この執筆時点では「v142ビルドツール(14.27)のC++/CLIサポート」がどうやら最新版のように見えたのでこれにチェックを入れた。 そうしておいてからそのダイアログ・ボックス右下の「変更」ボタンを押した。 これでダウンロードとインストールが自動的に行われるので、しばらくの間待つ。 インストールが完了したが、「警告あり」と表示されてしまった。「問題の表示」によればMicrosoft.VisualStudio.AspNetDiagnosticPack.Msiのインストールに失敗したらしい。ここではこの問題には対処せず、無視して次の手順に進んだ。 Visual Studio Installerを終了
続きを読む