万年暦プログラム

Size: px

Start display at page:

Download "万年暦プログラム"

みいかいなくら
5 years ago
Views:

暦カルキュレータ VB8 プログラムの概要テキストボックスで指定した年月日よりオプションボタンで日付が選択されて居る場合は何年又は何箇月又は何日又は何週後又は前の日付を求める亦オプションボタンで日数が選択されて居る場合は更にテキストボックスで指定した年月日迄の日数を求めるオプションボタンの選択状況に依り入力欄の有効無効を切り替えると共に

1 暦カルキュレータ VB8 プログラムの概要テキストボックスで指定した年月日よりオプションボタンで日付が選択されて居る場合は何年又は何箇月又は何日又は何週後又は前の日付を求める亦オプションボタンで日数が選択されて居る場合は更にテキストボックスで指定した年月日迄の日数を求めるオプションボタンの選択状況に依り入力欄の有効無効を切り替えると共にコマンドボタンのキャプションを書き換えて操作性を高める様にして居る今回の課題項目単純変数の宣言 (Dim) 標準コントロールの利用 (Frame Label Text Combo Command Option) プロパティの値の取得と設定 (Value ListIndex SelStart sellength 等 ) イベントの利用 (Load Click GotFocus) メソッドの利用 (SetFocus) ステートメントの利用 (Unload End Exit Sub) 組込関数 ( 型変換 ) の利用 (CInt CLng) 組込関数 ( 日付時間 ) の利用 (Year Month Day DateSerial DateAdd DateDiff Date) 組込関数 ( 評価 ) の利用 (IsNumeric IsDate) 演算子 ( 代入演算子算術演算子結合演算子 ) 制御構造構文 ( 条件分岐 If ~ Then Select case ループ処理 For ~ Next) 今回の重点項目 If 文に依る条件分岐 (If ~ Then Else ) For 文に依るループ処理 (For counter=start To end : : Next counter) Select Case 文に依るループ処理 (Select Case: Case : End Select) 評価関数 (IsNumeric Isate) 日付と時間を扱う関数 (Year Month Day DateSerial DateAdd DateDiff) 今回の応用項目日付計算だけで無く時間計算も出来る様に拡張するテキストボックスへの入力に於けるマンマシンインターフェイスを改良する -1-

オブジェクトプロパティ一覧ラベル 1 コントロール配列 (0~7) フレーム 1 フレーム 2 テキストコントロール配列 (0~6) コンボボックスフレーム 3 オプション 1 コントロール配列 (0~1) オプション 3 オプション 2 コマンドボタン 1 ラベル 2 コマンドボタン 2 コントロールの種類プロパティプロパティの設定値フォームオブジェクト名 Form1

2 オブジェクトプロパティ一覧ラベル 1 コントロール配列 (0~7) フレーム 1 フレーム 2 テキストコントロール配列 (0~6) コンボボックスフレーム 3 オプション 1 コントロール配列 (0~1) オプション 3 オプション 2 コマンドボタン 1 ラベル 2 コマンドボタン 2 コントロールの種類プロパティプロパティの設定値フォームオブジェクト名 Form1 暦カルキュレータフレーム1 オブジェクト名 fradate 日付計算フレーム2 オブジェクト名 fraparam 空白ラベル1 オブジェクト名 lbldate Index 0~7( コントロール配列 ) 西暦年月日より西暦年月日迄 Font MS 明朝, 太字,12 テキストボックスオブジェクト名 txtdate Index 0~6( コントロール配列 ) Alignment 1- 右揃え Text Font 空白 (MS 明朝, 太字,14) IMEMode 3-オフ固定コンボボックスオブジェクト名 cmbdate List Font 年月日週 (MS 明朝, 太字,14) フレーム3 オブジェクト名 frabeforeafter 空白オプション1 オブジェクト名 optmethod Index 0~1( コントロール配列 ) caption 日付日数 -2-

