ブログの説明

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

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

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

LibreOffice Basic 制御構文 条件分岐

If構文

条件分岐は、なんらかの条件によって処理を分岐する制御構文。その代表的なものがIf構文。その書式はIf 条件式 Then 処理内容 ElseIf 条件式 Then 処理内容 Else 処理内容 End Ifのようになる。ただし、ElseIf文とElse文は必要なければ用いなくてよい付属文。

次のコードは、身長と体重の入力を促し、その値が0以下であるかどうかを検証し、0以下であればその値が無効であるとメッセージボックスに出力し、0以下でなければボディマス指数(BMI)を計算する函数を呼び出してその計算結果をメッセージボックスに出力するもの。

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)を入力してください")

  'If構文を用いて入力された値を検証
  If height <= 0 Then
    MsgBox "身長が無効な値です"
  ElseIf weight <= 0 Then
    MsgBox "体重が無効な値です"
  Else
    'BMIを計算する函数を呼び出して返り値を代入
    bmiValue = funBmi(height,weight)
    '計算結果をメッセージボックスに出力
    MsgBox "あなたのボディマス指数は" & bmiValue & "です"
  End If
End Sub

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

If height <= 0 Thenは身長の値が0以下の場合という意味。ElseIf weight <= 0 Thenは体重の値が0以下の場合という意味。Elseはいずれでもない場合。

IIf函数

制御構文ではないが、条件分岐の機能を持つ函数としてIIf函数というものがある。IIfはImmediate If（緊急のIf）という意味。IIf函数の引数に条件式、真の場合、偽の場合を渡すとIf構文と同じような働きをしてくれる。

次のコードは整数の入力を促し、IIf函数の第一引数でその値を2で割って0に等しくなるかを判定し、真ならば第二引数である"偶数"という文字列を、偽ならば第三引数である"奇数"という文字列を返してメッセージボックスに出力するもの。

REM ***** 奇数か偶数か判別 *****
'変数を明示的に宣言して使う
Option Explicit

Sub Main
  Dim x As Integer
  Dim a As String
  x = InputBox("整数を入力してください")
  a = IIf((x MOD 2) = 0, "偶数", "奇数")
  MsgBox x & "は" & a & "です"
End Sub

ただしこのコードでは、InputBoxに小数を入力するとInteger型の変数に代入されるので四捨五入される。また、整数でなく文字列を入力するとすべて0となるのでIIf函数によって偶数と判定される。

Select Case構文

条件分岐にはIf構文の他にSelect Case構文がある。C言語でswitch構文と呼ばれているものにそれは似ている。その書式はSelect Case 変数名 Case 値1: 処理内容 Case 値2: 処理内容 Case 値3: 処理内容 Case Else: いずれにも該当しないときの処理内容 End Selectのようになる。ただし、各Caseの値の部分は、値の範囲(値 to 値)であってもよいし、複数の値をカンマで区切って並べてもよいし、論理演算子を用いた条件式であってもよい。

WeekDay函数はその引数をdateやnowにすると今日の曜日をInteger型の番号で返してくれるが、次のコードはその曜日番号をSelect Case構文で識別することによってString型の曜日名に切り替えて出力するもの。WeekDay函数から返された今日の曜日番号を変数に代入し、Select Case構文によってその番号がどのCaseに当てはまるかで分岐し、その番号に対応する曜日名を変数に代入してメッセージボックスに出力する。

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

Sub Main
  '局所変数を宣言
  Dim weekdayNumber As Integer
  Dim weekdayName As String
  
  'WeekDay()函数から曜日番号を取得
  weekdayNumber = WeekDay(now)

  '曜日番号から曜日名を得るSelect構文
  Select Case weekdayNumber
    Case 1:
      weekdayName = "日曜日"
    Case 2: 
      weekdayName = "月曜日"
    Case 3: 
      weekdayName = "火曜日"
    Case 4:
      weekdayName = "水曜日"
    Case 5:
      weekdayName = "木曜日"
    Case 6:
      weekdayName = "金曜日"
    Case 7:
      weekdayName = "土曜日"
  End Select
  
  '曜日名をメッセージボックスに出力
  MsgBox "今日は" & weekdayName & "です"
End Sub

このコードではCase Else文を使わなかったが、最後のCase 7:の部分をCase Else:と書き換えても同じように動作するはず。

次のコードは、入力された身長と体重からボディマス指数(BMI)を計算し、その値をWHOの基準に則してSelect Case構文を用いて評価した結果をメッセージボックスに出力するもの。

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)を入力してください")

  '入力された値を検証
  If height <= 0 Then
   MsgBox "身長が無効な値です"
  ElseIf weight <= 0 Then
    MsgBox "体重が無効な値です"
  End If

  'BMIを計算する函数を呼び出す
  bmiValue = funBmi(height,weight)
    
  'Select Case構文を用いた出力
  Select Case bmiValue
    Case < 16.0:
      MsgBox "やせすぎです"
    Case 16.0 to 16.99:
      MsgBox "やせています"
    Case 17.0 to 18.49:
      MsgBox "やせぎみです"
    Case 18.5 to 24.99:
      MsgBox "ふつう体型です"
    Case 25.0 to 29.99:
      MsgBox "太りぎみです"
    Case 30.0 to 34.99:
      MsgBox "肥満度1です"
    Case 35.0 to 39.99:
      MsgBox "肥満度2です"
    Case > 40.0:
      MsgBox "肥満度3以上です"
    Case Else:
      MsgBox "不明です"
  End Select
End Sub

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

Case < 16.0:は16.0未満の場合を意味し、Case > 40.0:は40.0より大きい場合を意味している。Case 16.0 to 16.99:は値が16.0から16.99の範囲にある場合を意味している。

コメント

コメントを投稿

このブログの人気の投稿

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を終了
続きを読む