PowerPoint プレゼンテーション

Size: px

Start display at page:

Download "PowerPoint プレゼンテーション"

れいなたにしき
4 years ago
Views:

1 定数と列挙型

2 定数と列挙型がなぜ必要か? 変更箇所を一箇所にまとめるため意味をわかりやすくするため

3 ゆっくりできない例 Dim buf( 10 ) as long Dim i as long For i = 0 to 10 buf(i) = i Next i

4 ゆっくりできない例 Dim buf( 10 ) as long Dim i as long For i = 0 to 10 buf(i) = i Next i 配列を 10 から 100 に変えてみる場合

5 ゆっくりできない例 Dim buf( 10 ) as long Dim i as long For i = 0 to 10 buf(i) = i Next i 2 箇所直す必要がある

6 変更箇所を1 箇所にする Const maxbuf as long = 10 Dim buf(maxbuf) as long Dim i as long For i = 0 to maxbuf buf(i) = i Next i

7 変更箇所を1 箇所にする Const maxbuf as long = 10 Dim buf(maxbuf) as long Dim i as long For i = 0 to maxbuf buf(i) = i Next i Const で宣言した場合以後その値を変更することはできない

8 変更箇所を1 箇所にする Const maxbuf as long = 10 Dim buf(maxbuf) as long Dim i as long For i = 0 to maxbuf buf(i) = i Next i 定数で使用できる型 Boolean,Byte,Integer,Long,Currency Single,Double,Date,String,Variant

9 変更箇所を1 箇所にする Const maxbuf as long = 100 Dim buf(maxbuf) as long Dim i as long For i = 0 to maxbuf buf(i) = i Next i 10 ではなく 100 にする場合一箇所なおせばすむ

10 ゆっくりできない例 Public Function CalTaxInclusivePrice(ByVal price As Currency) As Currency CalTaxInclusivePrice = Int(price * 1.05) End Function

11 ゆっくりできない例 Public Function CalTaxInclusivePrice(ByVal price As Currency) As Currency CalTaxInclusivePrice = Int(price * 1.05) End Function Int は少数点の切捨てを行なう

12 ゆっくりできない例 Public Function CalTaxInclusivePrice(ByVal price As Currency) As Currency CalTaxInclusivePrice = Int(price * 1.05) End Function 1.05 ってなんなの? ばかなの? しぬの?

13 意味をわかりやすくする Private Const mconsumptiontaxrate As Currency = 1.05 Public Function CalTaxInclusivePrice(ByVal price As Currency) As Currency CalTaxInclusivePrice = Int(price * mconsumptiontaxrate) End Function 1.05 を mconsumptiontaxrate とかえることで消費税をあらわすことを明示している

14 マジックナンバーゆっくりできないプログラムに書いたような数値はマジックナンバーといわれますこの数値の意味はわからんがうごくわーお魔法のような数値だね! という皮肉が含んでます

15 良いものじゃないわよ魔法少女なんて

16 これはゆっくりできる? '* 台形の面積を計算 Public Function TrapezoidArea( _ ByVal top As Double, _ ByVal bottom As Double, _ ByVal height As Double) As Double TrapezoidArea = (top + bottom) * height / 2 End Function

17 これはゆっくりできる? '* 台形の面積を計算 Public Function TrapezoidArea( _ ByVal top As Double, _ ByVal bottom As Double, _ ByVal height As Double) As Double const TWO as double = 2 TrapezoidArea = (top + bottom) * height / TWO End Function

18 これはゆっくりできる? '* 台形の面積を計算 Public Function TrapezoidArea( _ ByVal top As Double, _ ByVal bottom As Double, _ ByVal height As Double) As Double const TWO as double = 2 TrapezoidArea = (top + bottom) * height / TWO End Function ダメ!

19 目的を想いだそう変更箇所を一箇所にまとめる意味をわかりやすくする

20 目的を想いだそう変更箇所を一箇所にまとめる台形の公式が変更されることは絶対ない意味をわかりやすくする定数をつかうことで逆にわかりづらい

21 モジュールレベル同じモジュールならどこからでも使える Private const CONST_NAME As Long = 1

22 モジュールレベル全てのモジュールから使える Public const CONST_NAME As Long = 1

23 定数のリストをもつ列挙型 Long 型の値を設定できる変数や引数戻り値の型として使えるモジュールレベルでのみ宣言できる ( プロシージャ内で宣言できない )

24 '* echarsts キャラの状態 '* Public Enum echarsts kcharsts_normal kcharsts_poison kcharsts_dead kcharsts_yukkuri kcharsts_opoona End Enum '* 通常 '* 毒 : 一歩ごとに1% のダメージ '* 死亡 : 棺おけに引きこもる '* ゆっくり : 精神攻撃無効 '* オプーナ : 全ての能力が向上

25 '* echarsts キャラの状態 '* Public Enum echarsts kcharsts_normal kcharsts_poison kcharsts_dead kcharsts_yukkuri kcharsts_opoona End Enum '* 通常 '* 毒 : 一歩ごとに1% のダメージ '* 死亡 : 棺おけに引きこもる '* ゆっくり : 精神攻撃無効 '* オプーナ : 全ての能力が向上入力の補完機能がついて便利

26 '* echarsts キャラの状態 '* Public Enum echarsts kcharsts_normal * なにも指定しないと 0 kcharsts_poison * +1 つまり 1 kcharsts_dead '* +1 つまり 2 kcharsts_yukkuri * +1 つまり 3 kcharsts_opoona '* +1 つまり 4 End Enum 初期値は 0 上で設定してある数値に +1

27 '* echarsts キャラの状態 '* Public Enum echarsts kcharsts_normal * kcharsts_poison = 100 kcharsts_dead kcharsts_yukkuri * 数値の指定可能 * +1 の 101 になる kcharsts_opoona =&H10 * 16 進数も OK End Enum 数値の指定も可能循環しているので &H7FFFFFFF( ) の次は &H ( ) となるオーバーフローにはならない

28 '* echarsts キャラの状態 '* Public Enum echarsts kcharsts_normal * kcharsts_poison = 100 * 数値の指定可能 kcharsts_dead * kcharsts_yukkuri kcharsts_opoona = 100 End Enum * 同じ値も可能だがやめとけ同じ値も設定可能だが条件文で区別がつかなくなるのでやるな

29 まとめ次の場合は定数や列挙型を使う変更箇所を一箇所にまとめるため意味をわかりやすくするため定数は Long 型以外の型も指定できる列挙型は Long 型の定数をグループとしてまとめられる

30 定数と列挙型

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション配列とコレクション配列の使い方固定配列動的配列コレクションの使い方今日の目的固定配列の宣言例プロシージャレベル Dim arybuf(0 To 5) As Long モジュールレベル Private arybuf(0 To 5) As Long Public arybuf(0 To 5) As Long 固定配列の宣言例プロシージャレベル Dim arybuf(0 To 5) As