3 コントロールの種類プロパティプロパティの設定値オプション2 オブジェクト名 optbefore 前オプション3 オブジェクト名 optafter 後 Value True コマンドボタン1 オブジェクト名 cmddate Font を求める (MS 明朝, 太字,12) コマンドボタン2 オブジェクト名 cmdfinish Font 終了 (MS 明朝, 太字,12) ラベル2 オブジェクト名 lbldatedisp Appearance 0-フラット BorderStyle 1- 実線 Font 空白 (MS 明朝, 太字,20) フレーム他のコントロールをグループ化するコントロール通常チェックボックスやオプションボタンと共に使用しフレーム自体は特定のを持たないラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないテキストボックステキストの入力や表示を行うコントロール此のテキストはユーザーが直接入力したり変更したりする事が出来るコンボボックス選択肢の一覧を表示するコントロール此の一覧より値を選択する事とテキストボックスに直接値を入力する事が出来るコマンドボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるコントロールですオプションボタン複数の選択肢の中から 1 個だけを選択するコントロールチェックボックスとは異なり 1 個のグループの中で選択出来るオプションボタンは 1 個だけで有る表示を整形する便利な関数 1.Format : 指定したに変換する関数 2.StrConv : 文字列を変換する関数 Format 関数の詳細はオンラインヘルプで当該関数を表示し関連項目例えば数値表示指定文字や文字列表示指定文字や日付 / 時刻表示指定文字を参照して下さい亦 StrConv 関数では大文字 / 小文字や全角 / 半角やひらがな / カタカナ等の相互変換を行う事が出来る -3-

4 プログラムリスト Option Explicit Private Opt(3) As String ' フォームが読み込まれた時の処理 Private Sub Form_Load( ) Dim I As Integer txtdate(0).text = Year(Date) txtdate(1).text = Month(Date) txtdate(2).text = Day(Date) Opt(0) = "yyyy": Opt(1) = "m": Opt(2) = "d": Opt(3) = "ww" For I = 4 To 7: lbldate(i).enabled = False: Next I For I = 4 To 6: txtdate(i).enabled = False: Next I End Sub ' オプションボタン ( 日付日数 ) がクリックされた時の処理 Private Sub optmethod_click(index As Integer) Dim I As Integer Select Case Index Case 0 txtdate(3).enabled = True cmbdate.enabled = True optbefore.enabled = True optafter.enabled = True For I = 4 To 7: lbldate(i).enabled = False: Next I For I = 4 To 6: txtdate(i).enabled = False: Next I cmddate. = " の日付を求める " Case 1 txtdate(3).enabled = False cmbdate.enabled = False optbefore.enabled = False optafter.enabled = False For I = 4 To 7: lbldate(i).enabled = True: Next I For I = 4 To 6: txtdate(i).enabled = True: Next I cmddate. = " の日数を求める " End Select End Sub ' テキストボックスがフォーカスを得た時の処理 Private Sub txtdate_gotfocus(index As Integer) txtdate(index).selstart = 0 txtdate(index).sellength = Len(txtDate(Index).Text) End Sub 此処で宣言した変数は同じフォーム内の総てのサブプロシージャで値の参照と設定を行う事が出来る現在の日付 Date から年月日を夫々れ Year 関数 Month 関数 day 関数で取得しテキストボックスに設定此のループ処理ではカウンター I の値を 4 から 7 に 1 ずつ変化させて Next 迄の処理を繰り返し行う此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ないオプションボタンで日付が選択されて居る場合の設定を行うオプションボタンで日数が選択されて居る場合の設定を行うテキストボックスがフォーカスを持った時テキストボックス内の総ての文字列を選択状態に仕て居る此れに依り既に入力されて居る文字列を消去せずに新しい文字列を入力する事が出来る -4-

