หน้าแรก
 การบ้าน
  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
 
 Webboard

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

กระทู้ #3527 [Delphi]

ข้าน้อยมาถ่ายทอดวิทยายุทธเพลงกระบี่ขั้นหนึ่ง delphi Karaoke

สิ่งที่ต้องเตรียมสำหรับท่านจอมยุทธทีลมปราณยังไม่ถึงขั้นหนึ่ง
ในการเรียนเค็ดวิชานี้ สิ่งที่ท่านต้องเตรียม

กระบี่ Delphi 7 และ component TVideoGrabber v6.7.5
ลมปราณนกไฟ Firebird
ตำราเส้าหลิน EMS InterBase & FireBird Manager 3

เมื่อพวกท่านจอมยุทธ เข้าใจตรงกันแล้วก็

สร้าง Folders ไว้เก็บโปรเจ็ก

เปิด Delphi
ติดตั้ง component TvideoGrabber v6.7.5
เลือกเมนู-Component-install packages
เลือกเมนู Tools-environment option-libary-libary path-add path delphi7

สร้างโปรเจ็ก

เลือก File-New-Application
กด F11 object Inspector

กำหนด Properties
Name - fmMain(ชื่อฟร์อม)
Font - Tahoma ขนาด 10
Height - 768
Width - 1366
กำหนด Events-OnClose
เขียนโค๊ด
Action := caFree ;
fmMain := nil ;

บันทึกและรันโปรเจ็ก
เลือกเมนู File-Save project

บันทึกชื่อ Project - Karaoke
บันทึกชื่อ Unit - UMain
กดปุ่ม Ctrl-F9 (Compile Project)

เริ่มเขียนเค็ดวิชา
โค๊ดกำหนด หน้าจออัตโนมัติ

กำหนดตัวแปรในส่วน
{ Public declarations }
procedure run_MIter(id:Integer) ;

กำหนดฟังชั่นในส่วน
{$R *.dfm}
function NewRes(XRes,YRes:DWord):integer;
var
DevMode:TDeviceMode;
begin
EnumDisplaySettings(nil, 0, DevMode);
DevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth:=XRes;
DevMode.dmPelsHeight:=YRes;
Result:=ChangeDisplaySettings(DevMode, 0);
end;

กำหนดโค๊ดฟร์อม(fmMain) กด F11 object Inspector
Events-ondestroy

NewRes(ScrWidth,ScrHeight) ;

Evnents-Onshow

ScrWidth:=Screen.Width;
ScrHeight:=Screen.Height;
NewRes(1024,768);

กดปุ่ม Ctrl-F9 ทดสอบลองปรับขนาดลง


โค๊ด Media Player ข้าน้อยจะมาต่ออีกครั้งข้อไปทำธุระแป๊ป
จากคุณ : กระบี่ Delphi / SrisaketSoftware@hotmail.com [2014-10-26 12:37:41]  

49.237.137.38 ความคิดเห็น #29143 (จาก IP: 49.237.137.38)
เพลงกระบี่ลมปราณขั้นหนึ่ง โค๊ด Media Player(ต่อ)

กลับมาที่ฟร์อม fmMain กดปุ่ม F10

เลือก
component Standara

เลือก Panel 1
กำหนด Properties
Ailgn=alBottom
Caption=' '
Font=Tahoma-ขนาด 10-THAI_CHARSET
Height=45

เลือก Panel 2
กำหนด Properties
Ailgn=alClient
Caption=' '
Font=Tahoma-ขนาด 10-THAI_CHARSET

เลือก Edit
เลือก Edit1 วางใน Panel 1
กำหนด Properties
Caption=' '
Font=Tahoma-ขนาด 10-THAI_CHARSET

เลือก
component Additional
เลือก SpeedButton วางใน Panel 1
SpeedButton1
กำหนด Properties
Name=SBOpen
Caption=Open
Font=Tahoma-ขนาด 10-THAI_CHARSET
Height=40
Widht=60

SpeedButton2
กำหนด Properties
Name=SBPaly
Caption=Play
Font=Tahoma-ขนาด 10-THAI_CHARSET
Height=40
Widht=60

SpeedButton3
กำหนด Properties
Name=SBPause
Caption=Pause
Font=Tahoma-ขนาด 10-THAI_CHARSET
Height=40
Widht=60

SpeedButton4
กำหนด Properties
Name=SBStop
Caption=Otop
Font=Tahoma-ขนาด 10-THAI_CHARSET
Height=40
Widht=60

