相性占いプログラム

Size: px

Start display at page:

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

あやかたなせ
5 years ago
Views:

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

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

オブジェクトプロパティ一覧ラベル 1 上 : ラベル 3 下 : ラベル 4 上 : ラベル 5 下 : ラベル 6 ラベル 2 ピクチャボックスラベル 7 ラベル 8 上 : コンボボックス 1 下 : コンボボックス 2 上 : コンボボックス 3 下 : コンボボックス 4 上 : コンボボックス 5 下 : コンボボックス 6 ボタン 1 ボタン 2 ラベル 9 グループボックス

2 オブジェクトプロパティ一覧ラベル 1 上 : ラベル 3 下 : ラベル 4 上 : ラベル 5 下 : ラベル 6 ラベル 2 ピクチャボックスラベル 7 ラベル 8 上 : コンボボックス 1 下 : コンボボックス 2 上 : コンボボックス 3 下 : コンボボックス 4 上 : コンボボックス 5 下 : コンボボックス 6 ボタン 1 ボタン 2 ラベル 9 グループボックス 1 コントロールの種類プロパティプロパティの設定値フォーム Name uranai BackColor White FormBorderStyle FixedSingle Text 相性占いプログラムラベル1 Name lbltitle Text 血液型星座に依る相性占い Font HG 創英角ポップ体, 標準,24 ラベル2 Name lblexplain AutoSize False Text 星座に依る相性はホロスコープ上の太陽の宮のみで判断しますが血液型と惑星の位置は或る種の密接な関係が有ると言われて居ます其処で星座と血液型に依り更に多くの因数から詳しい相性を判断して居ます Font MS 明朝, 標準,11 ラベル3 Name lblman1 Text Font 男性 : 誕生日 (MS 明朝, 太字,12) ラベル4 Name lblwoman1 Text Font 女性 : 誕生日 (MS 明朝, 太字,12) ラベル5 Name lblman2 Text Font 生血液型 (MS 明朝, 太字,12) ラベル6 Name lblwoman2 Text Font 生血液型 (MS 明朝, 太字,12) -2- グループボックス 2

3 コントロールの種類プロパティプロパティの設定値コンボボックス1 2 Name cmbmonthm cmbmonthw Text Font 空白 (MS 明朝, 標準,9) Items 1 月 ~12 月 ( 改行付き全角桁揃え ) コンボボックス3 4 Name cmbdaym cmbdayw Text Font 空白 (MS 明朝, 標準,9) Items 1 日 ~31 日 ( 改行付き全角桁揃え ) コンボボックス5 6 Name cmbbloodm cmbbloodw Text Font 空白 (MS 明朝, 標準,9) Items A 型,B 型,AB 型,O 型 ( 改行付き全角 ) ボタン1 Name btnstart Text Font 占う (MS 明朝, 太字,11) ボタン2 Name btnfinish Text Font 終了 (MS 明朝, 太字,11) グループボックス1 Name grpmesa Text Font 相性 (MS 明朝, 標準,10) ラベル7 Name lblmes1 Text Font AutoSize 空白 (MS 明朝, 太字,12) False ラベル8 Name lblmes2 Text Font AutoSize 空白 (MS 明朝, 標準,10) False グループボックス2 Name grpmesb Text Font アドバイス & ポイント ( 同上 ) ラベル9 Name lblmes3 Text Font AutoSize 空白 (MS 明朝, 標準,10) False ピクチャボックス Name picangel BackColor Transparent Picture angel.gif ラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないグループボックス他のコントロールをグループ化する為のコンテナと成るコントロールで有る通常は別にフォームを細分化する為に使用するパネルと同じ様な目的で使用するがパネルとは異なりキャプションを表示する事が出来るボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるコントロールで有るコンボボックス選択肢の一覧を表示するコントロール此の一覧より値を選択する事とテキストボックスに直接値を入力する事が出来るピクチャボックスビットマップアイコンメタファイル JPEG ファイル GIF ファイル等の画像を表示するコントロール従来のバージョン (VB 6.0) の様に描画メソッドを用いて描画する事や内部に他のコントロールを配置してコンテナと仕て使用する事は出来ない -3-