5 ' コマンドボタン ( 終了 ) がクリックされた時の処理 Private Sub cmdfinish_click( ) Unload Me: End End Sub アプリケーションを終了する場合正しくプログラムをメモリから消去して終了する事が望ましい ' コマンドボタンがクリックされた時の処理 Private Sub cmddate_click( ) Dim Y As Integer, M As Integer, D As Integer Dim T1 As Date, T2 As Date Dim X As Long, S As String ' 起算日を求める Y = CInt(txtDate(0).Text) M = CInt(txtDate(1).Text) D = CInt(txtDate(2).Text) If Not IsDate(Str$(Y) & "/" & Str$(M) & "/" & Str$(D)) Then Exit Sub T1 = DateSerial(Y, M, D) If optmethod(0).value = True Then ' 指定した日数を加算した日付を求める If IsNumeric(txtDate(3).Text) Then X = CLng(txtDate(3).Text) If optbefore.value = True Then X = X * (-1) Else txtdate(3).setfocus: Exit Sub If cmbdate.listindex < 0 Then cmbdate.setfocus: Exit Sub Else S = Opt(cmbDate.ListIndex) lbldatedisp. = Format(DateAdd(S, X, T1), "yyyy 年 mm 月 dd 日 ") Else ' 日付の時間間隔を求める Y = CInt(txtDate(4).Text) M = CInt(txtDate(5).Text) D = CInt(txtDate(6).Text) If Not IsDate(Str$(Y) & "/" & Str$(M) & "/" & Str$(D)) Then Exit Sub T2 = DateSerial(Y, M, D) lbldatedisp. = Format(DateDiff("d", T1, T2), "##### 日 ") End Sub -5- 此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない此の様にカンマで区切り複数の変数を 1 行で宣言する事も出来る IsDate 関数は引数で与えられた文字列が日付と仕て評価出来るかを調べる猶夫々れのテキストボックスの入力値が数値と仕て評価出来るか IsNumeric 関数で調べて置く事が望ましいを指定した形式に変換するには Format 関数を使用すると便利である

6 If 文に依る条件分岐論理式の条件判断を行うステートメント単一行形式 1 If 論理式 Then 論理式が真の場合の処理単一行形式 2 If 論理式 Then 論理式が真の場合の処理 Else 論理式が偽の場合の処理ブロック形式 1 If 論理式 Then 論理式が真の場合の処理ブロック形式 2 If 論理式 Then 論理式が真の場合の処理 Else 偽 (False) 論理式が偽の場合の処理論理式真 (True) ブロック形式 3 If 論理式 1 Then 論理式 1が真の場合の処理 ElseIf 論理式 2 Then 論理式 2が真の場合の処理 Else 論理式 1と論理式 2が偽の場合の処理偽の場合の処理真の場合の処理論理式の条件に依りプログラムの実行を制御する即ち論理式が真 (0 以外 ) ならば Then 以下の処理が実行され偽 (0) ならば Else 以下の処理が実行される但し Else 節が無い場合にはの次のコードが実行される通常論理式 ( 条件式 ) には比較式を指定するが数値として評価出来る式で有ればどんな式でも指定する事が出来る論理式の値は真 (True) と偽 (False) の孰れかとして評価され数値の 0 は偽に 0 以外の数値は真に評価される単一行形式は短く簡単な条件判断を行う時に使用する亦ブロック形式は単一行形式の構文に比べより構造化された柔軟な記述が出来コードの読み易さや保守性が向上しデバッグも行い易く成るブロック形式かどうかを判断する場合 Then の後に何が続くかが調べらる Then と同じ行の後ろの部分にコメント以外の記述が有ると単一行形式として扱われる Else 節と ElseIf 節はどちらも必要に応じて定義する亦ブロック形式では ElseIf 節は幾つ指定しても構わない但し Else 節の後ろには ElseIf 節を指定する事は出来ない亦 1 つの条件式の値に依り複数の処理の孰れかを実行させるには Select Case ステートメントの方が適して居る -6-

