จีดับบิวเบสิก (GW-BASIC)

ปรับปรุง : 2562-02-01 (ปรับ template)


	จีดับบิวเบสิก (GW-BASIC)

GW คำว่า GW ย่อมาจาก "Gee Whiz" เป็นภาษาในยุคแรก ๆ ที่ใช้ประกอบการสอนเขียนโปรแกรมในเครื่องคอมพิวเตอร์ และทำงานบนพีซี (PC = Personal Computer) ได้ดีในระดับหนึ่ง เป็นตัวแปลภาษาที่ทำงานแบบอินเทอร์เพตเตอร์ (Interpreter) ถูกนำไปใช้สอนในวิชา คอมพิวเตอร์เบื้องต้น และเทคนิคการเขียนโปรแกรม ที่เขียนโดย รศ.วัชราภรณ์ สุริยาภิวัฒน์ ในสถาบันการศึกษาหลายแห่ง เพราะมีการตีพิมพ์กว่า 20 ครั้ง ซึ่งสมัยผู้เขียนเป็นนักศึกษา (พ.ศ.2531) ก็เริ่มเรียนภาษานี้เป็นภาษาแรก
การใช้ตัวแปลภาษานี้ ทำโดยเปิดโปรแกรม GWBASIC.EXE ซึ่งไม่จำเป็นต้องติดตั้ง เพราะใช้งานได้ทันที มีแฟ้มเดียว และรุ่น 3.23 มีขนาดเพียง 79 KB เมื่อประมวลผลจะพบหน้าจอดังภาพด้านล่างนี้ หากต้องการออกจากโปรแกรมก็เพียงแต่พิมพ์ system เพื่อปิดโปรแกรม และกลับสู่ระบบ
การใช้ gwbasic บน Windows 7 สามารถใช้งานคำสั่งพื้นฐาน เช่น input หรือ print แต่ถ้าต้องการใช้ full screen mode หรือการกดปุ่ม alt-enter ก็จะถูกปฏิเสธ ปัญหาการเข้าโหมดเต็มจอ ไม่พบใน Windows xp เมื่อบางโปรแกรมที่พัฒนาด้วยภาษานี้ต้องใช้โหมดเต็มจอ ก็จะประมวลผลไม่ได้ เช่น roborat หากจะใช้ได้ก็ต้องใช้ dos emulator ของ DOSBOX แล้วสั่ง mount drive เข้ามาใช้ตามต้องการ เช่น
DOS>mount c c:\

e-book: http://www.antonis.de/qbebooks/gwbasman/index.html

โปรแกรมเกม DONKEY.BAS ถูกเขียนในค.ศ 1981 (2524) และถูกรวมเข้าใน PC-DOS Operating system บน Original IBM PC โดยเกมขับรถนี้กำหนดให้ผู้เล่นหลบหลีกการชนลาบนถนน ร่วมพัฒนาเกมเขียนโดย Bill Gates ซึ่งสามารถใช้ source code นี้บน GWBasic แต่ต้องทำงานบน DOSBOX ทั้งบน WinXP และ Win7 [แบ่งปันโดย ninkungz]

Source Code : GW-Basic Game - copy มาและแตกได้แฟ้ม .bas - เปิดด้วย GWBASIC แล้ว save ใหม่แบบ ,a - DOS>gwbasic roborat.bas
โปรแกรมจาก !http://scottserver.net
- 5starZ.bas - ต่อดาว 5 ดวง	- flipper.bas - สลับสีจนเป็นสีเดียว
- roborat.bas - วางแผน แล้วกดลูกศร - บังคับให้หนูไปกินเนย	- search.bas - Click อักษรคำแรก - Click อักษรสุดท้าย

Download ตัวแปลภาษา ที่นี่:
KindlyRat, Rhinorc, x10.mx, #
Page : kindlyrat.mht in archive site on ie

Borland : Turbo Basic 1.0
พัฒนาใหม่ ไม่ต้องใส่เลขบรรทัดก็ได้
input a$
print a$

กำหนดให้ผลการแปลได้แฟ้ม .exe
option: compile to - exe file
setup: directories: executable dir=c:\

บทเรียนที่ 1

- รับค่า แล้วพิมพ์ค่านั้นออกมา จากนั้นปิดโปรแกรมไปเลย

รายละเอียดเพิ่มเติม

