การใช้งานโปรแกรม Auto Play Media Studio เบื้องต้น (ภาค1,2)

[sak2005]

คำสั่ง:ลบโฟลเดอร์
รูปแบบ: Folder.Delete ( string Folder )
-------------------------------------------------------------
กรณีย์นี้สั่งลบโฟลเดอร์ที่่อยู่บนเดสก์ทอป ชื่อ NewFolder

Folder.Delete(_DesktopFolder.."\\NewFolder");

----------------------------------------------------------
Bonus: เป็นอะไร?!?นั้น ดูจากรูปเลยครับ สร้างจากโปรแกรม AMS นี่แหละ
เป็นความรู้คอมพ์ขั้นสูง เอาไว้วันหลังจะถ่ายทอดวิทยายุทธให้
Size: 2.1 MB
Click to Download

[sak2005]

ความรู้เกี่ยวกับ Callback Function
ใน Action Script Wizard มีคำสั่งที่เกี่ยวเนื่องกับการใช้งาน Action ของคำสั่ง StatusDlg หรือ Auto Progress
เป็นแถบแสดงความคืบหน้าของการทำงานในสถานะต่าง เช่น ก๊อบปี้ไฟล์ , นับไฟล์ , ค้นหาไฟล์ , ลบไฟล์ เป็นต้น
การเขียนคำสั่ง Callback มีอยู่2แบบ คือ
1.แบบที่โปรแกรมทำFunctionไว้ให้แล้ว โดยอาศัยคำสั่ง nil
2.แบบที่เราต้องเขียน Script Function ขึ้นมาเอง ให้เหมาะกับงานที่ใช้ เพราะแต่ละProjectที่สร้างขึ้น อาจใช้ Callback ไม่เหมือนกัน

[sak2005]

ตัวอย่างCallbackแบบแรกเกี่ยวกับการบีบอัดไฟล์(Zip)
รูปแบบคำสั่งAction Script สำหรับซิ๊ปไฟล์

Zip.Add (string ZipFile,
table Files,
boolean IncludeFolderNames = true,
string Password = "",
number CompFactor = 5,
function CallbackFunction = nil,
boolean Recurse = false )
--------------------------------------------------------------

archive_files = Dialog.FileBrowse(false, "Files to Add", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false);
if (archive_files[1] ~= "CANCEL") and (archive_files ~= nil) then
StatusDlg.Show();
Zip.Add(_DesktopFolder.."\\NewArchive.zip", archive_files, true, "", 5, nil, false);
error = Application.GetLastError();
StatusDlg.Hide();
if (error == 0) then
Dialog.Message("Success", "The files were successfully archived.", MB_OK, MB_ICONINFORMATION);
File.ExploreFolder(_DesktopFolder, SW_SHOWNORMAL);
else
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
end
end

---------------------------------------------------------------------------------
-:อธิบายความหมายของคำสั่งต่างๆที่ประกอบกันเป็นCallback:-

archive_files = Dialog.FileBrowse(false, "Files to Add", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false);
คำสั่งที่ให้เข้าไปเลือกไฟล์ต่างๆที่จะบีบอัด
-------------------------------
StatusDlg.Show();
คำสั่งโชว์ ProgressBar Dialog หรือหน้าต่าง ProgressBar
-------------------------------------------------
Zip.Add(_DesktopFolder.."\\NewArchive.zip", archive_files, true, "", 5, nil, false);
รายละเอียดในคำสั่งซิ๊ปไฟล์:
_DesktopFolder.. หมายถึง ที่อยู่หรือที่เก็บไฟล์ที่ถูกบีบอัด คือ เก็บไว้ที่หน้าจอ
"\\NewArchive.zip" หมายถึง ชื่อของไฟล์บีบอัด ที่เราตั้งชื่อขึ้น
archive_files หมายถึง ไฟล์รีเทิร์น หรือ ไฟล์ต่างๆที่เลือกบีบอัด
nil หมายถึง คำสั่งที่ทำให้เกิดขบวนการแสดงผลความคืบหน้าอัตโนมัติของ ProgressBar Dialog
---------------------------------------------------------------
StatusDlg.Hide();
คำสั่งปิด ProgressBar Dialog เมื่อเสร็จสิ้นการบีบอัดไฟล์
_____________________________________________________



Download:Sample ZipFiles Project
FileSize:1.7 MB
http://upload.one2car.com/download.aspx?pku=2C8784D347HIWRK9M2Z7OK6GFTMBWS

[sak2005]

