Satohru Note

ScalaでFizzBuzz

2011-10-11T12:53:00.000+09:00

ScalaでFizzBuzzしてみました。
勉強中の言語なのでこんなもんかなぁ…

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

// Scala - FizzBuzz

for ( i <- 1 to 100 ) {

var Fizz = i % 3

var Buzz = i % 5

var Response = ""

if ((Fizz == 0) && (Buzz != 0)) Response = "Fizz"

if ((Fizz != 0) && (Buzz == 0)) Response = "Buzz"

if ((Fizz == 0) && (Buzz == 0)) Response = "FizzBuzz"

if (Response == "") println(i) else println(Response)

}

おまけ(VB.NET)…

1.

2.

3.

4.

5.

6.

7.

8.

9.

'3の倍数と3の付く数でアホになる関数

Private Function SanDeAho(ByVal Value As Integer) As String

Dim Response As String = Value

Dim x3 As Integer = Value Mod 3

If 0 <= Value.ToString.IndexOf("3") Or x3 = 0 Then

Response = Value & "～ん！" 'アホを表現してます

End If

Return Response

End Function

FizzBuzz問題をやってみた

2011-10-09T11:08:00.000+09:00

最近、ネットでFizzBuzz問題を目にすることがあったので、私もやってみました。
34行目のFizzBuzz関数は最初に書いたものですが、変数Responseが次々に上書きされることが気に入らなかったので、43行目のFizzBuzz2のように書き直しました。
ループと実行時間測定はおまけです。

追記
ゲームとしてのFizzBuzzを調べてみると、「1, 2, Fizz, 4, Buzz, Fizz, 7, 8…」のように発音するとあるので、このプログラムはゲーム本来の仕様とはズレてますね…

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

31.

32.

33.

34.

35.

36.

37.

38.

39.

40.

41.

42.

43.

44.

45.

46.

47.

48.

49.

50.

51.

52.

53.

54.

55.

56.

'コンソールアプリケーションを選択

Module Module1

‌

'.NETのStopwatchで実行時間を測定。

Private oStopwatch As New System.Diagnostics.Stopwatch()

‌

'Main関数

Sub Main()

Do

Console.WriteLine(vbCrLf &

"FizzBuzzを行う自然数列の最大値を入力してください…")

Dim Response As String = Console.ReadLine()

Dim MaxValue As Integer

'バリデーション

If Integer.TryParse(Response, MaxValue) = True Then

oStopwatch.Start()

For i = 1 To MaxValue

Console.WriteLine(FizzBuzz2(i))

Next

oStopwatch.Stop()

Console.WriteLine("実行時間 : " &

oStopwatch.Elapsed.ToString)

oStopwatch.Reset()

Else

Console.WriteLine(vbCrLf &

                                  "入力を数値に変換できませんでした。")

End If

Console.WriteLine("もう一度実行する<R>、終了する<R>以外のキー")

If Console.ReadKey.Key <> ConsoleKey.R Then Exit Sub

Loop

End Sub

‌

'最初に書いたFizzBuzz関数

Private Function FizzBuzz(ByVal Value As Integer) As String

Dim Response As String = Value

If (Value Mod 3) = 0 Then Response = Value & " > Fizz"

If (Value Mod 5) = 0 Then Response = Value & " > Buzz"

If (Value Mod 15) = 0 Then Response = Value & " > FizzBuzz"

Return Response

End Function

‌

'書き直したFizzBuzz関数（FizzBuzz2）

Private Function FizzBuzz2(ByVal Value As Integer) As String

Dim Response As String = Value

Dim x3 As Integer = Value Mod 3

Dim x5 As Integer = Value Mod 5

If x3 = 0 And x5 <> 0 Then

Response = Value & " > Fizz"

ElseIf x3 <> 0 And x5 = 0 Then

Response = Value & " > Buzz"

ElseIf x3 = 0 And x5 = 0 Then

Response = Value & " > FizzBuzz"

End If

Return Response

End Function

End Module

簡単なソフトウェアを作ってみよう(6)

2011-10-01T13:18:00.000+09:00

ユーザーインターフェースはこんな風になってます。

簡単なソフトウェアを作ってみよう(3) posted by (C)Satohru

そしてロジック。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

31.

32.

33.

34.

35.

36.

37.

38.

39.

40.

41.

42.

43.

44.

45.

46.

47.

48.

49.

50.

51.

52.

53.

54.

55.

56.

57.

58.

59.

60.

61.

62.

63.

64.

65.

66.

67.

68.

69.

70.

71.

72.

73.

74.

75.

76.

77.

78.

79.

