銀行排隊(duì)模擬系統(tǒng)實(shí)驗(yàn)報(bào)告

北京電子科技學(xué)院數(shù)據(jù)結(jié)構(gòu)課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告題 目： 銀行排隊(duì)模擬系統(tǒng) 班 級(jí)： 0921 姓 名： 韓曉雪 學(xué) 號(hào)： 完成日期： 2011/9/9 一、 問題描述 銀行業(yè)務(wù)越來越豐富，有一般的客戶存款或取款、理財(cái)金（股票、基金等業(yè)務(wù)）、外幣服務(wù)等。每天來銀行的客戶越來越多，為免除客戶排隊(duì)等待，日前銀行均設(shè)計(jì)有排隊(duì)管理系統(tǒng)。試編程模擬管理銀行的排隊(duì)業(yè)務(wù)。題目要求：（1）設(shè)置有排隊(duì)機(jī)器，可以實(shí)現(xiàn)“理財(cái)金”“外幣”“個(gè)人服務(wù)”等3種業(yè)務(wù)的排隊(duì)。（2）銀行窗口接待服務(wù)。接待窗口分3種“理財(cái)”“外幣”和“個(gè)人業(yè)務(wù)”，理財(cái)和外幣業(yè)務(wù)由專用窗口接待，且這些專用窗口接待完本類業(yè)務(wù)之后，將繼續(xù)進(jìn)行“個(gè)人業(yè)務(wù)”服務(wù)。直到全部客戶服務(wù)均完成。二、 需求分析根據(jù)客戶辦理業(yè)務(wù)的需求，銀行設(shè)有“個(gè)人業(yè)務(wù)”、“理財(cái)業(yè)務(wù)”和“外幣業(yè)務(wù)”3種業(yè)務(wù)的辦理，且“理財(cái)業(yè)務(wù)”的優(yōu)先級(jí)高于“外幣業(yè)務(wù)”。本程序?qū)⒏鶕?jù)客戶選擇要辦理的業(yè)務(wù)類型，等候辦理業(yè)務(wù)的客戶進(jìn)行隊(duì)伍編排。工作人員控制每位客戶的業(yè)務(wù)辦理時(shí)間。程序開始：第一位客戶選擇要辦理的業(yè)務(wù)類型后。程序結(jié)束：3個(gè)窗口均無人辦理業(yè)務(wù)。三、 概要設(shè)計(jì)（一） 程序功能：本程序可以實(shí)現(xiàn)對(duì)辦理不同業(yè)務(wù)的客戶進(jìn)行合理編排，盡量減少客戶等待時(shí)間，同時(shí)客戶可以從界面獲得自己的排隊(duì)情況，并可以了解到當(dāng)前日期和時(shí)間。1、 選擇業(yè)務(wù)：客戶從應(yīng)用程序界面上選擇要辦理的業(yè)務(wù)類型。2、 產(chǎn)生編號(hào)：程序通過客戶選擇業(yè)務(wù)來為其排號(hào)，業(yè)務(wù)不同，客戶獲得的編號(hào)類型不同。3、 顯示排隊(duì)情況：將客戶的編號(hào)、所排窗口、所在隊(duì)伍位置顯示在應(yīng)用程序界面上，模擬排隊(duì)情況。4、 刷新隊(duì)伍：每位客戶業(yè)務(wù)辦理結(jié)束后，工作人員提醒下一位客戶，當(dāng)2號(hào)窗口、3號(hào)窗口業(yè)務(wù)辦理結(jié)束且1號(hào)窗口仍有人在辦理業(yè)務(wù)，則將在1號(hào)窗口前排隊(duì)的客戶分配到2號(hào)窗口、3號(hào)窗口去。分配方法是：當(dāng)2、3窗口同時(shí)為空時(shí)，先分配給2號(hào)窗口，若此時(shí)仍有客戶在1號(hào)窗口排隊(duì)，則再分配給3號(hào)窗口。5、 排號(hào)算法：若客戶選擇“理財(cái)”或“外幣”業(yè)務(wù)，則分別將其直接排到2號(hào)窗口、3號(hào)窗口的隊(duì)伍中，若客戶選擇“個(gè)人業(yè)務(wù)”，則要進(jìn)行如下判斷：（1） 若1號(hào)窗口無人辦理業(yè)務(wù)，則安排其到1號(hào)窗口辦理業(yè)務(wù)；（2） 若1號(hào)窗口有人在辦理業(yè)務(wù)，則一次判斷2號(hào)窗口、3號(hào)窗口是否有人辦理業(yè)務(wù)，若沒有則安排其在無人窗口辦理業(yè)務(wù)；（3） 若3個(gè)窗口均有人在辦理業(yè)務(wù)，則將其排到1號(hào)窗口的隊(duì)伍中。（二） 對(duì)象說明1、窗體：1個(gè)窗體，用于設(shè)計(jì)應(yīng)用程序界面。2、Label控件：14個(gè)Label控件，用于做文字說明或信息提示。3、Button控件：7個(gè)Button控件，用于接受客戶的命令，然后執(zhí)行該命令所對(duì)應(yīng)的事件過程中的程序代碼。4、 TextBox控件：4個(gè)TextBox控件，用于輸出文本信息5、 Timer控件：3個(gè)Timer控件，用于觸發(fā)事件。6、 DataTimePicker1控件1個(gè)：獲取當(dāng)前日期，觀看日歷。對(duì)象名屬性名設(shè)置屬性名Form1Text銀行排隊(duì)模擬系統(tǒng)Label1、11Text1號(hào)窗口Label2、14Text2號(hào)窗口Label3Text您的編號(hào)是：Label4Text請(qǐng)您選擇業(yè)務(wù)Label5、13Text3號(hào)窗口Label6Text歡迎光臨Label7Text排隊(duì)等候人數(shù)多于50！Label8Text排隊(duì)等候人數(shù)多于50！Label9Text排隊(duì)等候人數(shù)多于50！Label10Text今天是：Label12Text工作人員界面TextBox1Text1號(hào)窗口排隊(duì)情況TextBox2Text2號(hào)窗口排隊(duì)情況TextBox3Text3號(hào)窗口排隊(duì)情況TextBox4Text電子時(shí)鐘Timer4Interval1000Timer5Interval2000Timer6Interval1000Button1、2、4Text下一位Button3Text退出系統(tǒng)Button5Text個(gè)人業(yè)務(wù)Button6Text理財(cái)業(yè)務(wù)Button7Text外幣業(yè)務(wù)DataTimePicker1CustomForm yyyy-MM-dd四、 詳細(xì)設(shè)計(jì)本程序通過數(shù)組來實(shí)現(xiàn)對(duì)排隊(duì)客戶的存儲(chǔ)，再通過textbox以文本形式將排隊(duì)情況顯示出來。（一） 數(shù)據(jù)數(shù)據(jù)名數(shù)據(jù)類型作用aIntegergeren（）的數(shù)組元素標(biāo)號(hào)BIntegerlicai（）的數(shù)組元素標(biāo)號(hào)cIntegerwaibi（）的數(shù)組元素標(biāo)號(hào)num1Integer辦理個(gè)人業(yè)務(wù)客戶的編號(hào)num2Integer辦理理財(cái)業(yè)務(wù)客戶的編號(hào)num3Integer辦理外幣業(yè)務(wù)客戶的編號(hào)geren（）String存儲(chǔ)辦理個(gè)人業(yè)務(wù)客戶的數(shù)組licai（）String存儲(chǔ)辦理理財(cái)業(yè)務(wù)客戶的數(shù)組waibi（）String存儲(chǔ)辦理外幣業(yè)務(wù)客戶的數(shù)組（二） 事件說明1、Button6_Clickl 客戶選擇個(gè)人業(yè)務(wù)，將客戶放在數(shù)組geren（）中，數(shù)組元素加1，并給客戶相應(yīng)的編號(hào)，編號(hào)加1，根據(jù)排號(hào)算法，將客戶排在合適的窗口并顯示。l 若排隊(duì)人數(shù)多于25人，顯示提示信息，同時(shí)停止個(gè)人業(yè)務(wù)辦理。2、Button7_Clickl 客戶選擇理財(cái)業(yè)務(wù)，將客戶放在數(shù)組licai（）中，數(shù)組元素加1，并給客戶相應(yīng)的編號(hào)，編號(hào)加1，根據(jù)排號(hào)算法，將客戶排在2號(hào)窗口并顯示。l 若2號(hào)窗口排隊(duì)人數(shù)多于25人，顯示提示信息，同時(shí)停止理財(cái)業(yè)務(wù)辦理。3、Button8_Clickl 客戶選擇外幣業(yè)務(wù)將客戶放在數(shù)組waibi（）中，數(shù)組元素加1，并給客戶相應(yīng)的編號(hào)，編號(hào)加1，根據(jù)排號(hào)算法，將客戶排在3號(hào)窗口并顯示。l 若3號(hào)窗口排隊(duì)人數(shù)多于25人，顯示提示信息，同時(shí)停止外幣業(yè)務(wù)辦理。4、Button1_Clickl 工作人員接待當(dāng)前客戶完畢后，在顯示排隊(duì)情況的文本中清除該客戶編號(hào)，下一位前往辦理業(yè)務(wù)。l 1號(hào)窗口排隊(duì)人數(shù)小于25人時(shí)，撤銷提示信息，恢復(fù)個(gè)人業(yè)務(wù)的辦理。5、Button2_Clickl 工作人員接待當(dāng)前客戶完畢后，在顯示排隊(duì)情況的文本中清除該客戶編號(hào)，下一位前往辦理業(yè)務(wù)。l 2號(hào)窗口排隊(duì)人數(shù)小于25人時(shí)，撤銷提示信息，恢復(fù)理財(cái)業(yè)務(wù)的辦理。l 所有理財(cái)業(yè)務(wù)辦理結(jié)束后，觸發(fā)timer6。6、Button4_Clickl 工作人員接待當(dāng)前客戶完畢后，在顯示排隊(duì)情況的文本中清除該客戶編號(hào)，下一位前往辦理業(yè)務(wù)。l 3號(hào)窗口排隊(duì)人數(shù)小于25人時(shí)，撤銷提示信息，恢復(fù)外幣業(yè)務(wù)的辦理。l 所有理財(cái)業(yè)務(wù)辦理結(jié)束后，觸發(fā)timer5。7、Button3_Clickl 退出程序。8、Timer6_Tickl 2號(hào)窗口為空，且1號(hào)窗口仍有人排隊(duì)，將排在1號(hào)窗口的第一位客戶轉(zhuǎn)到2號(hào)窗口辦理業(yè)務(wù)。l 1號(hào)窗口排隊(duì)人數(shù)小于25人時(shí)，撤銷提示信息，恢復(fù)個(gè)人業(yè)務(wù)的辦理。l 3個(gè)窗口均為空，退出程序。9、Timer5_Tickl 3號(hào)窗口為空，1、2號(hào)窗口均不空，將排在1號(hào)窗口的第一位客戶轉(zhuǎn)到3號(hào)窗口辦理業(yè)務(wù)。l 3號(hào)窗口為空是，2號(hào)窗口也為空，則無動(dòng)作。l 1號(hào)窗口排隊(duì)人數(shù)小于25人時(shí)，撤銷提示信息，恢復(fù)個(gè)人業(yè)務(wù)的辦理。l 3個(gè)窗口均為空，退出程序。10、Timer4_Tickl 數(shù)字時(shí)鐘，顯示當(dāng)前時(shí)間。（三）交互關(guān)系客戶選擇業(yè)務(wù)類型客戶獲得編號(hào)并排隊(duì)顯示排隊(duì)情況工作人員辦理業(yè)務(wù)銀行排隊(duì)模擬系統(tǒng)結(jié)束當(dāng)前客戶的業(yè)務(wù)辦理刷新叫號(hào)五、 測試分析提示：在各窗口下的第一個(gè)編號(hào)，即是在該窗口正在辦理業(yè)務(wù)的客戶的編號(hào)。（一）測試數(shù)據(jù)和測試結(jié)果測試1：客戶（G）辦理個(gè)人業(yè)務(wù)時(shí)，3個(gè)窗口都為空。測試2：客戶（G）辦理個(gè)人業(yè)務(wù)時(shí)，只有2號(hào)窗口有人在辦理業(yè)務(wù)。測試3：客戶（G）辦理個(gè)人業(yè)務(wù)時(shí)，只有3號(hào)窗口有人在辦理業(yè)務(wù)。測試4：客戶（G）辦理個(gè)人業(yè)務(wù)時(shí)，2號(hào)、3號(hào)窗口都有人在辦理業(yè)務(wù)。測試5：客戶（L）辦理理財(cái)業(yè)務(wù)。測試6：客戶（W）辦理外幣業(yè)務(wù)。測試:7：客戶（G-2）來辦理個(gè)人業(yè)務(wù)時(shí)，3個(gè)窗口均有人在辦理業(yè)務(wù)。測試8：3個(gè)窗口都在辦理業(yè)務(wù)過程中，3號(hào)窗口結(jié)束接待后，1號(hào)、2號(hào)窗口都有客戶在排隊(duì)。測試9：3個(gè)窗口都在辦理業(yè)務(wù)過程中，2號(hào)窗口結(jié)束接待后， 1號(hào)、3號(hào)窗口仍有客戶在排隊(duì)。測試10：3個(gè)窗口都在辦理業(yè)務(wù)過程中，3號(hào)和2號(hào)窗口同時(shí)結(jié)束接待后， 1號(hào)窗口仍有客戶在排隊(duì)。測試11：某窗口排對(duì)人數(shù)超過25人。（二）遇到的問題和解決方法：問題1：當(dāng)2號(hào)、3號(hào)窗口同為空時(shí)，排在1號(hào)窗口的第一為客戶的編號(hào)會(huì)出現(xiàn)在2號(hào)、3號(hào)兩個(gè)窗口中。方法：經(jīng)分析，這是由于沒有考慮兩個(gè)窗口的優(yōu)先級(jí)所致，于是我設(shè)置辦理理財(cái)業(yè)務(wù)的2號(hào)窗口的優(yōu)先級(jí)高于辦理外幣業(yè)務(wù)的3號(hào)窗口。當(dāng)兩窗口同為空時(shí)，先給2號(hào)窗口分配客戶，之后，若1號(hào)窗口仍有人排隊(duì)，再分配給3號(hào)窗口。問題2：各窗口無限排隊(duì)問題。方法：通過判斷顯示排隊(duì)情況的文本的字符長度，來確定各窗口正在排隊(duì)人數(shù)，多于25人時(shí)，系統(tǒng)顯示提示信息，同時(shí)暫停接收對(duì)應(yīng)業(yè)務(wù)的辦理。六、 實(shí)驗(yàn)總結(jié)通過為期10天的數(shù)據(jù)結(jié)構(gòu)課程設(shè)計(jì)，在老師們的指導(dǎo)幫助下，我完成了銀行排隊(duì)模擬系統(tǒng)的程序設(shè)計(jì)，在這次課程設(shè)計(jì)中，我收獲良多。課程設(shè)計(jì)不同于平時(shí)的編程實(shí)驗(yàn)，它的要求更多更全面，需要程序編寫者在前期做出準(zhǔn)確的需求分析，還有后期全面的程序測試，這些都是在過去的學(xué)習(xí)中很少接觸到的。通過老師的講解和自身在編程中的實(shí)踐，我深刻體會(huì)到需求分析可以使得程序更貼近生活，更具實(shí)用性，而全面到位的程序設(shè)計(jì)則可以保證程序的實(shí)用性和健壯性。起初我對(duì)所選題目的理解不夠到位，只設(shè)計(jì)了系統(tǒng)中的客戶界面，也因此不能確定每個(gè)客戶辦理業(yè)務(wù)所需具體時(shí)間，只能通過時(shí)間控件，以固定的時(shí)間頻率刷新隊(duì)伍，也就是所有將客戶辦理業(yè)務(wù)的時(shí)間限制在同樣的時(shí)間里（5分鐘），這使得程序不夠人性化，后經(jīng)過老師的提醒和指導(dǎo)，我添加了工作人員界面，由工作人員通過來控制客戶的辦理時(shí)間，這樣也就實(shí)現(xiàn)了系統(tǒng)的“叫號(hào)”功能，也使得客戶和工作人員通過系統(tǒng)有了信息的交換。這次課程設(shè)計(jì)使我加強(qiáng)了自身的編程能力的同時(shí)，也讓我認(rèn)識(shí)到要將所學(xué)靈活的應(yīng)用到實(shí)際生活中去，不可以憑空想象，要著眼實(shí)際，找到生活所需，理論里聯(lián)系實(shí)際，才可以編寫出真正有價(jià)值的程序。感謝各位老師在這些天來對(duì)我的指導(dǎo)和幫助，讓我及時(shí)看到錯(cuò)誤并得以改正。在今后的學(xué)習(xí)中我會(huì)更加仔細(xì)認(rèn)真，真正做到學(xué)以致用。附：程序代碼Public Class Form1 Dim a, b, c, num1, num2, num3 As Integer Dim geren(1000), licai(1000), waibi(1000) As String 分別為用來存儲(chǔ)排在個(gè)人業(yè)務(wù)理財(cái)業(yè)務(wù)外幣業(yè)務(wù)窗口的客戶的數(shù)組 Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick TextBox4.Text = TimeOfDay() 數(shù)字時(shí)鐘 End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click num1 = num1 + 1 Label3.Text = 您的的編號(hào)為：G- & num1 num1為辦理個(gè)人業(yè)務(wù)客戶的編號(hào) 通過判斷各窗口有無業(yè)務(wù)正在辦理,安排辦理個(gè)人業(yè)務(wù)客戶的排隊(duì)位置 If Me.TextBox1.Text.Trim = String.Empty Then Call g() 調(diào)用函數(shù)g() ElseIf Me.TextBox2.Text.Trim = String.Empty Then licai(b) = num1 將該客戶編號(hào)存入licai數(shù)組,b為licai數(shù)組的數(shù)組元素標(biāo)號(hào) TextBox2.Text = TextBox2.Text & G- & licai(b) TextBox2.Text = TextBox2.Text & vbCrLf b = b + 1 排在號(hào)窗口,并將其號(hào)碼顯示在文本框輸出 ElseIf Me.TextBox3.Text.Trim = String.Empty Then waibi(c) = num1 將該客戶編號(hào)存入waibi數(shù)組,c為weibi數(shù)組的數(shù)組元素標(biāo)號(hào)() TextBox3.Text = TextBox3.Text & G- & waibi(c) TextBox3.Text = TextBox3.Text & vbCrLf c = c + 1 排在號(hào)窗口,并將其號(hào)碼顯示在文本框輸出 Else Call g() End If 提醒客戶要排隊(duì)的窗口前排隊(duì)等候的人數(shù)多于 If TextBox1.TextLength 125 Then Label7.Visible = True Label7.Text = 排隊(duì)等候多于人！ Button6.Enabled = False Else Label9.Visible = False End If End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click num2 = num2 + 1 num2為辦理理財(cái)業(yè)務(wù)客戶的編號(hào) Label3.Text = 您的的編號(hào)為：L- & num2 licai(b) = num2 將該客戶編號(hào)存入licai數(shù)組 TextBox2.Text = TextBox2.Text & L- & licai(b) TextBox2.Text = TextBox2.Text & vbCrLf b = b + 1 排在號(hào)窗口,并將其號(hào)碼顯示在文本框輸出 If TextBox2.TextLength 125 Then Label8.Visible = True Label8.Text = 排隊(duì)等候多于人！ Button7.Enabled = False End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click num3 = num3 + 1 num2為辦理理財(cái)業(yè)務(wù)客戶的編號(hào) Label3.Text = 您的的編號(hào)為：W- & num3 waibi(c) = num3 將該客戶編號(hào)存入waibi數(shù)組 TextBox3.Text = TextBox3.Text & W- & waibi(c) TextBox3.Text = TextBox3.Text & vbCrLf c = c + 1 排在號(hào)窗口,并將其號(hào)碼顯示在文本框輸出 提醒客戶要排隊(duì)的窗口前排隊(duì)等候的人數(shù)多于 If TextBox3.TextLength 125 Then Label9.Visible = True Label9.Text = 排隊(duì)等候的人數(shù)多于！ Button8.Enabled = False Else Label9.Visible = False End If End Sub Private Sub g() geren(a) = num1 將該客戶編號(hào)存入geren數(shù)組,a為geren數(shù)組的數(shù)組元素標(biāo)號(hào) TextBox1.Text = TextBox1.Text & G- & geren(a) TextBox1.Text = TextBox1.Text & vbCrLf a = a + 1 排在號(hào)窗口,并將其號(hào)碼顯示在文本框輸出 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 將號(hào)窗口辦完業(yè)務(wù)的客戶的編號(hào)從文本框中撤除 Dim a1, a2 As String a1 = TextBox1.GetFirstCharIndexFromLine(0) 第一行第一個(gè)字符的索引 a2 = TextBox1.GetFirstCharIndexFromLine(1) 第二行第一個(gè)字符的索引 TextBox1.Select(a1, a2) 選中第一行 TextBox1.SelectedText = 設(shè)置第一行的內(nèi)容為空 If TextBox1.TextLength = 125 Then 排隊(duì)人數(shù)小于等于人時(shí),撤除提醒 Label7.Visible = False Button6.Enabled = True End If If TextBox1.TextLength = 0 Then If TextBox2.TextLength = 0 Then If TextBox3.TextLength = 0 Then End End If End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 將號(hào)窗口辦完業(yè)務(wù)的客戶的編號(hào)從文本框中撤除 Dim b1, b2 As String b1 = TextBox2.GetFirstCharIndexFromLine(0) b2 = TextBox2.GetFirstCharIndexFromLine(1) TextBox2.Select(b1, b2) TextBox2.SelectedText = 當(dāng)號(hào)窗口前為空時(shí),觸發(fā)timer6 If TextBox2.TextLength = 0 Then Timer6.Enabled = True Else Timer6.Enabled = False End If If TextBox2.TextLength = 125 Then Label8.Visible = False End If If TextBox2.TextLength = 125 Then Label8.Visible = False Button7.Enabled = True End If If TextBox1.TextLength = 0 Then If TextBox2.TextLength = 0 Then If TextBox3.TextLength = 0 Then End End If End If End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 將號(hào)窗口辦完業(yè)務(wù)的客戶的編號(hào)從文本框中撤除 Dim c1, c2 As String c1 = TextBox3.GetFirstCharIndexFromLine(0) c2 = TextBox3.GetFirstCharIndexFromLine(1) TextBox3.Select(c1, c2) TextBox3.SelectedText = 當(dāng)號(hào)窗口前為空時(shí),觸發(fā)timer5 If TextBox3.TextLength = 0 Then Timer5.Enabled = True Else Timer5.Enabled = False End If If TextBox3.TextLength 5 Then If TextBox2.TextLength 0 Then d1 = TextBox1.GetFirstCharIndexFromLine(1) d2 = TextBox1.GetFirstCharIndexFromLine(1) TextBox1.Select(d1, d2) TextBox1.Cut() f1 = TextBox3.GetFirstCharIndexFromLine(0) f2 = TextBox3.GetFirstCharIndexFromLine(1) TextBox3.Select(f1, f2) TextBox3.Paste()