ทำป้ายแสดง วัน เดือน ปี และ เวลา อย่างง่าย
สร้าง Form และใส่ Label ลงไปบน Form ดังรูปเลยครับ ปรับขนาดตัวอักษรเล็กใหญ่ตามชอบ
ให้เข้าไปปรับแต่งรายละเอียดใน Project นิดหน่อย ..คลิ๊กที่เมนู Project เลือก Settings...
ปรับขนาดของ Form ให้ขนาดที่เหมาะสม ..ที่ Width: ปรับเป็น 250 ..ที่ Height: ปรับเป็น 100
Style คลิ๊กเลือก Brodered เพื่อตัด TitleBar ของ Form ออกไป
ใส่ Label ตัวอักษร x สีแดง ไว้ที่มุมบนขวาของ Form ด้วย ไว้ใช้สำหรับปิดโปรแกรม เมื่อไม่อยากใช้งาน


--------------------------------------------------------------------------------
ต่อไปก็เขียน Script Action ลงไปบน Event Form ดังนี้
ที่ On Show ใช้คำสั่ง

Page.StartTimer(10);

---------------------------------------------------------
ที่ On Timer ใช้คำสั่ง System และ Label ดังนี้

date = System.GetDate(DATE_FMT_EUROPE);
Label.SetText("Label1", date);

time = System.GetTime(TIME_FMT_MIL);
Label.SetText("Label2", time);

-----------------------------------------------------
ที่ Label หรือปุ่มปิดโปรแกรม เขียนคำสั่งลงไปดังนี้

Window.Close(Application.GetWndHandle(), CLOSEWND_SENDMESSAGE);

--------------------------------------------------------
ถ้าเขียนคำสั่งไม่ผิดพลาด เมื่อรันทดสอบ ก็จะได้ดังรูป


----------------------------------------------
Download:Size3.3 MB

----------------------------------------------
อันนี้เป็นการแปลง วัน เดือน ปี และสัปดาห์ จากฝรั่ง เป็นไทย ลองศึกษาและหัดเขียนโค๊ดตัวอย่างด้านล่างดูครับ

stime = System.GetTime(TIME_FMT_MIL);
Label.SetText("Label9", stime);

sweek = System.GetDate(DATE_FMT_DAYOFWEEK);
if (sweek == "1") then
Label.SetText("Label5", "ÍÒ·ÔµÂì");
elseif (sweek == "2") then
Label.SetText("Label5", "¨Ñ¹·Ãì");
elseif (sweek == "3") then
Label.SetText("Label5", "Íѧ¤ÒÃ");
elseif (sweek == "4") then
Label.SetText("Label5", "¾Ø¸");
elseif (sweek == "5") then
Label.SetText("Label5", "¾ÄËÑÊ");
elseif (sweek == "6") then
Label.SetText("Label5", "ÈØ¡Ãì");
elseif (sweek == "7") then
Label.SetText("Label5", "àÊÒÃì");
end

sday = System.GetDate(DATE_FMT_DAY);
Label.SetText("Label6", sday);

smonth = System.GetDate(DATE_FMT_MONTH);
if (smonth == "01") then
Label.SetText("Label7", "Á¡ÃÒ¤Á");
elseif (smonth == "02") then
Label.SetText("Label7", "¡ØÁÀҾѹ¸ì");
elseif (smonth == "03") then
Label.SetText("Label7", "ÁÕ¹Ò¤Á");
elseif (smonth == "04") then
Label.SetText("Label7", "àÁÉÒ¹");
elseif (smonth == "05") then
Label.SetText("Label7", "¾ÄÉÀÒ¤Á");
elseif (smonth == "06") then
Label.SetText("Label7", "ÁԶعÒ¹");
elseif (smonth == "07") then
Label.SetText("Label7", "¡Ã¡¯Ò¤Á");
elseif (smonth == "08") then
Label.SetText("Label7", "ÊÔ§ËÒ¤Á");
elseif (smonth == "09") then
Label.SetText("Label7", "¡Ñ¹ÂÒ¹");
elseif (smonth == "10") then
Label.SetText("Label7", "µØÅÒ¤Á");
elseif (smonth == "11") then
Label.SetText("Label7", "¾ÄȨԡÒ¹");
elseif (smonth == "12") then
Label.SetText("Label7", "¸Ñ¹ÇÒ¤Á");
end

syear = System.GetDate(DATE_FMT_YEAR);
if (syear == "2010") then
Label.SetText("Label8", "2553");
elseif (syear == "2011") then
Label.SetText("Label8", "2554");
elseif (syear == "2012") then
Label.SetText("Label8", "2555");
elseif (syear == "2013") then
Label.SetText("Label8", "2556");
elseif (syear == "2014") then
Label.SetText("Label8", "2557");
end

