Hello world กับ Pascal Script

[manoi]

เพิ่งจะมีเวลาว่างครับ ก็เลยมานั่งเขียน ตัวอย่างการเขียนโปรแกรมด้วย Pascal Script ที่อยู่ใน HOSxP ดัดแปลงมาจากที่นี่ครับ http://www.delphibasics.co.uk/Article.asp?Name=FirstPgm

เป็น Script ที่มีปุ่มให้ผู้ใช้กดและจะแสดงข้อความ Hello World ครับ
ตัว Pascal Script Interpreter ที่มากับ HOSxP จะเรียกใช้ Procedure Main ใน Script ครับ ดังนั้นทุก Script จึงต้องมี Procedure Main ครับ

โค๊ด: Delphi

1. // comment hello world script for hosxp
2. // ชื่อ Unit จะตั้งเป็นอะไรก็ได้ ลงท้ายด้วยเครื่องหมาย เซมิโคล่อน
3. Unit Script;  
4.  
5. // การประกาศตัวแปร ใช้คำว่า var  ตัวอย่างด้านล่างเป็นการประกาศตัวแปรชนิด TButton ,TLabel และ TForm โดยใช้ชื่อว่า Button1, Label1 และ Form1
6. var
7.   Button1 : TButton;
8.   Label1 : TLabel;
9.   Form1 : TForm;
10.  
11. Implementation
12.  
13. // กำหนด Procedure ชื่อ Button1Click สำหรับทำงานเมื่อมีการกดปุ่ม Button1
14.  
15. Procedure Button1Click(Sender : TObject);
16. begin
17.   Label1.caption := 'Hello World';
18. end;
19.  
20. Procedure Main;
21.  
22. begin
23.  
24.   Form1 := TForm.create(nil);
25.   Form1.Top := 100;
26.   Form1.Left := 200;
27.   Form1.Width := 400;
28.   Form1.Height := 400;
29.  
30.   Button1 := TButton.create(Form1);
31.   Button1.parent := Form1;
32.   Button1.left:=100;
33.   Button1.top:=50;
34.   Button1.caption:='Click me';
35.   Button1.OnClick := Button1Click;  // กำหนด Event เมื่อผู้ใช้เมาส์คลิกปุ่ม จะเรียกใช้งาน Procedure Button1Click ด้านบน
36.  
37.   Label1 := TLabel.create(Form1);
38.   Label1.parent := Form1;
39.   Label1.top:=55;
40.   Label1.left:=200;
41.   Label1.caption:='---';
42.  
43.   Form1.ShowModal;  // แสดง Form1 แบบ Modal Form
44.  
45.   Form1.Free;
46. end;
47. end.
48.  
49.  
50.  
51.  

[naj]

 :Dขอบคุณครับ กำลังมองหาวิธีการเขียน pascal ที่ต้องการอยู่พอดีจะได้ลองไปปรับใช้ดูครับ

[ทานน้ำ]

มีตัวอย่าง ue ที่ link กันข้ามฟอร์มมั้ยคะ

[doramon]

ขอบคุณมากครับ

กำลังหาวิธีใช้ กับ UE อยู่ ครับ