銀行排隊模擬系統(tǒng)實(shí)驗報告

北京電子科技學(xué)院《數(shù)據(jù)結(jié)構(gòu)課程設(shè)計》實(shí)驗報告題0: 銀行排隊模擬系統(tǒng)班 級： 0921 姓 名： 韓曉雪 學(xué) 號： 20092111完成日期：2011/9/9一、問題描述銀行業(yè)務(wù)越來越豐富，有一般的客戶存款或取款、理財金（股票、基金等業(yè)務(wù)）、外幣服務(wù)等。每天來銀行的客戶越來越多，為免除客戶排隊等待，日前銀行均設(shè)計有排隊管理系統(tǒng)。試編程模擬管理銀行的排隊業(yè)務(wù)。題目要求：（1） 設(shè)置有排隊機(jī)器，可以實(shí)現(xiàn)“理財金”“外幣”“個人服務(wù)”等3種業(yè)務(wù)的排隊。（2） 銀行窗口接待服務(wù)。接待窗口分3種“理財”“外幣”和“個人業(yè)務(wù)”，理財和外幣業(yè)務(wù)由專用窗口接待，且這些專用窗口接待完本類業(yè)務(wù)之后，將繼續(xù)進(jìn)行“個人業(yè)務(wù)”服務(wù)。直到全部客戶服務(wù)均完成。二、需求分析根據(jù)客戶辦理業(yè)務(wù)的需求，銀行設(shè)有“個人業(yè)務(wù)”、“理財業(yè)務(wù)”和“外幣業(yè)務(wù)”3種業(yè)務(wù)的辦理，且“理財業(yè)務(wù)”的優(yōu)先級高于“外幣業(yè)務(wù)二本程序?qū)⒏鶕?jù)客戶選擇要辦理的業(yè)務(wù)類型，等候辦理業(yè)務(wù)的客戶進(jìn)行隊伍編排。工作人員控制每位客戶的業(yè)務(wù)辦理時間。程序開始：第一位客戶選擇要辦理的業(yè)務(wù)類型后。程序結(jié)束：3個窗口均無人辦理業(yè)務(wù)。三、概要設(shè)計（一）程序功能：本程序可以實(shí)現(xiàn)對辦理不同業(yè)務(wù)的客戶進(jìn)行合理編排，盡量減少客戶等待時間，同時客戶可以從界面獲得自己的排隊情況，并可以了解到當(dāng)前日期和時間。1、 選擇業(yè)務(wù)：客戶從應(yīng)用程序界面上選擇要辦理的業(yè)務(wù)類型。2、 產(chǎn)生編號：程序通過客戶選擇業(yè)務(wù)來為其排號，業(yè)務(wù)不同，客戶獲得的編號類型不同。3、 顯示排隊情況：將客戶的編號、所排窗口、所在隊伍位置顯示在應(yīng)用程序界面上，模擬排隊情況。4、 刷新隊伍：每位客戶業(yè)務(wù)辦理結(jié)束后，工作人員提醒下一位客戶，當(dāng)2號窗口、3號窗口業(yè)務(wù)辦理結(jié)束且1號窗口仍有人在辦理業(yè)務(wù)，則將在1號窗口前排隊的客戶分配到2號窗口、3號窗口去。分配方法是：當(dāng)2、3窗口同時為空時，先分配給2號窗口，若此時仍有客戶在1號窗口排隊,則再分配給3號窗口。5、 排號算法：若客戶選擇“理財”或“外幣”業(yè)務(wù)，則分別將其直接排到2號窗口、3號窗口的隊伍中，若客戶選擇“個人業(yè)務(wù)”，則要進(jìn)行如下判斷：（1） 若1號窗口無人辦理業(yè)務(wù)，則安排其到1號窗口辦理業(yè)務(wù)；（2） 若1號窗口有人在辦理業(yè)務(wù)，則一次判斷2號窗口、3號窗口是否有人辦理業(yè)務(wù)，若沒有則安排其在無人窗口辦理業(yè)務(wù)；（3） 若3個窗口均有人在辦理業(yè)務(wù)，則將其排到1號窗口的隊伍中。（二）對象說明1、 窗體：1個窗體，用于設(shè)計應(yīng)用程序界面。2、 Label控件：14個Label控件，用于做文字說明或信息提示。3、 Button控件：7個Button控件，用于接受客戶的命令，然后執(zhí)行該命令所對應(yīng)的事件過程中的程序代碼。4、 TextBox控件：4個TextBox控件，用于輸出文本信息5、 Timer控件：3個Timer控件，用于觸發(fā)事件。6、 DataTimePickerl控件1個：獲取當(dāng)前日期，觀看日歷。對象名屬性名設(shè)置屬性名FormlText銀行排隊模擬素統(tǒng)LabelK11Text1號窗口Label2.14Text2號窗口Label3Text您的編號是：Label4Text請您選擇業(yè)務(wù)Label5>13Text3號窗口Label6Text歡迎光臨Label?Text排隊等候人數(shù)多于50!Label8Text排隊等候人數(shù)多于50!Label9Text排隊等候人數(shù)多于50!Label10Text今天是：Label12Text工作人員界面TextBoxlText1號窗口排隊情況TextBox2Text2號窗口排隊情況TextBox3Text3號窗口排隊情況TextBox4Text電子時鐘Timer4Interval1000Timer5Interval2000Timer6Interval1000ButtonK2、4Text下一位Button3Text退出系統(tǒng)Button5Text個人業(yè)務(wù)Button6Text理財業(yè)務(wù)Button?Text外幣業(yè)務(wù)

