情報基礎実習I （第４回） 木曜４・５限 担当：北川 晃.

Presentation on theme: "情報基礎実習I （第４回） 木曜４・５限 担当：北川 晃."— Presentation transcript:

1 情報基礎実習I （第４回） 木曜４・５限 担当：北川 晃

2 より，適宜ダウンロードして参照してください．
講義資料のスライド より，適宜ダウンロードして参照してください．

3 Select Case文 Select Case 条件式 条件式が評価される． [Case 値リスト1 その結果と各Caseの
[文ブロック１]] [Case 値リスト2 [文ブロック２]] ～ [Case Else [文ブロックｎ]] End Select 条件式が評価される． その結果と各Caseの 値リストが比較される． 条件式の書き方の例： Case 5　　　　（単独の値） Case “Sun”　（文字列） Case 3, 5, 7　（複数の値） Case 2 To 8　（2～8の範囲） Case ls < 7　（範囲，不等式）

4 Select Case 例文 Select Case x xの値がどのケースに 当てはまるかを選ぶ Case x < 0
Text=“負の値です” Case 0 Text=“0の値です” Case 1 To 99 Text=“1～99の値です” Case Else Text=“100以上の値です” End Select xの値がどのケースに 当てはまるかを選ぶ End Selectで締めくくる

5 考え方：Select Case文を用いてプログラムを書き換えてみよ．
プログラミング演習 １～１２の月(month)を入力をしたとき， ３～５月ならば「春」 ６～８月ならば「夏」 ９～１１月ならば「秋」 １２～２月ならば「冬」 と表示させるプログラムを作れ． 考え方：Select Case文を用いてプログラムを書き換えてみよ．

6 プログラム例：季節の判定 Console.Title = "季節の判定プログラム"
Dim month As Integer, season As String Console.WriteLine("何月ですか？1～12の整数を入力して下さい．") month = Console.ReadLine() Select Case month Case 3, 4, 5 season = "春" Case 6, 7, 8 season = "夏" Case 9, 10, 11 season = "秋" Case 12, 1, 2 season = "冬" Case Else season = "入力エラー" End Select Console.WriteLine("{0}月の季節は{1}です．", month, season)

7 さまざまな組み込み関数 Math.Abs(x): xの絶対値 Math.Sign(-5)→-1 Math.Sign(0)→0
Math.Sign(x): xの符号 Int(x): xを超えない最大の整数 Fix(x): xの整数部分 Math.Sqrt(x): xの平方根 Math.Log(x): xの自然対数 Math.Exp(x): xの指数関数 Math.Sin(x): xの正弦（ラジアン単位） Math.Cos(x): xの余弦（ラジアン単位） Math.Tan(x): xの正接（ラジアン単位） Math.Sign(-5)→-1 Math.Sign(0)→0 Math.Sign(30)→1 Int(-4.3)→-5 Int(4.3)→4 Fix(-4.3)→-4 Fix(4.3)→4

8 プログラミング演習 西暦年を与えて，うるう年か平年かを判定せよ． 西暦年数が4の倍数ならば，うるう年である． 西暦年数が4の倍数であっても，
100の倍数の時はうるう年ではない（平年）． 西暦年数が100の倍数であっても， 400の倍数であるときはうるう年である． 例： 2014年：うるう年でない 2016年：うるう年 2100年：うるう年でない 2000年：うるう年

9 うるう年の判定：アルゴリズム 4の倍数の判定：n/4の整数部分に4をかけて，元のnに一致するか？ は 4の倍数？ 西暦年 うるう年でない
　　は 4の倍数？ 西暦年 を入力 うるう年でない YES NO 100の倍数？ うるう年 400の倍数？ 4の倍数の判定：n/4の整数部分に4をかけて，元のnに一致するか？

10 プログラム例：うるう年の判定 Console.Title = "うるう年の判定" Dim n As Integer
Console.WriteLine("西暦年を入力して下さい") Console.Write("n=") n = Console.ReadLine() If n <> Fix(n / 4) * 4 Then GoTo Point2 If n <> Fix(n / 100) * 100 Then GoTo Point1 If n <> Fix(n / 400) * 400 Then GoTo Point2 Point1: Console.WriteLine("うるう年です") GoTo Point3 Point2: Console.WriteLine("うるう年ではありません") Point3:

11 出力例：うるう年の判定

12 プログラミング演習 三角形の3辺a, b, cを読み込んで， 三角形ができる場合は面積Sを計算せよ． A 三角形の成立条件 c b かつ C
ヘロンの公式 ただし

13 出力例：三角形の面積

14 プログラム例：三角形の面積 Console.Title = "三角形の面積" Dim a, b, c, p, s As Single
Console.WriteLine("三角形の3辺a,b,cを入力して下さい") Console.Write("a=") a = Console.ReadLine() Console.Write("b=") b = Console.ReadLine() Console.Write("c=") c = Console.ReadLine() If a = 0 Then GoTo Point1 If Math.Abs(a - b) > c Or a + b <= c Then GoTo Point1 p = (a + b + c) / 2 s = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) Console.WriteLine("三角形の面積はS={0}", s) GoTo PointEnd Point1: Console.WriteLine("三角形にならない") PointEnd:

15 例題：得点の評価 100点満点の得点を入力し， 0点以上30点未満なら 30点以上60点未満なら Terrible!!
　100点満点の得点を入力し， 0点以上30点未満なら 30点以上60点未満なら 60点以上70点未満なら 70点以上90点未満なら 90点以上なら と表示するプログラムを作れ． Terrible!! Bad! Good Great! Excellent!!

16 Label1，Textbox1，2，Button1の貼り付け
得点の評価：プログラム例 Label1，Textbox1，2，Button1の貼り付け

17 得点の評価：プログラム例（つづき） 評価ボタン の動作 Dim point As Integer
point = Val(TextBox1.Text) If point >= 90 Then TextBox2.BackColor = Color.Blue TextBox2.ForeColor = Color.White TextBox2.Text = "Excellent!!" ElseIf point >= 70 Then TextBox2.BackColor = Color.Green TextBox2.Text = "Great!" ElseIf point >= 60 Then TextBox2.BackColor = Color.GreenYellow TextBox2.ForeColor = Color.Black TextBox2.Text = "Good" 評価ボタン 　　の動作

18 得点の評価：プログラム例（つづき） 評価ボタン の動作 ElseIf point >= 30 Then
TextBox2.BackColor = Color.Yellow TextBox2.ForeColor = Color.Black TextBox2.Text = "Bad!" Else TextBox2.BackColor = Color.Red TextBox2.Text = "Terrible!!" End If 評価ボタン 　　の動作

19 例題：円，球の評価 半径rの値を入力し，以下の計算のいずれかを 選択した後，結果を表示するプログラムを作れ． 円の円周＝2πr
RadioButton GroupBox

20 Label1，2，Textbox1，2，Button1の貼り付け
例題：円，球の評価 Label1，2，Textbox1，2，Button1の貼り付け RadioButton1～4の貼り付け GroupBoxで囲む

21 円，球の評価：プログラム例（つづき） 計算ボタン の動作 πの数値を与える 「各RadioButtonが チェックされている」 が真か偽か？
　　の動作 Dim r, p, result As Single r = Val(TextBox1.Text) p = Math.PI If RadioButton1.Checked Then result = 2 * p * r If RadioButton2.Checked Then result = p * r ^ 2 If RadioButton3.Checked Then result = 4 * p * r ^ 2 If RadioButton4.Checked Then result = 4 / 3 * p * r ^ 3 TextBox2.Text = Format(result, "#,###.#0") πの数値を与える 「各RadioButtonが チェックされている」 が真か偽か？

22 例題：金額の計算 希望する商品すべてをクリックし，おのおのの個数を入力 したとき，合計金額を計算して表示するプログラムを作れ．
　希望する商品すべてをクリックし，おのおのの個数を入力 したとき，合計金額を計算して表示するプログラムを作れ． CheckBox

23 Label1～3，Textbox1～7，Button1，2の貼り付け
金額の計算：プログラム例 Label1～3，Textbox1～7，Button1，2の貼り付け CheckBox1～6の貼り付け

24 金額の計算：プログラム例（つづき） 各チェックボックスが真か偽か 金額の表示の書式 各チェックボックスのチェックを外す
Private Sub Button1_Click(sender As Object, e As EventArgs) … Dim result As Integer = 0 If CheckBox1.Checked Then _ result = result * Val(TextBox1.Text) If CheckBox2.Checked Then _ result = result * Val(TextBox2.Text) … If CheckBox6.Checked Then _ result = result * Val(TextBox6.Text) TextBox7.Text = Format(result, "\\###,###") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) … CheckBox1.Checked = False : TextBox1.Text = "" CheckBox2.Checked = False : TextBox2.Text = "" CheckBox6.Checked = False : TextBox6.Text = "" 各チェックボックスが真か偽か 金額の表示の書式 各チェックボックスのチェックを外す

25 例題：最大値と最小値 ３つの数を入力し，最大値と最小値を 表示するプログラムを作れ．

26 Label1～3，Textbox1～5，Button1，2の貼り付け
最大値と最小値：プログラム例 Label1～3，Textbox1～5，Button1，2の貼り付け 三つの数字a, b, cについて， 　　最初にmax=min=aを代入 b, cをmax，minの値と比較し， 　　必要であれば書き換える

27 最大値と最小値：プログラム例（つづき） 計算ボタン Dim a, b, c, max, min As Single の動作
　　の動作 Dim a, b, c, max, min As Single a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) max = a : min = a If b > max Then max = b If b < min Then min = b If c > max Then max = c If c < min Then min = c TextBox4.Text = max TextBox5.Text = min