หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะครับ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรือบริษัท
ส...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  รับ สอน matlab เขียน matlab...
2017-06-03 16:27:23
  เฉพาะทางขนาดนี้ คงต้องดูหาข...
2017-05-25 16:18:08
  โห เครื่องรุ่นไหนครับ os รุ...
2017-05-25 16:12:47
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  เขียนโค้ดไม่เป็น เอาโค้ดไป ...
2017-03-27 12:50:54
  คือสงสัยว่าทำไม ต้องอัพเดทด...
2017-03-27 12:37:20
  ทดสอบการตอบ...
2017-02-22 13:10:24
  ลองอีกวิธีเขียน recursive f...
2017-02-14 13:11:03
  อยากได้ โค้ดระบบห้องสมุดมาก...
2017-01-30 11:45:28
  ทำ for-loop ซ้อนกัน
โดย...

2017-01-28 16:00:12
  Homework comment
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
2017-04-18 16:25:29
  kungking คำถามคืออะไรครับ ?...
2017-03-18 23:28:36
  จงเขียนโปรแกรมแสดงผลรวมของตัวเ...
2017-03-06 10:56:25
  ก็โค้ดทำงานคล้ายๆแบบนี้หละ แต่...
2016-09-06 01:00:12
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  ได้โค้ดแล้ว ลองศึกษาแล้วเขียนผ...
2016-04-22 00:47:49
  ขอแผนผังของโปรแกรมนับตัวอักษรภ...
2016-04-21 19:24:55
  Article comment
  น่าจะได้ครับ ไม่เคยลอง
กล่...

2017-07-11 09:59:35
  สามารถใช้ต่อกับ anycast ได้ไหม...
2017-07-05 10:12:35
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอบคุณครับ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำตามทุขั้นตอนแต่ต...
2016-06-17 14:37:44
  ต้องวิเคราะห์ครับ "ว่าจริงๆ ส่...
2016-03-12 23:36:05
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  ไปตั้ง โครงการไว้เลยครับ ที่
2016-01-25 13:29:55
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
 eMbedded Visual Basic Tutorial  

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 eMbedded Visual Basic
 
 

บทที่ 6 โปรแกรมเครื่องคิดเลข

 

โปรแกรมเครื่องคิดเลข จะออกแบบให้มีช่องสำหรับกรอกเลข 2 จำนวน และแสดงผลลัพธ์ทางช่องผลลัพธ์ โดยมีปุ่ม บวก, ลบ, คูณ และหาร เพื่อใช้ในการคิดคำนวณ

Downloadดาวน์โหลดโปรแกรม

การออกแบบโปรแกรม

ทำการคลิกและลาก คอลโทรล ออกมาวาง ไว้บน Form ดังรูป

รูปแสดง การวางคอนโทรลบน Form
รูปแสดง การวางคอนโทรลบน Form

ทำการคลิกเลือก คอนโทรล ทีละอัน แล้วทำการกำหนด Property ตามตาราง ดังต่อไปนี้

Control Property Value
Form Name frmMain
  Caption Easy Caculator
TextBox1 Name txtNum1
  Text 0
TextBox2 Name txtNum2
  Text 0
TextBox3 Name txtNum3
  Text 0
Label1 Name lbNum1
  Caption Number :
Label2 Name lbNum2
  Caption Number :
Label3 Name lbNum3
  Caption Result :
CommandButton1 Name cmdOp1
  Caption +
CommandButton2 Name cmdOp2
  Caption -
CommandButton3 Name cmdOp3
  Caption x
CommandButton4 Name cmdOp4
  Caption /

ผลที่ได้คือหน้าตาของ Form ใหม่ดังรูปด้านล่าง

รูปแสดง การวางคอนโทรลบน Form หลังจากกำหนด Property แล้ว
รูปแสดง การวางคอนโทรลบน Form หลังจากกำหนด Property แล้ว

เริ่มต้นใส่โค้ดการทำงาน

ขั้นตอนต่อไป จะเป็นการใส่โค้ดเข้าไปเพื่อให้โปรแกรมที่เราสร้างขึ้น สามารถที่จะทำงานได้ตรงตามวัตถุประสงค์ที่ตั้งไว้ ซึ่งการทำงานของโปรแกรม จะเริ่มจาก ผู้ใช้ทำการป้อน ตัวเลขสองชุด และคลิกแต่ละปุ่ม เพื่อเลือกการคำนวณที่ต้องการ ในการเขียนโค้ด คุณจะสามารถแยกการทำงานต่างๆ ไปตาม sub ของแต่ละการคลิกปุ่ม เช่นคลิกปุ่มบวก ก็ไปเขียนโปรแกรมในส่วนนั้น หรืออาจเขียน sub โปรแกรมกลางไว้ เพื่อให้ทุกปุ่มเรียกใช้ด้วยกัน โดยมีการส่งค่าพารามิเตอร์ ไปด้วย เพื่อให้รู้ว่า เป็นการคลิกปุ่มเพื่อการคำนวณอะไร