詳細(xì)設(shè)計本程序通過數(shù)組來實(shí)現(xiàn)對排隊客戶的存儲，再通過textbox以文本形式將排隊情況顯示出來。(一)數(shù)據(jù)數(shù)據(jù)名數(shù)據(jù)類型作用aIntegergeren()的數(shù)組元素標(biāo)號BIntegerlicai()的數(shù)組元素標(biāo)號CIntegerwaibi()的數(shù)組元素標(biāo)號numlInteger辦理個人業(yè)務(wù)客戶的編號num2Integer辦理理財業(yè)務(wù)客戶的編號num3Integer辦理外幣業(yè)務(wù)客戶的編號geren()String存儲辦理個人業(yè)務(wù)客戶的數(shù)組licai()String存儲辦理理財業(yè)務(wù)客戶的數(shù)組waibi()String存儲辦理外幣業(yè)務(wù)客戶的數(shù)組(二)事件說明1、 Button6_Click?客戶選每個人業(yè)務(wù)，將客戶放在數(shù)組geren()中，數(shù)組元素加1,并給客戶相應(yīng)的編號，編號加1,根據(jù)排號算法，將客戶排在合適的窗口并顯不。?若排隊人數(shù)多于25人，顯示提示信息，同時停止個人業(yè)務(wù)辦理。2、 Button7_Click客戶選琵理財業(yè)務(wù)，將客戶放在數(shù)組licai()中，數(shù)組元素加1,并給客戶相應(yīng)的編號，編號加1,根據(jù)排號算法，將客戶排在2號窗口并顯小。若2號窗口排隊人數(shù)多于25人，顯示提示信息，同時停止理財業(yè)務(wù)辦理。3、 Button8_Click客戶選琵外幣業(yè)務(wù)將客戶放在數(shù)組waibi()中，數(shù)組元素加1,并給客戶相應(yīng)的編號，編號加1,根據(jù)排號算法，將客戶排在3號窗口并顯示。?若3號窗口排隊人數(shù)多于25人，顯示提示信息，同時停止外幣業(yè)務(wù)辦理。4、 Buttonl_Click?工作人員接待當(dāng)前客戶完畢后，在顯示排隊情況的文本中清除該客戶編號，下一位前往辦理業(yè)務(wù)。1號窗口排隊人數(shù)小于25人時，撤銷提示信息，恢復(fù)個人業(yè)務(wù)的辦理。5、 Button2_Click?工作人員接待當(dāng)前客戶完畢后，在顯示排隊情況的文本中清除該客戶編號，下一位前往辦理業(yè)務(wù)。2號窗口排隊人數(shù)小于25人時，撤銷提示信息，恢復(fù)理財業(yè)務(wù)的辦理。所有理財業(yè)務(wù)辦理結(jié)束后，觸發(fā)timer6o6、 Button4_Click?工作人員接待當(dāng)前客戶完畢后，在顯示排隊情況的文本中清除該客戶編號，下一位前往辦理業(yè)務(wù)。3號窗口排隊人數(shù)小于25人時，撤銷提示信息，恢復(fù)外幣業(yè)務(wù)的辦理。所有理財業(yè)務(wù)辦理結(jié)束后，觸發(fā)timer5o7、 Button3_Click?退出程鼠8、 Timer6_Tick2號窗石為空，且1號窗口仍有人排隊，將排在1號窗口的第一位客戶轉(zhuǎn)到2號窗口辦理業(yè)務(wù)。1號窗口排隊人數(shù)小于25人時，撤銷提示信息，恢復(fù)個人業(yè)務(wù)的辦理。3個窗口均為空，退出程序。9、 Timer5_Tick3號窗口為空，1、2號窗口均不空，將排在1號窗口的第一位客戶轉(zhuǎn)到3號窗口辦理業(yè)務(wù)。3號窗口為空是，2號窗口也為空，則無動作。1號窗口排隊人數(shù)小于25人時，撤銷提示信息，恢復(fù)個人業(yè)務(wù)的辦理。3個窗口均為空，退出程序。10、 Timer4_Tick?數(shù)字時鋪，顯示當(dāng)前時間。

