หน้าแรก
 การบ้าน
  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
  ระบบจองตั๋วหนังภาษาจาวา (Ja...
2017-11-18 15:42:48
  โปรแกรมจองตั๋วหนัง ภาษาจาวา...
2017-11-18 15:40:29
  ผมลอง gotoxy แล้วแต่ก็ยังเอ...
2017-08-28 11:45:52
  ลองสร้างตัวแปลอีกตัวไว้ใน u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  ผมมีคลิปสอนให้แล้ว ดูให้เข้...
2017-08-27 10:50:02
  รับ สอน 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
  Homework comment
  คำนวณค่าน้ำโดยรับค่ามิเตอร์จำน...
2017-11-20 23:15:26
  ขอบคุณมากครับ...
2017-08-16 18:27:25
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
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
  Article comment
  มีcode ของ VB ไหมค่ะ ถ้ามีรบกว...
2017-09-28 16:50:02
  น่าจะได้ครับ ไม่เคยลอง
กล่...

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
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

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

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

 eMbedded Visual Basic
 
 

บทที่ 6 โปรแกรมตัดเกรดแบบง่าย

 

โปรแกรมตัดเกรดแบบง่าย เป็นตัวอย่างโปรแกรม ที่ใช้การสุ่มตัวเขคะแนน ขึ้นมา แล้วทำการตรวจสอบว่า คะแนนดังกล่าว ควรจะได้เกรดเท่าไร โดยตัวอย่าง จะได้นำเสนอถึงการนำ คำสั่งในการสุ่ม (Ramdom) และ การใช้ Select Case มาใช้งาน

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

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

เราจะทำง่ายคือ วางคอนโทรล 3 อย่างด้วยกัน ซึ่งได้แก่ TextBox, CommandButton และ Label โดย TextBox จะเป็นช่องสำหรับกรอกคะแนน ที่ต้องการทราบเกรด ปุ่ม CommandButton จะเป็นปุ่มที่คลิกสั่งเพื่อให้คำนวณเกรด และมี Label ทำหน้าที่แสดงผลเกรดที่ได้ ก่อนอื่นให้คุณทำการคลิกและลาก คอลโทรล ออกมาวาง ไว้บน Form

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

Control Property Value
Form Name frmMain
  Caption Grade
TextBox Name txtScore
  Text  
Label Name lbGrade
  Caption  
CommandButton Name cmdButton
  Caption Random

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

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

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

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

โดยการทำงานทั้งหมด จะอยู่ภายใต้ Sub ที่ชื่อว่า RandomGrade ขั้นตอนต่อไป ให้คุณเปิดหน้าต่าง Code View ขึ้นมา และทำการเลือกที่ตำแหน่ง บรรทัดล่าง ดังรูป

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

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

Sub RandomGrade()
Dim score As Integer
Dim grade As String

    Randomize
    score = Fix(Rnd * 100)
    
    If score >= 80 Then
        grade = "A"
    ElseIf score >= 70 Then
        grade = "B"
    ElseIf score >= 60 Then
        grade = "C"
    ElseIf score >= 50 Then
        grade = "D"
    Else
        grade = "F"
    End If
    
    txtScore.Text = score
    lbGrade.Caption = grade

    
End Sub

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

การทำงานของ Sub RandomGrade จะเริ่มต้นด้วยการประกาศตัวแปร score ไว้เก็บค่าคะแนน และ grade ไว้เก็บเกรดที่ได้ จากนั้นจะใช้กระบวนการสุ่ม โดยเริ่มจากคำสั่ง Randomize เพื่อเป็นการเริ่มต้นของการเลือกค่าสุ่ม และ ใช้ฟังก์ชั่น Rnd (Random) ในการสุ่มค่าออกมา ซึ่งจะเป็นเลขจำนวนหนึ่งที่เป็นทศนิยม เมื่อนำมาคูณด้วย 100 ทำให้ค่าที่ได้ อยู่ระหว่าง 0 ถึง 100 และใช้ฟังก์ชั่น Fix แปลงเลขดังกล่าว ให้เป็นเลขจำนวนเต็ม แล้วนำไปเก็บไว้ในตัวแปร score

กระบวนการต่อมาเป็นการใช้ ชุดคำสั่ง IF ในการตรวจสอบค่า ว่ามีค่ามากกว่าหรือเท่ากับ 80 ให้เกรด A และอื่นๆ ถัดๆมา ตามโค้ด จะเป็นการตรวจสอบคะแนน สำหรับระดับเกรดต่างๆออกมา เมื่อได้ค่าของ score และ grade แล้ว สุดท้ายจะนำค่าทั้งสอง ไปแสดงบน txtScore ซึ่งเป็น TextBox และ บน blGrade ซึ่งเป็น Label

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

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

เริ่มต้นการใส่โค้ดในส่วนของการคลิกปุ่มคือ ทำการคลิกเลือกที่ View Object จะมี Form แสดงออกมา และทำการดับเบิ้ลคลิกที่ปุ่ม cmdButton

รูปแสดง การเปิดแสดง Form
รูปแสดง การเปิดแสดง Form

จะปรากฏหน้าต่าง Code View ให้คุณทำการป้อนโค้ดลงในส่วนของ Sub ดังรูป

รูปแสดงการเพิ่มโค้ด เพื่อเรียกใช้ sub
รูปแสดงการเพิ่มโค้ด เพื่อเรียกใช้ sub

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

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

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

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

จะเห็นได้ว่าเมื่อคุณทำการคลิกปุ่ม ทุกครั้งจะมีการสุ่มคะแนน และ คำนวณเกรดออกมาให้ และถ้าหากคุณต้องการให้มีการสุ่มเลือก ตั้งแต่เริ่มต้นการทำงานของโปรแกรม สามารถทำได้โดย คลิกปุ่ม OK ที่อยู่ด้านบนของ Emulator หรือ คลิกปุ่ม End ที่อยู่บน Toolbar หลักจากนั้น คลิกไปยังหน้าต่างของ Code View และเลือกช่องด้านซ้ายเป็น Form และเลือกด้านขวาเป็น Load ดังรูป

แสดงรูป การเพิ่ม Sub สำหรับการทำงานเริ่มต้นของโปรแกรม
แสดงรูป การเพิ่ม Sub สำหรับการทำงานเริ่มต้นของโปรแกรม

การเลือกดังกล่าวเป็นการสร้าง Sub สำหรับให้ทำงานเมื่อ Form นี้ถูก Load การทำงานในกระบวนการของการ Run โปรแกรม ซึ่งในที่นี้เราจะนำโค้ดที่จะเรียกการทำงานของ sub RandomGrade มาใช้ ดังรูป

รูปแสดง การเพิ่มโค้ด เพื่อให้ทำงานตั้งแต่เริ่มโปรแกรม
รูปแสดง การเพิ่มโค้ด เพื่อให้ทำงานตั้งแต่เริ่มโปรแกรม

จากนั้นให้ลองทดสอบ Run อีกครั้ง ก็จะเห็นได้ว่า การสุ่ม จะเกิดขึ้นตั้งแต่การเริ่มต้นโปรแกรม

 

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