回文作成支援プログラム

Size: px

Start display at page:

Download "回文作成支援プログラム"

あきみひろなが
5 years ago
Views:

電光掲示板プログラム VB 2005 1 プログラムの概要掲示文を入力し表示開始ボタンをクリックすると入力した掲示文が上部の表示域に右から左へ流れる様に表示される亦表示停止ボタンをクリックすると掲示文の動きが停止する終了ボタンをクリックするとタイマーを停止しプログラムをメモリから消去して終了する今回の課題項目単純変数の宣言 (Private) Windows

1 電光掲示板プログラム VB プログラムの概要掲示文を入力し表示開始ボタンをクリックすると入力した掲示文が上部の表示域に右から左へ流れる様に表示される亦表示停止ボタンをクリックすると掲示文の動きが停止する終了ボタンをクリックするとタイマーを停止しプログラムをメモリから消去して終了する今回の課題項目単純変数の宣言 (Private) Windows フォームコントロールの利用 (Box Label Button Panel Timer) プロパティの値の取得と設定 ( Enabled) イベントの利用 (Click Tick) ステートメントの利用 (End) 組込関数の利用 (Left Mid Space StrConv) 演算子 ( 代入演算子 = 比較演算子 = 結合演算子 &) 制御構造構文 ( 条件分岐 If ~ Then ) 今回の重点項目変数の適用範囲 ( スコープ : フォームモジュールレベル ) If 文に依る条件分岐 (If ~ Then Else ) 文字列操作 ( 文字列操作関数 ) タイマー処理 ( 一定時間間隔でのイベントの発生 ) 今回の応用項目文字列の流れる方向を逆方向に仕たり行き来したりする様にする常にキャレットが入力文字列の末尾に在り入力が行い易い様にする -1-

2 オブジェクトプロパティ一覧パネルラベル 1 ラベル 2 ラベル 3 テキストボックスタイマーボタン 1 ボタン 2 ボタン 3 コントロールの種類プロパティプロパティの設定値フォーム Name keijiban 電光掲示板 BackColor Black FormBorderStyle Fixed3D パネル Name pnlback BackgroundImage back.gif ラベル1 Name lbltitle AutoSize False 電光掲示板プログラム Font MS 明朝太字 14 ForeColor 255, 255, 192( 薄黄 ) ラベル2 Name lbldisp AutoSize False 空白 Font MS 明朝太字 16 ForeColor Red BackColor Transparent ラベル3 Name lblsrc AutoSize False 掲示文 Font MS 明朝太字 14 ForeColor 255, 255, 192( 薄黄 ) タイマー Name tmrbbs Interval

3 コントロールの種類プロパティプロパティの設定値テキストボックス Name txtsrc 空白 Font MS 明朝標準 14 ImeMode Hiragana BorderStyle FixedSingle ボタン1 Name btnstart 表示開始 Font MS 明朝太字 12 BackColor 255, 255, 192( 薄黄 ) ボタン2 Name btnstop 表示停止 Font MS 明朝太字 12 BackColor 255, 255, 192( 薄黄 ) ボタン3 Name btnfinish 終了 Font MS 明朝太字 12 BackColor 255, 255, 192( 薄黄 ) ラベルテキストを表示するコントロール此のテキストはユーザーが直接入力したり変更したりする事は出来ないテキストボックステキストの入力や表示を行うコントロール此のテキストボックスはユーザーが直接入力したり変更したりする事が出来るボタンユーザーが選択したコマンド ( 命令 ) や操作を実行するコントロール OK ボタンや実行ボタン等処理の開始や中断終了の合図に用いられ最も良く利用されるコントロールで有るパネル他のコントロールをグループ化する為のコンテナと成るコントロールで有る通常は別にフォームを細分化する為に使用する亦 BackgroundImage プロパティを設定するとコントロールの背景にイメージが表示されるタイマー一定の時間間隔でイベントが発生する様にするコントロール一定時間毎にプログラムを実行したい時に使用する此のコントロールは実行時には表示されない例えばフォームの StartPosition プロパティを規定値で有る WindowsDefaultLocation から CenterScreen に変更すると実行時にフォームがディスプレイの中央に表示される此の様に色々なプロパティを変更して観て其の効果を確認して欲しい此の際元の値を覚えて置くと仮令予期せぬ状態に成った場合でも元の値に戻せば良い丈なので安心して色々と試して観て欲しい -3-