7 Select 文に依る条件分岐評価式の値に従い複数のステートメントブロックの中の孰れかを実行するステートメント Select Case 評価式 Case 該当式 1 評価式が該当式 1 に該当する場合の処理 Case 該当式 2 評価式が該当式 2 に該当する場合の処理 Case Else 上記孰れの該当式にも該当しない場合の処理 End Select 評価式の値に従い複数のステートメントブロックの中の孰れかを実行する Select 文では評価式が 1 回だけ評価され其の値と各 Case 節の値が比較され一致した場合其の Case 節に対応するステートメントブロックが実行される該当式には 1 個以上の値リストを指定する複数の値を指定する場合には値をカンマ (,) で区切る亦キーワード Is と To を使用する事も出来る評価式が複数の該当式と一致した場合には最初に一致した Case 節のステートメントブロックが実行される亦孰れの該当式とも一致しない場合は Else Case 節 ( 省略可能 ) が実行される For 文に依るループ処理指定した回数だけ一連の処理を行うステートメント For カウンター変数 = 初期値 To 終了値 Step 増分一連の処理 Next カウンター変数 For Next ステートメントは For ステートメントから Next ステートメントの間に記述された一連の処理を指定した回数だけ繰り返し ( ループ ) 実行する Step 節は省略する事が出来此の場合増分はプラス 1 と看做される亦増分は負の値を指定する事も出来る For Next ステートメントのループは下記の順序で実行される 1. カウンター変数に初期値が設定される 2. カウンター変数と終了値の値を比較しカウンター変数の値が終了値より大きい場合はループ内の処理は実行されずにループが終了する ( 増分が負の値の場合はカウンター変数が終了値より小さいかどうかが判断される ) 3. ループ内の処理を実行する 4. カウンター変数に増分を加算する (Step 節を省略した場合は 1 が加算される ) 5. ステップ 2 から 4 を繰り返す Exit For ステートメントを使用するとループから強制的に抜け出す事が出来る -7-

8 Year 関数に依る年の取得日付の中から年だけを取得して返す関数 Year( 引数 ) 引数で与えられた日付から年の部分を取り出す引数には日付を表す値数式文字列式等を指定し省略する事は出来ない Month 関数に依る月の取得日付の中から月だけを取得して返す関数 Month( 引数 ) 引数で与えられた日付から月の部分を取り出す (1~12 の範囲内の整数 ) 引数には日付を表す値数式文字列式等を指定し省略する事は出来ない Day 関数に依る日の取得日付の中から日だけを取得して返す関数 Day( 引数 ) 引数で与えられた日付から日の部分を取り出す (1~31 の範囲内の整数 ) 引数には日付を表す値数式文字列式等を指定し省略する事は出来ない DateSerial 関数に依る日付の取得数値を日付に変換して返す関数 DateSerial( 引数 1, 引数 2, 引数 3) 引数で指定した年月日に対応する日付を得る個々に入力された値から日付を作成する時に使用する引数 1 には年を表す値 (0~99 の範囲又は 4 桁の整数値 ) を指定し省略する事は出来ない引数 2 には月を表す値 (1~12 の範囲の整数値 ) を指定し省略する事は出来ない引数 3 には日を表す値 (1~31 の範囲の整数値 ) を指定し省略する事は出来ない -8-