80.

81.

82.

83.

84.

85.

86.

87.

88.

89.

90.

91.

92.

93.

94.

95.

96.

97.

98.

99.

100.

101.

102.

103.

104.

105.

106.

107.

108.

109.

110.

111.

112.

113.

114.

115.

116.

117.

118.

119.

120.

121.

122.

123.

124.

125.

126.

127.

128.

129.

130.

131.

132.

133.

134.

135.

136.

137.

138.

139.

140.

141.

142.

143.

144.

145.

146.

147.

148.

149.

150.

151.

152.

153.

154.

155.

156.

157.

158.

159.

160.

161.

162.

163.

164.

165.

166.

167.

168.

169.

170.

171.

172.

173.

174.

175.

176.

177.

178.

179.

180.

181.

182.

183.

184.

185.

186.

187.

188.

189.

190.

191.

192.

193.

194.

195.

196.

197.

198.

199.

200.

201.

202.

203.

204.

205.

206.

207.

208.

209.

210.

211.

212.

213.

214.

215.

216.

217.

218.

219.

220.

221.

222.

223.

224.

225.

226.

227.

228.

229.

230.

231.

232.

233.

234.

235.

236.

237.

238.

239.

240.

241.

242.

243.

244.

245.

246.

247.

248.

249.

250.

251.

252.

253.

254.

255.

256.

257.

258.

259.

260.

261.

262.

263.

264.

265.

266.

267.

268.

269.

270.

271.

'ユーザーインターフェース

‌

Public Class frmMain

‌

Private ColEmployee As New EmployeeCollection

Private IsIDChanged As Boolean = False

‌

'========================

' テキストボックスのクリア

Private Sub TextBoxclear()

txtID.Text = ""

txtName.Text = ""

txtBirthday.Text = ""

cmbPost.Text = ""

End Sub

‌

'========================

' 登録

Private Sub cmdEntry_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) _

Handles cmdEntry.Click

If IsCheckedValidation(sender) = False Then Exit Sub

Dim oDataService As New DataService

ColEmployee.Add(txtID.Text,

txtName.Text,

CDate(txtBirthday.Text),

oDataService.PostName_to_PostID(cmbPost.Text))

ListUpdate()

TextBoxclear()

End Sub

‌

'========================

' 終了

Private Sub cmdExit_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) _

Handles cmdExit.Click

End

End Sub

‌

'========================

' 削除

Private Sub cmdDelete_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) _

Handles cmdDelete.Click

If IsCheckedValidation(sender) = False Then Exit Sub

If MessageBox.Show("本当に削除してよろしいですか？",

"操作の確認",

MessageBoxButtons.YesNo,

MessageBoxIcon.Question) = vbNo Then Exit Sub

Dim oDataService As New DataService

Dim TargetEmployee As New Employee With {

.ID = CType(txtID.Text, Integer)

}

ColEmployee.Remove(TargetEmployee)

ListUpdate()

TextBoxclear()

End Sub

‌

'========================

' 更新

Private Sub cmdUpdate_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) _

Handles cmdUpdate.Click

If IsCheckedValidation(sender) = False Then Exit Sub

If MessageBox.Show("本当に更新してよろしいですか？",

"操作の確認",

MessageBoxButtons.YesNo,

MessageBoxIcon.Question) = vbNo Then Exit Sub

Dim oDataService As New DataService

Dim TargetEmployee As New Employee With {

.ID = CType(txtID.Text, Integer),

.Name = txtName.Text,

.Birthday = CType(txtBirthday.Value, Date),

.PostID = oDataService.PostName_to_PostID(cmbPost.Text)

}

ColEmployee.Update(TargetEmployee)

ListUpdate()

TextBoxclear()

End Sub

‌

'========================

' フォームロード時

Private Sub frmMain_Load(ByVal sender As Object,

ByVal e As System.EventArgs) Handles Me.Load

'ID

Dim dgvTextBoxColumn_ID As New DataGridViewTextBoxColumn

With dgvTextBoxColumn_ID

.HeaderText = "ID"

.Width = 55

End With

'氏名

Dim dgvTextBoxColumn_Name As New DataGridViewTextBoxColumn

dgvTextBoxColumn_Name.HeaderText = "氏名"

'生年月日

Dim dgvTestBoxColumn_Birthday As New DataGridViewTextBoxColumn

With dgvTestBoxColumn_Birthday

.HeaderText = "生年月日"

.Width = 80

End With

'年齢

Dim dgvTestBoxColumn_Age As New DataGridViewTextBoxColumn

With dgvTestBoxColumn_Age

.HeaderText = "年齢"

