相性占いプログラム

Size: px

Start display at page:

Download "相性占いプログラム"

みさきもちやま
5 years ago
Views:

相性占いプログラム VB1 プログラムの概要画面上で男女夫々れの誕生日の月日と血液型をコンボボックスより選択した後占うボタンをクリックします相性とアドバイス & ポイントは血液型と星座の位置に依り予め或る占術法に基づき作成されたデータをファイルより読み込んで配列に記憶させ誕生日と血液型に依り算出された評価値に該当するデータを表示します猶必要な入力が行われて居ない場合には

1 相性占いプログラム VB1 プログラムの概要画面上で男女夫々れの誕生日の月日と血液型をコンボボックスより選択した後占うボタンをクリックします相性とアドバイス & ポイントは血液型と星座の位置に依り予め或る占術法に基づき作成されたデータをファイルより読み込んで配列に記憶させ誕生日と血液型に依り算出された評価値に該当するデータを表示します猶必要な入力が行われて居ない場合には警告音を鳴らして該当入力部分に戻るものとします今回はファイルアクセスの基礎と成るシーケンシャルファイルの読込に付いて学習します今回の課題項目単純変数の宣言 (Private Dim) 配列変数の宣言 (Private) 標準コントロールの利用 (Label ComboBox Command Image Frame 等 ) プロパティの値の取得と設定 (Text Caption 等 ) イベントの利用 (Load Click) 組込関数 ( 型変換 ) の利用 (Val StrConv) 組込関数 ( 文字列操作 ) の利用 (Trim Left Right) 演算子 ( 代入演算子算術演算子比較演算子論理演算子結合演算子 ) 制御構造構文 ( 条件分岐ループ処理 ) ファイル入出力 ( シーケンシャルファイルの読込 ) 今回の重点項目 Select 文に依る条件分岐 (Select Case Case End Select) シーケンシャルファイルの読込 (Open Input Close) 今回の応用項目背景画やフォントを工夫してビジュアルな面を改良する他の占い方法に依る独自のデーターファイルを作成する -1-

オブジェクトプロパティ一覧ラベル 1 上 : ラベル 3 下 : ラベル 6 上 : ラベル 4 下 : ラベル 7 上 : ラベル 5 下 : ラベル 8 ラベル 2 イメージラベル 9 ラベル 10 コンボボックス 1 コントロール配列 (0~1) コンボボックス 2 コントロール配列 (0~1) コンボボックス 3 コントロール配列 (0~1) ラベル 11 コマンドボタン 1

2 オブジェクトプロパティ一覧ラベル 1 上 : ラベル 3 下 : ラベル 6 上 : ラベル 4 下 : ラベル 7 上 : ラベル 5 下 : ラベル 8 ラベル 2 イメージラベル 9 ラベル 10 コンボボックス 1 コントロール配列 (0~1) コンボボックス 2 コントロール配列 (0~1) コンボボックス 3 コントロール配列 (0~1) ラベル 11 コマンドボタン 1 コマンドボタン 2 フレーム 1 フレーム 2 コントロールの種類プロパティプロパティの設定値ラベル1 オブジェクト名 lbltitle Caption 血液星占い相性プログラム Font MSゴシック, 太字,24 ラベル2 オブジェクト名 lblexplain Caption 星座に依る相性はホロスコープ上の太陽の宮のみで判断しますが血液型と惑星の位置は或る種の密接な関係が有ると言われて居ます其処で星座と血液型に依り更に多くの因数から詳しい相性を判断して居ます Font MSゴシック, 斜体,11 ラベル3 オブジェクト名 lblman Caption Font 男性 : 誕生日 (MSゴシック, 太字,12) ラベル4 オブジェクト名 lblmanbirth Caption Font 生 (MSゴシック, 太字,12) ラベル5 オブジェクト名 lblmanblood Caption Font 血液型 (MSゴシック, 太字,12) ラベル6 オブジェクト名 lblwoman Caption Font 女性 : 誕生日 (MSゴシック, 太字,12) ラベル7 オブジェクト名 lblwomanbirth Caption Font 生 (MSゴシック, 太字,12) ラベル8 オブジェクト名 lblwomanblood Caption Font 血液型 (MSゴシック, 太字,12) -2-

