PureBasic

[sak2005]

ผมจึงได้ดำเนินการศึกษาค้นคว้าหาความรู้เพิ่มเติมกับภาษาคอมพ์อีกหลายๆภาษา
เพราะเล็งเห็นว่า เมื่อเรียนรู้และใช้งานเป็นแล้ว จะมีประโยชน์อย่างมาก กับการนำไปประยุกต์ใช้งาน
PureBasic ก็เป็นอีกภาษาหนึ่งที่โปรแกรมเมอร์มือใหม่ควรเรียนรู้ไว้ เพราะผมคิดว่าเป็นภาษาที่เราี่เรียนรู้ได้ไม่ยาก
มีโปรแกรมที่เป็น IDE ที่สามารถนำไปใช้งานร่วมกับ VB.Net ได้
Download: ที่ Windows ..คลิ๊กเพื่อดาวน์โหลดที่.. PureBasic-Demo.exe(x86-32bit)

http://www.purebasic.com/download.php

เมื่อดาวน์โหลดมาแล้วก็ให้ท่านทำการติดตั้งลงเครื่องให้เรียบร้อย ..ก็จะได้ purebasic Visual Editor ไว้ใช้งาน (ดังรูป)
----------------------------------------------------------------------------------------------------------------------------
Editor สำหรับเขียนโค๊ดคำสั่ง ..เขียนเสร็จให้ Save As เป็นไฟล์สกุล .pb

-----------------------------------------------------------------------------
Visual Designer สำหรับออกแบบโปรแกรม ..ออกแบบเสร็จให้ Save As เป็นไฟล์สกุล .pbv และอื่นๆซึ่งจะกล่าวในบทเรียนต่อไป

[sak2005]

รายละเอียดการใช้งานแบบย่อๆ ตามภาพที่แสดงเลยครับ ที่เหลือ.. ให้ท่านศึกษาเพิ่มเติมกันเอง

[sak2005]

PureBasic - Requester เป็นโค๊ดคำสั่งที่เกี่ยวกับ กล่องหรือกรอบข้อความต่างๆ ดังนี้

ColorRequester หมายถึง หน้าต่างเลือกใช้งานเกี่ยวกับสีต่างๆ
FontRequester หมายถึง หน้าต่างเลือกใช้งานเกี่ยวกับฟอนท์
InputRequester หมายถึง InputBox หรือช่องกรอกข้อความ
MessageRequester หมายถึง MessageBox หรือ กล่องข้อความ
NextSelectedFilename
OpenFileRequester หมายถึง หน้าต่างเลือกเปิดไฟล์ข้อมูลต่างๆ
PathRequester
SaveFileRequester หมายถึง หน้าต่างเลือกบันทึกไฟล์ข้อมูลต่างๆ
SelectedFilePattern
SelectedFontColor
SelectedFontName
SelectedFontSize
SelectedFontStyle

[sak2005]

MessageRequester
รูปแบบคำสั่ง:

Result = MessageRequester(Title$, Text$ [, Flags])

รายละเอียด:
Result หมายถึง ตัวแปร
MessageRequester หมายถึง คำสั่งเรียกกล่องข้อความขึ้นมา
Title$ หมายถึง ข้อความบนไตเติลบาร์
Text$ หมายถึง ข้อความในกรอบของกล่องข้อความ
Flags หมายถึง รูปแบบปุ่มต่างๆบนกล่องข้อความ ที่ต้องการใช้งาน มีให้เลือกใช้ ดังนี้
#PB_MessageRequester_YesNo หมายถึง ปุ่ม2ปุ่มบนกล่องข้อความ คือปุ่ม Yes และปุ่ม No
#PB_MessageRequester_YesNoCancel หมายถึง ปุ่ม3ปุ่มบนกล่องข้อความ คือปุ่ม Yes ปุ่ม No และปุ่ม Cancel
#PB_MessageRequester_Ok หมายถึง หมายถึง ปุ่ม Ok ปุ่มดียวบนกล่องข้อความ
-------------------------------------------------------------------------
ลองเขียนสคริ๊ปคำสั่ง MessageRequester แบบง่ายๆกันดูก่อนครับ

MessageRequester("", "Hello World!")

[sak2005]

ลองเขียน MessageRequester แบบมีเงื่อนไข Yes , No , Ok , Cancel กันดูบ้าง ..เรียนรู้กันแล้ว นำไปประยุกต์ใช้งานได้ไม่ยาก
มีตัวอย่างให้เขียนและทดสอบ 2-3 ตัวอย่าง ใช้ If Else Statement และ Slect Case Statement ดังนี้