4 Public Class keijiban Private S As String プログラムリスト ' ボタン ( 表示開始 ) がクリックされた時の処理 Private Sub btnstart_click(byval sender As System.Object, ByVal e As System.EventArgs) _ Handles btnstart.click 条件判定に比較演算子を使用し If Not txtsrc. = "" Then ' テキストボックスの内容を変数 S に代入 S = StrConv(Space(10), VbStrConv.Wide) & txtsrc. ' 文章 ( 変数 S の値 ) をラベルに表示 lbldisp. = S ' タイマの有効化 tmrbbs.enabled = True End Sub ' タイマが一定間隔で行う処理 Private Sub tmrbbs_tick(byval sender As System.Object, ByVal e As System.EventArgs) _ Handles tmrbbs.tick ' 先頭の 1 文字を末尾に移動 S = Mid( S, 2 ) & Microsoft.VisualBasic.Left( S, 1 ) ' 文章 ( 変数 S の値 ) をラベルに表示 lbldisp. = S End Sub ' ボタン ( 表示停止 ) がクリックされた時の処理 Private Sub btnstop_click(byval sender As System.Object, ByVal e As System.EventArgs) _ Handles btnstop.click If tmrbbs.enabled = True Then ' タイマの無効化 tmrbbs.enabled = False End Sub 此処で宣言した変数は同じフォームクラス内の総てのサブプロシージャで値の参照と設定を行う事が出来るて居る A = B : AとBは等しい猶此処では Not を用いて否定して居る此の場合のイコール (=) 記号は代入演算子で有り右辺の値を左辺に代入する働きをする文字列を左回転させるには文字列の 2 文字目から最後迄の部分の後ろに左端の 1 文字を結合するラベルのプロパティに文字列を代入する事に依りラベルの表示文字列を変更する条件判定に比較演算子を使用して居る A = B : AはBと等しい ' ボタン ( 終了 ) がクリックされた時の処理 Private Sub btnfinish_click(byval sender As System.Object, ByVal e As System.EventArgs) _ Handles btnfinish.click If tmrbbs.enabled = True Then ' タイマの無効化 tmrbbs.enabled = False ' 終了 End End Sub End Class アプリケーションを終了する場合使用したタイマーは無効にして終了する事が望ましい End ステートメントはアプリケーションを強制的に終了する手段を提供する -4-

5 変数 (variable) とは定義変数とはプログラムの実行中に変更出来る特定の型のデータを入れる名前付きの場所を謂う通常適切な名前を付けて宣言し数値文字列其他のデータを代入 ( 格納 ) したり演算に使用するコンピュータのメモリ ( 記憶装置 ) は夫々の場所を示すアドレス ( 番地 ) が割り当てられて居るアドレスは実装されたメモリ空間の特定の場所を指し示す数値で有りメモリに記憶 ( 保存 ) されたデータは其のアドレスに依り参照される併し BASIC 等の高級言語ではデータの記憶場所と変数名が自動的に関連付けられる為データが記憶されたアドレスを覚えて置く必要は無くデータを其の内容を連想し易い名前で参照する事が出来る変数とはデータを入れて置く為の箱の様な物で其の箱を区別する為に内容が解り易い名前 ( 変数名 ) を付けて居ると考えると良い代入文左辺の変数やオブジェクトのプロパティに右辺の式の値を代入する下記の様な式を代入文と呼ぶ此処で使用して居る =( イコール ) は数学の等号の様に左辺と右辺が等しいと謂う意味では無く右辺の計算式の値を左辺の変数等に代入すると謂う意味で有る X=10 左辺の値 (10) を代入 X = 10 A=X+Y 左辺の値 (10+20) を代入 A = X + Y 此の代入文の右辺には数値変数式を記述する事が出来るが右辺には 1 個の変数又はオブジェクトのプロパティしか記述する事が出来ない例えば X+Y=A と謂う様な記述は出来ない -5-

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