3 コントロールの種類プロパティプロパティの設定値ラベル9 オブジェクト名 lblmes1 Caption Font 空白 (MSゴシック, 太字,12) ラベル10 オブジェクト名 lblmes2 Caption Font 空白 (MSゴシック, 標準,10) ラベル11 オブジェクト名 lblmes3 Caption Font 空白 (MSゴシック, 標準,10) フレーム1 オブジェクト名 framesa Caption Font 相性 (MSゴシック, 標準,10) フレーム2 オブジェクト名 framesb Caption Font アドバイス & ポイント ( 同上 ) コマンドボタン1 オブジェクト名 cmdstart Caption Font 占う (MSゴシック, 太字,11) コマンドボタン2 オブジェクト名 cmdfinish Caption Font 終了 (MSゴシック, 太字,11) コンボボックス1 オブジェクト名 cmbmonth Text Font 空白 (MSゴシック, 標準,9) List 1 月 ~12 月 ( 改行付き ) Index 0~1( コントロール配列 ) コンボボックス2 オブジェクト名 cmbday Text Font 空白 (MSゴシック, 標準,9) List 1 日 ~31 日 ( 改行付き ) Index 0~1( コントロール配列 ) コンボボックス3 オブジェクト名 cmbblood Text Font 空白 (MSゴシック, 標準,9) List A 型,B 型,AB 型,O 型 ( 改行付き ) Index 0~1( コントロール配列 ) イメージオブジェクト名 imgangel Picture angel.gif ラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないフレーム他のコントロールをグループ化するコントロール通常チェックボックスやオプションボタンと共に使用しフレーム自体は特定のを持たないコマンドボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるコントロールですコンボボックス選択肢の一覧を表示するコントロール此の一覧より値を選択する事とテキストボックスに直接値を入力する事が出来るイメージビットマップアイコンメタファイル JPEG ファイル GIF ファイル等の画像を表示するコントロール描画メソッドを用いて描画する事は出来ない -3-

4 プログラムリスト Option Explicit ' フォームレベルでグローバルな変数の宣言 Private PT(47, 47) As Integer Private MD(12) As Integer Private CN(12) As Integer Private ST(1) As Integer Private M1(7) As String Private M2(7) As String Private M3(7) As String Private SystemDrive As String ' コマンドボタン ( 終了 ) がクリックされた時の処理 Private Sub cmdfinish_click() ' プログラムをメモリから消去し終了する Unload Me End End Sub 此処で宣言した変数は同じフォーム内の総てのサブプロシージャで値の参照と設定を行う事が出来るアプリケーションを終了する場合正しくプログラムをメモリから消去して終了する事が望ましい此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない ' コマンドボタン ( 占う ) がクリックされた時の処理 Private Sub cmdstart_click() ' サブプロシージャレベルでローカルな変数を宣言する Dim I As Integer Dim J As Integer Dim M As Integer Dim D As Integer Dim B As Integer Dim S As Integer Dim N As Integer Dim T As String 此の場合のイコール (=) 記 ' 男女夫々れの評価値を求める号は比較演算子で有る For I = 0 To 1 ' 誕生日 ( 月 ) を求める If cmbmonth(i).text = "" Then cmbmonth(i).setfocus: Beep: Exit Sub Else A=B : AとBは等しい M = Val(Trim$(StrConv(Left$(cmbMonth(I).Text, 2), vbnarrow))) End If 此の場合のイコール (=) 記 ' 誕生日 ( 日 ) を求める号は代入演算子で有り右 If cmbday(i).text = "" Then 辺の値を左辺に代入する働 cmbday(i).setfocus: Beep: Exit Sub きをする Else D = Val(Trim$(StrConv(Left$(cmbDay(I).Text, 2), vbnarrow))) End If -4- ダブルコーテーションの間に何も記述せず 2 個連続して記述すると長さ 0 の文字列 ( ヌルストリング ) を意味し文字列の消去等に利用する

