QuickBASIC - QuickBASIC
 Açılış ekranı
| |
| Geliştirici(ler) | Microsoft |
|---|---|
| İlk sürüm | 1985 |
| kararlı sürüm | 7 / 1990
|
| İşletim sistemi | MS-DOS , Klasik Mac OS |
| platformu | x86 , Motorola 68000 |
| Tip | Microsoft TEMEL |
| Lisans | tescilli |
| İnternet sitesi |
www 
|
Microsoft QuickBASIC (ayrıca QB ), Microsoft tarafından geliştirilen BASIC programlama dili için bir Tümleşik Geliştirme Ortamı (veya IDE) ve derleyicisidir . QuickBASIC, esas olarak DOS üzerinde çalışır , ancak klasik Mac OS için kısa ömürlü bir sürüm de vardı . GW- BASIC'i temel alır ancak yorumlayıcıya ek olarak kullanıcı tanımlı türler, gelişmiş programlama yapıları, daha iyi grafikler ve disk desteği ve bir derleyici ekler . Microsoft, QuickBASIC'i BASIC Profesyonel Geliştirme Sistemi için giriş seviyesi olarak pazarladı. Microsoft, C ve Pascal için başka iki benzer IDE daha pazarladı, yani QuickC ve QuickPascal .
Tarih
Microsoft, QuickBASIC'in ilk sürümünü 18 Ağustos 1985'te tek bir 5,25 inç 360 KB disket üzerinde yayımladı . QuickBASIC sürüm 2.0 ve sonraki sürümleri, tümleşik Geliştirme Ortamı (IDE) içeriyordu ve bu , kullanıcıların doğrudan ekran metin düzenleyicisinde düzenleme yapmasına olanak tanıyordu.
QuickBASIC'te hala desteklenmesine rağmen, satır numaraları isteğe bağlı hale geldi. Program atlamaları da adlandırılmış etiketlerle çalıştı. Daha sonraki sürümler, çok satırlı koşullu ifadeler ve döngü blokları gibi kontrol yapıları da ekledi .
Programları DOS yürütülebilir dosyalarında derlemek için Microsoft'un "PC BASIC Derleyicisi" dahil edildi. 4.0 sürümünden itibaren editör, programcının programı editörden ayrılmadan çalıştırmasına izin veren bir yorumlayıcı içeriyordu. Yürütülebilir bir dosya oluşturmadan önce bir programda hata ayıklamak için yorumlayıcı kullanıldı. Ne yazık ki, yorumlayıcı ve derleyici arasında bazı ince farklar vardı; bu, yorumlayıcıda doğru şekilde çalışan büyük programların derlemeden sonra başarısız olabileceği veya bellek yönetimi rutinlerindeki farklılıklar nedeniyle hiç derlenmeyebileceği anlamına geliyordu.
QuickBASIC'in son sürümü 4.5 (1988) idi, ancak Microsoft BASIC Professional Development System'in (PDS) gelişimi Ekim 1990'daki 7.1 sürümünün son sürümüne kadar devam etti. Aynı zamanda, QuickBASIC paketi sessizce değiştirildi, böylece diskler, BASIC PDS 7.1 için kullanılanla aynı sıkıştırmayı kullandı. IDE'nin Basic PDS 7.x sürümü QuickBASIC Extended (QBX) olarak adlandırılıyordu ve OS/2 üzerinde de çalışan Basic PDS 7.x'in geri kalanının aksine, yalnızca DOS üzerinde çalışıyordu. QuickBASIC ve Basic PDS'nin halefi , Standard ve Professional sürümlerinde gönderilen MS-DOS için Visual Basic sürüm 1.0 idi. Microsoft, Windows uygulamalarına odaklandığından, Visual Basic'in sonraki sürümleri DOS sürümlerini içermiyordu.
Adlı QuickBASIC 4.5 bir alt kümesi, QBasic , birlikte verilen MS-DOS yerine 5 ve sonraki sürümlerinde GW-BASIC MS-DOS önceki sürümleri ile birlikte. QuickBASIC ile karşılaştırıldığında, QBasic yalnızca bir yorumlayıcı ile sınırlıdır, birkaç işlevden yoksundur, yalnızca sınırlı boyuttaki programları işleyebilir ve ayrı program modülleri için destekten yoksundur. Bir derleyicisi olmadığından, program kaynak kodu bir QuickBASIC 4.5, PDS 7.x veya varsa VBDOS 1.0 derleyicisi tarafından derlenebilmesine rağmen yürütülebilir dosyalar üretmek için kullanılamaz.
Apple Macintosh işletim sistemi için QuickBASIC 1.00 , 1988'de piyasaya sürüldü. En az 1 MB RAM ile Sistem 6 çalıştıran makinelerde resmi olarak desteklendi . QuickBASIC , 32-bit adresleme devre dışı bırakıldığı sürece System 7 üzerinde de çalıştırılabilir .
sözdizimi örneği
Merhaba Dünya , en kısa versiyon:
?"Hello, World"
Merhaba, Dünya , genişletilmiş sürüm:
CLS
PRINT "Hello, World"
END
LET BOTTLES = 99: LET BOTTLES$ = "99": LET BOTTLE$ = " bottles"
FOR A = 1 TO 99
PRINT BOTTLES$; BOTTLE$; " of beer on the wall, "; BOTTLES$; BOTTLE$; " of beer."
LET BOTTLES = BOTTLES - 1
IF BOTTLES > 0 THEN LET BOTTLES$ = LTRIM$(STR$(BOTTLES)): LET PRONOUN$ = "one"
IF BOTTLES = 0 THEN LET BOTTLES$ = "no more": LET PRONOUN$ = "it"
IF BOTTLES <> 1 THEN LET BOTTLE$ = " bottles"
IF BOTTLES = 1 THEN LET BOTTLE$ = " bottle"
PRINT "Take "; PRONOUN$; " down and pass it around, "; BOTTLES$; BOTTLE$; " of beer on the wall."
PRINT: NEXT A
PRINT "No more bottles of beer on the wall, no more bottles of beer."
PRINT "Go to the store and buy some more, 99 bottles of beer on the wall."
Grafik örneği:
SCREEN 13
DIM a(3976) AS INTEGER, b(3976) AS INTEGER, c(3976) AS INTEGER
DIM d(3976) AS INTEGER, e(3976) AS INTEGER
col% = 16: col1% = 16: col2% = 16: col3% = 16: col4% = 16
col5% = 16: col6% = 16: col7% = 16: flag = 1: flag1 = 1
flag2 = 1: flag3 = 1:flag4 = 1: flag5 = 1: flag6 = 1: flag7 = 1
DO
GET (1, 38)-(318, 62), a
PUT (2, 38), a, PSET
LINE (1, 38)-(1, 62), col%
IF flag = 1 THEN col% = col% + 1: IF col% = 32 THEN flag = 2
IF flag = 2 THEN col% = col% - 1: IF col% = 16 THEN flag = 1
GET (2, 63)-(319, 87), b
PUT (1, 63), b, PSET
LINE (319, 63)-(319, 87), col1%
IF flag1 = 1 THEN col1% = col1% + 1: IF col1% = 32 THEN flag1 = 2
IF flag1 = 2 THEN col1% = col1% - 1: IF col1% = 16 THEN flag1 = 1
GET (1, 88)-(318, 112), c
PUT (2, 88), c, PSET
LINE (1, 88)-(1, 112), col2%
IF flag2 = 1 THEN col2% = col2% + 1: IF col2% = 32 THEN flag2 = 2
IF flag2 = 2 THEN col2% = col2% - 1: IF col2% = 16 THEN flag2 = 1
GET (2, 113)-(319, 137), d
PUT (1, 113), d, PSET
LINE (319, 113)-(319, 137), col3%
IF flag3 = 1 THEN col3% = col3% + 1: IF col3% = 32 THEN flag3 = 2
IF flag3 = 2 THEN col3% = col3% - 1: IF col3% = 16 THEN flag3 = 1
GET (1, 138)-(318, 162), e
PUT (2, 138), e, PSET
LINE (1, 138)-(1, 162), col4%
IF flag4 = 1 THEN col4% = col4% + 1: IF col4% = 32 THEN flag4 = 2
IF flag4 = 2 THEN col4% = col4% - 1: IF col4% = 16 THEN flag4 = 1
LOOP UNTIL LEN(INKEY$)
REM sample of bubble sort
N = 10
DIM A(N) AS INTEGER
FOR L = 1 TO N
A(L) = INT(RND * 10 + 1)
NEXT
FOR X = 1 TO N
FOR Y = 1 TO N - 1
IF A(X) < A(Y) THEN SWAP A(X), A(Y)
NEXT
NEXT
FOR L = 1 TO N
PRINT A(L)
NEXT
END
Mevcut kullanımlar
QuickBASIC, video oyunları , GUI'ler ve yardımcı programlar yazmak için derleyiciyi kullanan resmi olmayan bir hobi programcıları topluluğuna sahiptir . Topluluk, dile birkaç Web sitesi, mesaj panosu ve çevrimiçi dergi ayırmıştır.
Günümüzde programcılar bazen QuickBASIC'i Linux'ta ve artık derleyiciyi desteklemeyen modern kişisel bilgisayar donanımında çalıştırmak için DOSBox gibi DOS öykünücülerini kullanırlar . Buna alternatifler FreeBASIC ve QB64'ü içerir , ancak henüz tüm QBasic/QuickBASIC programlarını çalıştıramazlar .
2008'den beri QuickBASIC 4.x ve 7.1 için bir dizi TCP/IP rutini yazılıma olan ilgiyi yeniden canlandırdı. Özellikle, eski bilgisayar hobisi topluluğu, DOS çalıştıran eski bilgisayarlar için yazılım yazabildi ve bu makinelerin bir LAN veya internet üzerinden diğer bilgisayarlara erişmesine izin verdi . Bu, 8088 kadar eski sistemlerin bile Web sunucusu olarak hareket etme veya IRC kullanma gibi yeni işlevler sunmasına izin verdi .
halefler
Microsoft'un Visual Basic'i QuickBASIC'in halefiydi. PowerBASIC ve FreeBASIC gibi diğer derleyiciler, değişen derecelerde uyumluluğa sahiptir. QuickBASIC'ten C++' a çok platformlu bir çevirmen olan QB64 , %100'e yakın uyumluluğu korur ve Windows , Linux ve macOS için yerel olarak derlenir .