ซึ่งจะไม่ค่อยเห็นความแตกต่างสักเท่าไหร่ สำหรับโปรแกรมขนาดเล็ก ดังในโปรเจคตัวอย่าง แต่หากว่าเป็นการเขียนโปรแกรมที่มีการทำงานที่ซับซ้อนกว่านี้ วิธีการสร้าง sub เพื่อใช้งานร่วมกัน เป็นวิธีที่ดีเลยทีเดียว

ให้คุณเปิดหน้าต่าง Code View ขึ้นมา และทำการเลือกที่ตำแหน่ง บรรทัดล่าง ดังรูป

รูปแสดง หน้าต่าง Code View
รูปแสดง หน้าต่าง Code View

จากนั้นทำการป้อนโค้ดดังต่อไปนี้ลงไป เฉพาะส่วนของ Sub Calc() ตามตารางโค้ด ด้านล่าง

Sub Calc(mode As String)
Dim result As Double
Dim num1 As Double
Dim num2 As Double

    num1 = CInt(txtNum1)
    num2 = CInt(txtNum2)
    result = 0
    
    On Error Resume Next

    Select Case mode
        Case "add":
            result = num1 + num2
        Case "sub":
            result = num1 - num2
        Case "mul":
            result = num1 * num2
        Case "div":
            result = num1 / num2
    End Select
    
    txtNum3.Text = result
    
End Sub

อธิบายการทำงาน

การทำงานของ Sub Calc จะเริ่มต้นด้วยการประกาศตัวแปร สำหรับเก็บค่าตัวเลขสองหลัก และผลจากการคำนวณ และนำค่าจาก ช่อง txtNum1 และ txtNum2 มาแปลงเป็นตัวเลข โดยใช้ ฟังก์ชั่น Cint (หรือเรียกง่ายๆว่า Convert to Integer) จากนั้นจะใช้คำสั่ง Select Case เพื่อเลือก การทำงานตามค่าพารามิเตอร์ที่ส่งมาให้กับ Sub Calc ซึ่งค่าต่างๆที่คำนวณ ออกมาได้ จะเก็บไว้ในตัวแปร result และนำแสดงผลที่ได้ ในช่องของ txtNum

จากขั้นตอนที่ผ่านมา ยังเป็นเพียงการสร้าง Sub ขึ้นมา ดังนั้นขั้นตอนต่อมา เราจะทำการเพิ่มโค้ดเข้าไปในส่วนของการ คลิกปุ่มต่างๆ เริ่มต้นการใส่โค้ดในส่วนของการคลิกปุ่มคือ ทำการคลิกเลือกที่ View Object จะมี Form แสดงออกมา และทำการดับเบิ้ลคลิกที่ปุ่ม ทีละปุ่ม แล้วป้อนโค้ดตามตารางด้านล่าง

Private Sub cmdOp1_Click()
 Calc ("add")
End Sub

Private Sub cmdOp2_Click()
 Calc ("sub")
End Sub

Private Sub cmdOp3_Click()
 Calc ("mul")
End Sub

Private Sub cmdOp4_Click()
 Calc ("div")
End Sub

ทดสอบ Run โปรแกรม

การ Run สามารถทำได้โดยทำการคลิกเลือก Emulator ที่ต้องการจะ run เป็น Pocket PC 2002 Emulation

รูปแสดง การเลือก Emulator เพื่อจะ run โปรแกรม
รูปแสดง การเลือก Emulator เพื่อจะ run โปรแกรม

เมื่อทำการเลือกแล้ว คุณสามารถคลิกที่ปุ่ม ลูกศร ที่อยู่บน Toolbar หรือ กดปุ่ม F5 เพื่อทำการ Run โปรแกรม หลังจากนั้นจะมีการเรียก Emulator ขึ้นมา หากมีข้อความยืนยัน ให้การ update ใดๆ ให้คุณเลือก Yes เพื่อยืนยัน ทั้งหมด ผลที่ได้จากการ Run จะเป็นดังหน้าต่าง ที่เราได้ออกแบบไว้ ให้คุณทำการทดสอบการทำงาน โดยป้อนตัวเลข ทั้งสองจำนวน จากนั้น คลิกปุ่ม ที่ต้องการให้คำนวณ จะมีการแสดงผลลัพธ์แสดงออกมา ดังรูปจะเป็นการคลิกปุ่มคูณตัวเลข

รูปแสดง ผลการ Run โปรแกรมบน Emulator
รูปแสดง ผลการ Run โปรแกรมบน Emulator

 

BACK

สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th