อักษรสีขาว คือสิ่งที่ระบบแสดงออกมา
อักษรสีเหลือง คือสิ่งที่เราพิมพ์ หรือป้อนเข้าไป
Source code โปรแกรมนี้มี 2 บรรทัดคือ รอรับค่าเข้าตัวแปร A$ จากนั้นแสดงออกมา
เมื่อพิมพ์ run แล้ว จะสั่งให้ประมวลผลตามคำสั่งที่พิมพ์เข้าไป
เมื่อพิมพ์ system แล้ว จะสั่งปิดโปรแกรม GWBASIC แล้วกลับเข้าระบบปฏิบัติการ หรือ OS นั่นเอง

GW-BASIC 3.23
(C) Copyright Microsoft 1983,1984,1985,1986,1987,1988
(C) Copyright American Research Corporation. 1988,1989
60300 Bytes free
Ok
100 INPUT A$
200 PRINT "YOU TYPED "; A$
run
? abcdef
abcdef
OK
system

บทเรียนที่ 2

- พิมพ์ 1 ถึง 5 ด้วย go to

รายละเอียดเพิ่มเติม

ใช้ go to พิมพ์ 1 ถึง 10
ถ้าใช้ if ร่วมกับ go to ในบรรทัดที่ 20 อาจต้องใช้ go to 2 คำสั่งในโปรแกรมนี้

GW-BASIC 3.23
(C) Copyright Microsoft 1983,1984,1985,1986,1987,1988
(C) Copyright American Research Corporation. 1988,1989
60300 Bytes free
Ok
list
10 dim a
20 a = a + 1
30 print a
40 if a < 5 then go to 20
Ok
run
1
2
3
4
5
Ok

บทเรียนที่ 3

- พีระมิดของตัวเลข

รายละเอียดเพิ่มเติม

สมมติให้มีการเขียนโปรแกรมแล้ว save เก็บในชื่อ p01.bas ไว้แล้ว โปรแกรมนี้จึง load โปรแกรมนี้มาใช้
การใช้ for ซ้อน for
การใช้ tab กำหนดตำแหน่งให้ง่ายขึ้น
ฟังก์ชัน STR$ ใช้เปลี่ยนตัวเลขเป็นตัวอักษร
ฟังก์ชัน RIGHT$ ใช้นำอักษรเฉพาะทางขวาเพียง 1 อักษรมาใช้

GW-BASIC 3.23
(C) Copyright Microsoft 1983,1984,1985,1986,1987,1988
(C) Copyright American Research Corporation. 1988,1989
60300 Bytes free
Ok
load "p01.bas"
OK
list
10 FOR I = 1 TO 5
15 PRINT TAB(40 - I);
20 FOR J = 1 TO I
30 PRINT RIGHT$(STR$(J),1);
40 NEXT J
50 PRINT
60 NEXT I
Ok
run
                                      1
                                     12
                                    123
                                   1234
                                  12345
Ok

บทเรียนที่ 4

- รับค่าลงอาเรย์ 5 จำนวนแล้วหาค่า max

รายละเอียดเพิ่มเติม

แสดงตัวอย่างอาเรย์
การใช้ for ทำซ้ำ 2 ครั้ง
การใช้ if เลือกตามค่า max

แบบฝึกหัด

เพิ่มการหาค่า min
เพิ่มการหาค่าเฉลี่ย
แต่งให้สวยงามขึ้น

GW-BASIC 3.23
60300 Bytes free
Ok
10 DIM AR(5)
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
100 PRINT MAX

บทเรียนที่ 5 - วัดเวลาการทำงาน (สามารถทดสอบ Code Optimization ได้)
5 START = TIMER 10 DIM X 20 FOR I = 1 TO 1000000! 30 X = X + I 40 NEXT 50 PRINT X 60 PRINT(TIMER - START)	run 4.999414E+11 1.589844 Ok

บทเรียนที่ 6 - ประมวลผลใน Commmand Line - จากตัวอย่างข้างล่าง สามารถนำไปใช้ใน Editplus ช่วยการเขียน และประมวลผลได้
DOS> copy con x.bas 10 PRINT 5 20 SYSTEM DOS> gwbasic x.bas DOS> gwbasic x.bas > y.txt	ข้อควรทราบ 1. copy con ไม่สามารถใช้ใน dosbox 2. แฟ้ม y.txt ที่ได้มีขนาด 5 bytes 3. เนื้อข้อมูลเมื่อดูด้วย debug คือ 20 35 20 0D 0A 4. ตัวอย่างนี้ประมวลผลได้ ทั้งบน WinXP และ Win7