Download:Sample My Project Clock /Size:356 KB/Click here
------------------------------------------------------------------------------
อันนี้เป็นนาฬิกาอีกรูปแบบหนึ่ง ใช้ Progressbar แสดงผล
Source download: Click here

[sak2005]

การใช้งาน Plug in Timer
การที่จะใช้ประโยชน์ในโปรแกรม AMS ให้ได้อย่างกว้างขวาง ท่านต้องหา plug in มาใช้เพิ่มเติม
plug in มีอยู่ 2 อย่างคือ plug in ในส่วนของ Action Script และในส่วนของ Object
ต้องใช้งานให้ถูกส่วน สลับกันไม่ได้
ก่อนการใช้งานคำสั่ง Timer ท่านต้องติดตั้ง และเรียกใช้งาน plug in ก่อน
Download: Timer Plug in Click here
---------------------------------------------------------
เมื่อติดตั้งกันแล้วก็เรียกใช้งาน Timer plug in ..คลิ๊กที่เมนู Project เลือก Plugins...
ใส่เครื่องหมายถูกที่ Timer คลิ๊ก OK ..เพียงเท่านี้ ใน Action Script ก็จะมีคำสั่ง Timer เพิ่มมาให้ใช้งาน


-------------------------------------------------------------------

เราเรียนรู้การใช้งาน Page Timer กันไปแล้ว ซึ่งสามารถทำให้นาฬิกาเดินได้ ทีนี้เรามาใช้ คำสั่ง Timer เพื่อทำให้นาฬิกาเดินได้กันบ้าง
ใช้ Form เดิมที่สร้างไว้ก็ได้ครับ โดยเปลี่ยนคำสั่งใหม่ ..ที่ Event Form เขียนคำสั่งลงไปดังนี้
คลิ๊กที่ On Show แล้วเขียนคำสั่ง Function Timer ตามด้านล่างเลยครับ

function AMSWTimer_Callback()
time = System.GetTime(TIME_FMT_MIL);
Label.SetText("Label1", time);	
end
Timer.Start(0, 10, "AMSWTimer_Callback");

-----------------------------------------------------------------
มาดูอีกซักตัวอย่างนึง ใช้ Timer กับ ProgressBar ..สร้าง Form และ Progressbar ตามรูปเลยครับ
Form ขนาด 250x20 ProgressBar ขนาดเท่ากับ Form และเปลี่ยน Style ของ Form เป็น Bordered
ไปที่ Event Form ..คลิ๊กที่ On Show ..เขียนคำสั่งลงไปดังนี้ ..เสร็จแล้วกด F5 เพื่อทดสอบ

x =0;
function AMSWTimer_Callback()
x = x + 1
Progress.SetCurrentPos("Progress1", x);
Progress.SetText("Progress1", x.."%");
end
Timer.Start(0, 100, "AMSWTimer_Callback");
Application.Sleep(11000);
Timer.Stop(0);
Application.Sleep(500);
Window.Close(Application.GetWndHandle(), CLOSEWND_SENDMESSAGE);

[sak2005]

ออกแบบโดยการแยกเวลาให้ทำงานโดยอิสระ
สร้าง Form ขนาด 300x80 ..สร้าง Label ขึ้นมา 5 Label เปลี่ยนสีและปรับขนาดตัวอักษรตามชอบ
Label1 ใช้แสดง HOUR
Label2 ใช้แสดง MIN
Label3 ใช้แสดง SEC
Label4 ใช้แสดง x ปิดโปรแกรม
Label5 ใช้แสดงชื่อ DIGITAL CLOCK
ไปที่ Event Form OnShow เขียนคำสั่งลงไปดังนี้

function AMSWTimer_Callback()
Thour = System.GetTime(TIME_FMT_HOUR);
Label.SetText("Label1", Thour..":hour");

Tmin = System.GetTime(TIME_FMT_MIN);
Label.SetText("Label2", Tmin..":min");

Tsec = System.GetTime(TIME_FMT_SEC);
Label.SetText("Label3", Tsec..":sec");

end
Timer.Start(0, 10, "AMSWTimer_Callback");

--------------------------------------------------------------
อันนี้เป็นแบบบอกช่วงเวลา ครึ่งวันเช้า ครึ่งวันบ่าย หรือ AM PM

function AMSWTimer_Callback()
Tapm = System.GetTime(TIME_FMT_AMPM);
Label.SetText("Label1", Tapm);
end
Timer.Start(0, 10, "AMSWTimer_Callback");

