ວິຊາການຂຽນໂປຼແກັມຄອມພິວເຕີທາງທຸລະກິດເບື້ອງຕົ້ນ

226 ตัวอย่างคําสั่ง Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Dim myPhrase As String myPhrase = Textbox1.text Label1.Text = Microsoft.Visualbasic.Right(myPhrase,5) End Sub รูปที่ 11.14 แสดงผลลพั ธ์การใชง้ าน Right Function  Left Function เป็นฟังกช์ นั่ ที่ใชส้ าํ หรับดึงขอ้ ความจากดา้ นซา้ ยของขอ้ ความที่ตอ้ งการ มีรูปแบบคือ Microsoft.Visualbasic.Left(phrase,num) โดยท่ี Pharase คือ ขอ้ ความที่ตอ้ งการดึง num คือ จาํ นวนตวั อกั ษรที่ตอ้ งการดึงมาแสดง ตัวอย่างคาํ สั่ง Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Dim myPhrase As String myPhrase = Textbox1.text Label1.Text = Microsoft.Visualbasic.Left(myPhrase,5) End Sub

227 รูปที่ 11.15 แสดงผลลพั ธ์การใชง้ าน Left Function  UCase Function เป็นฟังกช์ นั่ ที่ใชส้ าํ หรับแสดงขอ้ ความที่ตอ้ งการให้เป็นตวั อกั ษรพิมพใ์ หญ่ มีรูปแบบคือ Microsoft.Visualbasic.UCase(phrase) โดยท่ี Pharase คือ ขอ้ ความที่ตอ้ งการแสดง ตัวอย่างคําสั่ง Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Dim myPhrase As String myPhrase = Textbox1.text Label1.Text = Microsoft.Visualbasic.UCase(myPhrase) End Sub รูปท่ี 11.16 แสดงผลลพั ธ์การใชง้ าน UCase Function

228  LCase Function เป็นฟังกช์ นั่ ที่ใชส้ าํ หรับแสดงขอ้ ความที่ตอ้ งการให้เป็นตวั อกั ษรพิมพเ์ ล็กมีรูปแบบคือ Microsoft.Visualbasic.LCase(phrase) โดยท่ี Pharase คือ ขอ้ ความที่ตอ้ งการแสดง ตัวอย่างคําสั่ง Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Dim myPhrase As String myPhrase = Textbox1.text Label1.Text = Microsoft.Visualbasic.LCase(myPhrase) End Sub รูปท่ี 11.17 แสดงผลลพั ธ์การใชง้ าน LCase Function 11.4.4 ฟังก์ช่ันเกย่ี วกบั วนั เดอื นปี  Now Function เป็นฟังกช์ นั่ ท่ีใชส้ าํ หรับแสดงวนั ท่ีและเวลาปัจจุบนั  ToDay Function เป็นฟังกช์ นั่ ท่ีใชส้ าํ หรับแสดงวนั เดือนปี ปัจจุบนั  Day Function เป็นฟังกช์ นั่ ท่ีใชส้ าํ หรับแสดงวนั ท่ีปัจจุบนั Microsoft.VisualBasic.DateAndTime.Day(DateValue ) โดยท่ี DateValue คือ วนั เดือนปี ท่ีตอ้ งการ เช่น

229 Dim oldDate As Date Dim oldDay As Integer oldDate = #2/12/2012# oldDay = Microsoft.VisualBasic.DateAndTime.Month(oldDate) ผลลพั ธ์คือ 2  Month Function เป็นฟังกช์ นั่ ท่ีใชส้ าํ หรับแสดงเดือนเป็นตวั เลข Microsoft.VisualBasic.DateAndTime. Month (DateValue ) โดยท่ี DateValue คือ วนั เดือนปี ท่ีตอ้ งการ เช่น Dim oldDate As Date Dim oldMonth As Integer oldDate = #2/12/2012# oldMonth = Microsoft.VisualBasic.DateAndTime.Month(oldDate) ผลลพั ธ์คือ 12  Year Function เป็นฟังกช์ นั่ ท่ีใชส้ าํ หรับแสดงปี Microsoft.VisualBasic.DateAndTime.Year (DateValue ) โดยท่ี DateValue คือ วนั เดือนปี ท่ีตอ้ งการ เช่น Dim oldDate As Date Dim oldYear As Integer oldDate = #2/12/2012# oldYear = Microsoft.VisualBasic.DateAndTime.Year (oldDate) ผลลพั ธ์คือ 2012  MonthName Function เป็นฟังกช์ นั่ ท่ีใชส้ าํ หรับแสดงช่ือของเดือน MonthName (MonthValue ) โดยท่ี DateValue คือ เดือนเป็นตวั เลข