เลือก
component Datastean (component TvideoGrabber v6.7.5)
เลือก VideoGrabber1 วางใน Panel 2
กำหนด Properties
Ailgn=alClient
Caption=' '
Color=clBlack
Font=Tahoma-ขนาด 10-THAI_CHARSET

เลือก
component Win32
เลือก TrackBar1 วางใน Panel 1
กำหนด Properties
Max=100
Min=0

เลือก
component Dialog
เลือก OpenDialog1 บนฟอร์ม fmMain




โค๊ด Media Player
ส่วน Run Media Player

กำหนดค่า ฟร์อม fmMain
Evnents-OnCloseQuery
VideoGrabber1.StopPreview;

กำหนดค่า VideoGrabber1
Evnents-OnPlayerStarted
TrackBar1.Min := 1;
TrackBar1.Frequency := 1;
TrackBar1.PageSize := 1;
TrackBar1.Max := VideoGrabber1.PlayerFrameCount;

กำหนดค่า TrackBar1
Evnents-OnChange
if not VideoGrabber1.InFrameProgressEvent then begin
VideoGrabber1.PlayerFramePosition := TrackBar1.Position;
end;

ส่วน ปุ่มเครื่องมือ
กำหนดค่า SBOpen
Evnents-OnClick
OpenDialog1.Filter := '*.MPG,*.AVI,*.DAT,*.VOB,*.MP3,*.WAV' ;
with OpenDialog1 do
if Execute then
begin
edit1.Text := OpenDialog1.FileName ;
VideoGrabber1.PlayerFileName := edit1.Text ;
VideoGrabber1.OpenPlayer ;
end;

กำหนดค่า SBPaly
Evnents-OnClick
VideoGrabber1.RunPlayer ;

กำหนดค่า SBPause
Evnents-OnClick
VideoGrabber1.PausePlayer ;

กำหนดค่า SBStop
Evnents-OnClick
VideoGrabber1.StopPlayer ;

กดปุ่ม F9 หรือ Ctrl-F9 ทดสอบโปรแกรม

ติดตรงไหนสอบถามหน้าสำนักได้เลยขอรับเดี๋ยวว่าต่อ
จากคุณ : กระบี่ Delphi / SrisaketSoftware@hotmail.com [2014-10-26 14:05:32]

49.237.170.132 ความคิดเห็น #29144 (จาก IP: 49.237.170.132)
เมื่อท่านจอมยุทธทุกได้ทดสอบข้างต้นแล้ว เมื่อทุกท่านเข้าใจตรงกัน
ต่อไปนี้คือเด็ดวิชาของตำราเส้าหลิน

ออกแบบโครงสร้างโปรแกรมและฐานข้อมูล(EMS InterBase & FireBird)

ตัวอย่าง โปรแกรม
http://upload.siamza.com/file_upload/modify/261014/1553696.jpg
http://upload.siamza.com/file_upload/modify/261014/1553695.jpg

ปล.ถ้าท่านจอมยุทธท่านใดสนใจกรุณา comment ในกระทู้นี้
ข้าน้อยก็จะถ่ายทอดเค็ดวิชานี้ต่อไปเพื่อสานต่อเจตนารมณ์ของท่านขงเบ้ง

เกียรติยศย่อมเกิดจากการกระทำที่สุจริต
จากใจ..............................................เพลงกระบี่ Delphi
จากคุณ : เพลงกระบี่ Delphi / SrisaketSoftware@hotmail.com [2014-10-26 21:30:41]

58.11.85.101 ความคิดเห็น #29145 (จาก IP: 58.11.85.101)
ข้าว่าสำนัก Delphi ของท่านน่าจะมีคนสนใจวิชาน้อย
เนื่องจากเค้าไปเรียนกับสำนักใหญ่ .NET และสำนักเก่า Java กันซะมากกว่า

ข้าก็อยากรู้เหมือนกันว่ามีคนยังสนใจอยู่อีกไหม๊ ?
จากคุณ : maddog [2014-10-27 01:27:25]

180.183.109.72 ความคิดเห็น #29155 (จาก IP: 180.183.109.72)
สนใจมากครับ ไม่ทราบว่าสามารถใช้ เปิด/ปิดเสียงร้องได้ด้วยรึเปล่าครับ กำลังสนใจศึกษาครับ ขอบคุณมากครับ
จากคุณ : น้องโบ / bobolala [2014-11-10 15:46:54]

1.47.128.68 ความคิดเห็น #29215 (จาก IP: 1.47.128.68)
ชอบครับ ขอบคุณที่ถ่ายทอด วิทยายุทธ์ให้ครับ
จากคุณ : นกเป็ดน้ำ [2015-03-25 07:11:29]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

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

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