สวัสดีทุกๆ ท่านที่เข้าชมเว็บนี้ครับ
Rapid-Q ช่วยท่านเขียนโปรแกรม
หากท่านเคยเขียนโปรแกรมด้วยเวอชวลปาสคาลหรือเทอร์โบปาสคาล ลฯล
ทุกท่านคงทราบถึงความยุ่งยากของการติดต่อกับจอภาพ ให้ดูเรียบร้อยเป็นระเบียบ
ตัวอย่างเช่น ปัญหาเกี่ยวกับการแสดงภาษาไทย ซึ่งต้องหา driver ภาษาไทยมาใช้
ถ้าคุณต้องการเขียนโปรแกรมให้มีลักษณะที่ผู้ใช้สามารถใช้ได้สะดวก
หากเขียนเป็นหน้าแบบตัวอักษรคุณต้องทุ่มเวลากับการออกแบบนานมากเลย
แต่หากคุณเขียนโปรแกรม windows ด้วย Rapid-Q วิธีเขียนจะสั้นกว่า
เพราะว่าคอมไพเลอร์จะช่วยเขียนเพิ่มเติมให้ในส่วนที่เป็นจอภาพต่างๆ
เริ่ม บทแรก จะเริ่มที่โปรแกรมแบบ CONSOLE
เพื่อศึกษาโครงสร้างของภาษา BASIC (แบบ rapidq)
console application : โปรแกรมจอภาพแบบ dos
1. Print
print "doraemon"
' กด F5 จอภาพจะแสดง
' doraemon
' * การเขียน comment ของ rapid-q จะเขียนทางขวาของเครื่องหมาย ' ( quote )
2. Input
input s$
' เป็นการรับค่า ที่ป้อนทาง keyboard เก็บไว้ในตัวแปรสตริง s$
' สำหรับ input ของ rapidq จะมีการแทรกข้อความได้ด้วยเช่น
input "please insert you name", s$
' ซึ่งจะดีกว่าภาษาเบสิคธรรมดา ซึ่งจะต้องใช้ทั้ง print และ input เช่น
print "please insert you name";
input s$
3. การตั้งชื่อตัวแปร
ใน ภาษา basic เราจะประกาศตัวแปรหรือไม่ก็ได้
เราสามารถกำหนดชนิดตัวแปร ได้จากเครื่องหมายที่อยู่ด้านหลัง
แต่เพื่อกันผิดพลาดควรตั้ง Rapid-Q Directives เป็น $TYPECHECK ON
abc$ หมายถึงตัวแปร string
abc% หมายถึงตัวแปร short (-32768..32767) * มีขอบเขตเท่ากับ integer ในปาสคาล
abc? หมายถึงตัวแปร byte (0..255)
abc?? หมายถึงตัวแปร word (0..65535)
abc& หมายถึงตัวแปร integer (-2147483648..2147483647)
abc&& หมายถึงตัวแปร long (-2147483648..2147483647)
abc! หมายถึงตัวแปร single (1.5 x 10-45..3.4 x 1038) * เก็บเลขทศนิยมได้
abc# หมายถึงตัวแปร double (5.0 x 10-324..1.7 x 10308) * เก็บเลขทศนิยมได้
4. ภาษา basic จะสามารถใช้ตัวแปรได้
โดยไม่จำเป็นต้องประกาศตัวแปรก่อน
ตัวอย่างที่ไม่ประกาศตัวแปร
input "please insert number=", number%
print "number you insert=";number%
print ""
print "press enter to continue"
input number%
' โปรแกรมนี้เป็นเป็นโปรแกรมง่ายๆ ซึ่งรอรับค่าตัวเลขจากการกด keyboard
' มีข้อเสียคือ หากว่าเขียนผิด เช่นจาก number% เป็น nunber% โปรแกรมจะไม่เตือน
' ทำให้ตรวจสอบ ความถูกต้องโปรแกรมได้ยาก
' แต่มีข้อดีคือสำหรับโปรแกรมสั้นๆ ไม่ต้องเสียเวลาประกาศตัวแปร
ตัวอย่างที่ประกาศตัวแปร
$TYPECHECK ON
dim number% as Short
input "please insert number=", number%
print "number you insert=";number%
print ""
print "press enter to continue"
input number%
' มีข้อดีคือเมื่อพิมพ์ผิด เป็น nunber% โปรแกรมจะเตือนทำให้ทราบว่าพิมพ์ผิด
' มีข้อเสียคือหาก ต้องประกาศตัวแปรทุกๆ ตัว ด้วย dim .. as ..
5. เงื่อนไข if
' การเขียน if then มีโครงสร้างดังนี้
if number%=0 then
print "ok"
end if
' และหากต้องการเขียน else จะเขียนต่อกันไปดังนี้
if number%=0 then
print "ok"
elseif number%>0 then
print "more"
else number%<0 then
print "less"
end if
5. เงื่อนไข select case
' มีลักษณะดังนี้
number% = 1
SELECT CASE number%
CASE 1
print "one"
CASE 2
print "two"
CASE 3 TO 10
print "three .. ten"
CASE ELSE
print "other number"
END SELECT
|