230 ตัวอย่างคําสั่ง Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Label1.Text = Now Label2.Text = Today Label3.Text = Microsoft.VisualBasic.DateAndTime.Day(Now) Label4.Text = Microsoft.VisualBasic.DateAndTime.Month(Now) Label5.Text = Microsoft.VisualBasic.DateAndTime.Year(Now) Label6.Text = MonthName(4) End Sub รูปที่ 11.18 แสดงผลลพั ธ์ของการใชฟ้ ังกช์ นั่ เก่ียวกบั วนั เดือนปี สรุป  โปรแกรมขนาดใหญ่ควรแบ่งงานออกเป็ นส่วนๆที่เรียกว่า โปรแกรมย่อย หรือโพรซีเยอร์ (procedure) ซ่ึงมีขอ้ ดีคือ ช่วยให้เขียน,อ่าน และตรวจสอบโปรแกรมไดง้ ่าย, ลดความซ้าํ ซ้อนของ โปรแกรมที่มีการทาํ งานอยา่ งเดียวกนั , สามารถนาํ เอาโพรซีเยอร์ไปใชง้ านในโปรแกรมอื่นไดอ้ ีก  ซบั รูทีนเป็นโปรแกรมยอ่ ยที่ทาํ งานโดยไมม่ ีการส่งคืน (return) ผลลพั ธ์กลบั ไปยงั คาํ สง่ั ที่เรียกใช้  ฟังกช์ นั่ เป็นโปรแกรมยอ่ ยท่ีมีการคืนคา่ กลบั (return) ไปยงั โปรแกรมหลกั ดว้ ย ซ่ึงคา่ ที่ส่งกลบั มา น้นั อาจเป็นผลจากการคาํ นวณหรือสถานะที่แสดงวา่ ฟังกช์ นั่ ทาํ งานสาํ เร็จหรือลม้ เหลว  ใน VB 2012 มีฟังกช์ นั่ ที่ใหม้ าแลว้ มากมายโดยไม่จาํ เป็นตอ้ งเขียนฟังกช์ นั่ น้นั เอง ซ่ึงจะช่วยลดเวลา ในการพฒั นาโปรแกรมของไปไดม้ าก

231 แบบฝึ กหดั 1. โปรแกรมยอ่ ยคืออะไร ทาํ ไมจึงตอ้ งมี 2. ซบั รูทีนและฟังกช์ น่ั แตกต่างกนั อยา่ งไร 3. จากโจทยโ์ ปรแกรมแสดงเกรดของนกั ศึกษาโดยคิดจากคะแนนโดยมีหลกั เกณฑด์ งั ต่อไปน้ี คะแนนอยใู่ นช่วง เกรด คะแนน > 100 Error คะแนน >= 80 A คะแนน >= 70 B คะแนน >= 60 C คะแนน >= 50 D นอ้ ยกวา่ 50 F ใหน้ กั ศึกษาสร้างโปรแกรมที่มีซบั รูทีนที่ใชแ้ สดงเกรดของนกั ศึกษา 4. จากโจทยโ์ ปรแกรมตรวจสอบช่วงของคะแนนที่ผใู้ ชป้ ้ อนเขา้ มาโดยมีช่วงของคะแนนดงั น้ี คะแนนอยใู่ นช่วง ประเมิน คะแนน >= 80 ดีเด่น คะแนน >= 70 ดี คะแนน >= 60 ปานกลาง คะแนน >= 50 พอใช้ ไมต่ รงกบั ช่วงใดเลย ไมผ่ า่ น ใหน้ กั ศึกษาสร้างฟังกช์ น่ั ที่เพื่อแสดงผลการประเมิน

232 เอกสารอ้างองิ สจั จะ สรัสรุ่งรววี ร. คู่มอื Visual Basic 2005 ฉบับสมบูรณ์. นนทบุรี : ไอดีซีฯ, 2549. สุรสิทธ์ิ คิวประสพศกั ด์ิ และนนั ทนี แขวงโสภา, อนิ ไซด์ Visual Basic .net ฉบับสมบูรณ์. กรุงเทพ : โป รวชิ น่ั , 2546 Stephens, Rod. Visual Basic 2012 PROGRAMMER’S REFERENCE. Indianapolis : John Wiley & Sons, Inc, 2012. Functions (Visual Basic). Retrieved Febrary 17, 2012, from http://msdn.microsoft.com/en- us/library/32s6akha(v=vs.90).aspx

