列データに関する忘備録
マテリアルハンドリングの現場では、ピッキングに際し可能な限りタイムパフォーマンスが求められる。そこで棚の配置方法に工夫を凝らし、効率的な作業ができるようにしたいところだ。
羽鳥の目標としては
◆他のピッキングスタッフとの混雑の解消
◆分かりやすく整理整頓された棚配置
◆時短
◆ミスがない
を重視している。
そこで、棚Aから棚Eという配置があったとしよう。ここで、ピッキングシートがあらかじめ棚Aから棚Eの順番のとおりに印刷されていればさぞ、効率的なことであろう。よって下記のとおりのプログラムを検討した。
-----------------------------------------------------------------------------------------------------------
下記のようなデータ列があったとして、各テキストボックスに配置する。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim array1() As String = {"B1", "5", "HHHR", "タオル", "150"}
Dim array2() As String = {"C1", "1", "BGGHH", "石鹸", "100"}
Dim array3() As String = {"A1", "7", "MMMFR", "歯ブラシ", "300"}
Dim array4() As String = {"E1", "9", "NNGHT", "枕", "3000"}
Dim array5() As String = {"D1", "43", "TTTT", "鏡", "1000"}
TextBox1.Text = array1(0)
TextBox2.Text = array1(1)
TextBox3.Text = array1(2)
TextBox4.Text = array1(3)
TextBox5.Text = array1(4)
TextBox6.Text = array2(0)
TextBox7.Text = array2(1)
TextBox8.Text = array2(2)
TextBox9.Text = array2(3)
TextBox10.Text = array2(4)
TextBox11.Text = array3(0)
TextBox12.Text = array3(1)
TextBox13.Text = array3(2)
TextBox14.Text = array3(3)
TextBox15.Text = array3(4)
TextBox16.Text = array4(0)
TextBox17.Text = array4(1)
TextBox18.Text = array4(2)
TextBox19.Text = array4(3)
TextBox20.Text = array4(4)
TextBox21.Text = array5(0)
TextBox22.Text = array5(1)
TextBox23.Text = array5(2)
TextBox24.Text = array5(3)
TextBox25.Text = array5(4)
’こちらをA1,B1,C1,D1,E1といったように並べ替えてみる。
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim array1() As String = {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text}
Dim array2() As String = {TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text}
Dim array3() As Strin
Dim array4() As String = {TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text}
Dim array5() As String = {TextBox21.Text, TextBox22.Text, TextBox23.Text, TextBox24.Text, TextBox25.Text}
Dim source As New List(Of String())({array1, array2, array3, array4, array5})
Dim sorted As List(Of String()) = source.OrderBy(Function(x) x(0)).ToList()
TextBox1.Text = sorted(0)(0)
TextBox2.Text = sorted(0)(1)
TextBox3.Text = sorted(0)(2)
TextBox4.Text = sorted(0)(3)
TextBox5.Text = sorted(0)(4)
TextBox6.Text = sorted(1)(0)
TextBox7.Text = sorted(1)(1)
TextBox8.Text = sorted(1)(2)
TextBox9.Text = sorted(1)(3)
TextBox10.Text = sorted(1)(4)
TextBox11.Text = sorted(2)(0)
TextBox12.Text = sorted(2)(1)
TextBox13.Text = sorted(2)(2)
TextBox14.Text = sorted(2)(3)
TextBox15.Text = sorted(2)(4)
TextBox16.Text = sorted(3)(0)
TextBox17.Text = sorted(3)(1)
TextBox18.Text = sorted(3)(2)
TextBox19.Text = sorted(3)(3)
TextBox20.Text = sorted(3)(4)
TextBox21.Text = sorted(4)(0)
TextBox22.Text = sorted(4)(1)
TextBox23.Text = sorted(4)(2)
TextBox24.Text = sorted(4)(3)
TextBox25.Text = sorted(4)(4)
End Sub