5 ' 血液型を求める If cmbblood(i).text = "" Then cmbblood(i).setfocus: Beep: Exit Sub Else Select Case cmbblood(i).text Case "A 型 " B = 0 Case "O 型 " B = 1 Case "B 型 " B = 2 Case "AB 型 " B = 3 End Select End If ' 評価値を求める S = M * D For J = 1 To 12 If S >= CN(J - 1) And S < CN(J) Then ST(I) = (J - 1) * 4 + B Next J If S >= 1222 Then ST(I) = B ' 評価値に基づきメッセージを表示する N = PT(ST(0), ST(1)) lblmes1.caption = M1(N) lblmes2.caption = M2(N) lblmes3.caption = M3(N) End Sub ' フォームが読み込まれた時の処理 Private Sub Form_Load() ' サブプロシージャレベルでローカルな変数を宣言する Dim I As Integer Dim J As Integer 1 個の式の値を複数の値と比較する条件が多数有る場合は Select 文を使用すると効率的で読み易いコードを記述する事が出来る該当式にはコンボボックスの List プロパティに記述した通りの文字列を指定し無いと正しく判断され無い此のループ処理ではカウンター J の値を 1 から 12 に 1 ずつ変化させて Next 迄の処理を繰り返し行う条件判定に比較演算子と論理演算子を使用して居る A >= B : AはB 以上 A <B : AはBより小さい A And B : AかつBの場合此処で宣言した変数は宣言したサブプロシージャ内でしか値の参照と設定を行う事が出来ない App.Path には起動したアプリケーションのパスが格納されて居る ' 起動パスを求める SystemDrive = App.Path If Not Right$(SystemDrive, 1) = " " Then SystemDrive = SystemDrive + " " ' ファイルよりデータを配列に読み込む Open SystemDrive + "uranai1.dat" For Input As #1 For I = 0 To 47 For J = 0 To 47 Input #1, PT(I, J) Next J Not は否定を意味し論理式が真の場合は偽に偽の場合は真に成るループ処理の For 文が入れ子に成って居る此の様な状態をネスティングと言う -5-

6 Open SystemDrive + "uranai2.dat" For Input As #1 For I = 1 To 12 Input #1, MD(I) Open SystemDrive + "uranai3.dat" For Input As #1 For I = 0 To 12 Input #1, CN(I) Open SystemDrive + "uranai4.dat" For Input As #1 For I = 1 To 7 Input #1, M1(I) Open SystemDrive + "uranai5.dat" For Input As #1 For I = 1 To 7 Input #1, M2(I) Open SystemDrive + "uranai6.dat" For Input As #1 For I = 1 To 7 Input #1, M3(I) End Sub 此のループ処理ではカウンター I の値を 1 から 12 に 1 ずつ変化させて Next 迄の処理を繰り返し行う文字列の結合には通常アンパサント (&) が使用されるが従来の様にプラス (+) も使用する事が出来るファイルの読込は Open : ファイルを開く Input : データを読む Close : ファイルを閉じるの手順で行う亦一連のデータは通常配列変数に読み込む算術演算子比較演算子論理演算子 1.^ 冪乗 1.= 等しい 1.Not 否定 2.- 負数 2.<> 等しくない 2.And 論理積 3.* / 乗算と除算 3.< より小さい 3.Or 論理和 4. 整数除算 4.> より大きい 4.Xor 排他的論理和 5.Mod 剰余 5.<= 以下 5.Eqv 同値加算と減算 6.>= 以上 6.Imp 包合算術演算子と論理演算子では複数の演算子が使用されて居る場合には頭に付けた番号の順序で演算が行われる ( 上に書かれて居る演算子程優先順位が高い ) 表示を整形する便利な関数 1.StrConv : 文字列を変換する関数亦 StrConv 関数では大文字 / 小文字や全角 / 半角やひらがな / カタカナ等の相互変換を行う事が出来る -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 節 ( 省略可能 ) が実行される Trim 関数に依る余分なスペースの削除指定した文字列から前後のスペースを削除した文字列を返す関数 Trim( 引数 ) 引数で与えられた文字列の先頭と末尾のスペース ( 全角と半角 ) を取り除く Left 関数に依る文字列の切取指定した文字列の左端から指定した文字数分の文字列を返す関数 Left( 引数 1, 引数 2) 引数 1 の文字列の左端から引数 2 の文字数だけ文字列を切り取る Right 関数に依る文字列の切取指定した文字列の右端から指定した文字数分の文字列を返す関数 Right( 引数 1, 引数 2) 引数 1 の文字列の右端から引数 2 の文字数だけ文字列を切り取る -7-

