Qbasicde satır numaraları
Satır numaraları gereksizdir. Ama kullanabilirsiniz de. Kullanırsanız; numaraların birbirini takip
etmesi şart değildir. QBasicde satır numaraları yerine okunurluğu kolaylaştırması için ETİKET
kullanılır. Etiketi de sadece GOTO veya GOSUB ile gidilecek satırlara koymak yeterlidir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
10 A = A + 1
20 IF A > 20 THEN GOTO 50
30 PRINT A
40 GOTO 10
50 END
Yukarıdaki program kodları yerine; aynı işi yapan, satır numarası vermeden, etiket kullanarak
yazılmış hali aşağıda.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
basla:
A = A + 1
IF A > 20 THEN GOTO bitis
PRINT A
GOTO basla
bitis:
END
Bir satırda birden fazla komut da kullanılabilir. İki komutu ayırmak için : (2 nokta üst üste)
kullanılır
Kod: Kodu kopyalamak için üzerine çift tıklayın!
CLS
PRINT "QBASIC"
PRINT "MERHABA DÜNYA !"
Üstteki ile alttaki kodlar aynı işi yapar. Farkı yoktur.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
CLS : PRINT "QBASIC" : PRINT "MERHABA DÜNYA !"
__________________
SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.