----------------------------------------------------
Tip หาดาวน์โหลดรูปภาพ,กรอบรูปสวยๆมา หรือรูปของท่านก็ได้ ..เปลี่ยนรูปภาพของท่านให้เป็น background ของ Form
ใส่ Labet และเขียนคำสั่งลงไป เพียงเท่านี้ ท่านก็ได้ผลงานที่ประทับใจไว้ใช้งานแล้ว

---------------------------------------------------------------
บางครั้งเล่นเน็ตเพลินจนลืมเวลาไปทำอย่างอื่น ก็เลยคิดประดิษฐ์โปรแกรมนี้ขึ้นมาช่วย (ดูภาพ)
ลองใช้ดูครับ ไม้รู้ว่าจะช่วยได้แค่ไหน?!?



Download: Url Digital Clock Project
FileSize:1.9 MB : คลิ๊กที่นี่

[sak2005]

ท่านที่ชอบดูหนังฟังเพลง อยากออกแบบสร้างโปรแกรมไว้ใช้สำหรับงานนี้โดยเฉพาะ เราก็มีให้ได้เรียนรู้กัน
เรียนรู้เกี่ยวกับการใช้งาน Plugins ที่ดาวน์โหลดมากันไปแล้ว ทีนี้มาเรียนรู้เกี่ยวกับ Plugins ที่โปรแกรมมีมาให้กันบ้าง
นั่นก็คือ Media Player ..มาลองสร้างโปรแกรม ดูหนัง ฟังเพลง สไตล์ส่วนตัวกันดูครับ
--------------------------------------------------------------------
สร้างForm ขึ้นมา ..คลิ๊กที่เมนู Project ..เลือก Settings... ปรับForm ให้มีขนาด 400x340
เปลี่ยนStyle เป็น Bordered ..คลิ๊ก OK
คลิ๊กที่เมนู Object ..เลื่อนลงมาที่ Plugins และเลือกคลิ๊กที่ MediaPlayer ..คลิ๊กOK
ใสฺ่ี Button ลงบนForm และปรับแต่งให้ได้ตามรูป
(พื้นที่ว่างบนForm ที่เหลือ ใครจะใช้ประโยชน์ โดยการใส่วันที่,นาฬิกา ลงไปด้วยก็ได้นะครับ)

[sak2005]

ต่อไปเขียนคำสั่งลงบนปุ่ม Load ไฟล์ ดังนี้
(ปุ่ม Load คือปุ่มที่ให้เข้าไปเลือกเพลงที่จะเปิด ..จะเปิดจากแผ่นCD โดยตรงหรือจากเพลงที่เก็บไว้ในคอมพิวเตอร์ก็ได้)
-----------------------------------------------------------------------

MediaFile = Dialog.FileBrowse(true, "Open File", _DesktopFolder, "Media Files (*.dat;*.mpg;*.mpeg;*.avi;*.cda;*.mp3)|*.dat;*.mpg;*.mpeg;*.avi;*.cda;*.mp3|All Files (*.*)|*.*", "", "", false, true);
if (MediaFile[1] ~= "CANCEL") then
MediaPlayer.Load("Plugin1", MediaFile[1]);
end

--------------------------------------------------------------------------------

[sak2005]

-------------------------------------------------------------
อันนี้เป็นการออกแบบโดยใช้ Template




---------------------------------------------------------
ดาวน์โหลด:ของขวัญปีใหม่ ขนาด 3.5 เม็ก คลิ๊กที่นี่
พาสเวิร์ด: sak2005

[sak2005]

ทำ Animation Windows หรือสร้างเอฟเฟคต่างๆให้กับโปรแกรมที่สร้างจาก AutoPlay media Studio
ด้วย Plugins Winapi ..สร้าง Project สไตล์ที่ไม่เหมือนใคร
---------------------------------------------------------------------------------------------------------------------------------
ตัวอย่างแรก: เรียกว่าการทำ FADEIN และ FADEOUT หมายถึง การทำให้หน้าต่างโปรแกรมที่สร้าง
ค่อยๆผุดขึ้นมาตอนเริ่มต้น และค่อยๆเลือนหายไปตอนปิดหน้าต่างโปรแกรม
ลองดาวน์โหลด Project ไปศึกษาเกี่ยวกับ Event ต่างๆกันดูครับ และยังเอฟเฟคอื่นอีกมากมาย
-----------------------------------------------------------------------------
Download: Winapi Plugins and Sample Project | Size:1.4 MB |Click here
-----------------------------------------------------------------------------
ก่อนอื่นเมื่อท่านได้ plugins มาแล้วก็ทำการติดตั้งให้เรียบร้อย และเรียก plugins ขึ้นมาใช้งาน (ดูรูป)
โดยคลิ๊กที่เมนู project เลือก Plugins