(Translated by https://www.hiragana.jp/)
 VB.NETとVC#.NETでの実装

VB.NETとVC#.NETでの実装じっそう

１．方針ほうしん

このページでは、具体ぐたい的てきにVisual Basic.NET, Visual C#.NET を利用りようして、プログラムを作成さくせいし、実行じっこうして、計算尺けいさんじゃくのイメージを作成さくせいします。

２．Visual Basic .NETとVisual C# .NET

これらは、Microsoft Visual Studio .NETファミリーに入はいっています。Enterprise Architectなんていう恐おそろしいものを使つかわなくでも、個別こべつの言語げんごのStandard Editionで十分じゅうぶんです。私わたしはAcademicで作成さくせいしました。

バージョンは2002で作成さくせいしましたが、2003, 2005でも同おなじ方法ほうほうで作成さくせいできます。それ以前いぜんのバージョン、たとえば、Visual Basic 6.0などでは、言語げんごがまったく違ちがうといっても過言かごんではないので、ご利用りよういただけません。

Visual Basic .NETとVisual C#.NETは、それぞれがBASIC, Cを基もとにしているという違ちがいがあるだけで、ほとんど違ちがいがありません。以下いかに示しめすコードをご覧らんいただければ、ほぼ一対一いちたいいち対応たいおうが見みられるでしょう。両りょう言語げんごは、ほぼ同等どうとうの機能きのうを有ゆうしています。

３．Pascal形式けいしきとcamel形式けいしき

1文字もじ目めは大文字おおもじ、2文字もじ目め以降いこうは小文字こもじ、後のちは区切くぎりごとに頭あたまを大文字おおもじとすることをPascal形式けいしきといいます。たとえば、PascalCaseはパスカル形式けいしきです。

1文字もじ目めは小文字こもじ、2文字もじ目め以降いこうは小文字こもじ、後のちは区切くぎりごとに頭あたまを大文字おおもじとすることをcamel形式けいしきといいます。たとえば、camelCaseはカメル形式けいしきです。

Visual Basic .NETでは、TextBox1などコントロール名めいをPascal形式けいしきにします。

Visual C# .NETでは、textBox1などコントロール名めいをcamel形式けいしきにします。

以下いかの文章ぶんしょうではPascal形式けいしきで書かきますが、Visual C# .NETをご利用りようになるときにはcamel形式けいしきに変かえてお読よみください。

４．コントロールの配置はいち

Visual Studio.NETで、「ファイル」→「新規しんき作成さくせい」→「プロジェクト」で「新あたらしいプロジェクト」ウインドウを表示ひょうじさせます。「プロジェクトの種類しゅるい」ではご希望きぼうの言語げんごを選択せんたくし、「テンプレート」では、「Windowsアプリケーション」を選択せんたくします。「場所ばしょ」は適宜てきぎ変更へんこうし、プロジェクト名めいは何なにでもかまいませんがたとえば「SlideRuleMaker」などとしておきます。

FormにLabel1, Label2, TextBox1, TextBox2, Button1を配置はいちします。(左ひだり:Visual Basic .NET, 右みぎ:Visual C# .NET)

それぞれのプロパティをプロパティウインドウで次つぎのように変更へんこうします。

プロパティ名めい 値ね
Label1.Font.Size 12
Label1.Text 読取よみと.csvファイル名めい
Label2.Font.Size 12
Label2.Text 保存ほぞん.gifファイル名めい
TextBox1.Font.Size 12
TextBox1.Text （TextBox1.Text = ""）
TextBox2.Font.Size 12
TextBox2.Text （TextBox2.Text = ""）
Button1.Font.Size 12
Button1.Text 作成さくせい

５．コード

Button1をダブルクリックすると、次つぎのようなコードが自動的じどうてきに作成さくせいされ、Button1のクリックイベントが作成さくせいできます。

Visual Basic .NET
 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
Visual C# .NET
 

private void button1_Click(object sender, System.EventArgs e)
{

}

この間あいだにコードを追加ついかしていきます。

Visual Basic .NET
 

If System.IO.File.Exists(TextBox1.Text) Then
    Dim sr As System.IO.StreamReader
    sr = New System.IO.StreamReader(TextBox1.Text)

    Try
        Dim s As String = sr.ReadLine()
        Dim line As String()
        Dim length As Integer
        Dim place As Integer
        Dim myImage As Image
        myImage = New Bitmap(1000, 100)
        Dim myGraphics As Graphics = Graphics.FromImage(myImage)
        myGraphics.FillRectangle(Brushes.White, 0, 0, 1000, 100)
        Dim p As New Pen(Color.Black)

        Do While s <> ""
            line = s.Split(",")
            length = line(2)
            place = CDbl(line(1)) * 900 + 50
            Select Case length
                Case 1
                    myGraphics.DrawLine(p, place, 45, place, 55)
                Case 2
                    myGraphics.DrawLine(p, place, 40, place, 60)
                Case 3
                    myGraphics.DrawLine(p, place, 35, place, 65)
                Case Else
                    Throw New Exception("長ながさとして不適切ふてきせつな値ねが設定せっていされました。" & vbNewLine & s)
            End Select
            s = sr.ReadLine()
        Loop

        myImage.Save(TextBox2.Text, System.Drawing.Imaging.ImageFormat.Gif)
        MessageBox.Show("終了しゅうりょうしました。")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        sr.Close()
    End Try
Else
    MessageBox.Show(TextBox1.Text & "がありません。")
End If
Visual C# .NET
 

if (System.IO.File.Exists(textBox1.Text))
{
        System.IO.StreamReader sr;
        sr = new System.IO.StreamReader(textBox1.Text);

        try
        {
                String s = sr.ReadLine();
                String[] line;
                int length;
                int place;
                Image myImage;
                myImage = new Bitmap(1000,100);
                Graphics myGraphics = Graphics.FromImage(myImage);
                myGraphics.FillRectangle(Brushes.White,0,0,1000,100);
                Pen p  = new Pen(Color.Black);
                                        
                while(s != null)
                {
                        line = s.Split(',');
                        length = int.Parse(line[2]);
                        place = (int)(float.Parse(line[1]) * 900 + 50);
                        switch (length)
                        {
                                case 1:
                                {
                                        myGraphics.DrawLine(p,place,45,place,55);
                                        break;
                                }
                                case 2:
                                {
                                        myGraphics.DrawLine(p,place,40,place,60);
                                        break;
                                }
                                case 3:
                                {
                                        myGraphics.DrawLine(p,place,35,place,65);
                                        break;
                                }
                                default:
                                {
                                        throw new Exception("長ながさとして不適切ふてきせつな値ねが設定せっていされました。\n" + s);
                                }
                        }
                        s = sr.ReadLine();
                }

                myImage.Save(textBox2.Text,System.Drawing.Imaging.ImageFormat.Gif);
                MessageBox.Show("終了しゅうりょうしました。");
        }
        catch (Exception ex)
        {
                MessageBox.Show(ex.Message);
        }
        finally
        {
                sr.Close();
        }
}
else
{
        MessageBox.Show(textBox1.Text + "がありません。");
}

最終さいしゅう的てきに完了かんりょうしたファイルを公開こうかいしておきます。

これらのファイルをVisual Studio.NET / Visual Basic.NET / Visual C#.NET 2003で開ひらくと、バージョンを変換へんかんしなければ開ひらくことができないとの旨むねのダイアログが表示ひょうじされますが、「はい」を選択せんたくすれば、バージョン2002と同おなじように利用りようすることができます。

６．解説かいせつ

6.1．ファイルの読よみ取とり

TextBox1に入力にゅうりょくされたファイルが存在そんざいすれば、処理しょり、存在そんざいしなければ、「"ファイル名めい"は存在そんざいしません」と表示ひょうじします。

sr.ReadLine()で、1行ぎょうずつ読よみ取とります。s.Split(",")を使つかって「,」で数字すうじを区切くぎって、配列はいれつlineに代入だいにゅうします。

Visual Basic .NET
 

If System.IO.File.Exists(TextBox1.Text) Then
    Dim sr As System.IO.StreamReader
    sr = New System.IO.StreamReader(TextBox1.Text)
    Dim s As String = sr.ReadLine()
    Dim line As String()
        
    line = s.Split(",")

    sr.Close()
Else
    MessageBox.Show(TextBox1.Text & "がありません。")
End If
Visual C# .NET
 

if (System.IO.File.Exists(textBox1.Text))
{
        System.IO.StreamReader sr;
        sr = new System.IO.StreamReader(textBox1.Text);
        String s = sr.ReadLine();
        String[] line;

        line = s.Split(',');

        sr.Close();
}
else
{
        MessageBox.Show(textBox1.Text + "がありません。");
}

6.2．イメージの作成さくせい

イメージを1000×100のサイズで作成さくせいし、白色はくしょくで塗ぬりつぶします。後のちに利用りようする黒色こくしょくのペンを宣言せんげんしておきます。

Visual Basic .NET
 

        Dim myImage As Image
        myImage = New Bitmap(1000, 100)
        Dim myGraphics As Graphics = Graphics.FromImage(myImage)
        myGraphics.FillRectangle(Brushes.White, 0, 0, 1000, 100)
        Dim p As New Pen(Color.Black)
Visual C# .NET
 

                Image myImage;
                myImage = new Bitmap(1000,100);
                Graphics myGraphics = Graphics.FromImage(myImage);
                myGraphics.FillRectangle(Brushes.White,0,0,1000,100);
                Pen p  = new Pen(Color.Black);

6.3．メモリの絵画かいが

一いち行ぎょうずつ読よんだsがNullでなければ、以下いかの処理しょりを繰くり返かえします。

一いち行ぎょう分ぶんをコンマで分割ぶんかつして、配列はいれつに代入だいにゅうします。場所ばしょは配列はいれつの1, 長ながさは配列はいれつの2に格納かくのうされています。

Select Case構文こうぶん(VC#.NETではswitch構文こうぶん)で長ながさによって分類ぶんるいし、それぞれにおいて指定していされた長ながさでメモリを刻きざんでいきます。その際さい、長ながさが1, 2, 3以外いがいであった場合ばあいは、例外れいがいを投なげます。

Visual Basic .NET
 

        Do While s <> ""
            line = s.Split(",")
            length = line(2)
            place = CDbl(line(1)) * 900 + 50
            Select Case length
                Case 1
                    myGraphics.DrawLine(p, place, 45, place, 55)
                Case 2
                    myGraphics.DrawLine(p, place, 40, place, 60)
                Case 3
                    myGraphics.DrawLine(p, place, 35, place, 65)
                Case Else
                    Throw New Exception("長ながさとして不適切ふてきせつな値ねが設定せっていされました。" &  vbNewLine & s)
            End Select
            s = sr.ReadLine()
        Loop
Visual C# .NET
 

                while(s != null)
                {
                        line = s.Split(',');
                        length = int.Parse(line[2]);
                        place = (int)(float.Parse(line[1]) * 900 + 50);
                        switch (length)
                        {
                                case 1:
                                {
                                        myGraphics.DrawLine(p,place,45,place,55);
                                        break;
                                }
                                case 2:
                                {
                                        myGraphics.DrawLine(p,place,40,place,60);
                                        break;
                                }
                                case 3:
                                {
                                        myGraphics.DrawLine(p,place,35,place,65);
                                        break;
                                }
                                default:
                                {
                                        throw new Exception("長ながさとして不適切ふてきせつな値ねが設定せっていされました。\n" + s);
                                }
                        }
                        s = sr.ReadLine();
                }

6.4．保存ほぞんと終了しゅうりょうの表示ひょうじ

Image.Saveメソッドを利用りようして、保存ほぞんします。また、終了しゅうりょうを知しらせます。

Visual Basic .NET
 

        myImage.Save(TextBox2.Text, System.Drawing.Imaging.ImageFormat.Gif)
        MessageBox.Show("終了しゅうりょうしました。")
Visual C# .NET
 

                myImage.Save(textBox2.Text,System.Drawing.Imaging.ImageFormat.Gif);
                MessageBox.Show("終了しゅうりょうしました。");

6.5．エラー処理しょり

今回こんかいは自分じぶんで利用りようするだけなので、詳細しょうさいなエラー処理しょりをする必要ひつようはないでしょう。そこで全体ぜんたいをTry Catch構文こうぶんで囲かこっておき、エラーを表示ひょうじさせます。

Visual Basic .NET
 

    Try

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally

    End Try
Visual C# .NET
 

        try
        {

        }
        catch (Exception ex)
        {
                MessageBox.Show(ex.Message);
        }
        finally
        {

        }

７．実行じっこう

では、実行じっこうしてみましょう。前まえのページで作成さくせいした.csvファイル名めいと、保存ほぞんする.gifファイル名めいを指定していして、「作成さくせい」をクリックすると、.gifファイルが作成さくせいされます。横よこの長ながさを半分はんぶんにしたものを載のせておきます。

後こうは、このイメージを少すこし加工かこうします。

８．尺しゃくの名前なまえと数字すうじの追加ついか

このイメージに、「C」と「D」という尺しゃくの名前なまえと、「１」～「10」の数字すうじを追加ついかします。

「スタート」→「すべてのプログラム」→「アクセサリ」→「ペイント」でペイントを起動きどうします。「ファイル」メニュー→「開ひらく」から、先さきほど作成さくせいした.gifファイルを開ひらきます。

「ツールボックス」の「テキスト」を利用りようして、「C」と「D」という尺しゃくの名前なまえと、「１」～「10」の数字すうじを追加ついかしてください。完了かんりょうしたものは次つぎのような感かんじです。ただし、横よこ幅はばは半分はんぶんにしてあります。

また、C尺しゃくとD尺しゃくの境目さかいめの直線ちょくせんを追加ついかしてください。

９．印刷いんさつと工作こうさく

後こうは、おなじみの方法ほうほうです。これを印刷いんさつして、切きり貼はりしてください。詳くわしい方法ほうほうは計算尺けいさんじゃくのイメージからの作成さくせいをご覧らんください。