• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

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

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

将棋ウォーズ棋譜を検索条件を指定して一括でダウンロードする。


コミットメタ情報

リビジョン14 (tree)
日時2015-01-31 15:16:48
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/downloder.vb (revision 13)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/downloder.vb (revision 14)
@@ -48,7 +48,7 @@
4848 _gTypePairList.Add(pair)
4949 End Sub
5050
51- Public Sub AddGD(ByVal gtype As Integer, ByVal saveDirectory As String)
51+ Public Sub AddGtypeDirectoryPair(ByVal gtype As Integer, ByVal saveDirectory As String)
5252 AddGtypeDirectoryPair(New gTypeDirectoryPair(gtype, saveDirectory))
5353 End Sub
5454
--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.Designer.vb (revision 13)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.Designer.vb (revision 14)
@@ -40,7 +40,6 @@
4040 Me.chk3min = New System.Windows.Forms.CheckBox()
4141 Me.chk10sec = New System.Windows.Forms.CheckBox()
4242 Me.chkAnimal = New System.Windows.Forms.CheckBox()
43- Me.chkAll = New System.Windows.Forms.CheckBox()
4443 Me.SuspendLayout()
4544 '
4645 'Label1
@@ -56,7 +55,7 @@
5655 'txtName1
5756 '
5857 Me.txtName1.Location = New System.Drawing.Point(16, 32)
59- Me.txtName1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
58+ Me.txtName1.Margin = New System.Windows.Forms.Padding(4)
6059 Me.txtName1.Name = "txtName1"
6160 Me.txtName1.Size = New System.Drawing.Size(171, 22)
6261 Me.txtName1.TabIndex = 3
@@ -64,7 +63,7 @@
6463 'txtName2
6564 '
6665 Me.txtName2.Location = New System.Drawing.Point(227, 32)
67- Me.txtName2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
66+ Me.txtName2.Margin = New System.Windows.Forms.Padding(4)
6867 Me.txtName2.Name = "txtName2"
6968 Me.txtName2.Size = New System.Drawing.Size(171, 22)
7069 Me.txtName2.TabIndex = 3
@@ -82,7 +81,7 @@
8281 'txt10minSaveDirectory
8382 '
8483 Me.txt10minSaveDirectory.Location = New System.Drawing.Point(160, 108)
85- Me.txt10minSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
84+ Me.txt10minSaveDirectory.Margin = New System.Windows.Forms.Padding(4)
8685 Me.txt10minSaveDirectory.Name = "txt10minSaveDirectory"
8786 Me.txt10minSaveDirectory.Size = New System.Drawing.Size(387, 22)
8887 Me.txt10minSaveDirectory.TabIndex = 4
@@ -90,7 +89,7 @@
9089 'btn10minSelectDirectory
9190 '
9291 Me.btn10minSelectDirectory.Location = New System.Drawing.Point(556, 105)
93- Me.btn10minSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
92+ Me.btn10minSelectDirectory.Margin = New System.Windows.Forms.Padding(4)
9493 Me.btn10minSelectDirectory.Name = "btn10minSelectDirectory"
9594 Me.btn10minSelectDirectory.Size = New System.Drawing.Size(71, 29)
9695 Me.btn10minSelectDirectory.TabIndex = 5
@@ -100,7 +99,7 @@
10099 'btnDownload
101100 '
102101 Me.btnDownload.Location = New System.Drawing.Point(477, 271)
103- Me.btnDownload.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
102+ Me.btnDownload.Margin = New System.Windows.Forms.Padding(4)
104103 Me.btnDownload.Name = "btnDownload"
105104 Me.btnDownload.Size = New System.Drawing.Size(149, 29)
106105 Me.btnDownload.TabIndex = 5
@@ -110,7 +109,7 @@
110109 'txt3minSaveDirectory
111110 '
112111 Me.txt3minSaveDirectory.Location = New System.Drawing.Point(160, 148)
113- Me.txt3minSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
112+ Me.txt3minSaveDirectory.Margin = New System.Windows.Forms.Padding(4)
114113 Me.txt3minSaveDirectory.Name = "txt3minSaveDirectory"
115114 Me.txt3minSaveDirectory.Size = New System.Drawing.Size(387, 22)
116115 Me.txt3minSaveDirectory.TabIndex = 4
@@ -118,7 +117,7 @@
118117 'btn3minSelectDirectory
119118 '
120119 Me.btn3minSelectDirectory.Location = New System.Drawing.Point(556, 145)
121- Me.btn3minSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
120+ Me.btn3minSelectDirectory.Margin = New System.Windows.Forms.Padding(4)
122121 Me.btn3minSelectDirectory.Name = "btn3minSelectDirectory"
123122 Me.btn3minSelectDirectory.Size = New System.Drawing.Size(71, 29)
124123 Me.btn3minSelectDirectory.TabIndex = 5
@@ -128,7 +127,7 @@
128127 'txt10secSaveDirectory
129128 '
130129 Me.txt10secSaveDirectory.Location = New System.Drawing.Point(160, 184)
131- Me.txt10secSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
130+ Me.txt10secSaveDirectory.Margin = New System.Windows.Forms.Padding(4)
132131 Me.txt10secSaveDirectory.Name = "txt10secSaveDirectory"
133132 Me.txt10secSaveDirectory.Size = New System.Drawing.Size(387, 22)
134133 Me.txt10secSaveDirectory.TabIndex = 4
@@ -136,7 +135,7 @@
136135 'btn10secSelectDirectory
137136 '
138137 Me.btn10secSelectDirectory.Location = New System.Drawing.Point(556, 181)
139- Me.btn10secSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
138+ Me.btn10secSelectDirectory.Margin = New System.Windows.Forms.Padding(4)
140139 Me.btn10secSelectDirectory.Name = "btn10secSelectDirectory"
141140 Me.btn10secSelectDirectory.Size = New System.Drawing.Size(71, 29)
142141 Me.btn10secSelectDirectory.TabIndex = 5
@@ -146,7 +145,7 @@
146145 'txtAnimalSaveDirectory
147146 '
148147 Me.txtAnimalSaveDirectory.Location = New System.Drawing.Point(160, 215)
149- Me.txtAnimalSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
148+ Me.txtAnimalSaveDirectory.Margin = New System.Windows.Forms.Padding(4)
150149 Me.txtAnimalSaveDirectory.Name = "txtAnimalSaveDirectory"
151150 Me.txtAnimalSaveDirectory.Size = New System.Drawing.Size(387, 22)
152151 Me.txtAnimalSaveDirectory.TabIndex = 4
@@ -154,7 +153,7 @@
154153 'btnAnimalSelectDirectory
155154 '
156155 Me.btnAnimalSelectDirectory.Location = New System.Drawing.Point(556, 212)
157- Me.btnAnimalSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
156+ Me.btnAnimalSelectDirectory.Margin = New System.Windows.Forms.Padding(4)
158157 Me.btnAnimalSelectDirectory.Name = "btnAnimalSelectDirectory"
159158 Me.btnAnimalSelectDirectory.Size = New System.Drawing.Size(71, 29)
160159 Me.btnAnimalSelectDirectory.TabIndex = 5
@@ -165,7 +164,7 @@
165164 '
166165 Me.chk10min.AutoSize = True
167166 Me.chk10min.Location = New System.Drawing.Point(28, 110)
168- Me.chk10min.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
167+ Me.chk10min.Margin = New System.Windows.Forms.Padding(4)
169168 Me.chk10min.Name = "chk10min"
170169 Me.chk10min.Size = New System.Drawing.Size(115, 19)
171170 Me.chk10min.TabIndex = 6
@@ -176,7 +175,7 @@
176175 '
177176 Me.chk3min.AutoSize = True
178177 Me.chk3min.Location = New System.Drawing.Point(28, 151)
179- Me.chk3min.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
178+ Me.chk3min.Margin = New System.Windows.Forms.Padding(4)
180179 Me.chk3min.Name = "chk3min"
181180 Me.chk3min.Size = New System.Drawing.Size(107, 19)
182181 Me.chk3min.TabIndex = 6
@@ -187,7 +186,7 @@
187186 '
188187 Me.chk10sec.AutoSize = True
189188 Me.chk10sec.Location = New System.Drawing.Point(28, 186)
190- Me.chk10sec.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
189+ Me.chk10sec.Margin = New System.Windows.Forms.Padding(4)
191190 Me.chk10sec.Name = "chk10sec"
192191 Me.chk10sec.Size = New System.Drawing.Size(90, 19)
193192 Me.chk10sec.TabIndex = 6
@@ -198,7 +197,7 @@
198197 '
199198 Me.chkAnimal.AutoSize = True
200199 Me.chkAnimal.Location = New System.Drawing.Point(28, 221)
201- Me.chkAnimal.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
200+ Me.chkAnimal.Margin = New System.Windows.Forms.Padding(4)
202201 Me.chkAnimal.Name = "chkAnimal"
203202 Me.chkAnimal.Size = New System.Drawing.Size(103, 19)
204203 Me.chkAnimal.TabIndex = 6
@@ -205,23 +204,11 @@
205204 Me.chkAnimal.Text = "どうぶつ将棋"
206205 Me.chkAnimal.UseVisualStyleBackColor = True
207206 '
208- 'chkAll
209- '
210- Me.chkAll.AutoSize = True
211- Me.chkAll.Location = New System.Drawing.Point(28, 75)
212- Me.chkAll.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
213- Me.chkAll.Name = "chkAll"
214- Me.chkAll.Size = New System.Drawing.Size(66, 19)
215- Me.chkAll.TabIndex = 7
216- Me.chkAll.Text = "すべて"
217- Me.chkAll.UseVisualStyleBackColor = True
218- '
219207 'frmCondtion
220208 '
221209 Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
222210 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
223211 Me.ClientSize = New System.Drawing.Size(653, 346)
224- Me.Controls.Add(Me.chkAll)
225212 Me.Controls.Add(Me.chkAnimal)
226213 Me.Controls.Add(Me.chk10sec)
227214 Me.Controls.Add(Me.chk3min)
@@ -239,7 +226,7 @@
239226 Me.Controls.Add(Me.txtName1)
240227 Me.Controls.Add(Me.Label2)
241228 Me.Controls.Add(Me.Label1)
242- Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
229+ Me.Margin = New System.Windows.Forms.Padding(4)
243230 Me.Name = "frmCondtion"
244231 Me.Text = "将棋ウォーズ棋譜ダウンローダー"
245232 Me.ResumeLayout(False)
@@ -264,6 +251,5 @@
264251 Friend WithEvents chk3min As System.Windows.Forms.CheckBox
265252 Friend WithEvents chk10sec As System.Windows.Forms.CheckBox
266253 Friend WithEvents chkAnimal As System.Windows.Forms.CheckBox
267- Friend WithEvents chkAll As System.Windows.Forms.CheckBox
268254
269255 End Class
--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 13)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 14)
@@ -58,16 +58,16 @@
5858 Const G3MIN As Integer = 1
5959 Dim gdLists As New List(Of gTypeDirectoryPair)
6060 If chkAnimal.Checked Then
61- downloder.AddGD(GANIMAL, txtAnimalSaveDirectory.Text)
61+ downloder.AddGtypeDirectoryPair(GANIMAL, txtAnimalSaveDirectory.Text)
6262 End If
6363 If chk10min.Checked Then
64- downloder.AddGD(G10MIN, txt10minSaveDirectory.Text)
64+ downloder.AddGtypeDirectoryPair(G10MIN, txt10minSaveDirectory.Text)
6565 End If
6666 If chk10sec.Checked Then
67- downloder.AddGD(G10SEC, txt10secSaveDirectory.Text)
67+ downloder.AddGtypeDirectoryPair(G10SEC, txt10secSaveDirectory.Text)
6868 End If
6969 If chk3min.Checked Then
70- downloder.AddGD(G3MIN, txt3minSaveDirectory.Text)
70+ downloder.AddGtypeDirectoryPair(G3MIN, txt3minSaveDirectory.Text)
7171 End If
7272 End Sub
7373
@@ -99,38 +99,6 @@
9999 End If
100100 End Sub
101101
102-
103- Private Sub chkAll_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAll.CheckedChanged
104- chk10min.Checked = chkAll.Checked
105- chk10sec.Checked = chkAll.Checked
106- chk3min.Checked = chkAll.Checked
107- chkAnimal.Checked = chkAll.Checked
108- End Sub
109-
110- Private Sub chk10min_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk10min.CheckedChanged
111- If Not chk10min.Checked Then
112- chkAll.Checked = False
113- End If
114- End Sub
115-
116- Private Sub chk3min_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk3min.CheckedChanged
117- If Not chk3min.Checked Then
118- chkAll.Checked = False
119- End If
120- End Sub
121-
122- Private Sub chk10sec_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk10sec.CheckedChanged
123- If Not chk10sec.Checked Then
124- chkAll.Checked = False
125- End If
126- End Sub
127-
128- Private Sub chkAnimal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAnimal.CheckedChanged
129- If Not chkAnimal.Checked Then
130- chkAll.Checked = False
131- End If
132- End Sub
133-
134102 Private Sub frmCondtion_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
135103 SettingSave()
136104 End Sub
@@ -144,7 +112,6 @@
144112 txt10secSaveDirectory.Text = .pathOf10sec
145113 txt3minSaveDirectory.Text = .pathOf3min
146114 txtAnimalSaveDirectory.Text = .pathOfAnimal
147- chkAll.Checked = .chkAll
148115 chk10min.Checked = .chk10min
149116 chk3min.Checked = .chk3min
150117 chk10min.Checked = .chk10min
@@ -160,7 +127,6 @@
160127 .pathOf10sec = txt10secSaveDirectory.Text
161128 .pathOf3min = txt3minSaveDirectory.Text
162129 .pathOfAnimal = txtAnimalSaveDirectory.Text
163- .chkAll = chkAll.Checked
164130 .chk10min = chk10min.Checked
165131 .chk3min = chk3min.Checked
166132 .chk10min = chk10min.Checked
--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/My Project/Settings.Designer.vb (revision 13)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/My Project/Settings.Designer.vb (revision 14)
@@ -93,18 +93,6 @@
9393 <Global.System.Configuration.UserScopedSettingAttribute(), _
9494 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9595 Global.System.Configuration.DefaultSettingValueAttribute("False")> _
96- Public Property chkAll() As Boolean
97- Get
98- Return CType(Me("chkAll"),Boolean)
99- End Get
100- Set
101- Me("chkAll") = value
102- End Set
103- End Property
104-
105- <Global.System.Configuration.UserScopedSettingAttribute(), _
106- Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
107- Global.System.Configuration.DefaultSettingValueAttribute("False")> _
10896 Public Property chk3min() As Boolean
10997 Get
11098 Return CType(Me("chk3min"),Boolean)