7 Left 関数に依る文字列の取得文字列の左端から指定した文字数分の文字列を返す関数 Left( 引数 1, 引数 2) 引数 1 で指定した文字列の左端から引数 2 で指定した文字数を取り出した文字列を返す引数 1 には文字列又は文字列を格納した変数を指定し必ず指定する引数 2 には取り出す文字列の文字数を指定し必ず指定する Right 関数に依る文字列の取得文字列の右端から指定した文字数分の文字列を返す関数 Right( 引数 1, 引数 2) 引数 1 で指定した文字列の右端から引数 2 で指定した文字数を取り出した文字列を返す引数 1 には文字列又は文字列を格納した変数を指定し必ず指定する引数 2 には取り出す文字列の文字数を指定し必ず指定する Mid 関数に依る文字列の取得文字列から指定した文字数分の文字列を返す関数 Mid( 引数 1, 引数 2, 引数 3) 引数 1 で指定した文字列の引数 2 で指定した位置から引数 3 で指定した文字数を取り出した文字列を返す引数 1 には文字列又は文字列を格納した変数を指定し必ず指定する引数 2 には文字列を取り出す位置を先頭を 1 とした位置で指定し必ず指定する引数 3 には取り出す文字列の文字数を指定し省略する事が出来る ( 省略時は文字列の最後迄 ) Space 関数に依る文字列の生成指定した数の空白文字から成る文字列を返す関数 Space( 引数 1) 引数 1 で指定した数の空白文字を並べた文字列を返す引数 1 には文字を幾つ並べるかを指定し必ず指定する Space 関数は出力の指定や固定長文字列のデータのクリアを行うのに便利で有る上記の関数は Microsoft.VisualBasic 名前空間に属し例えばフォーム又は Left プロパティを持つクラスで使用される場合名前の衝突を避ける為 Microsoft.VisualBasic.Left の様に関数を完全修飾する必要が有る亦此等の関数は孰れも String 型の値を返す為旧バージョン (6.0) とは異なり文字列型の型記号 ($) を付記して戻り値の型を明示的に指定する必要は無い但し従来通りの型記号を付記した記述も問題無く動作する -7-

8 Dispose メソッドに依るオブジェクトの破棄コンポーネントに依り使用されて居るリソースを開放するメソッド Object.Dispose( ) フォーム又はオブジェクトをメモリから消去するプログラムを終了する場合や使用中のメモリを他の用途に使う場合やプロパティを元の値にリセットする場合等に使用されるフォームをメモリからアンロードする時には表示されて居る構成要素だけがアンロードされ其のフォームモジュールのコードはメモリに保持されるが総てのフォームがアンロードされ実行するコードが無く成れば其の時点でイベントドリブンのアプリケーションは終了する猶フォームの閉じるボタンをクリックしたりフォームの Close メソッドを使用すると自動的に Dispose メソッドが呼び出され其のフォームのリソースは開放される但し ShowDialog メソッドに依りモーダル表示されたフォームではフォームの閉じるボタンをクリックしたりフォームの Close メソッドを使用しても自動的に Dispose メソッドが呼び出される事は無いモーダル表示のフォームのリソースを開放する為には明示的に Dispose メソッドを使用する End ステートメントに依るプログラムの終了プログラムの実行を終了させるステートメント End 実行中のアプリケーションを直ちに終了させる End ステートメントより後のコードは実行されず亦 End ステートメントを実行した後はイベントも発生しないプログラムの通常の終了の場合には総てのフォームをアンロードする必要が有るが End ステートメントはプログラムを強制的に停止させる手段を提供して居る算術演算子比較演算子論理演算子 1.^ 冪乗 1.= 等しい 1.Not 否定 2.- 負数 2.<> 等しくない 2.And 論理積 3.* / 乗算と除算 3.< より小さい 3.Or 論理和 4. 整数除算 4.> より大きい 4.Xor 排他的論理和 5.Mod 剰余 5.<= 以下 5.Eqv 同値加算と減算 6.>= 以上 6.Imp 包合算術演算子と論理演算子では複数の演算子が使用されて居る場合には頭に付けた番号の順序で演算が行われる ( 上に書かれて居る演算子程優先順位が高い ) -8-

