Home Webboard ArticlesKnowledges  

ผู้เขียน หัวข้อ: PureBasic  (อ่าน 12121 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
PureBasic
« เมื่อ: 19, พฤศจิกายน 2009, 11:28:18 AM »
ผมจึงได้ดำเนินการศึกษาค้นคว้าหาความรู้เพิ่มเติมกับภาษาคอมพ์อีกหลายๆภาษา
เพราะเล็งเห็นว่า เมื่อเรียนรู้และใช้งานเป็นแล้ว จะมีประโยชน์อย่างมาก กับการนำไปประยุกต์ใช้งาน
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 และอื่นๆซึ่งจะกล่าวในบทเรียนต่อไป


« แก้ไขครั้งสุดท้าย: 20, พฤศจิกายน 2009, 09:40:52 AM โดย sak2005 »


คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #1 เมื่อ: 21, พฤศจิกายน 2009, 11:20:16 PM »
รายละเอียดการใช้งานแบบย่อๆ ตามภาพที่แสดงเลยครับ ที่เหลือ.. ให้ท่านศึกษาเพิ่มเติมกันเอง
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #2 เมื่อ: 21, พฤศจิกายน 2009, 11:22:20 PM »
PureBasic - Requester เป็นโค๊ดคำสั่งที่เกี่ยวกับ กล่องหรือกรอบข้อความต่างๆ ดังนี้

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

คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #3 เมื่อ: 21, พฤศจิกายน 2009, 11:27:03 PM »
MessageRequester
รูปแบบคำสั่ง:
โค๊ด: [Select]
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 แบบง่ายๆกันดูก่อนครับ

โค๊ด: [Select]
MessageRequester("", "Hello World!")
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #4 เมื่อ: 22, พฤศจิกายน 2009, 08:13:01 PM »
ลองเขียน MessageRequester แบบมีเงื่อนไข Yes , No , Ok , Cancel กันดูบ้าง ..เรียนรู้กันแล้ว นำไปประยุกต์ใช้งานได้ไม่ยาก
มีตัวอย่างให้เขียนและทดสอบ 2-3 ตัวอย่าง ใช้ If Else Statement และ Slect Case Statement ดังนี้

โค๊ด: [Select]
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
« แก้ไขครั้งสุดท้าย: 23, พฤศจิกายน 2009, 10:52:16 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #5 เมื่อ: 22, พฤศจิกายน 2009, 10:15:08 PM »
InputRequester
รูปแบบ:

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

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

คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #6 เมื่อ: 23, พฤศจิกายน 2009, 12:16:09 AM »
OpenFileRequester
รูปแบบ:

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

โค๊ด: [Select]
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

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #7 เมื่อ: 23, พฤศจิกายน 2009, 12:16:47 AM »
ตัวอย่าง:การเขียนโค๊ด เพื่อสร้างโปรแกรม Auto Installer ..ไว้ใช้สำหรับติดตั้งโปรแกรมต่างๆ แบบอัตโนมัติ
Download:Project Click here

โค๊ด: [Select]
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

                                           
« แก้ไขครั้งสุดท้าย: 24, พฤศจิกายน 2009, 02:45:55 PM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #8 เมื่อ: 24, พฤศจิกายน 2009, 03:41:49 PM »
คราวหน้ามาลองสร้างโปรแกรม Auto Installer Advance ด้วย Visual Designer
ตอนนี้ลงแค่ภาพในส่วนของ Option ของ PureBasic ที่จะใช้งานร่วมกับ Visual Designer มาให้ดูก่อนครับ






----------------------------------------------------------------------------
การใช้งานโปรแกรม Visual Designer ผมจะเก็บไว้สอนตอนท้ายๆ เพราะยังสคริ๊ปคำสั่งอื่นๆที่ต้องเรียนรู้กันอีก
« แก้ไขครั้งสุดท้าย: 26, พฤศจิกายน 2009, 08:44:53 AM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #9 เมื่อ: 26, พฤศจิกายน 2009, 08:45:37 AM »
คำสั่ง: สร้างโฟลเดอร์ใหม่
รูปแบบ:
โค๊ด: [Select]
Result = CreateDirectory(DirectoryName$)--------------------------------------------------------------
กรณีย์นี้สั่งสร้างโฟลเดอร์ใหม่ชื่อ NewFolder และวางไว้บนเดสก์ทอป

โค๊ด: [Select]
DirectoryName$ = "C:\Documents and Settings\Administrator\Desktop\NewFolder"
Result = CreateDirectory(DirectoryName$)
If Result
MessageRequester("", "สร้าง Folder เรียบร้อย", 0)
Else
MessageRequester("", "Error!..มี Folder ชื่อนี้อยู่แล้ว", 0)
EndIf
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #10 เมื่อ: 26, พฤศจิกายน 2009, 08:46:23 AM »
คำสั่ง: ก๊อบปี้โฟลเดอร์
รูปแบบ:
โค๊ด: [Select]
Result = CopyDirectory(SourceDirectory$, DestinationDirectory$, Pattern$ [, Mode])-----------------------------------------------------------------------------------------------------
กรณีย์นี้สั่งก๊อบปี้โฟลเดอร์ชื่อ NewFolder ที่สร้างไว้บนเดสก์ทอป ก๊อบปี้แล้วนำไปวางไว้ใน My Documents

โค๊ด: [Select]
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)
Else
MessageRequester("", "Error!..ไม่มี Folderให้ก๊อบปี้", 0)
EndIf
« แก้ไขครั้งสุดท้าย: 26, พฤศจิกายน 2009, 08:54:25 AM โดย sak2005 »
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #11 เมื่อ: 26, พฤศจิกายน 2009, 08:47:05 AM »
คำสั่ง: ลบโฟลเดอร์
รูปแบบ:
โค๊ด: [Select]
Result = DeleteDirectory(Directory$, Pattern$ [, Mode])--------------------------------------------------------------------------
กรณีย์นี้สั่งลบโฟลเดอร์ชื่อ NewFolder ที่อยู่ใน My Documents