8 Open ステートメントに依るファイルのオープン ( シーケンシャルアクセス ) ファイルを開くステートメント Open ファイル名 For モード As # ファイル番号ファイルを開いてファイルへのアクセス ( 入出力 ) が出来る様にする入出力処理を行う為には其の対象と成るファイルを開く必要が有る Open ステートメントはファイルに入出力の為のバッファを割り当てバッファに対するアクセスモードを決定するファイル名にはオープンするファイル名を指定しドライブ名やディレクトリ名 ( フォルダ名 ) を含める事が出来る猶 VB エディタ上でも正しく動作させる為にドライブ名からのフルパスで指定する事が望ましいモードにはシーケンシャルアクセスでは下記の孰れかを指定する 1.Input : 入力モード ( ファイルからデータを読み込む ) 2.Output : 出力モード ( ファイルにデータを書き込む / 上書きする ) 3.Append : 出力モード ( ファイルにデータを書き込む / 追加する ) ファイル番号にはファイルハンドラと成る 1~511 の範囲の整数値を指定する FreeFile 関数を使用すると次に使用可能なファイル番号を取得する事が出来る Input ステートメントに依るデータの読込 ( シーケンシャルファイル ) シーケンシャルファイルよりデータを読み込むステートメント Input # ファイル番号, 変数名シーケンシャルファイルよりデータを読み込んで変数に格納するファイル番号には入力用としてオープンした時に使用したファイル番号を指定する変数名には読み込んだデータを格納する変数の名前を指定する猶変数名はカンマ (,) で区切り複数指定する事が出来るファイル内のデータ項目の順番は引数で指定した変数の順番と一致して居る必要が有る亦ファイル内の各データ項目のデータ型は対応する変数のデータ型と一致して居なければ成らない通常ファイルからデータを読み込む場合文字列データは文字列型数値データは数値データ型として格納されるが変数が数値データ型で読み込むデータが数値データ型で無い場合変数には 0 が代入されるデータを入力して居る時にファイルの末尾に達すると EOF 関数の値が真 (True) に設定されるので読み込み位置がファイルの末尾に達したか何うかを確かめる事が出来る猶ファイルの末尾に達した後入力を行うと入力が終了しエラーが発生するシーケンシャルファイル内の各データはコンマ又は改行を区切り記号 ( デリミタ ) として区切られる文字列データを引用するダブルクォーテーション ( ) は無視される -8-

9 Close ステートメントに依るファイルのクローズファイルを閉じるステートメント Close # ファイル番号ファイル番号に対応するファイルを閉じるファイル番号にはオープンした時に使用したファイル番号を指定し複数のファイルを開いて居る場合にはコンマで区切り複数指定する事も出来る亦ファイル番号を省略した時には其の時点で開いて居る総てのファイルを閉じる Close ステートメントでファイルを閉じると其のファイルに割り当てられて居たファイル番号は解放され再び使用する事が出来る様に成るシーケンシャル出力モード (Output 又は Append) で開いたファイルを閉じた時出力バッファに残存して居るデータは其のファイルに対するオペレーティングシステムバッファに書き込まれ閉じたファイルが使用して居たバッファ領域は総て解放されるファイルの入出力データをファイルから読み込んだりファイルに書き込む時は対象に成るファイルをオープンしてから処理を行い其の後ファイルをクローズすると言う手順が必要と成るオープンしたファイルにはファイル番号を付けて管理するシーケンシャルファイルデータがファイルに書き込まれた順に保存されて居るファイルで原則として先頭から順番に読み書きする必要が有りデータの一部を変更する事は出来ないシーケンシャルファイル読込の処理手順 Open squid.dat For Input As #1 入力モードでファイルを開く Input #1, D1 Input #1, D2 Input #1, D3 Input #1, D4 aa が D1 に読み込まれる bb が D2 に読み込まれる cc が D3 に読み込まれる dd が D4 に読み込まれる squid.dat Open aa,bb cc,dd squid.dat 総てのデータを読み込んだ時点で EOF(1) が True に成る -9-

相性占いプログラム

相性占いプログラム VB 2005 1 プログラムの概要画面上で男女夫々れの誕生日の月日と血液型をコンボボックスより選択した後占うボタンをクリックする相性とアドバイス & ポイントは血液型と星座の位置に依り予め或る占術法に基づき作成されたデータをファイルより読み込んで配列に記憶させ誕生日と血液型に依り算出された評価値に該当するデータを表示する猶必要な入力が行われて居ない場合には警告音を鳴らして