9 基本的なデータ型 Visual basic 2005 の基本的なデータ型を下記に示すデータ型バイト数値の範囲 Byte 1 0 ~ 255 SByte ~ 127 Short 2-32,768 ~ 32,767 UShort ~ 65,535 Integer 4-2,147,483,648 ~ 2,147,483,647 UInteger ~ 4,294,967,295 Long 8-9,223,372,036,854,775,808 ~ 9,223,372,036,854,775,807 ULong ~ 18,446,744,073,709,551,615 Decimal 16 0 ~ +/-79,228,162,514,264,337,593,543,950,335( 小数点無し ) 0 ~ +/ ( 小数点以下 28 桁 ) Single E-45 ~ E+38( 正の値 ) E+38 ~ E-45( 負の値 ) Double E-324 ~ E+308( 正の値 ) E+308 ~ E-324( 負の値 ) Char 2 0 ~ 65535(1 文字を Unicode で格納 ) String 個 ~ 約 20 億個の Unicode 文字 ( 可変長 ) Boolean - 2 True 又は False DateTime 年 1 月 1 日 0:00:00 AM ~ 9999 年 12 月 31 日 11:59:59 PM Object - 3 オブジェクト型の変数には任意の型を格納可能 1 Visual Basic 2005 から追加 2 実装するプラットフォームに依存 3 32 ビットプラットフォームでは 4 バイト 32 ビットプラットフォームでは 8 バイト整数型は小数部分の無い数丈を表すデータ型で下記の物が有る符号付き整数型は SByte 型 Short 型 Integer 型 Long 型で有る小数値ではなく整数が常に変数に格納されて居る場合此等の型の孰れかと仕て変数を宣言する符号無し整数型は Byte 型 UShort 型 UInteger 型 ULong 型で有る変数にバイナリデータや状態が不明のデータが含まれる場合は此等の型の孰れかと仕て変数を宣言する非整数型のデータ型は整数部分と小数部分の両方を含む数値を表す型で下記の物が有る非整数型の数値データ型は Decimal 型 (128 ビットの固定小数点 ) Single 型 (32 ビットの単精度浮動小数点型 ) Double 型 (64 ビットの倍精度浮動小数点数型 ) で有る此等の型は総て符号付きで有る変数に小数が含まれる可能性が有る場合には此等の型の孰れかと仕て変数を宣言する亦 Visual Basic には出力する文字や表示する文字を処理する文字データ型が用意されて居る Char 型 ( 文字型 ) は 1 文字 String 型 ( 文字列型 ) は不特定数の文字を格納する孰れの型も Unicode 文字を処理する常に 1 文字しか格納しない変数の場合は Char 型を格納する文字数が不定の場合は String 型で変数を宣言する -9-