.Width = 55

.DefaultCellStyle.Alignment =

DataGridViewContentAlignment.MiddleRight

End With

'所属部署

Dim dgvTestBoxColumn_Post As New DataGridViewTextBoxColumn

With dgvTestBoxColumn_Post

.HeaderText = "所属部署"

.Width = 100

End With

'DataGridView Column Setting

With dgvEntryList.Columns

.Add(dgvTextBoxColumn_ID)

.Add(dgvTextBoxColumn_Name)

.Add(dgvTestBoxColumn_Birthday)

.Add(dgvTestBoxColumn_Age)

.Add(dgvTestBoxColumn_Post)

End With

With dgvEntryList

.SelectionMode = DataGridViewSelectionMode.FullRowSelect

.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue

.RowHeadersVisible = False

End With

'ComboBox Setting

Dim oDataService As New DataService

With cmbPost.Items

.Add(oDataService.PostID_to_PostName(DataService.PostNos.Soumu))

.Add(oDataService.PostID_to_PostName(DataService.PostNos.KeieiKikaku))

.Add(oDataService.PostID_to_PostName(DataService.PostNos.Jigyo))

End With

ListUpdate()

End Sub

‌

'========================

' メニュー（終了）

Private Sub MenuItemEnd_Click(ByVal sender As System.Object,

ByVal e As System.EventArgs) _

Handles MenuItemEnd.Click

cmdExit_Click(sender, e)

End Sub

‌

'========================

' Grid更新メソッド

Private Sub ListUpdate()

dgvEntryList.Rows.Clear()

Dim oDataService As New DataService

Dim rs = From o As Employee In ColEmployee

Order By o.ID Ascending

For Each v As Employee In rs

dgvEntryList.Rows.Add(v.ID,

v.Name,

CType(v.Birthday, String),

v.Age,

oDataService.PostID_to_PostName(v.PostID))

Next

ToolStripStatusLabel1.Text = "登録者数 : " & ColEmployee.Count

'平均年齢

If ColEmployee.Count = 0 Then

ToolStripStatusLabel2.Text = ""

Else

ToolStripStatusLabel2.Text = "平均年齢 : " &

Format(ColEmployee.AveAge, "0.0歳")

End If

End Sub

‌

'========================

' Gridクリックイベント

Private Sub dgvEntryList_Click(ByVal sender As Object,

ByVal e As System.EventArgs) _

Handles dgvEntryList.Click

If dgvEntryList.Rows.Count = 0 Then Exit Sub

txtID.Text =

CType(dgvEntryList.SelectedRows(0).Cells(0).Value, String)

IsIDChanged = False

txtName.Text =

CType(dgvEntryList.SelectedRows(0).Cells(1).Value, String)

txtBirthday.Text =

CType(dgvEntryList.SelectedRows(0).Cells(2).Value, String)

cmbPost.Text =

CType(dgvEntryList.SelectedRows(0).Cells(4).Value, String)

End Sub

‌

'========================

' ID TextChanged イベント

Private Sub txtID_TextChanged(ByVal sender As System.Object,

ByVal e As System.EventArgs) _

Handles txtID.TextChanged

IsIDChanged = True

End Sub

‌

'========================

' IsCheckedValidation メソッド

Private Function IsCheckedValidation(ByVal sender As System.Object) _

As Boolean

Dim Response As Boolean = False

Select Case CType(sender, Button).Name

Case "cmdEntry"

'^^^^^^^^^^^^^^^^^^^^^^

If txtID.Text =

"" Or txtName.Text = "" Or txtBirthday.Text = "" Then