บรรณานุกรม กิตติ ภกั ดีวฒั นะกุล. (2546). คมั ภีร์ระบบสารสนเทศ. พิมพค์ ร้ังท่ี 2. กรุงเทพมหานคร : เคทีพี คอมพ์ แอนด์ คอนซลั ท.์ ฝ่ ายตาํ ราวชิ าการคอมพิวเตอร์. (2554). หลกั การเขียนโปรแกรม. กรุงเทพฯ : ซีเอด็ ยเู คชนั่ . พนิดา พานิชกุล. (2551). การเขียนโปรแกรมคอมพิวเตอร์เบ้ืองตน้ ดว้ ยภาษา JAVA. กรุงเทพฯ : เคพที ี คอมพ์ แอนด์ คอนซลั ท.์ พร้อมเลิศ หล่อวจิ ิตร. (2554). คู่มือเรียน visual basic 2010. กรุงเทพฯ : โปรวชิ น่ั . สัจจะ สรัสรุ่งรวีวร. (2549). คู่มือ Visual Basic 2005 ฉบบั สมบูรณ์. นนทบุรี : ไอดีซีฯ, 2549. สุรสิทธ์ิ คิวประสพศกั ด์ิ นนั ทนี แขวงโสภา. (2546). อินไซด์ Visual Basic .net ฉบบั สมบูรณ์. กรุงเทพ : โปรวชิ นั่ . โอภาส เอ่ียมสิริวงศ.์ (2547). การวเิ คราะห์และออกแบบระบบ. กรุงเทพ: ซีเอด็ ยเู คชนั่ . Rod Stephens.(2012). Fundamentals of Microsoft .NET Programming. California : O’Reilly Media Inc, David I. Schneider. (1999). Computer Programming Concepts and Visual Basic. New Jersey : PEARSON CUSTOM PUBLISHING. Diane Zak. (2012). Clearly Visual Basic Programming With Microsoft Visual Basic 2010. MA : Course Technology. Diane Zak. (2012). CLEARY VISUAL BASIC PROGRAMMING WITH MICROSOFT VISUAL BASIC 2012. 3rd. Boston : Course Technology. Do...Loop Statement (Visual Basic). Retrieved Febrary 14, 2012, from http://msdn.microsoft.com/en- us/library/eked04a7.aspx For...Next Statement (Visual Basic). Retrieved Febrary 14, 2012, from http://msdn.microsoft.com/en- us/library/vstudio/5z06z1kb(v=vs.100).aspx Functions (Visual Basic). Retrieved Febrary 17, 2012, from http://msdn.microsoft.com/en- us/library/32s6akha(v=vs.90).aspx http://th.wikipedia.org/wiki/โปรแกรมคอมพิวเตอร์ If...Then...Else Statement (Visual Basic). Retrieved January 8, 2012, from http://msdn.microsoft.com/en- us/library/752y8abs.aspx

234 Jo Ann Smith. (2011). MICROSOFT VISUAL BASIC PROGRAMS TO ACCOMPANY PROGRAMMING LOGIC AND DESIGN. 6th. Boston : Course Technology. Kendall Kenneth E. and Kendall Julie E. (2003). Systems Analysis and Design. 5th. Jurong : Pearson Education Aisa Pte Ltd. Microsoft . (2012). Explore the Visual Studio IDE with C# or Visual Basic. Retrieved January 8, 2012, from http://msdn.microsoft.com/en-us/library/vstudio/ms165079(v=vs.110).aspx Rod Stephens. (2012). Visual Basic 2012 PROGRAMMER’S REFERENCE. Indianapolis : John Wiley & Sons, Inc. Rod Stephens. Start Here Fundamentals of Microsoft .NET Programming. California : O’Reilly Media, Inc, 2011. Select...Case Statement (Visual Basic). Retrieved Febrary 14, 2012, from http://msdn.microsoft.com/en- us/library/cy37t14y.aspx TextBox Class. Retrieved January 8, 2012, from http://msdn.microsoft.com/en- us/library/system.windows.forms.TextBox(v=vs.110).aspx Using the Check Box Control. Retrieved Febrary 14, 2012, from http://msdn.microsoft.com/en- us/library/752y8abs.aspx