Tuesday, May 25, 2010

Example scripting Gambas2

1) สร้างไฟล์เปล่าๆ ขึ้นมานำโค้ดตามนี้ไปวางในไฟล์นั้น และบันทึกไฟล์ซะ

 
#!/usr/bin/env gbs2

' This script returns the memory really used by the system, the cache and swap being excluded.

FUNCTION GetUsedMemory() AS Integer

DIM sRes AS String
DIM aRes AS String[]
DIM cVal AS NEW Collection
DIM sVal AS String

EXEC ["cat", "/proc/meminfo"] TO sRes

FOR EACH sVal IN Split(sRes, "\n", "", TRUE)
aRes = Split(sVal, " ", "", TRUE)
cVal[Left$(aRes[0], -1)] = CInt(aRes[1])
NEXT

RETURN cVal!MemTotal - cVal!MemFree - cVal!Buffers - cVal!Cached + cVal!SwapTotal - cVal!SwapFree - cVal!SwapCached

END

PRINT Subst("Used memory: &1 Kb", GetUsedMemory())


2) ติดตั้ง gbs2 ซะก่อน
sudo apt-get install gambas2-script
3) รันสคริปด้วยคำสั่ง (ในที่นี้ตั้งชื่อไฟล์ script เป็น myscript)
gbs2 myscript
4) จบครับพี่น้องสำหรับ ตัวอย่าง script gambas2

อ้างอิง
  • http://gambasdoc.org/help/doc/release?view
  • http://gambasdoc.org/help/lang
  • http://forum.ubuntuclub.com/forum/topic,13212.120.html

No comments:

Post a Comment