Transcript JSP คืออะไร
หลักการภาษาชุดคาสงั่ GW-Basic Language ่ั มหาวิทยาลัยเนชน http://www.nation.ac.th http://www.thaiall.com/programming อ.บุรน ิ ทร ์ รุจจนพันธุ ์ . ปร ับปรุง 9 มิถุนายน Page: 1 2556 ประว ัติภาษา GW-BASIC GW คาว่า GW ย่อมาจาก "Gee Whiz" ่ ้ประกอบการสอนการ เป็ นภาษาในยุคแรก ๆ ทีใช เขียนโปรแกรมในคอมพิวเตอร ์ และทางานบน PC ได ้ดีในระดับหนึ่ ง มีการทางานเป็ น Interpreter ้ ้สอนในหนังสือ คอมพิวเตอร ์ มีการนาภาษานี ใช ้ ้น และเทคนิ คการเขียนโปรแกรม ทีเขี ่ ยน เบืองต ่ การนาไปใช ้ โดย รศ.วัชราภรณ์ สุรยิ าภิวฒ ั น์ ทีมี สอนในสถาบันต่าง ๆ กันมาก เพราะมีการตีพม ิ พ์ ่ ยผมเป็ นนักศึกษา ก็เริมเรี ่ ยน กว่ 20http://www.thaiall.com/gwbasic/ ครง้ั ซึงสมั ข ้อมูาลจาก http://www.thaiall.com/programming Page: 2 Compiler Download เป็ นภาษาทีง่่ ายใช้แฟ้ม GWBASIC.EXE เพียงแฟ้มเดียว ตัวแปลภาษา + http://www.oocities.org/KindlyRat/GWBASIC. html http://www.thaiall.com/programming Page: 3 โปรแกรมแรกของฉัน (1/3) 10 cls 20 print 5 run ้ ผลการพิมพ ์ 2 บรรทัดนี ในโปรแกรม - กาหนดเลขบรรทัด และใส่คาสัง่ ่ ่ งหมดที ้ ่ ใน - สังประมวลผลบรรทั ดคาสังทั มี หน่ วยความจา - การประมวลผล สามารถกด F2 แทนการ พิมพ ์ run ได้ http://www.thaiall.com/programming Page: 4 โปรแกรมแรกของฉัน (2/3) ่ าหนด และให้ จัดเก็บแฟ้มในห้องทีก Source Code เป็ น ASCII save "c:\x.bas",a ออกจากโปรแกรม system DOS>type x.bas http://www.thaiall.com/programming Page: 5 โปรแกรมแรกของฉัน (3/3) DOS>gwbasic load "x.bas" list 10 cls 20 print 5 save "c:\x.bas",a http://www.thaiall.com/programming Page: 6 ตัวอย่างข้อผิดพลาดจาก 10 cls Interpreter 20 print 5 30 a 40 print 10 run ้ - ตัวอย่างนี จะท าบรรทัดที่ 10 และ 20 - โปรแกรมหยุดทางานบรรทัดที่ 30 ทันที ่ ่ ม - ถ้าเป็ น Compiler จะตรวจสอบก่อนทีจะเริ ประมวลผลบรรทัดแรก http://www.thaiall.com/programming Page: 7 การร ับค่า และแสดงผล 10 cls 20 dim a 30 input a 40 print a 50 dim b 60 input b 70 print b http://www.thaiall.com/programming Page: 8 การร ับค่า แล้วเลือกกระทา 10 cls 20 a=0:b=0:c=0:d=0 30 input a 40 if a > 0 then input b 50 if b > 0 then input c 60 if c > 0 then d=a+b+c 70 print d http://www.thaiall.com/programming Page: 9 ่ ่ คาสัง Go to ทีถู กเลิกใช้ใน 10 dim a ภาษายุคเก่า 20 a = a + 1 30 print a 40 if a < 5 then go to 20 ตัวแปลภาษา http://www.oocities.org/KindlyRat/ ข้อมู ลจาก http://www.thaiall.com/gwbasic/ http://www.thaiall.com/programming Page: 10 ่ คาสัง for สาหร ับพิมพ ์ 1 ถึง 10 FOR I = 15TO 5 20 PRINT I 30 NEXT http://www.thaiall.com/programming Page: 11 ่ ร ับ 2 ค่า แสดงแสดงค่าทีสู ง กว่า 10 a = 0 20 b = 0 30 m = 0 40 input a 50 input b 60 if a > b then m=a else m=b http://www.thaiall.com/programming Page: 12 ร ับ 5 ค่าลงอาร ์เรย ์แล้วแสดง ้ 10 DIM AR(5) ค่าทังหมด 20 FOR I = 1 TO 5 30 INPUT AR(I) 40 NEXT 50 FOR I = 1 TO 5 60 PRINT AR(I) 70 NEXT http://www.thaiall.com/programming Page: 13 ร ับ 5 ค่าลงอาร ์เรย ์แล้วแสดง 10 DIM AR(5)ค่า Max 20 MAX = 0 30 I = 0 40 FOR I = 1 TO 5 50 INPUT AR(I) 60 NEXT 70 FOR I = 1 TO 5 80 IF AR(I) > MAX THEN MAX = AR(I) 90 NEXT http://www.thaiall.com/programming Page: 14 ่ ่ คาสังทีควรรู ้ cls Clear Screen i=0 กาหนดค่าให้กบ ั ตัวแปร print 5,5;5;5,5 goto 10 , จะห่าง 1 tab ส่วน ; จะติดกัน ไปทางานบรรทัดที่ 10 input i รอร ับตัวเลขจากแป้ นพิมพ ์ ($a คือ String) locate 5,40:print "x" ่ องการ ย้าย Cursor ไปตาแหน่ งทีต้ if i = 1 then cls else print "a" เลือก หรือตด ั สินใจ for j = 1 to 5 .. ้ วย for ทาซาด้ next save "a.bas",a http://www.thaiall.com/programming จัดเก็บแบบ Ascii จึงเปิ ดด้วย Page: 15 Game Sample หนทางอีกยาวไก ก้าวต่อไปนะคนด . + http://www.thaiall.com/gwbasi + http://www.thaiall.com/gwbasi + http://www.thaiall.com/gwbasi + http://www.thaiall.com/gwbasi ข ้อมูลจาก http://scottserver.net/basically/geewhiz.html (exp http://www.thaiall.com/programming Page: 16