• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

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

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

練習用です。いろんなものがごちゃまぜです。


コミットメタ情報

リビジョン389 (tree)
日時2018-05-10 14:01:18
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- Calc/Calc/remainder.vb (revision 388)
+++ Calc/Calc/remainder.vb (nonexistent)
@@ -1,10 +0,0 @@
1-Public Class remainder
2-
3-
4-
5-
6- Public Sub add(ByVal c As String)
7-
8- End Sub
9-
10-End Class
--- Calc/Calc/Form1.vb (revision 388)
+++ Calc/Calc/Form1.vb (revision 389)
@@ -1,6 +1,6 @@
11 Public Class Form1
22
3- Private r As New remainder
3+ Private r As New calcModel
44
55 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, ButtonPlus.Click, Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click, Button14.Click, Button13.Click, Button12.Click, Button11.Click, Button0.Click
66 Dim t = DirectCast(sender, Button).Text
--- Calc/Calc/calcModel.vb (nonexistent)
+++ Calc/Calc/calcModel.vb (revision 389)
@@ -0,0 +1,10 @@
1+Public Class calcModel
2+
3+
4+
5+
6+ Public Sub add(ByVal c As String)
7+
8+ End Sub
9+
10+End Class
--- Calc/Calc/evaluator.vb (nonexistent)
+++ Calc/Calc/evaluator.vb (revision 389)
@@ -0,0 +1,7 @@
1+Public Class evaluator
2+
3+ Public Function ValueStr(ByVal expression) As String
4+ Return "0"
5+ End Function
6+
7+End Class
--- Calc/UnitTestProject1/My Project/Application.Designer.vb (nonexistent)
+++ Calc/UnitTestProject1/My Project/Application.Designer.vb (revision 389)
@@ -0,0 +1,13 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
--- Calc/UnitTestProject1/My Project/AssemblyInfo.vb (nonexistent)
+++ Calc/UnitTestProject1/My Project/AssemblyInfo.vb (revision 389)
@@ -0,0 +1,18 @@
1+Imports System
2+Imports System.Reflection
3+Imports System.Runtime.InteropServices
4+
5+<Assembly: AssemblyTitle("UnitTestProject1")>
6+<Assembly: AssemblyDescription("")>
7+<Assembly: AssemblyCompany("")>
8+<Assembly: AssemblyProduct("UnitTestProject1")>
9+<Assembly: AssemblyCopyright("Copyright © 2018")>
10+<Assembly: AssemblyTrademark("")>
11+
12+<Assembly: ComVisible(False)>
13+
14+<Assembly: Guid("81a5ca44-4aac-4d3a-b941-b2961d48d3af")>
15+
16+' <Assembly: AssemblyVersion("1.0.*")>
17+<Assembly: AssemblyVersion("1.0.0.0")>
18+<Assembly: AssemblyFileVersion("1.0.0.0")>
--- Calc/UnitTestProject1/My Project/Resources.Designer.vb (nonexistent)
+++ Calc/UnitTestProject1/My Project/Resources.Designer.vb (revision 389)
@@ -0,0 +1,62 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
14+
15+Namespace My.Resources
16+
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.
21+ '''<summary>
22+ ''' A strongly-typed resource class, for looking up localized strings, etc.
23+ '''</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()> _
28+ Friend Module Resources
29+
30+ Private resourceMan As Global.System.Resources.ResourceManager
31+
32+ Private resourceCulture As Global.System.Globalization.CultureInfo
33+
34+ '''<summary>
35+ ''' Returns the cached ResourceManager instance used by this class.
36+ '''</summary>
37+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
38+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
39+ Get
40+ If Object.ReferenceEquals(resourceMan, Nothing) Then
41+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("UnitTestProject1.Resources", GetType(Resources).Assembly)
42+ resourceMan = temp
43+ End If
44+ Return resourceMan
45+ End Get
46+ End Property
47+
48+ '''<summary>
49+ ''' Overrides the current thread's CurrentUICulture property for all
50+ ''' resource lookups using this strongly typed resource class.
51+ '''</summary>
52+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
53+ Friend Property Culture() As Global.System.Globalization.CultureInfo
54+ Get
55+ Return resourceCulture
56+ End Get
57+ Set(ByVal value As Global.System.Globalization.CultureInfo)
58+ resourceCulture = value
59+ End Set
60+ End Property
61+ End Module
62+End Namespace
--- Calc/UnitTestProject1/My Project/Settings.Designer.vb (nonexistent)
+++ Calc/UnitTestProject1/My Project/Settings.Designer.vb (revision 389)
@@ -0,0 +1,73 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
14+
15+Namespace My
16+
17+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
19+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
20+ Partial Friend NotInheritable Class MySettings
21+ 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"
26+#If _MyType = "WindowsForms" Then
27+ Private Shared addedHandler As Boolean
28+
29+ Private Shared addedHandlerLockObject As New Object
30+
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
37+#End If
38+#End Region
39+
40+ Public Shared ReadOnly Property [Default]() As MySettings
41+ Get
42+
43+#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
52+#End If
53+ Return defaultInstance
54+ End Get
55+ End Property
56+ End Class
57+End Namespace
58+
59+Namespace My
60+
61+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
62+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
63+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
64+ Friend Module MySettingsProperty
65+
66+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
67+ Friend ReadOnly Property Settings() As Global.UnitTestProject1.My.MySettings
68+ Get
69+ Return Global.UnitTestProject1.My.MySettings.Default
70+ End Get
71+ End Property
72+ End Module
73+End Namespace
--- Calc/UnitTestProject1/UnitTest2.vb (nonexistent)
+++ Calc/UnitTestProject1/UnitTest2.vb (revision 389)
@@ -0,0 +1,9 @@
1+Imports System.Text
2+Imports Microsoft.VisualStudio.TestTools.UnitTesting
3+
4+<TestClass()> Public Class UnitTest2
5+
6+ <TestMethod()> Public Sub TestMethod1()
7+ End Sub
8+
9+End Class
\ No newline at end of file
--- Calc/UnitTestProject1/evaluatorTest.vb (nonexistent)
+++ Calc/UnitTestProject1/evaluatorTest.vb (revision 389)
@@ -0,0 +1,12 @@
1+Imports System.Text
2+Imports Microsoft.VisualStudio.TestTools.UnitTesting
3+
4+<TestClass()> Public Class evaluatorTest
5+
6+ <TestMethod()> Public Sub ValueStrTest()
7+ Dim e As New Calc.evaluator
8+
9+ Assert.AreEqual("0", e.ValueStr(""))
10+ End Sub
11+
12+End Class
\ No newline at end of file