บทเรียนที่ 7

- เพลงบรรเลงเหมือนเสียงโทรศัพท์ ฟังเพลิน


10 REM This is a well-known piece of music.
20 ' Note that 0 is used and so is O (for Octave).
30 ' Note that either suffix # or + can indicate a sharp.
40 ' http://glind.customer.netspace.net.au/gwbas-7.html
50 CLEAR
60 PARTTUNE$= "DF#A L2 O4 D L4 O5 DD P4"
70 PLAY "T180 DF#A L2 A L4 O4 AA P4 F#F# P4 O3 D"
80 PLAY "DF#A L2 A L4 O4 AA P4 GG P4 O3 C#"
90 PLAY "C#EB L2 B L4 O4 BB P4 GG P4 O3 C#"
100 PLAY "C#EB L2 B L4 O4 BB P4 F+F+ P4 O3 D"
110 PLAY PARTTUNE$
120 PLAY "O4 AA P4 O3 D"
130 PLAY PARTTUNE$
140 PLAY "O4 BB P4 EEG L8 B P8 ML B1 L4 MN G#A ML L3 O5 F#1"
150 PLAY "L4 MN D O4 F# ML L2 F# MN L4 E ML L2 B MN L4 A"
160 PLAY "D P8 D8 D4"
170 END

คำสั่งที่ควรรู้
1	cls	Clear Screen
2	i=0	กำหนดค่าให้กับตัวแปร
3	print 5,5;5;5,5	, จะห่าง 1 tab ส่วน ; จะติดกัน
4	goto 10	ไปทำงานบรรทัดที่ 10
5	input i	รับตัวเลขจากแป้นพิมพ์ (a$ = String)
6	locate 5,40:print "x"	ย้าย Cursor ไปตำแหน่งที่ต้องการ
7	if i = 1 then cls else print "a"	เลือก หรือตัดสินใจ
8	for j = 1 to 5 .. next	ทำซ้ำด้วย for
9	save "a.bas",a	เก็บแบบ Ascii เปิดด้วย Notepad ได้
10	screen 2	เข้าสู่ full screen mode

ตัวอย่างการ print แบบต่าง ๆ

write 5
write (5 + 5)
print 5,5;5
print 5;5,5
print a,a,a
print a;a;"ok",a;a;
print tab(10) 10
print tab(a) a
print tab(a) a,b
print tab(20) using "##,###"; a
print string$(50,"-")
print asc("A")
print chr$(65)
print abs( 5 )
print exp( 5 )
print int( 5 )
print sqr( 5 )
print sin( 5 )
print cos( 5 )
print tan( 5 )
randomize timer
print int(10 * rnd + 1)
print left$("abcde",2)
print right$("abcde",2)
print mid$("abcde",2,3)
print len$("abcde")
print val("123")
print str$(5)

ตัวอย่าง คำสั่งที่น่าสนใจ

cls
rem This is my first program
new
run
run 50
end
list 100 - 200
save "a.bas" , a
load "a.bas"
delete 100 -
edit 200
auto
dim x(5)
dim ename$(5), esalary(5)
dim aa$(10)
dim a(5,10)
i=0:j=10:a=5:bb$="burin"
input a
input bb$
input "Wait your key? " ; bb$
for .. next
if .. then .. else ..
locate 5,40:print "x"
goto 20
on n goto 1000, 2000, 3000
gosub
return
read a
read bb$,a
data 1000,5000,2000,4500,"abc","def"
swap a,b
screen 0
screen 2
line (10,10) - (20,20)
draw "BM 50,50 R 100 D 50 L 100 U 50"
circle (10,20),30
color 3,4
play "c8de8fg9ab"
rem character for play command C = DO, D = RE, E = M?, F = FA, G = SOL, A = LA, B = S?