9 DateAdd 関数に依る時間の加算指定された時間間隔を加算した日付を返す関数 DateAdd( 引数 1, 引数 2, 引数 3) DateAdd 関数を使用すると或る日付に対して指定した時間間隔を加えたり引いたりする事が出来る引数 1 には追加する時間間隔を表す文字列式を指定し省略する事は出来ない引数 2 には追加する時間間隔の数を表す数式を指定し省略する事は出来ない引数 3 には時間間隔を追加する日付を指定し省略する事は出来ない引数 1 では下記の設定値が使用出来る年 ( yyyy ) 四半期 ( q ) 月 ( m ) 日 ( d ) 週 ( ww ) 時 ( h ) 分 ( n ) 秒 ( s ) 引数 2 では将来の日時を取得するには正の数を指定し過去の日時を取得するには負の数を指定する DateAdd の戻り値のは引数 3 に指定する日付のでは無くコントロールパネルの設定に依り決まる DateDiff 関数に依る時間の間隔 2 つの指定した日付の時間間隔を返す関数 DateDiff( 引数 1, 引数 2, 引数 3, 引数 4, 引数 5) DateDiff 関数を使用すると指定した時間単位で 2 つの日付の時間間隔を調べる事が出来る例えば 2 つの日付の間の日数や現在から年末迄の週の数等を求める事が出来る引数 1 には時間間隔を計算する為の時間単位を表す文字列式を指定し省略する事は出来ない引数 2 には時間間隔を計算する基と成る日付 1 を指定し省略する事は出来ない引数 3 には時間間隔を計算する基と成る日付 2 を指定し省略する事は出来ない引数 4 には週の始まりの曜日を表す定数を指定し省略する事が出来る引数 5 には年度の第 1 週を表す定数を指定し省略する事が出来る引数 1 では DateAdd 関数の引数 1 と同じ設定値が使用出来る日付 2 よりも時間的に後の日付を日付 1 に指定すると DateDiff 関数は負の数を返す Date 関数に依る日付の取得現在のシステムの日付を返す関数 Date 現在のシステム日付を取得する引数は無い -9-

10 IsNumeric 関数に依る数値評価式が数値として評価出来るか何うかを調べ結果をブール型で返す関数 IsNumeric( 引数 ) 引数で指定した式が数値として評価出来れば真 (True) を出来なければ偽 (False) を返す猶引数が日付式の場合は偽を返す引数には数式又は文字列式を含むバリアント型の式を指定し省略する事は出来ない IsDate 関数に依る日付評価式が日付として評価出来るか何うかを調べ結果をブール型で返す関数 Is Date( 引数 ) 引数で指定した式が日付で有る場合又は其の式が有効な日付として認識出来る場合には真 (True) を返し変換出来ない場合は偽 (false) を返す引数には日付や時刻として認識出来る日付式又は文字列式を指定し省略する事は出来ない Microsoft Windows で有効な日付の範囲は西暦 100 年 1 月 1 日から西暦 9999 年 12 月 31 日迄で有る此の範囲はオペレーティングシステム (OS) に依り異なる其他の日付と時刻を扱う関数 1.DateValue : 文字列を日付に変換する関数 2.DatePart : 日付の指定した部分を取得する関数 3.Weekday : 指定した日付が何曜日かを取得する関数 4.TimeValue : 文字列を時刻に変換する関数 5.TimeSerial : 数値を時刻に変換する関数 6.Hour : 時刻から時を取得する関数 7.Minute : 時刻から分を取得する関数 8.Second : 時刻から秒を取得する関数算術演算子比較演算子論理演算子 1.^ 冪乗 1.= 等しい 1.Not 否定 2.- 負数 2.<> 等しくない 2.And 論理積 3.* / 乗算と除算 3.< より小さい 3.Or 論理和 4. 整数除算 4.> より大きい 4.Xor 排他的論理和 5.Mod 剰余 5.<= 以下 5.Eqv 同値加算と減算 6.>= 以上 6.Imp 包合算術演算子と論理演算子では複数の演算子が使用されて居る場合には頭に付けた番号の順序で演算が行われる ( 上に書かれて居る演算子程優先順位が高い ) -10-

回文作成支援プログラム

回文作成支援プログラム VB1 プログラムの概要原文を 1 字入力する度に其の回文が順次表示される即ち AB と入力すると ABA と表示され ABC と入力すると ABCBA と表示される亦消去ボタンをクリックすると原文及び回文を消去する事も出来る終了ボタンをクリックするとプログラムをメモリから消去して終了する今回の課題項目単純変数の宣言 (Dim) 標準コントロールの利用