（三）交互關(guān)系五、測試分析提示：在各窗口下的第一個編號，即是在該窗口正在辦理業(yè)務(wù)的客戶的編號。（一）測試數(shù)據(jù)和測試結(jié)果測試1:客戶（G）辦理個人業(yè)務(wù)時，3個窗口都為空。測試2：客戶（G）辦理個人業(yè)務(wù)時，只有2號窗口有人在辦理業(yè)務(wù)。?根行排隊轟統(tǒng) H歡迎寵臨今天是：2O11PA2303:16:13刀=工作人員界面請您迭擇業(yè)務(wù)工作人員界面?zhèn)€人業(yè)務(wù)酗業(yè)務(wù)外幣牡務(wù)個人業(yè)務(wù)酗業(yè)務(wù)外幣牡務(wù)輜）的漏號為；0-31號盲口 下一位1號有口 1號盲口 下一位L-12號窗口 下一位狷窗口 下一位退出系統(tǒng)測試3：客戶（G）辦理個人業(yè)務(wù)時，只有3號窗口有人在辦理業(yè)務(wù)。測試4：客戶（G）辦理個人業(yè)務(wù)時，2號、3號窗口都有人在辦理業(yè)務(wù)。液迎肉格今天是： 2311-03-2303:18:53齋您送擇it務(wù)個人業(yè)務(wù)【醐丑務(wù)外幣業(yè)務(wù)您的的斯號為:】號咨口G-32號窗口3號有口L-1工作人員界面】導(dǎo)盲口 I下一位123GC-G2、窗口 |下一位3號苗口 ［下一位泡it系統(tǒng)工作人員界面1工作人員界面1號窗口2會窗口3號茵口|下一位|I下-位IIF-位I說出菜練測試5：客戶(L)辦理理財業(yè)務(wù)。銀行於歐莖統(tǒng)及迎肉臨與20U-09-23031935請您送擇業(yè)務(wù)個人業(yè)務(wù) 理財It容 外幣業(yè)務(wù)恣的的夠母為；L7「號宙口 2號資口 3號苗口"7T l-iV ?L-2L-3測試6：客戶(W)辦理外幣業(yè)務(wù)。