MessageBox.Show("必須項目が入力されていません。",

"入力確認",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Response = False

Return Response

Exit Function

Else

Response = True

End If

Case "cmdDelete"

'^^^^^^^^^^^^^^^^^^^^^^

If txtID.Text = "" Then

MessageBox.Show("削除する対象が選択されていません。",

"操作確認",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Response = False

Return Response

Exit Function

Else

Response = True

End If

If IsIDChanged = True Then

MessageBox.Show("IDが変更されています。",

"操作確認",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

txtID.Text =

dgvEntryList.SelectedRows(0).Cells(0).Value.ToString

Response = False

Return Response

Exit Function

Else

Response = True

End If

Case "cmdUpdate"

'^^^^^^^^^^^^^^^^^^^^^^

If txtID.Text = "" Then

MessageBox.Show("更新する対象が選択されていません。",

"操作確認",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

Response = False

Return Response

Exit Function

Else

Response = True

End If

If IsIDChanged = True Then

MessageBox.Show("IDが変更されています。",

"操作確認",

MessageBoxButtons.OK,

MessageBoxIcon.Error)

txtID.Text =

dgvEntryList.SelectedRows(0).Cells(0).Value.ToString

Response = False

Return Response

Exit Function

Else

Response = True

End If

Case Else

Response = True

End Select

Return Response

End Function

End Class

簡単なソフトウェアを作ってみよう(5)

2011-09-30T22:15:00.000+09:00

今日は、先に紹介したVB.NETのソースコードをEnterprise Architectでリバースしたクラスモデルを掲載します。

ClassModel posted by (C)Satohru

Employeeを永続化するXMLファイルはこんな感じです。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

<?xml version="1.0" encoding="utf-8"?>

<root>

<employee>

<id>4</id>

<name>たちつてと</name>

<birthday>1957/07/11</birthday>

<postid>1</postid>

</employee>

<employee>

<id>88</id>

<name>あいうえお</name>

<birthday>1939/03/24</birthday>

<postid>1</postid>

</employee>

</root>

続く…

簡単なソフトウェアを作ってみよう(4)

2011-09-25T12:17:00.000+09:00

データの永続化にはXMLファイルを採用しました。下記DataAccessクラスは、XMLファイルに対するデータアクセスを提供するクラスです。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

31.

32.

33.

34.

35.

36.

37.

38.

39.

40.

41.

42.

43.

44.

45.

46.

47.

48.

49.

50.

51.

52.

53.

54.

55.

56.

57.

58.

59.

60.

61.

62.

63.

64.

65.

66.

67.

68.

69.

70.

71.

72.

73.

74.

75.

76.

77.

78.

79.

80.

81.

82.

83.

84.

85.

86.

87.

88.

89.

90.

91.

92.

93.

94.

95.

96.

97.

98.

99.

100.

101.

102.

103.

'データアクセスコンポーネント

‌

Imports System.Xml

‌

Public Class DataAccess

‌

Private CurrentDirectory As String =

System.IO.Directory.GetCurrentDirectory() & "\employee.xml"

Private XMLDataFile As New XmlDocument

‌

'==============

'DataCreateメソッド

Public Sub DataCreate(ByVal _employee As Employee)

Dim oRoot As XmlNode =

XMLDataFile.DocumentElement

Dim oDocument As XmlElement =

XMLDataFile.CreateElement("employee")

Dim oID As XmlElement =

XMLDataFile.CreateElement("id")

Dim oName As XmlElement =

XMLDataFile.CreateElement("name")

Dim oBirthday As XmlElement =

XMLDataFile.CreateElement("birthday")

Dim oPostID As XmlElement =

XMLDataFile.CreateElement("postid")

‌

oID.InnerText = CType(_employee.ID, String)

oName.InnerText = _employee.Name

oBirthday.InnerText = CType(_employee.Birthday, String)

oPostID.InnerText = CType(_employee.PostID, String)

‌

With oDocument

.AppendChild(oID)

.AppendChild(oName)

.AppendChild(oBirthday)

.AppendChild(oPostID)

End With

‌

oRoot.AppendChild(oDocument)

XMLDataFile.Save(CurrentDirectory)

End Sub

‌

'==============

'DataUpdateメソッド

Public Sub DataUpdate(ByVal Index As Integer,

ByVal TaegetEmployee As Employee)

With XMLDataFile

.SelectNodes("//name").Item(Index).InnerText =

TaegetEmployee.Name

.SelectNodes("//birthday").Item(Index).InnerText =

CType(TaegetEmployee.Birthday, String)

.SelectNodes("//postid").Item(Index).InnerText =

CType(TaegetEmployee.PostID, String)

.Save(CurrentDirectory)

End With

End Sub

‌

'==============

'DataDeleteメソッド

Public Sub DataDelete(ByVal index As Integer)

Dim TargetNode As XmlNode =

XMLDataFile.SelectNodes("//root").Item(0)

TargetNode.RemoveChild(TargetNode.ChildNodes(index))

XMLDataFile.Save(CurrentDirectory)

End Sub

‌

'==============

'FileLoadメソッド

Public Sub FileLoad(ByVal list As System.Collections.IList)

XMLDataFile.Load(CurrentDirectory)

Dim nID As XmlNodeList =

XMLDataFile.SelectNodes("//id")

Dim nName As XmlNodeList =

XMLDataFile.SelectNodes("//name")

Dim nBirthday As XmlNodeList =

XMLDataFile.SelectNodes("//birthday")

Dim nPostID As XmlNodeList =

XMLDataFile.SelectNodes("//postid")

‌

Dim NodeIndex As Integer = 0

For Each EmployeeNode In XMLDataFile.SelectNodes("//employee")

Dim oEmployee As New Employee

With oEmployee

.ID = CType(nID(NodeIndex).InnerText, Integer)

.Name = nName(NodeIndex).InnerText

.Birthday = CType(nBirthday(NodeIndex).InnerText, Date)

.PostID = CType(nPostID(NodeIndex).InnerText, Integer)

End With

list.Add(oEmployee)

NodeIndex += 1

Next

End Sub

‌

'==============

'コンストラクタ

Public Sub New()

If System.IO.File.Exists(CurrentDirectory) = False Then

Dim XMLFileFormat As String =

"<?xml version=""1.0"" encoding=""utf-8""?><root></root>"

System.IO.File.WriteAllText(CurrentDirectory, XMLFileFormat)

End If

End Sub

End Class

続く…

訂正記事：オブジェクト指向の基本的効用

2011-09-24T12:30:00.002+09:00

昨日アップした「オブジェクト指向の基本的効用」の中で誤りを見つけましたので訂正します。

同記事の中で、

「下記コードのように、構造体では実現できなかった振る舞いをクラスは実現してくれます。」

と記述していますが、赤字部分が間違いでした。
下記コードのように、VB.NETの構造体は振る舞いも実装できます。
詳しくはMSDNのStructure ステートメントに関する説明を参照してください。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

31.

32.

33.

34.

35.

36.

37.

38.

39.

40.

41.

42.

43.

44.

45.

46.

47.

48.

'VB.NET構造体へのプロパティ、プロシージャの実装例

Private Structure PersonStructure2

‌

Friend ID As Integer

Friend Name As String

Friend Birthday As Date

‌

Friend ReadOnly Property Age() As Integer

Get

Dim _year As Integer =

CType(Today.ToString("yyyy"), Integer)

Dim _MMdd As Integer =

CType(Today.ToString("MMdd"), Integer)

Dim _birthYear As Integer =

CType(Birthday.ToString("yyyy"), Integer)

Dim _birthMMdd As Integer =

CType(Birthday.ToString("MMdd"), Integer)

Dim _age As Integer = _year - _birthYear

If _MMdd < _birthMMdd Then

_age = _age - 1

End If

Return _age

End Get

End Property

‌

Friend Sub Initialize()

ID = 0

Name = ""

Birthday = Nothing

End Sub

‌

End Structure

‌

'PersonStructure2の使用

Public Sub Test()

‌

Dim foo As PersonStructure2

With foo

.ID = 1

.Name = "Satohru"

.Birthday = #5/25/1967#

End With

MessageBox.Show(foo.Age)

‌

foo.Initialize()

MessageBox.Show(foo.Name)

‌

End Sub

アジャイルに関するつぶやきを見てみよう

2011-09-24T10:56:00.000+09:00

オブジェクト指向に関するつぶやきを見てみよう

2011-09-23T19:46:00.001+09:00

オブジェクト指向の基本的効用

2011-09-23T12:17:00.000+09:00

オブジェクト指向の基本的効用について、プリミティブな状態から順に見ていきましょう。

Practice1　「バラバラのデータ」
人について、属性{ ID、Name、Birthday }を扱うとします。
このサンプルでは、4行目から9行目までに扱う人数×属性数分の変数を定義しています。
いうまでもなく、これではコーディングが大変ですし、応用が利きません。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

' Practice1 ---------------------

Public Sub Practice1()

‌

Dim ID_1 As Integer = 1

Dim Name_1 As String = "Satohru"

Dim Birthday_1 As Date = #5/25/1967#

Dim ID_2 As Integer = 2

Dim Name_2 As String = "Ayase"

Dim Birthday_2 As Date = #3/24/1985#

‌

Dim Message As String =

"登録者は、" & Name_1 & "と" & Name_2 & "です。"

‌

MessageBox.Show("Practice1" & vbCrLf & Message)

‌

End Sub

Practice2　「データの構造化」
このサンプルでは、構造体を用いて「バラバラのデータ」を構造化しています。
Practice1より理解しやすいプログラムになり、間違いが起こりにくそうです。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

' Practice2 ---------------------

Private Structure PersonStructure

Friend ID As Integer

Friend Name As String

Friend Birthday As Date

End Structure

‌

Public Sub Practice2()

‌

Dim Person1, Person2 As PersonStructure

With Person1

.ID = 1

.Name = "Satohru"

.Birthday = #5/25/1967#

End With

With Person2

.ID = 2

.Name = "Ayase"

.Birthday = #3/24/1985#

End With

‌

Dim Message As String =

"登録者は、" & Person1.Name & "と" &

Person2.Name & "です。"

‌

MessageBox.Show("Practice2" & vbCrLf & Message)

‌

End Sub

Practice3　「構造化されたデータを束ねる」
次は、構造体の配列を3行目で定義しました。
このように構造化されたデータを配列に束ねることによって、
16行目のループ処理によってシステマチックなデータ処理が可能になります。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

' Practice3 ---------------------

Public Sub Practice3()

Dim Persons(1) As PersonStructure

With Persons(0)

.ID = 1

.Name = "Satohru"

.Birthday = #5/25/1967#

End With

With Persons(1)

.ID = 2

.Name = "Ayase"

.Birthday = #3/24/1985#

End With

‌

Dim Message As String = ""

For i = 0 To Persons.Length - 1

Message &= vbCrLf & Persons(i).Name

Next

‌

Message = "登録者は、" & Message & "です。"

‌

MessageBox.Show("Practice3" & vbCrLf & Message)

‌

End Sub

Practice4　「構造化されたデータに振る舞いを加える」
生年月日から年齢を求めたい。そんな時に Person.Age とコーディングできたら便利です。
そこで、次のようなPersonClassを作ります。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

31.

32.

33.

34.

35.

36.

37.

38.

39.

40.

41.

42.

43.

44.

45.

46.

47.

48.

49.

50.

51.

52.

Friend Class PersonClass

‌

Private m_ID As Integer

Private m_Name As String

Private m_Birthday As Date

‌

Friend Property ID() As Integer

Get

Return m_ID

End Get

Set(ByVal value As Integer)

m_ID = value

End Set

End Property

‌

Friend Property Name() As String

Get

Return m_Name

End Get

Set(ByVal value As String)

m_Name = value

End Set

End Property

‌

Friend Property Birthday() As Date

Get

Return m_Birthday

End Get

Set(ByVal value As Date)

m_Birthday = value

End Set

End Property

‌

Friend ReadOnly Property Age() As Integer

Get

Dim _year As Integer =

CType(Today.ToString("yyyy"), Integer)

Dim _MMdd As Integer =

CType(Today.ToString("MMdd"), Integer)

Dim _birthYear As Integer =

CType(m_Birthday.ToString("yyyy"), Integer)

Dim _birthMMdd As Integer =

CType(m_Birthday.ToString("MMdd"), Integer)

Dim _age As Integer = _year - _birthYear

If _MMdd < _birthMMdd Then

_age = _age - 1

End If

Return _age

End Get

End Property

‌

End Class

下記コードのように、~~構造体では実現できなかった振る舞い~~をクラスは実現してくれます。
　＊上記取り消し線部分が間違っていましたので、訂正記事を掲載しました。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

' Practice4 ---------------------

Public Sub Practice4()

Dim oPerson1 As New PersonClass With {

.ID = 1,

.Name = "Satohru",

.Birthday = #5/25/1967#}

Dim oPerson2 As New PersonClass With {

.ID = 2,

.Name = "Ayase",

.Birthday = #3/24/1985#}

‌

Dim Message As String =

oPerson1.Name & "の年齢は、" &

oPerson1.Age.ToString & "歳です。" &

vbCrLf &

oPerson2.Name & "の年齢は、" &

oPerson2.Age.ToString & "歳です。"

‌

MessageBox.Show("Practice4" & vbCrLf & Message)

‌

End Sub

Practice5　「クラスを束ねるとさらに便利に」
PersonClassのインスタンスを13行目でコレクションクラスに追加しています。
　＊Public Sub Practice5()を含むクラスは、System.Collections.CollectionBaseを継承しています。
これにより For Each（19行目）やLINQ（27行目）により、より一層データを便利に扱うことができます。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

31.

32.

33.

34.

35.

' Practice5 ---------------------

Public Sub Practice5()

‌

Dim oPerson1 As New PersonClass With {

.ID = 1,

.Name = "Satohru",

.Birthday = #5/25/1967#}

Dim oPerson2 As New PersonClass With {

.ID = 2,

.Name = "Ayase",

.Birthday = #3/24/1985#}

‌

With List

.Add(oPerson1)

.Add(oPerson2)

End With

‌

Dim Message As String = ""

For Each v As PersonClass In List

Message &= vbCrLf & v.Name

Next

‌

Message = "登録者は、" & Message & "です。"

‌

MessageBox.Show("Practice5-1" & vbCrLf & Message)

‌

Dim rs = From v As PersonClass In List Select v.Age

‌

Message =

"登録者は" & rs.Count & "名で、" &

"平均年齢は、" & rs.Average & "歳です。"

‌

MessageBox.Show("Practice5-2" & vbCrLf & Message)

‌

End Sub

全体は下記のようにコーディングされています。

1.

2.

3.

4.

5.

6.

7.

8.

9.

10.

11.

12.

13.

14.

15.

16.

17.

18.

19.

20.

21.

22.

23.

24.

25.

26.

27.

28.

29.

30.

31.

32.

33.

34.

35.

36.

37.

38.

39.

40.

41.

42.

43.

44.

45.

46.

47.

48.

49.

50.

51.

52.

53.

54.

55.

56.

57.

58.

59.

60.

61.

62.

63.

64.

65.

66.

67.

68.

69.

70.

71.

72.

73.

74.

75.

76.

77.

78.

79.

80.

81.

82.

83.

84.

85.

86.

87.

88.

89.

90.

91.

92.

93.

94.

95.

96.

97.

98.

99.

100.

101.

102.

103.

104.

105.

106.

107.

108.

109.

110.

111.

112.

113.

114.

115.

116.

117.

118.

119.

120.

121.

122.

123.

124.

125.

126.

127.

128.

129.

130.

131.

132.

133.

134.

135.

136.

137.

138.

139.

140.

141.

142.

143.

144.

145.

146.

147.

148.

149.

150.

151.

152.

153.

154.

155.

156.

157.

158.

159.

160.

161.

162.

163.

164.

165.

166.

167.

168.

169.

170.

171.

172.

173.

174.

175.

176.

177.

178.

179.

180.

181.

182.

183.

184.

185.

186.

187.

188.

189.

190.

Public Class Sample

‌

Inherits System.Collections.CollectionBase

‌

' Practice1 ---------------------

Public Sub Practice1()

‌

Dim ID_1 As Integer = 1

Dim Name_1 As String = "Satohru"

Dim Birthday_1 As Date = #5/25/1967#

Dim ID_2 As Integer = 2

Dim Name_2 As String = "Ayase"

Dim Birthday_2 As Date = #3/24/1985#

‌

Dim Message As String =

"登録者は、" & Name_1 & "と" & Name_2 & "です。"

‌

MessageBox.Show("Practice1" & vbCrLf & Message)

‌

End Sub

‌

' Practice2 ---------------------

Private Structure PersonStructure

Friend ID As Integer

Friend Name As String

Friend Birthday As Date

End Structure

‌

Public Sub Practice2()

‌

Dim Person1, Person2 As PersonStructure

With Person1

.ID = 1

.Name = "Satohru"

.Birthday = #5/25/1967#

End With

With Person2

.ID = 2

.Name = "Ayase"

.Birthday = #3/24/1985#

End With

‌

Dim Message As String =

"登録者は、" & Person1.Name & "と" &

Person2.Name & "です。"

‌

MessageBox.Show("Practice2" & vbCrLf & Message)

‌

End Sub

‌

' Practice3 ---------------------

Public Sub Practice3()

Dim Persons(1) As PersonStructure

With Persons(0)

.ID = 1

.Name = "Satohru"

.Birthday = #5/25/1967#

End With

With Persons(1)

.ID = 2

.Name = "Ayase"

.Birthday = #3/24/1985#

End With

‌

Dim Message As String = ""

For i = 0 To Persons.Length - 1

Message &= vbCrLf & Persons(i).Name

Next

‌

Message = "登録者は、" & Message & "です。"

‌

MessageBox.Show("Practice3" & vbCrLf & Message)

‌

End Sub

‌

' Practice4 ---------------------

Public Sub Practice4()

Dim oPerson1 As New PersonClass With {

.ID = 1,

.Name = "Satohru",

.Birthday = #5/25/1967#}

Dim oPerson2 As New PersonClass With {

.ID = 2,

.Name = "Ayase",

.Birthday = #3/24/1985#}

‌

Dim Message As String =

oPerson1.Name & "の年齢は、" &

oPerson1.Age.ToString & "歳です。" &

vbCrLf &

oPerson2.Name & "の年齢は、" &

oPerson2.Age.ToString & "歳です。"

‌

MessageBox.Show("Practice4" & vbCrLf & Message)

‌

End Sub

‌

' Practice5 ---------------------

Public Sub Practice5()

‌

Dim oPerson1 As New PersonClass With {

.ID = 1,

.Name = "Satohru",

.Birthday = #5/25/1967#}

Dim oPerson2 As New PersonClass With {

.ID = 2,

.Name = "Ayase",

.Birthday = #3/24/1985#}

‌

With List

.Add(oPerson1)

.Add(oPerson2)

End With

‌

Dim Message As String = ""

For Each v As PersonClass In List

Message &= vbCrLf & v.Name

Next

‌

Message = "登録者は、" & Message & "です。"

‌

MessageBox.Show("Practice5-1" & vbCrLf & Message)

‌

Dim rs = From v As PersonClass In List Select v.Age

‌

Message =

"登録者は" & rs.Count & "名で、" &

"平均年齢は、" & rs.Average & "歳です。"

‌

MessageBox.Show("Practice5-2" & vbCrLf & Message)

‌

End Sub

‌

End Class

‌

' Practice4と5で使用するクラス

Friend Class PersonClass

‌

Private m_ID As Integer

Private m_Name As String

Private m_Birthday As Date

‌

Friend Property ID() As Integer

Get

Return m_ID

End Get

Set(ByVal value As Integer)

m_ID = value

End Set

End Property

‌

Friend Property Name() As String

Get

Return m_Name

End Get

Set(ByVal value As String)

m_Name = value

End Set

End Property

‌

Friend Property Birthday() As Date

Get

Return m_Birthday

End Get

Set(ByVal value As Date)

m_Birthday = value

End Set

End Property

‌

Friend ReadOnly Property Age() As Integer

Get

Dim _year As Integer =

CType(Today.ToString("yyyy"), Integer)

Dim _MMdd As Integer =

CType(Today.ToString("MMdd"), Integer)

Dim _birthYear As Integer =

CType(m_Birthday.ToString("yyyy"), Integer)

Dim _birthMMdd As Integer =

CType(m_Birthday.ToString("MMdd"), Integer)

Dim _age As Integer = _year - _birthYear

If _MMdd < _birthMMdd Then

_age = _age - 1

End If

Return _age

End Get

End Property

‌

End Class

‌

江ノ島までランニング

2011-09-18T10:37:00.000+09:00

晴れた！よし、計画実行。 posted at 07:53:44

いい天気になりました。家から江ノ島まで、Googleマップによると14.2Km。これを今日走ってみようと思います。ただ、膝の調子がイマイチなので、途中歩いたり、写真を撮ったり、そんな感じになるとは思いますが。出発時間は現在検討中。 posted at 09:26:00

そろそろ出発するかなぁ… posted at 11:29:53

出発。 posted at 11:54:43

水分補給完了。右足小指に違和感。しばらくゆっくり歩きます。 posted at 12:41:06

心霊現象で有名な小坪トンネルです。 http://t.co/MGxoVqJx posted at 12:48:27

ここまで1時間20分もかかってしまった。ちょっと休憩。 http://t.co/UaCDcyra posted at 13:19:42

素晴らしいランニングコース。 http://t.co/ZjcwnIHG posted at 13:40:58

こんなコース。 http://t.co/Vgbajd57 posted at 13:44:40

江ノ島までもう少し。 http://t.co/gvyCVOZE posted at 14:15:58

まもなく到着。 http://t.co/LppzEx5G posted at 14:27:44

ダイナミック。 http://t.co/uiOnZUYy posted at 14:29:11

温泉入ってサッパリ。 http://t.co/WygNkpdh posted at 15:19:15

では、乾杯。 http://t.co/FIUHErKu posted at 15:30:02

江ノ島アイランドスパにきています。走った後に温泉入って、海を見ながらビール。なかなか贅沢です。 posted at 15:32:40

んーん、なかなかおいしかった。 http://t.co/tYpsr72h posted at 15:50:51

休憩室で寝てしまった。気持ちよかった。江ノ電で鎌倉に移動。 posted at 17:34:35

結局、14キロを2時間30分でクリア。まずは走りつづけることを目指そう。それにしても、思った以上に楽しかった。このイベントは定期的に行おう。 posted at 17:39:10

カントリーコースに挑戦

2011-09-11T17:26:00.000+09:00

最近サボらずに続いているランニング。今日は気分転換に近所の山を走ってみました。

これが頂上。 posted by (C)Satohru

　頂上付近はこんな感じ。葉山の海や江の島が見えます。山道を走るというのは、なかなか楽しいです。

カントリーコース40分は疲... posted by (C)Satohru

　真名瀬海岸に降りた時点で40分。しかし今日は調子がよかったので、長者ヶ崎までさらにランニング。

調子に乗って長者ヶ崎まで来た。 posted by (C)Satohru

　なかなか楽しい走りでした。

今日の空

2011-09-11T11:08:00.002+09:00

ふと窓の外を見ると、すてきな空が広がってました。

今日の空 posted by (C)Satohru