10 .NET Framework 対応概要初めに Visual Basic はバージョン 7(Visual Basic.NET) 以降共通言語ランタイムと.NET Framework クラスライブラリと謂う 2 個の主要なコンポーネントから成る.NET Framework と呼ばれるシステム上で動作して居る ( 詳細に付いてはヘルプの.NET Framework 概念の概要を参照され度い ) 併し乍其れ以前の Visual Basic 6.0 は長年に亘り使用されて来た安定したバージョンで有り此のバージョンで作成されたアプリケーションは現在も猶多数使用されて居るのが現状で有る亦 Microsoft Office で使用されるプログラミング言語で有る VBA(Visual Basic for Application) は Visual Basic 6.0 をベースに仕た言語で有り此れも亦今猶使用されて居る勿論此等は孰れ時代に似わなく成り消えて行く事に成るが今は未だレガシと仕て切り捨てる時期では無い特にプロフェッショナルなプログラマは単に現時点で動作するアプリケーションを新規に作成する丈で無く過去の有用なアプリケーションをリメイクする必要も生じて来る其の為此のテキストではリメイク作業等に有用と思われる Visual Basic 6.0 のステートメントや関数を出来る限り使用して居る併し乍新規に作成するアプリケーションでは.NET Framework のを使用したプログラミングを行う事が望ましい事は謂う迄も無い事で有る其処で一度テキスト通りにプログラムを作成しプログラムの流れ ( フロー ) と各コードの意味する処を理解した上で.NET Framework の許でのコーディングも併せて行って欲しい.NET Framework の許でのコーディングはテキスト通りに作成したプログラムを直接書き直すのではなくフォルダをコピーしリネームした上で書き直す事を推奨する ( 一度作成したプログラムに追加変更を行う場合コピーした物で作業を行う事は重要な事で此れをバージョン管理と謂う ) 同時に新旧 2 種の言語を学ぶ事は大変な事だとは思うがプロフェッショナルなプログラマを目指す者には必要な事で有り将来必ず役に立つと信じて居る ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 次頁以降に変更部分を記すが最初は記述通りに変更を加え記述法の相違点を充分に理解する様に努め馴れて来るに従い出来る限り変更部分の記述を観ないで変更を加える様に仕て欲しい -10-

11 .NET Framework 対応空白文字の追加従来の記述法 S = StrConv(Space(10), VbStrConv.Wide) & txtsrc..net Framework の記述法 S = New String(" "c, 10) & txtsrc. 猶上記の.NET Framework の記述法に於いて二重引用符 ( ) で指定する文字は全角の空白文字 ( スペース ) で有る亦.NET Framework では StrConv 関数の様に半角文字を全角文字に変換したり全角文字を半角文字に変換する手段は提供されて居ない ( 此処では特に其の必要は無いが此の様な事を行う必要が有る場合には従来の関数や API 関数を使用する必要が有る ) 部分文字列の取得従来の記述法 S = Mid(S, 2) & Microsoft.VisualBasic.Left(S, 1).NET Framework の記述法 S = S.Substring(1) & S.Substring(0, 1).NET Framework では従来の Left 関数の様に左端から文字列を取得する手段や Right 関数の様に右端から文字列を取得する手段は提供されて居らず Mid 関数の様に任意位置の文字列を取得する手段 (Substring メソッド ) しか提供されて居ない従って Left 関数は Substring メソッドで簡単に代用する事が出来るが Right 関数と同等の処理を行うには文字列の長さ ( 文字数の事 ) を取得する Length プロパティが不可欠と成るアプリケーションの終了従来の記述法 End.NET Framework の記述法 Application.Exit() 現在実行して居るアプリケーションは Application オブジェクトで表されるので其の Exit メソッドを用いてアプリケーションを終了する注意新しいと謂う事は未熟で有ると謂う事も意味する時代に応じて色々と変化して行く事は大事な事で有るが新しい物が成熟するには其れ成りの時間が懸かる事も忘れては成らないプロフェッショナルなプログラマを目指すならば只々新しい物に飛び付くのではなく新旧を熟知し充分な検証を加えた上でより良いプログラミングを志して欲しい -11-

回文作成支援プログラム

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