ブログの説明

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

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

数式の表示には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}{...
続きを読む

LibreOffice 6 Calcでフォーム（ダイアログ）を作成してマクロで表示

イメージ
ここで用いたLibreOfficeのバージョンと設定 LibreOffice 6.1 LibreOfficeの「ツール」-「オプション」-「LibreOffice」の「詳細」で「Java実行環境を使用」にチェックが入っていること。「インストール済みのJava実行環境(JRE)」が表示されていること。 LibreOffice 6.1 Calcにはデータを入力したり表示したりするのに使うことができるフォームが用意されている。そしてそのフォームはダイアログと呼ばれている。今回はそのダイアログを作成し、それを表示させたり閉じたりするマクロをLibreOffice Basicを使って実装してみる。 フォームコントロールの作成 LibreOffice Calcを起動。 トップメニューで「表示」-「ツールバー」-「フォームコントロール」という順に選び、フォームコントロールのツールバーを表示させる。 フォームコントロールのツールバーの中から「ボタン」（プッシュ・ボタン）を選び、スプレッドシートの適当な場所にプッシュ・ボタンを作成して配置する。 作成されたプッシュ・ボタンの上でマウスの右クリックメニューを表示させ、その中から「コントロール」を選ぶ。 「属性 プッシュボタン」というダイアログが表示されるので、「全般」タブ内にある「タイトル」の項目を「ダイアログ表示」に変える。 トップメニューで「ファイル」-「保存」を選んで変更内容を保存する。 スプレッドシート上でのプッシュ・ボタンの作成とその属性の設定はこれで終わり。 ダイアログを作成 「閉じる」というコマンド・ボタンだけを持つ単純なダイアログを作成する。 LibreOffice Calcのトップメニューで「ツール」-「マクロ」-「ダイアログの管理」を選ぶ。 そうすると「LibreOffice Basicマクロの管理」というダイアログが開く。「ダイアログ」というタブを選び、ダイアログに表示されている.odsファイル（今開いているスプレッドシート名）を選ぶ。 「新規作成」ボタンを押して「Dialog1」を作成し、「編集」ボタンを押す。 そうすると統合開発環境(IDE)が起動し、ダイアログの雛形が表示されるはず。 ツールバーの中から「ボタン」（コマンド・ボタン）を選び、ダイアログの雛...
続きを読む

LibreOffice Calc 4.3で数値を3桁ずつカンマで区切る

ここで使用しているのは、LibreOffice Calc 4.3.3 セルに入力されている数値を3桁ずつカンマで区切って読みやすくするには、セルの書式設定を使う。手順は下の通り。 カンマで区切る数値データが入力されるセルをマウスを左クリックして選ぶ。複数のセルを選ぶときにはマウスを左クリックしたまま移動させる。するとセルが有効になって紺色に変わる。 有効にしたセルの上でマウスを右クリックして表示されたメニューから「セルの書式設定」を左クリックして選ぶか、または、メニューバーの「書式」から「セル」を左クリックして選ぶ。するとダイアログが開く ダイアログの「数値」タブを左クリックして選ぶ カテゴリーの中の「数値」を左クリックして選ぶ 形式の中の「-1,234」を左クリックして選ぶか、または、オプションの「3桁区切り」に左クリックでチェックを入れる 「OK」を左クリックしてダイアログを閉じる
続きを読む