• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

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

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

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


コミットメタ情報

リビジョン388 (tree)
日時2018-05-09 19:28:50
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- Calc/Calc/Form1.Designer.vb (nonexistent)
+++ Calc/Calc/Form1.Designer.vb (revision 388)
@@ -0,0 +1,241 @@
1+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2+Partial Class Form1
3+ Inherits System.Windows.Forms.Form
4+
5+ 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
6+ <System.Diagnostics.DebuggerNonUserCode()> _
7+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8+ Try
9+ If disposing AndAlso components IsNot Nothing Then
10+ components.Dispose()
11+ End If
12+ Finally
13+ MyBase.Dispose(disposing)
14+ End Try
15+ End Sub
16+
17+ 'Windows フォーム デザイナーで必要です。
18+ Private components As System.ComponentModel.IContainer
19+
20+ 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
21+ 'Windows フォーム デザイナーを使用して変更できます。
22+ 'コード エディターを使って変更しないでください。
23+ <System.Diagnostics.DebuggerStepThrough()> _
24+ Private Sub InitializeComponent()
25+ Me.Button1 = New System.Windows.Forms.Button()
26+ Me.Button2 = New System.Windows.Forms.Button()
27+ Me.Button3 = New System.Windows.Forms.Button()
28+ Me.Button4 = New System.Windows.Forms.Button()
29+ Me.Button5 = New System.Windows.Forms.Button()
30+ Me.Button6 = New System.Windows.Forms.Button()
31+ Me.Button7 = New System.Windows.Forms.Button()
32+ Me.Button8 = New System.Windows.Forms.Button()
33+ Me.Button9 = New System.Windows.Forms.Button()
34+ Me.Button0 = New System.Windows.Forms.Button()
35+ Me.ButtonPlus = New System.Windows.Forms.Button()
36+ Me.Button11 = New System.Windows.Forms.Button()
37+ Me.Button12 = New System.Windows.Forms.Button()
38+ Me.Button13 = New System.Windows.Forms.Button()
39+ Me.Button14 = New System.Windows.Forms.Button()
40+ Me.TextBox1 = New System.Windows.Forms.TextBox()
41+ Me.ListBox1 = New System.Windows.Forms.ListBox()
42+ Me.SuspendLayout()
43+ '
44+ 'Button1
45+ '
46+ Me.Button1.Location = New System.Drawing.Point(178, 164)
47+ Me.Button1.Name = "Button1"
48+ Me.Button1.Size = New System.Drawing.Size(75, 23)
49+ Me.Button1.TabIndex = 0
50+ Me.Button1.Text = "1"
51+ Me.Button1.UseVisualStyleBackColor = True
52+ '
53+ 'Button2
54+ '
55+ Me.Button2.Location = New System.Drawing.Point(259, 164)
56+ Me.Button2.Name = "Button2"
57+ Me.Button2.Size = New System.Drawing.Size(75, 23)
58+ Me.Button2.TabIndex = 0
59+ Me.Button2.Text = "2"
60+ Me.Button2.UseVisualStyleBackColor = True
61+ '
62+ 'Button3
63+ '
64+ Me.Button3.Location = New System.Drawing.Point(340, 164)
65+ Me.Button3.Name = "Button3"
66+ Me.Button3.Size = New System.Drawing.Size(75, 23)
67+ Me.Button3.TabIndex = 0
68+ Me.Button3.Text = "3"
69+ Me.Button3.UseVisualStyleBackColor = True
70+ '
71+ 'Button4
72+ '
73+ Me.Button4.Location = New System.Drawing.Point(178, 193)
74+ Me.Button4.Name = "Button4"
75+ Me.Button4.Size = New System.Drawing.Size(75, 23)
76+ Me.Button4.TabIndex = 0
77+ Me.Button4.Text = "4"
78+ Me.Button4.UseVisualStyleBackColor = True
79+ '
80+ 'Button5
81+ '
82+ Me.Button5.Location = New System.Drawing.Point(259, 193)
83+ Me.Button5.Name = "Button5"
84+ Me.Button5.Size = New System.Drawing.Size(75, 23)
85+ Me.Button5.TabIndex = 0
86+ Me.Button5.Text = "5"
87+ Me.Button5.UseVisualStyleBackColor = True
88+ '
89+ 'Button6
90+ '
91+ Me.Button6.Location = New System.Drawing.Point(340, 193)
92+ Me.Button6.Name = "Button6"
93+ Me.Button6.Size = New System.Drawing.Size(75, 23)
94+ Me.Button6.TabIndex = 0
95+ Me.Button6.Text = "6"
96+ Me.Button6.UseVisualStyleBackColor = True
97+ '
98+ 'Button7
99+ '
100+ Me.Button7.Location = New System.Drawing.Point(178, 222)
101+ Me.Button7.Name = "Button7"
102+ Me.Button7.Size = New System.Drawing.Size(75, 23)
103+ Me.Button7.TabIndex = 0
104+ Me.Button7.Text = "7"
105+ Me.Button7.UseVisualStyleBackColor = True
106+ '
107+ 'Button8
108+ '
109+ Me.Button8.Location = New System.Drawing.Point(259, 222)
110+ Me.Button8.Name = "Button8"
111+ Me.Button8.Size = New System.Drawing.Size(75, 23)
112+ Me.Button8.TabIndex = 0
113+ Me.Button8.Text = "8"
114+ Me.Button8.UseVisualStyleBackColor = True
115+ '
116+ 'Button9
117+ '
118+ Me.Button9.Location = New System.Drawing.Point(340, 222)
119+ Me.Button9.Name = "Button9"
120+ Me.Button9.Size = New System.Drawing.Size(75, 23)
121+ Me.Button9.TabIndex = 0
122+ Me.Button9.Text = "9"
123+ Me.Button9.UseVisualStyleBackColor = True
124+ '
125+ 'Button0
126+ '
127+ Me.Button0.Location = New System.Drawing.Point(259, 251)
128+ Me.Button0.Name = "Button0"
129+ Me.Button0.Size = New System.Drawing.Size(75, 23)
130+ Me.Button0.TabIndex = 0
131+ Me.Button0.Text = "0"
132+ Me.Button0.UseVisualStyleBackColor = True
133+ '
134+ 'ButtonPlus
135+ '
136+ Me.ButtonPlus.Location = New System.Drawing.Point(421, 222)
137+ Me.ButtonPlus.Name = "ButtonPlus"
138+ Me.ButtonPlus.Size = New System.Drawing.Size(75, 23)
139+ Me.ButtonPlus.TabIndex = 0
140+ Me.ButtonPlus.Text = "+"
141+ Me.ButtonPlus.UseVisualStyleBackColor = True
142+ '
143+ 'Button11
144+ '
145+ Me.Button11.Location = New System.Drawing.Point(502, 222)
146+ Me.Button11.Name = "Button11"
147+ Me.Button11.Size = New System.Drawing.Size(75, 23)
148+ Me.Button11.TabIndex = 0
149+ Me.Button11.Text = "-"
150+ Me.Button11.UseVisualStyleBackColor = True
151+ '
152+ 'Button12
153+ '
154+ Me.Button12.Location = New System.Drawing.Point(502, 251)
155+ Me.Button12.Name = "Button12"
156+ Me.Button12.Size = New System.Drawing.Size(75, 23)
157+ Me.Button12.TabIndex = 0
158+ Me.Button12.Text = "×"
159+ Me.Button12.UseVisualStyleBackColor = True
160+ '
161+ 'Button13
162+ '
163+ Me.Button13.Location = New System.Drawing.Point(421, 251)
164+ Me.Button13.Name = "Button13"
165+ Me.Button13.Size = New System.Drawing.Size(75, 23)
166+ Me.Button13.TabIndex = 0
167+ Me.Button13.Text = "÷"
168+ Me.Button13.UseVisualStyleBackColor = True
169+ '
170+ 'Button14
171+ '
172+ Me.Button14.Location = New System.Drawing.Point(502, 280)
173+ Me.Button14.Name = "Button14"
174+ Me.Button14.Size = New System.Drawing.Size(75, 23)
175+ Me.Button14.TabIndex = 0
176+ Me.Button14.Text = "="
177+ Me.Button14.UseVisualStyleBackColor = True
178+ '
179+ 'TextBox1
180+ '
181+ Me.TextBox1.Location = New System.Drawing.Point(178, 117)
182+ Me.TextBox1.Name = "TextBox1"
183+ Me.TextBox1.Size = New System.Drawing.Size(318, 22)
184+ Me.TextBox1.TabIndex = 1
185+ '
186+ 'ListBox1
187+ '
188+ Me.ListBox1.FormattingEnabled = True
189+ Me.ListBox1.ItemHeight = 15
190+ Me.ListBox1.Location = New System.Drawing.Point(178, 17)
191+ Me.ListBox1.Name = "ListBox1"
192+ Me.ListBox1.Size = New System.Drawing.Size(318, 94)
193+ Me.ListBox1.TabIndex = 2
194+ '
195+ 'Form1
196+ '
197+ Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
198+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
199+ Me.ClientSize = New System.Drawing.Size(800, 450)
200+ Me.Controls.Add(Me.ListBox1)
201+ Me.Controls.Add(Me.TextBox1)
202+ Me.Controls.Add(Me.Button9)
203+ Me.Controls.Add(Me.Button8)
204+ Me.Controls.Add(Me.Button6)
205+ Me.Controls.Add(Me.Button5)
206+ Me.Controls.Add(Me.Button7)
207+ Me.Controls.Add(Me.Button3)
208+ Me.Controls.Add(Me.Button4)
209+ Me.Controls.Add(Me.Button2)
210+ Me.Controls.Add(Me.Button14)
211+ Me.Controls.Add(Me.Button13)
212+ Me.Controls.Add(Me.Button12)
213+ Me.Controls.Add(Me.Button11)
214+ Me.Controls.Add(Me.ButtonPlus)
215+ Me.Controls.Add(Me.Button0)
216+ Me.Controls.Add(Me.Button1)
217+ Me.Name = "Form1"
218+ Me.Text = "Form1"
219+ Me.ResumeLayout(False)
220+ Me.PerformLayout()
221+
222+ End Sub
223+
224+ Friend WithEvents Button1 As Button
225+ Friend WithEvents Button2 As Button
226+ Friend WithEvents Button3 As Button
227+ Friend WithEvents Button4 As Button
228+ Friend WithEvents Button5 As Button
229+ Friend WithEvents Button6 As Button
230+ Friend WithEvents Button7 As Button
231+ Friend WithEvents Button8 As Button
232+ Friend WithEvents Button9 As Button
233+ Friend WithEvents Button0 As Button
234+ Friend WithEvents ButtonPlus As Button
235+ Friend WithEvents Button11 As Button
236+ Friend WithEvents Button12 As Button
237+ Friend WithEvents Button13 As Button
238+ Friend WithEvents Button14 As Button
239+ Friend WithEvents TextBox1 As TextBox
240+ Friend WithEvents ListBox1 As ListBox
241+End Class
--- Calc/Calc/Form1.vb (nonexistent)
+++ Calc/Calc/Form1.vb (revision 388)
@@ -0,0 +1,9 @@
1+Public Class Form1
2+
3+ Private r As New remainder
4+
5+ 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
6+ Dim t = DirectCast(sender, Button).Text
7+ r.add(t)
8+ End Sub
9+End Class
--- Calc/Calc/My Project/Application.Designer.vb (nonexistent)
+++ Calc/Calc/My Project/Application.Designer.vb (revision 388)
@@ -0,0 +1,38 @@
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+ 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
18+ ' or if you encounter build errors in this file, go to the Project Designer
19+ ' (go to Project Properties or double-click the My Project node in
20+ ' Solution Explorer), and make changes on the Application tab.
21+ '
22+ Partial Friend Class MyApplication
23+
24+ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
25+ Public Sub New()
26+ MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
27+ Me.IsSingleInstance = false
28+ Me.EnableVisualStyles = true
29+ Me.SaveMySettingsOnExit = true
30+ Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
31+ End Sub
32+
33+ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
34+ Protected Overrides Sub OnCreateMainForm()
35+ Me.MainForm = Global.Calc.Form1
36+ End Sub
37+ End Class
38+End Namespace
--- Calc/Calc/My Project/AssemblyInfo.vb (nonexistent)
+++ Calc/Calc/My Project/AssemblyInfo.vb (revision 388)
@@ -0,0 +1,35 @@
1+Imports System
2+Imports System.Reflection
3+Imports System.Runtime.InteropServices
4+
5+' アセンブリに関する一般情報は以下の属性セットをとおして制御されます。
6+' アセンブリに関連付けられている情報を変更するには、
7+' これらの属性値を変更してください。
8+
9+' アセンブリ属性の値を確認します
10+
11+<Assembly: AssemblyTitle("Calc")>
12+<Assembly: AssemblyDescription("")>
13+<Assembly: AssemblyCompany("")>
14+<Assembly: AssemblyProduct("Calc")>
15+<Assembly: AssemblyCopyright("Copyright © 2018")>
16+<Assembly: AssemblyTrademark("")>
17+
18+<Assembly: ComVisible(False)>
19+
20+'このプロジェクトが COM に公開される場合、次の GUID が typelib の ID になります
21+<Assembly: Guid("11b6b18f-88a1-49cb-ac4e-eef6148a2fb9")>
22+
23+' アセンブリのバージョン情報は次の 4 つの値で構成されています:
24+'
25+' メジャー バージョン
26+' マイナー バージョン
27+' ビルド番号
28+' Revision
29+'
30+' すべての値を指定するか、次を使用してビルド番号とリビジョン番号を既定に設定できます
31+' 既定値にすることができます:
32+' <Assembly: AssemblyVersion("1.0.*")>
33+
34+<Assembly: AssemblyVersion("1.0.0.0")>
35+<Assembly: AssemblyFileVersion("1.0.0.0")>
--- Calc/Calc/My Project/Resources.Designer.vb (nonexistent)
+++ Calc/Calc/My Project/Resources.Designer.vb (revision 388)
@@ -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("Calc.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/Calc/My Project/Settings.Designer.vb (nonexistent)
+++ Calc/Calc/My Project/Settings.Designer.vb (revision 388)
@@ -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", "11.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.Calc.My.MySettings
68+ Get
69+ Return Global.Calc.My.MySettings.Default
70+ End Get
71+ End Property
72+ End Module
73+End Namespace
--- Calc/Calc/remainder.vb (nonexistent)
+++ Calc/Calc/remainder.vb (revision 388)
@@ -0,0 +1,10 @@
1+Public Class remainder
2+
3+
4+
5+
6+ Public Sub add(ByVal c As String)
7+
8+ End Sub
9+
10+End Class