โค๊ด: [Select]
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)
EndIf
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #12 เมื่อ: 11, ธันวาคม 2009, 09:09:01 AM »
คำสั่ง: สร้างไฟล์
รูปแบบ:
โค๊ด: [Select]
Result = CreateFile(#File, Filename$)------------------------------------------------
กรณีย์นี้สั่งสร้างไฟล์ ชื่อ NewFile.txt  สร้างแล้ววางไว้บนเดสก์ทอป

โค๊ด: [Select]
Filename$ = "C:\Documents And Settings\Administrator\Desktop\NewFile.txt"
Result = CreateFile(0, Filename$)
If Result
MessageRequester("", "สร้างไฟล์เรียบร้อย")
EndIf
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #13 เมื่อ: 11, ธันวาคม 2009, 09:11:50 AM »
คำสั่ง: ลบไฟล์
รูปแบบ:
โค๊ด: [Select]
Result = DeleteFile(Filename$)------------------------------------------
กรณีย์นี้สั่งลบไฟล์ ชื่อ NewFile.txt ที่อยู่บนเดสก์ทอป

โค๊ด: [Select]
Filename$ = "C:\Documents And Settings\Administrator\Desktop\NewFile.txt"
Result =  DeleteFile(Filename$)
If Result
MessageRequester("", "ลบไฟล์เรียบร้อย")
Else
MessageRequester("Error!", "ไม่มีไฟล์ชื่อนี้ให้ลบ", 48)
EndIf
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

ออฟไลน์ sak2005

  • You Are Just Member
  • ******
  • กระทู้: 683
  • เห็นด้วย&ขอบคุณ: 79
  • เพศ: ชาย
  • The Matrix by Neo
Re: PureBasic
« ตอบกลับ #14 เมื่อ: 11, ธันวาคม 2009, 09:48:54 AM »
คำสั่ง: ก๊อบปี้ไฟล์
รูปแบบ:
โค๊ด: [Select]
Result = CopyFile(SourceFilename$, DestinationFilename$)----------------------------------------------------------------------
กรณีย์นี้สั่งสร้างไฟล์ ชื่อ MyFile.txt ขึ้นมาไว้บนหน้าจอ จากนั้นก็ก๊อบปี้ไฟล์นี้ วางไว้ใน My Documents

โค๊ด: [Select]
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
คำคม: หาความชอบ ความสามารถ ในตนเองให้เจอ แล้วลงมีอทำ ก็จะประสบความสำเร็จ.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 
Back to top