叫探行排好藐,OB[5娩迎免臨今天是：2011-03-2303:19:52回^工作大員界面物的扁號為：丫?3物的扁號為：丫?31號窗口2號窗口|猖窗口▲L-1 >V-1L-2L-3"2V-31號窗口 下一位瀉西口 下一位］線苗口 :下一位］個人it務(wù)期業(yè)務(wù)外市it務(wù)退出系畿測試:7：客戶（G-2）來辦理個人業(yè)務(wù)時，3個窗口均有人在辦理業(yè)務(wù)。略銀行排蟀烷 ■ *IuI-衣迎免修今夭是;2011-09-2303:20:21工作人員界面您的的編號為：缶2倡窗口2號窗口外幣業(yè)務(wù)今夭是;2011-09-2303:20:21工作人員界面您的的編號為：缶2倡窗口2號窗口外幣業(yè)務(wù)3號富口1號窗口下一位下一位〕下一位I退出系統(tǒng)測試8：3個窗口都在辦理業(yè)務(wù)過程中，3號窗口結(jié)束接待后，1號、2號窗口都有客戶在排隊。

測試9：3個窗口都在辦理業(yè)務(wù)過程中，2號窗口結(jié)束接待后，1號、3號窗口仍有客戶在排隊。測試10：3個窗口都在辦理業(yè)務(wù)過程中，3號和2號窗口同時結(jié)束接待后，1號窗口仍有客戶在排隊。

呷錠行排好統(tǒng) |歡迎免臨今天是：2011-03-2303:22:45語您先擇業(yè)務(wù) 工作入員界面?zhèn)€人業(yè)務(wù)I物業(yè)務(wù)外幣it務(wù)洌的漏號為：『73號窗口您窗口1號窗口忠窗口下-』G-1 4G-4G-5G"62號窗口T一位［G-7瑁窗口下一位—▼▼退出系統(tǒng)測試11：芥窗口排對人數(shù)超過25人。 ，r咀多行排維毓 』.Ib^?T歡迎兌德今天是： 20))-09-2303：39：57工作人員界面清密每擇業(yè)務(wù)工作人員界面?zhèn)€入北容理!M業(yè)務(wù)個入北容理!M業(yè)務(wù)外幣業(yè)務(wù)威枷號為:1號笛口L-272號窗口?？?號窗口 下一位67891011121314151617L-L-L-L-L-L-L-L-L-L-L-L-拌M等咨多于25人!退出本茨(二)遇到的問題和解決方法：問題1:當(dāng)2號、3號窗口同為空時，排在1號窗口的第一為客戶的編號會出現(xiàn)在2號、3號兩個窗口中。方法：經(jīng)分析，這是由于沒有考慮兩個窗口的優(yōu)先級所致，于是我設(shè)置辦理理財業(yè)務(wù)的2號窗口的優(yōu)先級高于辦理外幣業(yè)務(wù)的3號窗口。當(dāng)兩窗口同為空時，先給2號窗口分配客戶，之后，若1號窗口仍有人排隊，再分配給3號窗口。問題2：各窗口無限排隊問題。方法：通過判斷顯示排隊情況的文本的字符長度，來確定各窗口正在排隊人數(shù)，多于25人時，系統(tǒng)顯示提示信息，同時暫停接收對應(yīng)業(yè)務(wù)的辦理。六、實(shí)驗總結(jié)通過為期10天的數(shù)據(jù)結(jié)構(gòu)課程設(shè)計，在老師們的指導(dǎo)幫助下，我完成了銀行排隊模擬系統(tǒng)的程序設(shè)計，在這次課程設(shè)計中，我收獲良多。課程設(shè)計不同于平時的編程實(shí)驗，它的要求更多更全面，需要程序編寫者在前期做出準(zhǔn)確的需求分析，還有后期全面的程序測試，這些都是在過去的學(xué)習(xí)中很少接觸到的。通過老師的講解和自身在編程中的實(shí)踐，我深刻體會到需求分析可以使得程序更貼近生活，更具實(shí)用性，而全面到位的程序設(shè)計則可以保證程序的實(shí)用性和健壯性。起初我對所選題目的理解不夠到位，只設(shè)計了系統(tǒng)中的客戶界面，也因此不能確定每個客戶辦理業(yè)務(wù)所需具體時間，只能通過時間控件，以固定的時間頻率刷新隊伍，也就是所有將客戶辦理業(yè)務(wù)的時間限制在同樣的時間里（5分鐘），這使得程序不夠人性化，后經(jīng)過老師的提醒和指導(dǎo)，我添加了工作人員界面，由工作人員通過來控制客戶的辦理時間，這樣也就實(shí)現(xiàn)了系統(tǒng)的“叫號”功能，也使得客戶和工作人員通過系統(tǒng)有了信息的交換。這次課程設(shè)計使我加強(qiáng)了自身的編程能力的同時，也讓我認(rèn)識到要將所學(xué)靈活的應(yīng)用到實(shí)際生活中去，不可以憑空想象，要著眼實(shí)際，找到生活所需，理論里聯(lián)系實(shí)際，才可以編寫出真正有價值的程序。感謝各位老師在這些天來對我的指導(dǎo)和幫助，讓我及時看到錯誤并得以改正。在今后的學(xué)習(xí)中我會更加仔細(xì)認(rèn)真，真正做到學(xué)以致用。附：程序代碼PublicClassFormlDima,b,c,numl,num2,num3AsIntegerDimgerendOOO),licai(lOOO),waibi(lOOO)AsString'分別為用來存儲排在個人業(yè)務(wù)'理財業(yè)務(wù)'外幣業(yè)務(wù)窗口的客戶的數(shù)組PrivateSubTinier4_Tick(ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesTimer4.TickTextBox4.Text=TimeOfDayO '數(shù)字時鐘EndSubPrivateSubButton6_Click(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesButton6.Clicknuml=numl+1Label3.Text="您的的編號為：G-"&numl'numl為辦理個人業(yè)務(wù)客戶的編號'通過判斷務(wù)窗口有無業(yè)務(wù)正在辦理,安排辦理個人業(yè)務(wù)客戶的排隊位置IfMe.TextBoxl.Text.Trim=String.EmptyThenCallg() '調(diào)用函數(shù)g()ElselfMe.TextBox2.Text.Trim=String.EmptyThenlicai(b)=numl '將該客戶編號存入licai數(shù)組,b^licai數(shù)組的數(shù)組元素標(biāo)號TextBox2.Text=TextBox2.Text&"G-"&licai(b)TextBox2.Text=TextBox2.Text&vbCrLfb=b+1 '排在號窗口，并將其號碼顯示在文本框輸出ElselfMe.TextBox3.Text.Trim=String.EmptyThenwaibi(c)=numl '將該客戶編號存入waibi數(shù)組,c>jweibi數(shù)組的數(shù)組元素標(biāo)號()TextBox3.Text=TextBox3.Text&"G-"&waibi(c)TextBox3.Text=TextBox3.Text&vbCrLfc=c+1 '排在號窗口，并將其號碼顯示在文本框輸出ElseCallg()EndIfIfTextBoxl.TextLength>125ThenLabel?.Visible=TrueLabel?.Text="排隊等候多于人！"Button6.Enabled=FalseElseLabel9.Visible=FalseEndIfEndSubPrivateSubButton7_Click(ByVa1senderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesButton?.Clicknum2=num2+1 'num2為辦理理財業(yè)務(wù)客戶的編號Label3.Text="您的的編號為：L-"&num2licai(b)=num2 '將該客戶編號存入licai數(shù)組TextBox2.Text=TextBox2.Text& &licai(b)TextBox2.Text=TextBox2.Text&vbCrLfb=b+1 '排在號窗口，并將其號碼顯示在文本框輸出IfTextBox2.TextLength>125ThenLabels.Visible=TrueLabels.Text="排隊等候多于人！"Button?.Enabled=FalseEndIfEndSubPrivateSubButton8_Click(ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesButtons.Clicknum3=num3+1 'num2為辦理理財業(yè)務(wù)客戶的編號Label3.Text="您的的編號為：W-"&num3waibi(c)=num3 '將該客戶編號存入waibi數(shù)組TextBox3.Text=TextBox3.Text& &waibi(c)TextBox3.Text=TextBox3.Text&vbCrLfc=c+1 '排在號窗口，并將其號碼顯示在文本框輸出IfTextBox3.TextLength>125ThenLabel9.Visible=TrueLabel9.Text="排隊等候的人數(shù)多「!Buttons.Enabled=FalseElseLabel9.Visible=FalseEndIfEndIfEndSubEndSubSubg()geren(a)=numl組元素標(biāo)號TextBoxl.Text=TextBoxl.Text& &Subg()geren(a)=numl組元素標(biāo)號TextBoxl.Text=TextBoxl.Text& &Private'將該客戶編號存入geren數(shù)組,a為geren數(shù)組的數(shù)geren(a)TextBoxl.Text=TextBoxl.Text&vbCrLfTextBoxl.Text=TextBoxl.Text&vbCrLfEndSub'排在號窗口，并將其號碼顯示在文本框輸出PrivateSubButtonl_Click(ByValsenderAsEndSub'排在號窗口，并將其號碼顯示在文本框輸出PrivateSubButtonl_Click(ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesButtonl.Click'將號窗口辦完業(yè)務(wù)的客戶的編號從文木框中撤除Dimal,a2AsStringal=TextBoxl.GetFirstCharlndexFromLine(0)a2=TextBoxl.GetFirstCharlndexFromLine(1)'第一行第一個字符的索引'第二行第一個字符的索引TextBoxl.Select(al,a2)TextBoxl.SelectedText='選中第一行TextBoxl.Select(al,a2)TextBoxl.SelectedText='選中第一行'設(shè)我第一行的內(nèi)容為空IfTextBoxl.TextLengthIfTextBoxl.TextLength<=125Then'排隊人數(shù)小于等于人時，撤除提齪Label?.Visible=FalseButton6.Enabled=TrueEndIfIfTextBoxl.TextLength=0ThenIfTextBox2.TextLength=0ThenIfTextBox3.TextLength=0ThenEndEndIfEndIfEndIfEndSubPrivateSubButton2_Click(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesButton2.Click'將號窗口辦完業(yè)務(wù)的客戶的編號從文本框中撤除Dimbl,b2AsStringbl=TextBox2.GetFirstCharlndexFromLine(0)b2=TextBox2.GetFirstCharlndexFromLine(1)TextBox2.Select(bl,b2)TextBox2.SelectedText=""'當(dāng)號窗口前為空時，觸發(fā)timer6IfTextBox2.TextLength=0ThenTimer6.Enabled=TrueElseTimer6.Enabled=FalseEndIfIfTextBox2.TextLength<=125ThenLabels.Visible=FalseEndIfIfTextBox2.TextLength<=125ThenLabels.Visible=FalseButton?.Enabled=TrueEndIfIfTextBoxl.TextLength=0ThenIfTextBox2.TextLength=0ThenIfTextBox3.TextLength=0ThenEndEndIfEndIfEndIfEndSubPrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesButton!.Click'將號窗口辦完業(yè)務(wù)的客戶的編號從文木框中撤除Dimcl,c2AsStringcl=TextBox3.GetFirstCharlndexFromLine(0)c2=TextBox3.GetFirstCharlndexFromLine(1)TextBox3.Select(cl,c2)TextBox3.SelectedText=""'當(dāng)號窗口前為空時，觸發(fā)timer5IfTextBox3.TextLength=0ThenTimer5.Enabled=TrueElseTimer5.Enabled=FalseEndIfIfTextBox3.TextLength<=125ThenLabel9.Visible=False '排隊人數(shù)小于等于人時，撤除提醒Buttons.Enabled=TrueEndIfIfTextBoxl.TextLength=0ThenIfTextBox2.TextLength=0ThenIfTextBox3.TextLength=0ThenEndEndIfEndIfEndIfEndSubPrivateSubTimer5_Tick(ByValsenderAsSystem.Object,ByVaieAsSystem.EventArgs)HandlesTimer5.TickDimdl,d2,fl,f2AsString'當(dāng)號窗口為空,1號窗口仍有人排隊，且號窗口不為空時,將號窗口排隊的第一個客戶轉(zhuǎn)到號窗口IfTextBoxl.TextLength>5ThenIfTextBox2.TextLength>0Thendl=TextBoxl.GetFirstCharlndexFromLine(1)d2=TextBoxl.GetFirstCharlndexFromLine(1)TextBoxl.Select(dl,d2)TextBoxl.Cut()fl=TextBox3.GetFirstCharlndexFromLine(0)f2=TextBox3.GetFirstCharlndexFromLine(1)TextBox3.Select(fl,f2)TextBox3.Paste。Timer5.Enabled=FalseEndIf'當(dāng)號窗口仍有人排隊，且號窗口為空時,無動作ElselfTextBoxl.TextLength>5ThenIfTex