Dark Basic v1.06 Dersleri - 2
Bu hafta sizlere Dark Basic editöründe yapabileceğiniz ilk programı ve programla ilgili komutları anlatmaya çalışacağım.
Ekrana “Merhaba Dünya” yazdıracağız. Bunu yapmak için 2 adım kullanacağız öncelikle komut ekranımıza aşağıdaki satırı yazalım:
PRINT “Merhaba Dünya”
Sonra ya F5 tuşuna basalım yada Çalıştır menüsünden Çalıştır seçeneğini seçelim. Ekran görüntümüz:
Merhaba Dünya
Şeklinde olacaktır. Şimdi bu programı bir string (alfanümerik veya karakter) değişkenle yapalım.Bunun için string (alfanümerik veya karakter) değişkenlerin bir adet $ işareti ile belirlendiğini bilmemiz gerekmektedir. A$ şeklinde bir string (alfanümerik veya karakter) değişken kullanacağım. A$ string (alfanümerik veya karakter) değişkenine “Merhaba Dünya” ifadesini atayacağım. Ön-celikle komut ekranımıza aşağıdaki satır yazalım:
a$="Merhaba Dünya"
PRINT a$
Sonra ya F5 tuşuna basalım yada Çalıştır menüsünden Çalıştır seçeneğini seçelim. Ekran görüntümüz yine aynı olacaktır.
Şimdi ise ekranın belirlediğim bir yerinde yani yatay(x) ve dikey (y) koordinatlarını verdiğim bir yerde yazması için SET CURSOR komutunu kullanacağım.Bunun için SET CURSOR x(yatay koordinat),y(dikey koordinat) şeklinde belileyeceğim. Öncelikle komut ekranımıza aşağıdaki satırları yazalım:
SET CURSOR 10,10
a$="Merhaba Dünya"
PRINT a$
Sonra ya F5 tuşuna basalım yada Çalıştır menüsünden Çalıştır seçeneğini seçelim. (10 piksel aşağıda ve 10 piksel sağda oluşacak olan )Ekran görüntümüz 10 satır içerde ve aşağıda oluşacaktır.
Şimdi ekrandan bu string (alfanümerik veya karakter) değişkeni okuyan bir program yazalım .Bunun için Input komutunu kullanacağım. Input “soru” ve string (alfanümerik veya karakter) değişken şeklinde yazarak kullanalım. Öncelikle komut ekranımıza aşağıdaki satırları yazalım:
INPUT "dünyaya ne demelisin?>";a$
SET CURSOR 30,30
PRINT a$
Sonra ya F5 tuşuna basalım yada Çalıştır menüsünden Çalıştır seçeneğini seçelim. Soruya Merhaba Dünya dersek (30 piksel aşağıda ve 30 piksel sağda oluşacak olan)Ekran görüntümüz:
dünyaya ne demelisin?> Merhaba Dünya
Merhaba Dünya
Şimdi rast gele 0 ila 10 arası bir sayıyı ekrana yazdıralım. Bunun için RND(10) komutunu kullanacağım. Öncelikle komut ekranımıza aşağıdaki satırı yazalım:
PRINT RND(10)
Sonra ya F5 tuşuna basalım yada Çalıştır menüsünden Çalıştır seçeneğini seçelim. Ekran görüntümüz:
5
Şeklinde olabilir.(Unutmayın 0 ile 10 arası her sayı çıkabilir.)
Şimdi ekranın her hangi bir yerine Merhaba Dünya (veya soruya ne yanıt verdiysek) yazdıralım do ve loop döngüsü ile devamlı yazmayı sağlayalım CLS komutu ile de ekranı temizleyelim . Öncelikle komut ekranımıza aşağıdaki satırları yazalım:
INPUT " dünyaya ne demelisin?> ";a$
DO
CLS
SET CURSOR RND(640), RND(480)
PRINT a$
LOOP
Sonra ya F5 tuşuna basalım yada Çalıştır menüsünden Çalıştır seçeneğini seçelim ve bu haftaki konumuzu bitirmiş olalım. İlginize Teşekkürler arkadaşlar umarım işinize yaramıştır.