หน้าแรก
 การบ้าน
  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
  ถ้าเขียน 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
  เดาว่าใช้ Stack เข้ามาช่วย...
2017-01-28 15:57:09
  ยืมเสร็จแล้ว ก็เอามาคืนด้วย...
2016-10-27 14:56:42
  ยืมโค้ดหน่อยครับ...
2016-10-27 14:49:44
  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
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
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
  ด่วน!!! ต้องการคนเขียน App โดย...
2016-01-25 10:56:34
  ผมได้ทำตามคำแนะนำจนสิ้นสุดแล้ว...
2016-01-20 23:30:25
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

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

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

 eMbedded Visual Basic
 
 

บทที่ 6 โปรแกรมตรวจสอบปีที่มี 366 วัน

 

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

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

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

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

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

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

รูปแสดง การกำหนดค่า Property ต่างๆให้กับ Label
รูปแสดง การกำหนดค่า Property ต่างๆให้กับ Label

จากรูปด้านบน เป็นการกำหนดค่า Property Name และ Caption โดยเราจะทำการตั้งชื่อใหม่ของ คอนโทรล Label เป็น lbDisplay (lb ที่นำหน้าเพื่อมีจุดมุ่งหลาย บอกว่า ชื่อนี้เป็นชื่อของคอนโทรลที่เป็น Label) ต่อมาจะทำการนำข้อความเดิมที่แสดงอยู่ ออกไป โดยกำหนดค่าของ Caption เป็นค่าว่าง (ทำการลบ ข้อความ "Label1" ออก)

รูปแสดง การกำหนดค่า Property ต่างๆให้กับ TextBox
รูปแสดง การกำหนดค่า Property ต่างๆให้กับ TextBox

ถัดมาจะเป็นการเลือกที่ TextBox และทำการตั้งชื่อใหม่ของ TextBox เป็น txtYear(txt ที่นำด้านหน้าชื่อ เพื่อไว้บอกว่า เป็น TextBox นั่นเอง) พร้อมทั้งลบข้อความที่ TextBox แสดงอยู่ออกไป โดยกำหนด Property Text เป็นค่าว่าง

รูปแสดง การกำหนดค่า Property ต่างๆให้กับ CommandButton
รูปแสดง การกำหนดค่า Property ต่างๆให้กับ CommandButton

สุดท้ายคือการเลือกที่ CommandButton และกำหนดชื่อใหม่เป็น cmdButton (cmd ที่นำด้านหน้าชื่อ เพื่อไว้บอกว่าเป็น CommandButton นั่นเอง) จากนั้น ก็ทำการกำหนดข้อความที่จะแสดงบนปุ่มไว้ใน Captioin ว่า "Checking"

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

ขั้นตอนต่อไป จะเป็นการใส่โค้ดเข้าไปเพื่อให้โปรแกรมที่เราสร้างขึ้น สามารถที่จะทำงานได้ตรงตามวัตถุประสงค์ที่ตั้งไว้ ก่อนอื่นใด คุณจะต้องมองภาพออกว่า จะเกิดอะไรขึ้นในกระบวนการของการ โปรแกรม เอาเป็นว่าเมื่อคุณทำการ Run โปรแกรมขึ้นมา ขั้นตอนถัดไปจะเป็นการ ป้อนปี ค.ศ ที่ต้องการทราบ จากนั้น จะเป็นการคลิกปุ่ม เพื่อให้โปรแกรมทำการตรวจสอบ

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

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

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

Option Explicit

Private Sub cmdButton_Click()
    Dim nyear As Integer

    If txtYear.Text <> "" Then
        nyear = CInt(txtYear.Text)
    Else
        MsgBox "Please insert the number."
        Exit Sub
    End If

    If ((nyear Mod 4 = 0) And (nyear Mod 100 <> 0) Or (nyear Mod 400 = 0)) Then
        lbDisplay.Caption = "True"
    Else
        lbDisplay.Caption = "False"
    End If

End Sub


Private Sub Form_OKClick()
    App.End
End Sub

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

เริ่มต้นโค้ดเมื่อมีการคลิกที่ปุ่ม cmdButton ก็จะมีการเรียก Sub cmdButton_Click() ทำงาน โดยเริ่มจากการประกาศตัวแปร nyear เป็นแบบ Integer (ตัวเลข) เพื่อใช้ในการเก็บค่าปี จากนั้นจะใช้คำสั่ง IF เพื่อตรวจสอบว่า ภายในช่องของ txtYear มีข้อความหรือไม่ หากมีข้อความ(ที่เป็นตัวเลข) อยู่ให้ทำการแปลงจาก ข้อความ ไปเป็น ตัวเลข โดยใช้ ฟังก์ชั่น Cint แล้วนำค่าที่แปลงไป เก็บไว้ในตัวแปร nyear ที่ได้ทำการประกาศไว้ ตั้งแต่ตอนเริ่มต้นโปรแกรม แต่ถ้าหากว่าไม่มีข้อความอยู่ จะทำการกำหนดค่า การแสดงข้อความ "Please insert the number." เพื่อแจ้งให้มีการกรอก ตัวเลขจำนวนปีเข้ามา

ขั้นตอนต่อมา จะใช้คำสั่ง if เพื่อตรวจสอบเงื่อนไข ว่าจำนวนปี หารด้วย 4 ลงตัว(ใช้การ mod แล้วไม่เหลือเศษ คือ เท่ากับ 0 นั่นเอง) และ หารด้วย 100 แล้วไม่ลงตัว หรือถ้าหารด้วย 400 แล้วลงตัว ถ้าทั้งหมดตรงตางเงื่อนไข จะกำหนดข้อความ True ให้แสดงผ่านทาง Caption ของ lbDisplay (คอนโทรลที่เป็น Label) แต่ถ้าไม่เป็นไปตามเงื่อนไข ก็จะแสดงข้อความ False แทน

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

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

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

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

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

 

BACK

สายต่อหูฟัง และชาร์จไฟ สำหรับ 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