• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythonbathyscaphephpgamewindowsguic翻訳omegattwitterframeworktestbtronarduinovb.net計画中(planning stage)directxpreviewerゲームエンジンdom

πの計算を行う。


コミットメタ情報

リビジョン2 (tree)
日時2014-09-12 20:51:28
作者bellyoshi

ログメッセージ

(メッセージはありません)

変更サマリ

差分

--- CALCPI/CalcPI.Test/My Project/AssemblyInfo.vb (nonexistent)
+++ CALCPI/CalcPI.Test/My Project/AssemblyInfo.vb (revision 2)
@@ -0,0 +1,37 @@
1+Imports System
2+Imports System.Reflection
3+Imports System.Runtime.InteropServices
4+
5+' アセンブリに関する一般情報は以下の属性セットを通して制御されます。
6+' アセンブリに関連付けられている情報を変更するには、
7+' これらの属性値を変更してください。
8+
9+' アセンブリ属性の値を確認します。
10+
11+<Assembly: AssemblyTitle("CalcPI.Test")>
12+<Assembly: AssemblyDescription("")>
13+<Assembly: AssemblyCompany("")>
14+<Assembly: AssemblyProduct("CalcPI.Test")>
15+<Assembly: AssemblyCopyright("Copyright © 2014")>
16+<Assembly: AssemblyTrademark("")>
17+
18+<Assembly: CLSCompliant(True)>
19+
20+<Assembly: ComVisible(False)>
21+
22+'このプロジェクトが COM に公開される場合、次の GUID がタイプ ライブラリの ID になります。
23+<Assembly: Guid("03f2e954-4a40-498d-98ab-fbc1736d9bfd")>
24+
25+' アセンブリのバージョン情報は、以下の 4 つの値で構成されています:
26+'
27+' Major Version
28+' Minor Version
29+' Build Number
30+' Revision
31+'
32+' すべての値を指定するか、下のように '*' を使ってビルドおよびリビジョン番号を
33+' 既定値にすることができます:
34+' <Assembly: AssemblyVersion("1.0.*")>
35+
36+<Assembly: AssemblyVersion("1.0.0.0")>
37+<Assembly: AssemblyFileVersion("1.0.0.0")>
--- CALCPI/CalcPI.Test/LongNumTest.vb (nonexistent)
+++ CALCPI/CalcPI.Test/LongNumTest.vb (revision 2)
@@ -0,0 +1,88 @@
1+Imports Microsoft.VisualStudio.TestTools.UnitTesting
2+
3+Imports CalcPI
4+
5+
6+
7+'''<summary>
8+'''LongNumTest のテスト クラスです。すべての
9+'''LongNumTest 単体テストをここに含めます
10+'''</summary>
11+<TestClass()> _
12+Public Class LongNumTest
13+
14+
15+ Private testContextInstance As TestContext
16+
17+ '''<summary>
18+ '''現在のテストの実行についての情報および機能を
19+ '''提供するテスト コンテキストを取得または設定します。
20+ '''</summary>
21+ Public Property TestContext() As TestContext
22+ Get
23+ Return testContextInstance
24+ End Get
25+ Set(value As TestContext)
26+ testContextInstance = Value
27+ End Set
28+ End Property
29+
30+#Region "追加のテスト属性"
31+ '
32+ 'テストを作成するときに、次の追加属性を使用することができます:
33+ '
34+ 'クラスの最初のテストを実行する前にコードを実行するには、ClassInitialize を使用
35+ '<ClassInitialize()> _
36+ 'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
37+ 'End Sub
38+ '
39+ 'クラスのすべてのテストを実行した後にコードを実行するには、ClassCleanup を使用
40+ '<ClassCleanup()> _
41+ 'Public Shared Sub MyClassCleanup()
42+ 'End Sub
43+ '
44+ '各テストを実行する前にコードを実行するには、TestInitialize を使用
45+ '<TestInitialize()> _
46+ 'Public Sub MyTestInitialize()
47+ 'End Sub
48+ '
49+ '各テストを実行した後にコードを実行するには、TestCleanup を使用
50+ '<TestCleanup()> _
51+ 'Public Sub MyTestCleanup()
52+ 'End Sub
53+ '
54+#End Region
55+
56+
57+ '''<summary>
58+ '''ldiv のテスト
59+ '''</summary>
60+ <TestMethod()> _
61+ Public Sub ldivTest1()
62+ Dim target As LongNum = New LongNum() ' TODO: 適切な値に初期化してください
63+ Dim d() As Integer = {2, 0, 0, 0}
64+ Dim e As Integer = 2
65+ Dim f() As Integer = {0, 0, 0, 0}
66+ target.ldiv(d, e, f)
67+ Assert.AreEqual(1, f(0))
68+ Assert.AreEqual(0, f(1))
69+ Assert.AreEqual(0, f(2))
70+ Assert.AreEqual(0, f(3))
71+ End Sub
72+
73+ '''<summary>
74+ '''ldiv のテスト
75+ '''</summary>
76+ <TestMethod()> _
77+ Public Sub ldivTest2()
78+ Dim target As LongNum = New LongNum() ' TODO: 適切な値に初期化してください
79+ Dim d() As Integer = {4 * 239, 0, 0, 0}
80+ Dim e As Integer = 239 * 239
81+ Dim f() As Integer = {0, 0, 0, 0}
82+ target.ldiv(d, e, f)
83+ Assert.AreEqual(0, f(0))
84+ Assert.AreEqual(1673640, f(1))
85+ Assert.AreEqual(16736401, f(2))
86+ Assert.AreEqual(67364016, f(3))
87+ End Sub
88+End Class
--- CALCPI/CalcPI.Test/UnitTest1.vb (nonexistent)
+++ CALCPI/CalcPI.Test/UnitTest1.vb (revision 2)
@@ -0,0 +1,10 @@
1+Imports System.Text
2+
3+<TestClass()>
4+Public Class UnitTest1
5+
6+ <TestMethod()>
7+ Public Sub TestMethod1()
8+ End Sub
9+
10+End Class
--- CALCPI/CALCPI/LongNum.vb (revision 1)
+++ CALCPI/CALCPI/LongNum.vb (revision 2)
@@ -32,6 +32,7 @@
3232 sb.Append(".")
3333 For i As Integer = 1 To s.Length - 1
3434 sb.Append(s(i))
35+ sb.Append(" ")
3536 Next
3637 Return sb.ToString
3738 End Function
@@ -68,9 +69,9 @@
6869 End Sub
6970
7071 Public Sub ldiv(ByVal d() As Integer, ByVal e As Integer, ByVal f() As Integer)
71- Dim r As Integer = 0
72- For i As Integer = 0 To L2
73- Dim w As Integer = d(i)
72+ Dim r As Long = 0
73+ For i As Integer = 0 To d.Length - 1
74+ Dim w As Long = d(i)
7475 f(i) = (w + r) \ e
7576 r = ((w + r) Mod e) * 100000000
7677 Next
--- CALCPI/CALCPI/Module1.vb (revision 1)
+++ CALCPI/CALCPI/Module1.vb (revision 2)
@@ -37,7 +37,7 @@
3737 If k Mod 2 = 0 Then
3838 lnum.lsub(s, q, s)
3939 Else
40- lnum.lsub(s, q, s)
40+ lnum.ladd(s, q, s)
4141 End If
4242 Next
4343
--- CALCPI/CALCPI/My Project/Settings.Designer.vb (revision 1)
+++ CALCPI/CALCPI/My Project/Settings.Designer.vb (revision 2)
@@ -1,10 +1,10 @@
11 '------------------------------------------------------------------------------
22 ' <auto-generated>
3-' This code was generated by a tool.
4-' Runtime Version:4.0.30319.18444
3+' このコードはツールによって生成されました。
4+' ランタイム バージョン:4.0.30319.18444
55 '
6-' Changes to this file may cause incorrect behavior and will be lost if
7-' the code is regenerated.
6+' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7+' コードが再生成されるときに損失したりします。
88 ' </auto-generated>
99 '------------------------------------------------------------------------------
1010
@@ -13,42 +13,42 @@
1313
1414
1515 Namespace My
16-
17- <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18- Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
19- Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
16+
17+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
19+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
2020 Partial Friend NotInheritable Class MySettings
2121 Inherits Global.System.Configuration.ApplicationSettingsBase
22-
23- Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
24-
25-#Region "My.Settings Auto-Save Functionality"
22+
23+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24+
25+#Region "My.Settings 自動保存機能"
2626 #If _MyType = "WindowsForms" Then
27- Private Shared addedHandler As Boolean
27+ Private Shared addedHandler As Boolean
2828
29- Private Shared addedHandlerLockObject As New Object
29+ Private Shared addedHandlerLockObject As New Object
3030
31- <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32- Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33- If My.Application.SaveMySettingsOnExit Then
34- My.Settings.Save()
35- End If
36- End Sub
31+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33+ If My.Application.SaveMySettingsOnExit Then
34+ My.Settings.Save()
35+ End If
36+ End Sub
3737 #End If
3838 #End Region
39-
39+
4040 Public Shared ReadOnly Property [Default]() As MySettings
4141 Get
42-
42+
4343 #If _MyType = "WindowsForms" Then
44- If Not addedHandler Then
45- SyncLock addedHandlerLockObject
46- If Not addedHandler Then
47- AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48- addedHandler = True
49- End If
50- End SyncLock
51- End If
44+ If Not addedHandler Then
45+ SyncLock addedHandlerLockObject
46+ If Not addedHandler Then
47+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48+ addedHandler = True
49+ End If
50+ End SyncLock
51+ End If
5252 #End If
5353 Return defaultInstance
5454 End Get
@@ -63,10 +63,10 @@
6363 Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
6464 Friend Module MySettingsProperty
6565
66- <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
67- Friend ReadOnly Property Settings() As Global.CALCPI.My.MySettings
66+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
67+ Friend ReadOnly Property Settings() As Global.CalcPI.My.MySettings
6868 Get
69- Return Global.CALCPI.My.MySettings.Default
69+ Return Global.CalcPI.My.MySettings.Default
7070 End Get
7171 End Property
7272 End Module
--- CALCPI/CALCPI/My Project/Application.Designer.vb (revision 1)
+++ CALCPI/CALCPI/My Project/Application.Designer.vb (revision 2)
@@ -1,10 +1,10 @@
11 '------------------------------------------------------------------------------
22 ' <auto-generated>
3-' This code was generated by a tool.
4-' Runtime Version:4.0.30319.18444
3+' このコードはツールによって生成されました。
4+' ランタイム バージョン:4.0.30319.18444
55 '
6-' Changes to this file may cause incorrect behavior and will be lost if
7-' the code is regenerated.
6+' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7+' コードが再生成されるときに損失したりします。
88 ' </auto-generated>
99 '------------------------------------------------------------------------------
1010
--- CALCPI/CALCPI/My Project/Resources.Designer.vb (revision 1)
+++ CALCPI/CALCPI/My Project/Resources.Designer.vb (revision 2)
@@ -1,10 +1,10 @@
11 '------------------------------------------------------------------------------
22 ' <auto-generated>
3-' This code was generated by a tool.
4-' Runtime Version:4.0.30319.18444
3+' このコードはツールによって生成されました。
4+' ランタイム バージョン:4.0.30319.18444
55 '
6-' Changes to this file may cause incorrect behavior and will be lost if
7-' the code is regenerated.
6+' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
7+' コードが再生成されるときに損失したりします。
88 ' </auto-generated>
99 '------------------------------------------------------------------------------
1010
@@ -11,50 +11,51 @@
1111 Option Strict On
1212 Option Explicit On
1313
14+Imports System
1415
1516 Namespace My.Resources
1617
17- 'This class was auto-generated by the StronglyTypedResourceBuilder
18- 'class via a tool like ResGen or Visual Studio.
19- 'To add or remove a member, edit your .ResX file then rerun ResGen
20- 'with the /str option, or rebuild your VS project.
18+ 'このクラスは StronglyTypedResourceBuilder クラスが ResGen
19+ 'または Visual Studio のようなツールを使用して自動生成されました。
20+ 'メンバーを追加または削除するには、.ResX ファイルを編集して、/str オプションと共に
21+ 'ResGen を実行し直すか、または VS プロジェクトをビルドし直します。
2122 '''<summary>
22- ''' A strongly-typed resource class, for looking up localized strings, etc.
23+ ''' ローカライズされた文字列などを検索するための、厳密に型指定されたリソース クラスです。
2324 '''</summary>
24- <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
25- Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26- Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
27- Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
25+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
26+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
27+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
28+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
2829 Friend Module Resources
29-
30+
3031 Private resourceMan As Global.System.Resources.ResourceManager
31-
32+
3233 Private resourceCulture As Global.System.Globalization.CultureInfo
33-
34+
3435 '''<summary>
35- ''' Returns the cached ResourceManager instance used by this class.
36+ ''' このクラスで使用されているキャッシュされた ResourceManager インスタンスを返します。
3637 '''</summary>
37- <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
38+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
3839 Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
3940 Get
4041 If Object.ReferenceEquals(resourceMan, Nothing) Then
41- Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("CALCPI.Resources", GetType(Resources).Assembly)
42+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("CalcPI.Resources", GetType(Resources).Assembly)
4243 resourceMan = temp
4344 End If
4445 Return resourceMan
4546 End Get
4647 End Property
47-
48+
4849 '''<summary>
49- ''' Overrides the current thread's CurrentUICulture property for all
50- ''' resource lookups using this strongly typed resource class.
50+ ''' 厳密に型指定されたこのリソース クラスを使用して、すべての検索リソースに対し、
51+ ''' 現在のスレッドの CurrentUICulture プロパティをオーバーライドします。
5152 '''</summary>
52- <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
53+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
5354 Friend Property Culture() As Global.System.Globalization.CultureInfo
5455 Get
5556 Return resourceCulture
5657 End Get
57- Set(ByVal value As Global.System.Globalization.CultureInfo)
58+ Set
5859 resourceCulture = value
5960 End Set
6061 End Property