GW-Basic Manual
Microsoft User's Reference by Thomas Shaffner
from http://www.antonis.de/qbebooks/gwbasman/index.html
ABS ASC ATN AUTO BEEP BLOAD BSAVE CALL CDBL CHAIN CHDIR CHR$ CINT CIRCLE CLEAR CLOSE CLS COLOR COM COMMON CONT COS CSNG CSRLIN CVD CVI CVS DATA DATE$ DEFINT DEFDBL DEFSNG DEFSTR DELETE DIM DRAW EDIT END ENVIRON EOF ERASE ERROR EXP EXTERR FIELD FILES FIX FOR FRE GET GOSUB-RETURN GOTO HEX$ IF INKEY$ INP INPUT INPUT# INPUT$ INSTR INT IOCTL IOCTL$ KEY KILL LEFT$ LEN LET LINE LIST LLIST LOAD LOC LOCATE LOCK LOF LOG LPOS LPRINT LSET MERGE MID$ MID$ MKDIR MKD$ MKI$ MKS$ NAME NEW NEXT OCT$ ON-GOSUB ON-GOTO OPEN OPTION OUT PAINT PALETTE PCOPY PEEK PLAY PMAP POINT POKE POS PRESET PSET PRINT RANDOMIZE READ REM RENUM RESET RESTORE RESUME RETURN RIGHT$ RMDIR RND RSET RUN SAVE SCREEN SCREEN SGN SHELL SIN SOUND SPACE$ SPC SQR STICK STOP STR$ STRIG STRING$ SWAP SYSTEM TAB TAN TIME$ TIMER TROFF TRON UNLOCK USR VAL VARPTR VARPTR$ VIEW WAIT WHILE-WEND WIDTH WINDOW WRITE WRITE#

gw-man.zip # 637 KB

ข้อความจากเว็บไซต์ oocities.com
In October 2009 we archived our olden cities of the web: The unique pages on "GeoCities.com" just before they were taken down. Geocities started in 1994 and was the first giant "social network" and one of the most important websites in the world until it was closed on 27.10.2009. Our aim is to save those pages which are worthy and unique scientific sources or are of great public interest as well as those, which are historically interesting or just representing the 90's website culture and style. If you are interested in these old pages feel free to browse around. Please note: it will be a while until all pages are sorted, complete and free of any spam contents! In case you are searching for your own personal site, there is a small chance that we have it but have not put it online yet. In case you want your own page, email or picture to be removed, contact us as well. For any questions, read our FAQ or contact us at oocities@gmail.com

สถิตินี้สะท้อนว่า wordpress ล้ม geocities
ผมว่าเป็นไปได้ เพราะผมก็ใช้ไป 4 ระบบแล้ว

9 มิ.ย.56 อินเทอร์เน็ตและการพัฒนาเว็บไซต์ในยุคแรก ไม่มีนักพัฒนาคนใดไม่รู้จัก geocities.com เพราะเป็นผู้ให้บริการพื้นที่โฮมเพจฟรีอันดับหนึ่ง ในยุคที่ server-sided script ยังไม่แพร่หลาย ถูกก่อตั้งปี 1994 แล้วปี 1999 ก็ถูกซื้อโดย yahoo.com และปิดบริการ 27 ตุลาคม 2009 สืบเนื่องจากก็มีเว็บไซต์มากมายเปิดให้บริการหลากหลายรูปแบบ และสมบูรณ์ทั้งบน windows และ linux แล้วการทำธุรกิจด้านนี้ก็ไม่เป็นไปตามที่คาดหมายไว้ ทำให้ทะยอยปิดกันไปเกือบหมด
เนื้อหามากมายใน geocities.com มีคุณค่า และมีผู้เห็นคุณค่า จึงเปิด domain ใหม่ ชื่อ oocities.com และนำข้อมูลไปเก็บ แล้วเผยแพร่ในรูปของ mirror site ซึ่งตัวแปลภาษา gw-basic ก็ได้เนื้อหา และตัวแปลภาษามาจากเว็บไซต์นี้ ในบัญชีของ kindlyrat

แนะนำเว็บ (Web Guides)

http://en.wikipedia.org/wiki/GW-BASIC (รายละเอียดครบถ้วน)
http://www.oocities.org/KindlyRat/GWBASIC.html (Number one & Many Games)
http://peyre.x10.mx/GWBASIC/ (Compiler & Games)
http://www.antonis.de/qbebooks/gwbasman/index.html (qbebooks)
http://uolang.org/sourcecode/basic/basic.html (Source Code)
http://www.freebasic.net/ ( Open Source Compiler: download 500 KB )
http://www.thefreecountry.com/compilers/basic.shtml
http://hwiegman.home.xs4all.nl/gwbasic.html : document and utilities
Basic programming article : Ken Holmes
http://scottserver.net/basically/geewhiz.html and Games : by Gee whiz (expired)
http://aragez.sitemynet.com/gwba.html (expired)

"Imagination is more important than knowledge" - Albert Einstein