4 プログラムリスト注意!! データファイル uranai1~6.dat は製作中は当該プロジェクトの bin/debug フォルダに亦コンパイル後の実行中は EXE ファイルと同じフォルダに格納して置く事 Public Class uranai ' フォームレベルでグローバルな変数の宣言 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 SD As String Private cbomonth(1) As ComboBox Private cboday(1) As ComboBox Private cboblood(1) As ComboBox 此処で宣言した変数は同じフォーム内の総てのサブプロシージャで値の参照と設定を行う事が出来る Object 型も基本的な型と同様に変数や配列のデータ型と仕て指定する事が出来る ' フォームが読み込まれた時の処理 Private Sub uranai_load( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles Me.Load Dim I As Integer Dim J As Integer Application の StartupPath プロパティには起動したアプリケーションのパスが格納されて居る EndsWith は文字列の末尾の文字を調査するメソッドで有る ' 起動パスの取得 SD = Application.StartupPath : If Not SD.EndsWith(" ") Then SD &= " " ' ファイルよりデータを配列に読込 FileOpen( 1, SD & "uranai1.dat", OpenMode.Input ) For I = 0 To 47 For J = 0 To 47 Input( 1, PT( I, J ) ) FileOpen( 1, SD & "uranai2.dat", OpenMode.Input ) For I = 1 To 12 Input( 1, MD( I ) ) FileOpen( 1, SD & "uranai3.dat", OpenMode.Input ) For I = 0 To 12 Input( 1, CN( I ) ) Not は否定を意味し論理式が真の時は偽に偽の時は真に成るループ処理の For 文が入れ子に成って居る此の様な状態をネスティングと言う此のループ処理ではカウンター I の値を 1 から 12 に 1 宛変化させて迄の処理を繰り返し行う文字列の結合には通常アンパサント (&) が使用されるが従来の様にプラス (+) も使用する事が出来る -4-

5 FileOpen( 1, SD & "uranai4.dat", OpenMode.Input ) For I = 1 To 7 Input( 1, M1( I ) ) FileOpen( 1, SD & "uranai5.dat", OpenMode.Input ) For I = 1 To 7 Input( 1, M2( I ) ) FileOpen( 1, SD & "uranai6.dat", OpenMode.Input ) For I = 1 To 7 Input( 1, M3( I ) ) ' コントロールを Object 配列に格納 ( コントロール配列化 ) cbomonth( 0 ) = cbomonthm cbomonth( 1 ) = cbomonthw cboday( 0 ) = cbodaym cboday( 1 ) = cbodayw cboblood( 0 ) = cbobloodm cboblood( 1 ) = cbobloodw End Sub ファイルの読込は FileOpen : ファイルを開く Input : データを読む FileClose : ファイルを閉じるの手順で行う亦一連のデータは通常配列変数に読み込むファイルに記録されて居るデータの個数が予め判明して居る場合は For ~ 文で総てのデータを読み込む事が出来る.NET 以降では従来の様にデザイン時にコントロール配列を配置する事が出来ない其の為コントロールを配列と仕て使用する為にはコントロール型の配列にコントロールのインスタンスを代入する必要が有る ' ボタン ( 占う ) がクリックされた時の処理 Private Sub btnstart_click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles btnstart.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 cbomonth( I ).Text = "" Then cbomonth( I ).Focus( ) : Beep( ) : Exit Sub Else ダブルコーテーションの間に何も記述せず 2 個連続して記述すると長さ 0 の文字列 ( ヌルストリング ) を意味し文字列の消去等に利用する此の行のイコール (=) 記号は比較演算子で有る A=B : AとBは等しい此の行のイコール (=) 記号は代入演算子で有り右辺の値を左辺に代入する働きをする M = Val( Trim( StrConv( cbomonth( I ).Text.Substring( 0, 2 ), VbStrConv.Narrow ) ) ) End If ' 誕生日 ( 日 ) の取得 If cboday(i).text = "" Then cboday( I ).Focus( ) : Beep( ) : Exit Sub Else D = Val( Trim( StrConv( cboday( I ).Text.Substring( 0, 2 ), VbStrConv.Narrow ) ) ) End If Substring は文字列から部分文字列を切り出すメソッドで有る -5-

6 ' 血液型の取得 If cboblood(i).text = "" Then cboblood( I ).Focus( ) : Beep( ) : Exit Sub Else Select Case cboblood( 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 End If If S >= 1222 Then ST( I ) = B ' 評価値に基づきメッセージの表示 N = PT( ST( 0 ), ST( 1 ) ) lblmes1.text = M1( N ) lblmes2.text = M2( N ) lblmes3.text = M3( N ) End Sub 1 個の式の値を複数の値と比較する条件が多数有る場合は Select 文を使用すると効率的で読み易いコードを記述する事が出来る該当式にはコンボボックスの Items プロパティに記述した通りの文字列を指定し無いと正しく判断され無い此のループ処理ではカウンター J の値を 1 から 12 に 1 宛変化させて迄の処理を繰り返し行う条件判定に比較演算子と論理演算子を使用して居る A >= B : AはB 以上 A <B : AはBより小さい A And B : AかつBの場合 ' ボタン ( 終了 ) がクリックされた時の処理 Private Sub btnfinish_click( ByVal sender As Object, ByVal e As System.EventArgs ) _ Handles btnfinish.click アプリケーションを終了する場 Me.Dispose( ) 合正しくプログラムをメモリか End ら消去して終了する事が望まし End Sub い End Class 表示を整形する便利な関数 StrConv: 文字列を変換する関数此処では全角文字を半角文字に変換して居るが他にも StrConv 関数では大文字 / 小文字や Unicode/Shift JIS やひらがな / カタカナ等の相互変換を行う事が出来る -6-

7 VB VB 2005 基礎 Ⅱ noa 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( 文字列 ) 引数で与えられた文字列の先頭と末尾のスペース ( 全角と半角 ) を取り除く引数の文字列には文字列又は文字列を格納した変数を指定し必ず指定する Substring メソッドに依る文字列の操作 ( 再掲 ) 部分文字列を取得するメソッド Object.Substring( 開始位置, 文字数 ) Object で表わされる文字列の開始位置から指定した文字数丈切り出した文字列を返す引数の開始位置には開始位置のインデックスを指定し省略する事は出来ない引数の文字数には切り取る文字数を指定し省略可能で有る引数の開始位置は 0 から始まるインデックスで指定する亦引数の文字数を省略した場合はインデックス以降の末尾迄の総ての文字列が切り出される -7-

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

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

相性占いプログラム

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