หน้าแรก
 การบ้าน
  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
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
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
 
สร้าง LED Control (อ่าน 23,858)
ศุภกิจ ทองดี (9'M) บทความโดย: นาย ศุภกิจ ทองดี (9'M)
e-mail: webmaster@sourcecode.in.th
mobile: 09-5009-5351
Line: suppakit.thongdee
Youtube: 9Mcode
Fanpage: Sourcecode.in.th
   
: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 4,210 ครั้ง)

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

 
 
Freelanceรับพัฒนาโปรแกรม และเว็บ โดย 9'M 

บทความนี้เป็นตัวอย่างการสร้าง LED (Light effect diode) Control โดยมีความสามารถในการกำหนด สี เปิด-ปิด และมี Event Onchange เมื่อมีการเปิดปิด กับ LED Control

เริ่มต้นการสร้างโดย เปิดโปรแกรม Borland Delphi ซึ่งในโค้ดตัวอย่างนี้ผมใช้ Delphi 6 ครับ

1. เมื่อเปิด Delphi ขึ้นมาจะปรากฏ Project ให้เราไว้แล้ว ให้คุณทำการเพิ่ม Unit ใหม่ โดย เลือกจากเมนู File->New->Unit จะปรากฏหน้าต่าง Unit ใหม่ดังรูป

2. ทำการเพิ่มโค้ดดังตารางลงใน Unit2

unit Unit2;

interface
uses Controls,Graphics,Classes,Types;

type
 TLED = class(TGraphicControl)
 private
   FOnColor: TColor;
   FOffColor: TColor;
   FLedOn: Boolean;

   FOnChange: TNotifyEvent;

   procedure SetLedOn(Value: Boolean);
   procedure SetOnColor(Value: TColor);
   procedure SetOffColor(Value: TColor);

   procedure DrawLedEllipse;

 protected
   procedure Paint; override;
   procedure DoChange; virtual;

 public
   constructor Create(AOwner: TComponent); override;

 published
   property OnColor: TColor read FOnColor write SetOnColor;
   property OffColor: TColor read FOffColor write SetOffColor;
   property LedOn: Boolean read FLedOn write SetLedOn;

   property Visible;

   property OnChange: TNotifyEvent read FOnChange write FOnChange;
 end;

implementation

{ TLED }

constructor TLED.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FOnColor := clLime;
  FOffColor := clRed;
  FLedOn := false;

  width := 24;
  height := 24;

end;

procedure TLED.DoChange;
begin
  if Assigned(FOnChange) then FOnChange(self);

end;

procedure TLED.DrawLedEllipse;
var R: TRect;
    off: Integer;
begin
  R := ClientRect;
  if Height>Width then
    off := Width div 5
  else
    off := Height div 5;


  with Canvas do
  begin
    Pen.Color :=Canvas.Brush.Color;
    Ellipse(R.Left,R.Top,R.Right,R.Bottom);

    //3D effect
    Pen.Color := clWhite;
    Brush.Color := clWhite;
    Chord(R.Left+off, R.Top+off,
          R.Right-off, R.Bottom-off,
          R.Right div 2, R.Top+off,
          R.Left+off, R.Bottom div 2); 
  end;

end;

procedure TLED.Paint;
begin
  inherited;
  if  FLedOn then
    Canvas.Brush.Color := FOnColor
  else
    Canvas.Brush.Color := FOffColor;

  DrawLedEllipse;

end;

procedure TLED.SetLedOn(Value: Boolean);
begin
  if Value<>FLedOn then
  begin
    FLedOn := Value;
    Refresh;
    DoChange;
  end;
end;

procedure TLED.SetOffColor(Value: TColor);
begin
  if FOffColor<>Value then
  begin
    FOffColor := Value;
    Refresh;
  end;

end;

procedure TLED.SetOnColor(Value: TColor);
begin
  if FOnColor<>Value then
  begin
    FOnColor := Value;
    Refresh;
  end
end;

end.

3. ทำการเพิ่ม unit2 เพื่อให้ unit1 สามารถเรียกใช้ LED Control ที่อยู่ภายใน unit2 ด้วยการแก้ไข unit1 ดังรูป พร้อมทั้งเพิ่มส่วนของการประกาศตัวแปร LED สำหรับการสร้าง Control ดังรูปตามลำดับ

4. ทำการ ดับเบิ้ลคลิกที่ Form1 แล้วป้อนโค้ดดังตาราง

procedure TForm1.FormCreate(Sender: TObject);
begin
  LED :=TLED.Create(Self);
  LED.Parent :=Self;
  
end;

5. คลิกเลือกที่ Form1 ทำการเพิ่มปุ่มลงไป แล้วทำการดับเบิ้ลคลิกที่ปุ่ม แล้วป้อนโค้ดดังนี้

procedure TForm1.Button1Click(Sender: TObject);
begin
  LED.LedOn := not LED.LedOn; 
end;

6. ทดสอบโปรแกรม โดยกดปุ่ม F9 แล้วทดลองคลิกปุ่ม จะปรากฏ LED Control ดังรูป ให้ทดลองคลิกที่ปุ่ม จะเห็นการทำงาน ของ LED Control ที่เราได้ทำการสร้างขึ้น

ทิ้งทาย

คุณจะเห็นได้ว่า ในการสร้าง LED Control ในบทความนี้ เราได้ทำการสร้าง Class ใหม่ โดยทำการสืบทอด ความสามารถและคุณลักษณะต่างๆ ของ TGraphicControl หลังจากนั้นก็ ทำการเขียนโปรแกรมจัดการ ในส่วนของ Control ที่เราต้องการ

เมื่อเราต้องการเรียกใช้ Class ดังกล่าวที่อยู่ใน unit2 เราก็เพียงแค่เพิ่ม ชื่อ unit2 ไว้ใน uses ของ unit1 แล้วเราก็ทำการประกาศตัวแปร LED ซื่งเป็นตัวแปรแบบ TLED

เมื่อมีการ Create ของ Form1 หลังจากที่เราทำการกด F9 เพื่อ run โปรแกรม ,เราจะทำการสร้าง LED Control ขึ้นมา แล้วแสดงออกมาที่หน้า Form1 และเมื่อเราทำการคลิกที่ปุ่ม จะมีการเปลี่ยนแปลงของ Control แสดงให้เห็นครับ

จากบทความนี้ คุณอาจนำไปประยุกต์ใช้งาน สร้าง Control ง่ายๆ สำหรับโปรแกรมของคุณได้แล้วฮะ แล้วพบกันใหม่กับ 9M

: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 4,210 ครั้ง)
 

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

สอบถาม
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

 
 
สายต่อจอ สำหรับเครื่อง 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)
อัตราค่าโฆษณา
 
บทความที่เกี่ยวข้อง

Zoom หน้าจอด้วย Delphi

What?s new in Delphi 2005 #1 ( for ?in loop statement)

Dynamic Cast ใน Delphi

เขียนโปรแกรมให้ Run ตอน Startup Windows

การเขียน ActiveForm(ActiveX Control) เบื้องต้น

โปรแกรม Post ข้อมูล ไปยังไฟล์ ASP

แสดงหมายเลข IP Address ของเครื่องบน NetWork

การแสดงรายชื่อ Email Contact ของ Microsoft Outlook

การหาตำแหน่งของ Caret ใน Memo

การเขียน Service Application เพื่อใช้งานบน Windows NT/2000/XP
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