Info$ = "คุณคลิ๊กปุ่ม.." ;ใช้นิพจน์ตัวแปร เพื่อย่อคำให้สั้นกระชับ
BtnCode = MessageRequester("Test Button Sample1", "กรุณาคลิ๊กปุ่มที่ต้องการทดสอบ", #PB_MessageRequester_YesNo)
If BtnCode = #PB_MessageRequester_Yes 
MessageRequester("", Info$ + "Yes")
Else
MessageRequester("", Info$ + "No")
EndIf
;----------------------------------
Info$ = "คุณคลิ๊กปุ่ม.." 
BtnCode = MessageRequester("Test Button Sample2", "กรุณาคลิ๊กปุ่มที่ต้องการทดสอบ", #PB_MessageRequester_YesNoCancel)
Select BtnCode
Case #PB_MessageRequester_Yes  
MessageRequester("", Info$ + "Yes")
Case #PB_MessageRequester_No 
MessageRequester("", Info$ + "No")
Case #PB_MessageRequester_Cancel 
MessageRequester("", Info$ + "Cancel")
EndSelect
MessageRequester("The End", "จบการทดสอบ")

-------------------------------------------
ความรู้เพิ่มเติมเกี่ยวกับ MessageRequester
Download: MsgProject Click here

[sak2005]

InputRequester
รูปแบบ:

Text$ = InputRequester(Title$, Message$, DefaultText$)

รายละเอียด:
Text$ หมายถึง ตัวแปรรีเทิร์น
InputRequester หมายถึง คำสั่งแสดง Inputbox
Title$ หมายถึง ข้อความบนไตเติลบาร์
Message$ หมายถึง ข้้อความบนกล่อง Inputbox
DefaultText$ หมายถึง ข้้อความที่ให้ปรากฏครั้งแรก ในช่องกรอกข้อความ
-----------------------------------------------------------
ตัวอย่าง:การประยุกต์ใช้งาน InputRequester เงื่อนไข ทายชื่อคุณ
์Name$ หมายถึง ตัวแปรรีเทิร์น
Message$ หมายถึง ตัวแปรนิพจน์

Name$ = InputRequester("Test InputBox Sample", "กรุณากรอกชื่อลงในช่อง", "")
If Name$ > ""
Message$ = "ท่านชื่อ.." 
Message$ + Name$                                               
Else  
Message$ = "คุณลืมกรอกชื่อ"
EndIf
MessageRequester("Information", Message$, 0)
End

[sak2005]

OpenFileRequester
รูปแบบ:

Filename$ = OpenFileRequester(Title$, DefaultFile$, Pattern$, PatternPosition [, Flags])

รายละเอียด:
Filename$ หมายถึง ตัวแปร
OpenFileRequester หมายถึง คำสั่งแสดงหน้าต่างเลือกไฟล์
Title$ หมายถึง ข้อความบนไตเติลบาร์
DefaultFile$ หมายถึง ข้อความที่ให้เกิดขึ้นในช่อง File name:
Pattern$ หมายถึง Option ของสกุลไฟล์ที่ระบุ เช่น *.exe *.txt เป็นต้น
PatternPosition หมายถึง เลือกลำดับของสกุลไฟล์ ให้ปรากฏเป็นอันดับแรก สำหรับการใช้งานที่มีหลายสกุลไฟล์
---------------------------------------------------------------------------------------------------
ตัวอย่าง:เปิดดูรายละเอียดเกี่ยวกับ ไฟล์และที่อยู่ของไฟล์

StandardFile$ = "" 
 Pattern$ = "Program files (*.exe;*.msi)|*.exe;*.msi|All files (*.*)|*.*"
 Pattern = 0    
 File$ = OpenFileRequester("Select a file to Open", StandardFile$, Pattern$, Pattern)
 If File$
 MessageRequester("Information", "Path file:" + File$, 0)
 EndIf

[sak2005]

ตัวอย่าง:การเขียนโค๊ด เพื่อสร้างโปรแกรม Auto Installer ..ไว้ใช้สำหรับติดตั้งโปรแกรมต่างๆ แบบอัตโนมัติ
Download:Project Click here

StandardFile$ = ""
  Pattern$ = "Program Files (*.exe;*.msi)|*.exe;*.msi|All files (*.*)|*.*"
  Pattern = 0  
  FileName$ = OpenFileRequester("Select file to Install", StandardFile$, Pattern$, Pattern)
  If FileName$
  BtnCode = MessageRequester("", "ท่านต้องการหาค่า Parameter ก่อนหรือไม่?", #PB_MessageRequester_YesNo)
  If BtnCode = #PB_MessageRequester_Yes   
  RunProgram("Tool\USSF.exe")
  ParaName$ = InputRequester("Silent Switches", "Parameter", "")
  If ParaName$
  RunProgram(FileName$,ParaName$, "", #PB_Program_Open|#PB_Program_Wait)
  MessageRequester("", "Completed")
  EndIf
  EndIf
  If BtnCode = #PB_MessageRequester_No
  ParaName$ = InputRequester("Silent Switches", "Parameter", "")
  If ParaName$
  RunProgram(FileName$,ParaName$, "", #PB_Program_Open|#PB_Program_Wait)
  MessageRequester("", "Completed")   
  EndIf
   EndIf
   EndIf
     End

[sak2005]

คราวหน้ามาลองสร้างโปรแกรม Auto Installer Advance ด้วย Visual Designer
ตอนนี้ลงแค่ภาพในส่วนของ Option ของ PureBasic ที่จะใช้งานร่วมกับ Visual Designer มาให้ดูก่อนครับ






--------------------------------------------------------------
การใช้งานโปรแกรม Visual Designer ผมจะเก็บไว้สอนตอนท้ายๆ เพราะยังสคริ๊ปคำสั่งอื่นๆที่ต้องเรียนรู้กันอีก

[sak2005]

คำสั่ง: สร้างโฟลเดอร์ใหม่
รูปแบบ:

Result = CreateDirectory(DirectoryName$)

--------------------------------------------------------------
กรณีย์นี้สั่งสร้างโฟลเดอร์ใหม่ชื่อ NewFolder และวางไว้บนเดสก์ทอป

DirectoryName$ = "C:\Documents and Settings\Administrator\Desktop\NewFolder"
Result = CreateDirectory(DirectoryName$)
If Result
MessageRequester("", "สร้าง Folder เรียบร้อย", 0+64)
Else
MessageRequester("", "Error!..มีFolderชื่อนี้อยู่แล้ว", 0+48)
EndIf

[sak2005]

คำสั่ง: ก๊อบปี้โฟลเดอร์
รูปแบบ:

Result = CopyDirectory(SourceDirectory$, DestinationDirectory$, Pattern$ [, Mode])

-----------------------------------------------------------------------------------------------------
กรณีย์นี้สั่งก๊อบปี้โฟลเดอร์ชื่อ NewFolder ที่สร้างไว้บนเดสก์ทอป ก๊อบปี้แล้วนำไปวางไว้ใน My Documents

SourceDirectory$ = "C:\Documents and Settings\Administrator\Desktop\NewFolder"
DestinationDirectory$ = "C:\Documents And Settings\Administrator\My Documents\NewFolder"
Pattern$ = ""
Result = CopyDirectory(SourceDirectory$, DestinationDirectory$, Pattern$, #PB_FileSystem_Recursive)
If Result
MessageRequester("", "ก๊อบปี้ Folder เรียบร้อย", 0+64)
Else
MessageRequester("", "Error!..ไม่มีFolderให้ก๊อบปี้", 0)
EndIf

[sak2005]

คำสั่ง: ลบโฟลเดอร์
รูปแบบ:

Result = DeleteDirectory(Directory$, Pattern$ [, Mode])

--------------------------------------------------------------------------
กรณีย์นี้สั่งลบโฟลเดอร์ชื่อ NewFolder ที่อยู่ใน My Documents

Directory$ = "C:\Documents And Settings\Administrator\My Documents\NewFolder"
Pattern$ = ""
Result = DeleteDirectory(Directory$, Pattern$, #PB_FileSystem_Recursive)
If Result
MessageRequester("", "ลบ Folder เรียบร้อย", 0)
Else
MessageRequester("", "Error!..ไม่มี Folder ชื่อนี้ให้ลบ", 0+48)
EndIf

[sak2005]

คำสั่ง: สร้างไฟล์
รูปแบบ:

Result = CreateFile(#File, Filename$)

------------------------------------------------
กรณีย์นี้สั่งสร้างไฟล์ ชื่อ NewFile.txt สร้างแล้ววางไว้บนเดสก์ทอป

Filename$ = "C:\Documents And Settings\Administrator\Desktop\NewFile.txt"
Result = CreateFile(0, Filename$)
If Result
MessageRequester("", "สร้างไฟล์เรียบร้อย")
EndIf

[sak2005]

คำสั่ง: ลบไฟล์
รูปแบบ:

Result = DeleteFile(Filename$)

------------------------------------------
กรณีย์นี้สั่งลบไฟล์ ชื่อ NewFile.txt ที่อยู่บนเดสก์ทอป

Filename$ = "C:\Documents And Settings\Administrator\Desktop\NewFile.txt"
Result =  DeleteFile(Filename$)
If Result
MessageRequester("", "ลบไฟล์เรียบร้อย")
Else
MessageRequester("Error!", "ไม่มีไฟล์ชื่อนี้ให้ลบ", 48)
EndIf

[sak2005]

คำสั่ง: ก๊อบปี้ไฟล์
รูปแบบ:

Result = CopyFile(SourceFilename$, DestinationFilename$)

----------------------------------------------------------------------
กรณีย์นี้สั่งสร้างไฟล์ ชื่อ MyFile.txt ขึ้นมาไว้บนหน้าจอ จากนั้นก็ก๊อบปี้ไฟล์นี้ วางไว้ใน My Documents

Filename$ = ("C:\Documents And Settings\Administrator\Desktop\MyFile.txt")
Result1 = CreateFile(0, Filename$)
If Result1
Delay(500)
SourceFilename$ = ("C:\Documents And Settings\Administrator\Desktop\MyFile.txt")
DestinationFilename$ = ("C:\Documents and Settings\Administrator\My Documents\MyFile.txt")
Result2 = CopyFile(SourceFilename$, DestinationFilename$)
If Result2
MessageRequester("", "ก๊อบปี้เรียบร้อย", 64)
Else
MessageRequester("Error!", "เกิดข้อผิดพลาด", 48)
EndIf
Else
MessageRequester("Error!", "เกิดข้อผิดพลาด", 48)
EndIf