Sayfa 3 / 3 İlkİlk 123
28 sonuçtan 21 - 28 arası sonuçlar
  1. #21

    Varsayılan

    Klasörler içinde gezinmek

    Bu konu bana göre aslında biraz sakıncalıdır. Oluşabilecek kazalardan herkes kendi sorumludur. Bunu baştan belirtmiş olayım.

    Kod:
    files
    Bu kodu çalıştırdığınızda, çalışma alanınızda (kullanıcı hesabınızın ana klasöründe) bulunan bütün dosya ve klasörlein isimlerinin sıralandığını görürsünüz.

    Kod:
    files "belgelerim\"
    Bu şekilde ise Belgelerim klasörünün içinde bulunan tüm alt klasör ve dosyaların isimlerini listelenmiş olarak görebilirsiniz. (Sizin bilgisayarınızda söz konusu klasörün adı "belgeler" olabilir"

    Kod:
    files "belgelerim\gwbasic\
    Benim bilgisayarımda "FILES" kodunu bu şekilde kullanınca, Gwbasic ile denediğim örnekler listeleniyor. Sizin bilgisayarınızda dosya yolu farklı olabilir veya örnek progrmlarınızı sakladığınız bir klasör varsa, adını farklı seçmiş olabilirsiniz. Kendi bilgisayarınıza göre koda eklenen dosya yolunu ve adını düzeltmelisiniz.

    Kod:
    files "belgelerim\gwbasic\*.exe"
    Bu şekilde kodumuzu çalıştırdığımda, (bende) Gwbasic isimli klasörümün içinde buluna ve sadece ".exe" uzantılı dosyalar listelenir. Son bölümü "*.bas" olarak düzelttiğimizde, tüm ".bas" uzantılı dosyaların listesini görebiliriz.

    Kod:
    mkdır "deneme"
    Çalışma alanımızda "MKDIR" kodu ile bir "DENEME" isimli yeni klasör oluşturur.

    Kod:
    mkdir "d: deneme"
    D: diskimizde "DENEME" isimli bir klasör oluşturur.

    Kod:
    mkdir "d: deneme\osman"
    Şimdi D: diskimizdeki "DENEME" klasörü içinde bir "OSMAN" isimli alt klasör oluşturduk.

    Kod:
    chdir "d: deneme\osman"
    "CHDIR" kodu ile D: diskimizde oluşturduğumuz, "DENEME" kalsörü içindeki "OSMAN" alt klasörü içine, çalışma alanımızı taşıdık. Artık, bir program yazıp ta kayıt edecek olursak, buraya kayıt edilmiş olacak ve sadece burada bulunan program dosyalarını açıp, düzenleyebileceğiz. Tabii bu geçiş olayı sadece derleyici kapatılana kadar kalıcıdır.

    Kod:
    10 prınt "Merhaba"
    save "merhaba"
    Şimdi ise kısa bir örnek program yazıp, "OSMAN" isimli alt klasörümüzün içine kayıt ettik. Hemen dosya gerçektende orada kayıtlımı, deneyelm.

    Kod:
    files
    Evet "D:\DENEME\OSMAN" şeklinde belirtilen klasörün içinde "MERHABA.BAS" isimli dosyamızı görebiliyoruz. "<DIR>" şeklinde görebileceğimiz bilgilendirmeler, klasörlerin ve alt klasörlerin sırasıdır.

    Kod:
    mkdır "basic"
    Dosyamızın yanına bir de klasör ekledik ve şimdi ikisini birlikte tekrar listeleyelim.

    Kod:
    files
    Şimdi her ikisinide görebiliyoruz. Bir de bu dosya ve klasörü silmeyi deneyelim.

    Kod:
    kill "merhaba.bas"
    "KILL" kodu ile tüm dosyaları silebiliriz. Ancak dosya uzantısı bu durumda dosya adı ile birlikte yazılmak zorunda.

    Kod:
    rmdir "basıc"
    Klasörleri silebilmek için "RMDIR" kodunu kullanmak durumundayız. Bir klasörü silebilmek için, önce içinde bulunan dosya ve alt klasörleri silmemiz gerekiyor. Klasörün boş olması gerekiyor.

    Şimdi yeni çalışma alanımızdan çıkalım (veya çalışma alanımızı değiştirelim.

    Kod:
    chdir "d:\"
    Bu şekilde, çalışma alanımızı D: diskinin başına (klasörlerin dışına) çıkardık. (aynı şekilde C: diskinede çıkılabilir, ancak ben bunu şimdilik sakıncalı buluyorum)

    Kod:
    rmdir "deneme\osmanİ
    ve

    Kod:
    rmdir "deneme"
    ile daha önce oluşturmuş olduğumuz klasörleri silmiş olduk. Gwbasic ile silinen klasör ve dosyalar kesin olarak silinirler ve geridönüşüm kutusundan tekrar geri getirilemezler. Bu açıdan bakıldığında, yapılabilecek bir hatanın geri dönüşümüün olmadığını da anlayabilmiş olduk.

  2. #22

    Varsayılan

    Sanal grafik ekran

    Gw-basic'in bir den fazla ekran modu desteklediğini ve de bunların aralarında farklı çözünürlükleri olduklarını daha önce yazmıştım.

    Buna ilave olarak, Gw-basic bize kendi seçimimiz olan sanal ölçeklere sahip,sanal pencereler kullanabilmemize olanak tanıyor. Sanal pencereler sadece grafik ekranlar üzerinde çalışırlar.

    En yüksek çözünürlüğe sahip olan "SCREEN 9" ekran modunda bazı denemeler yapalım.

    Kod:
    10 screen 9
    20 cls
    30 wındow(768,1280)-(0,0)
    40 color 2
    50 circle(300,600),10
    Bu kodları çalıştırdığımızda, ekranın sol ortasında küçük bir yeşil daire görebiliriz.

    Kod:
    10 screen 9
    20 cls
    30 wındow(320,640)-(0,0)
    40 color 2
    50 circle(300,600),10
    Kodlarımızda sadece "30" numaralı satırda, boyut parametrelerinde bir değişiklik yaptık ve daire şimdi biraz daha büyümüş ve sağ üste kaymış durumda.

    "WINDOW" kodu parametreleri "LINE" kodu parametreleri ile aynı şekilde yazılırlar. Ancak boyutların yazılışında, köşelerin yerleri ayna bakışı tersindendir. Parametreler üst sol'dan değil de, alt sağ'dan başlarlar. Parameteleri daha önce öğrendiğimizin tam tersine yazmazsak, grafikleri ters düşünerek yazmamız gerekecek. Bu durumu hesaplayabilmek veya sonucu öngörebilmek daha zor olduğundan, parametreleri ayna bakışı ters yazmak daha pratik bir çözüm oluyor.

    Kod:
    10 screen 9
    20 cls
    30 wındow(50,50)-(0,0)
    40 color 2
    50 circle(300,600),10
    Bu durumda kodlarımızı çalıştırdığımızda ise daireyi göremiyoruz, çünkü görüntü alanının dışında kalıyor. Daireyi görüntü alanımızın içine alalım.

    Kod:
    10 screen 9
    20 cls
    30 wındow(50,50)-(0,0)
    40 color 2
    50 circle(25,25),10
    Dairemizin orta noktasını (50,50) boyutunun içine aldığımızda, yarı çapı 10 piksel olması gereken daire, neredeyse boyutu ile ekranımızı dolduruyor. Bunun nedeni ise, sanal penceremizin boyutunu küçülttüğümüz zaman, pencerenin kendisi küçülmüyor, ancak mod olarak küçük pencereye dönüşmüş oluyor. bir başka bakış açısından, daireyi zoom etmiş (büyültmüş veya yakınlaştırmış) oluyoruz.

    Ayrıyetten çizimlerimizi görüş alanı dışınada taşıyabildiğimizide öğrenmiş olduk.

    "30" numaralı satırdaki parametreleri değiştirerek, çizimimizi sağa veya sola kaydırmakta mümükün. Ancak ilk parantezler içindeki rakamlar, ikinci parantezler içindeki rakamlar ile eşit olmaması önemlidir. (x,y) ve diğer (x,y) bir karenin birer karşıt köşeleri olduklarından, eşit olamazlar.

    Bazı örnekler.

    Kod:
    10 screen 9
    20 cls
    25 color 2
    30 for x = 50 to 640
    40 wındow(x,x)-(x-50,x-50)
    50 cırcle(25,25),10
    60 next x
    Bu örneğimizde, sol alt köşeye doğru yeşil daireler çiziliyor. son dairenin görüntü alanının çok dışında kalması nedeniyle, işlemin bitmesi ve "ok" yazısının görünmesi, biz her hangi bir işlemin gerçekleştiğini algılamıyorsak bile, bir süre zaman olıyor.

    Kod:
    10 screen 9
    20 cls
    25 color 2
    30 for x = 50 to 200
    40 wındow(x,x)-(x-200,x-200)
    50 cırcle(25,25),10
    60 next x
    Bu değişiklik ile işlemin tamamını görüş alanımız içine almış olduk.

    Kod:
    10 screen 9
    20 cls
    25 color 2
    30 for x = 50 to 640
    40 wındow(x,x)-(x-640,x-640)
    50 cırcle(25,25),10
    60 next x
    Kod:
    10 screen 9
    20 cls
    25 color 2
    30 for x = 50 to 100
    40 wındow(x,x)-(x-100,x-100)
    50 cırcle(25,25),10
    60 next x
    Kod:
    10 screen 9
    20 cls
    25 color 2
    30 for x = 200 to 10 step -1
    40 wındow(x,x)-(x-50,x-50)
    50 cırcle(25,25),10
    60 next x
    Kod:
    10 screen 9
    20 cls
    30 color 2
    40 circle(50,50),25
    50 wındow(100,100)-(0,0)
    60 circle(50,50),25
    Kod:
    10 screen 9
    20 cls
    30 color 2,1
    40 for x = 200 to 50 step -1
    50 wındow(x,x)-(0,0)
    60 cırcle(x/2,x/2),10
    70 paınt(x/2,x/2),2
    80 next x
    Kod:
    10 screen 9
    20 cls
    30 color 2,1
    40 for x = 200 to 50 step -5
    50 wındow(x,x)-(0,0)
    60 cırcle(x/2,x/2),10
    80 next x
    Kod:
    10 screen 9
    20 cls
    30 color 2,1
    40 for x = 200 to 20 step -5
    50 wındow(x,x)-(0,0)
    60 cırcle(x/2,x/2),10
    80 next x
    En son oasman tarafından düzenlenmiştir: 16.12.2013 12:41 Sebep: İlave

  3. #23

    Varsayılan

    Grafiklerin çoğaltılması (Klonlamak)

    Çizdiğimiz bir grafiği, çoğaltarak, ekrarnın farklı bölümlerinde yeniden ekleyebiliriz.

    Kod:
    10 screen 9
    20 color 2,4
    30 circle(100,100),40
    40 dim top(1000)
    50 get(60,60)-(140,140),top
    60 put(200,200),top
    Bu örneğimizde "30" numaralı satırda bir küre çiziyoruz ve "50" numaralı satırdaki "GET" kodunu kullanarak, küremizin içinde bulunduğu alanı bir kare şeklinde içe alıyoruz ve "40" numaralı satırda tanımladığımız "TOP" isimli değişken ile değer olarak ilişkilendiriyoruz. "TOP()" isimli değişkenin parantezleri içinde belirtilen rakam ise ("DIM" ile tanımlanan değişkenler bir dizi'dir) değişkenimizin kaç değer ile eşleşebileceğini belirtir. Bu durumda 1000 adet piksel ile eşleştirilebilir. Bu piksellerin değer olarak toplam sayısı her zaman grafiğimizin kapladığı alanı geçmek zorunda veya eşdeğer olabilir ama daha az olamaz.

    "50" numaralı satırda "GET" kodu ile kestiğimiz alanı, "60" numaralı satırdaki "PUT" kodu ile parantezler içinde belirtilen alana kopyalıyoruz. Belirtilen alan noktası, kopyanın ekleneceği alanın sol üst köşesidir. Kopyalanacak alanın tamamı ekran alanının içinde bulunmak zorunda.Bir kısmının dışa taşması durumunda, işlem bir hata bildirisi ile sonlanır.

    "GET" ve "PUT" kodlarının parametrelerinin sonuna "DIM" ile tanımlanmış değişkenin adı mutlaka eklenmelidir.


    Kod:
    10 screen 9
    20 color 2,4
    30 circle(100,100),40
    35 paint(100,100),2
    40 dim top(1000)
    50 get(60,60)-(140,140),top
    60 put(200,200),top
    70 put(400,200),top
    80 put(250,250),top
    Şimdi kodlarımıza 3 yeni satır daha ekledik. "35" numaralı satır ile dairemizi renklendirdik ve "70" ve "80" numaralı satırlarla iki kopya daha ekledik. Yeşil renkli küremiz üç kez ve ekranımızın farklı yerlerine kopyalanmış oldu.

    Kod:
    10 screen 9
    20 cls
    30 key off
    40 dim top(1000)
    50 color 1,14
    60 circle(100,100),40
    70 paint(100,100),1
    80 locate 8,10
    90 color 4
    100 print "Merhaba"
    110 get(58,58)-(142,142),top
    120 for x = 58 to 550
    130 put(x,58),top,pset
    140 next x
    Bu örneğimizde ise, bu sefer lacivert olan küremizin içine bir de kelime ekliyoruz. Ve de bir "FOR" ve "NEXT" dögüsü içinde kullandığımız "PUT" kodu ile grafiğimizi hareketlendiriyoruz. "PUT" koduna eklediğimiz son parametre olan "PSET" kodu ise, hareketlenme esnasında geriye dök iz kalmamasını sağlıyor. Ve Gw-basic'te dairelerin parametresiz olduklarında, hafif bir elips olduklarını daha önce yazmıştım. Bu nedenle bu sefer "GET" ve "PUT" kodlarındaki alan belirleme parametrelerinde kullandığımız rakamları biraz daha geniş bir alanı kapsayacak şekilde yazdık ki,alan dışına taşacak olan elips'in yanları geride yine birer iz bırakmasınlar.

    Hareketli küremizin hızını artırabilmek için "120" numaralı satırın sonuna "STEP 2" veya "STEP 3" ekleyebiliriz. Dikkat ettiyseniz, daha önceki hareketli programlarımız ile kıyaslandığında, yanıp sönmeler bu yöntemde yok ve akıcı bir hareket izleyebiliyoruz.

    İsterseniz "130" numaralı satırın sonundaki "PSET" kodunu "PRESET" ile değiştirebilirsiniz ve hareket eden bölümün tamamını izleyebilirsiniz. Bunun için bir de "80, 90 ve 100" nolu satırları iptal etmeniz gerekir. Bu şekilde, işlemin nasıl yürüdüğünü görebilirsiniz. "PRESET" kodu "PSET" kodu ile eş anlamlıdır ancak (Fotografçılık terimi ile) negatifi dir.

    Diğer örnekler:

    Kod:
    10 screen 9
    20 cls
    30 key off
    40 dim top(1000)
    50 color 1,14
    60 circle(550,100),40
    70 paint(550,100),1
    80 locate 8,10
    90 color 4
    100 print "Merhaba"
    105 locate 20,1
    110 get(508,58)-(592,142),top
    120 for x = 550 to 0
    130 put(x,58),top,pset
    140 next x
    Kod:
    10 screen 9
    20 cls
    30 color 1,14
    40 cls
    50 cırcle(100,100),20
    60 paint(100,100),1
    70 dim top(400)
    80 get(78,78)-(122,122),top
    90 for x = 78 to 300
    100 put(78,x),top,pset : put(244,x),top,pset : put(366,x),top,pset
    110 next x
    Kod:
    10 screen 9
     20 cls
     30 color 1,14
     40 cls
     50 cırcle(100,100),20
     60 paint(100,100),1
    70 dim top(400)
     80 get(78,78)-(122,122),top
     90 for x = 78 to 300
    100 put(78, x),top,pset
     105 put(x*1.5, 244),top,pset
     110 next x
    Kod:
    10 screen 9
     20 cls
     30 color 1,14
     40 cls
     50 cırcle(100,100),20
     60 paint(100,100),1
    70 dim top(400)
     80 get(78,78)-(122,122),top
     90 for x = 78 to 550
     100 put(x, 78),top,pset
     110 next x
    120 for y = 550 to 78 step -1
    130 put(y, 78),top,pset
    140 next y
    150 goto 90
    En son oasman tarafından düzenlenmiştir: 18.12.2013 18:01 Sebep: Ekleme

  4. #24

    Varsayılan

    Bazı kolaylıklar

    Uzun süren kodlama işlemleri esnasında sürekli satır numaraları yazmak, bazen rahatsız edici olabilir. Bunun için Gw-basic bir kolaklık barındırır

    Kod:
    auto
    "AUTO" komutunu gırdığınız zaman, enter tuşuna bastığınızda,alt satırda "10" satır nuarasını görbilirsiniz. Bu şekilde alt bölüme eklediğim kodları yazalım ve deneyelim.

    Kod:
    print "Merhaba"
    print "Bugün nasılsın ?"
    print "Akşam maç var"
    print "beraber izleyelimmi ?
    Buraya kadar gördüğümüz gibi tümsatır numaraları kendiliğinden ekleniyor. Bu örneğimizde son satır numarası olan "50" numaralı satırı boş bırkıp,

    ctrl ve c

    tuşlarına aynı anda bastığımızda, otomatik numaralandırma iptal olur.

    "AUTO" ile otomatik yazılan satır numaralarının ardında "*" (yıldız) işaretini görecek olursanız, bu size, hafızada başka bir "10" numaralı satırın saklı olduğunu ve o hafızada saklı olan satırın üzerine yazmakta olduğunuzu gösterir. Kazaları önleme amaçlı düşünülmüş bir önlem.

    Gw-basic, çizimler için de bir kolaylık barındırır.

    Kod:
    screen 9
    Kod:
    color 2
    Kod:
    cls
    Şimdi çizimlerimize başlayabiliriz. Önce bir başlama noktası belirlemeliyiz.

    Kod:
    pset(200,200)
    x200 ve y200 parametrelerinin çakıştığı noktada şimdi bir yeşil nokta görebilirsiniz. Bu yeşil nokta, bizim başlangıç noktamız oluyor. Bir başlangıç notası belirlerken, seçtiğiniz ekren modunun desteklediği ölçüleri göz ardı etmemeliyiz. Bie başlangıç noktası belirlemememiz durumunda, varsayılan başlangıç noktası, ekranımızın ortasıdır.

    Kod:
    draw "u 100"
    "DRAW" kodu ile çizimler yapabilmek, "LINE" koduna göre daha az parametrik girdi gerektiriyor ve her bir sonraki çizim, bir öncekinin bittiği yerden başlıyor. Bir başlangıç noktasının gerekliliğide bu nedenledir. İlk çizimimiz 100 piksel yukarıya doğru olmuş oldu. "U" parametresi kullanıldığında, ardındaki rakam değerinde, piksel boyutu, yukarıya bir çizim gerçekleştirir.

    Kod:
    draw "r 100"
    Şimdi de ilk çizimimize bitişik olarak, sağa 100 piksel'lik bir çizgi çizdik. "R" parametresi sağa yön verir.

    Kod:
    draw "d 100"
    "D" parametresi ise aşağıya bir çizim yapabilmemizi sağlar.

    Kod:
    draw "l 100"
    "L" parametresi ile ise, sola yönelimli bir çizim yapabiliyoruz ve sonuç olarakta bir kare şekli çizmiş olduk.

    Devam edlim.

    Kod:
    draw "e 100"
    "E" parametresi ile sağ üste çapraz bir çizim gerçekleştirebiliyoruz.

    Kod:
    draw "f 100"
    "F" parametresi ise, sağ alta çapraz bir çizim gerçekleştirir.

    Kod:
    draw "g 100"
    "G" ile sol alta doğru çapraz bir çizim yapabiliyoruz.

    Kod:
    draw "h 100"
    ve "H" parametresi ile de sol üste doğru çapraz bir çizim gerçekleştirebiliyoruz.

    Gw-basic Nota bilenler içim de kolaylık sunuyor. Daha önce "SOUND" ile beste yazmayı denemiştik. Şimdi " bir de "PLAY" kodu ile bu işlemi nasıl yapabileceğimizi görelim.

    Kod:
    play "L4 A"
    Siz küçük harfler kullanarakta yazabiirsiniz, Gw-basic otomatik olarak düzeltecektir. Ancak büyük harfler ile hangi harf'in kullanıldığı daha iyi anlaşılıyor. "L4" burada sesin be kada uzun olabileceğini belirliyor "A" ise nota oluyor.

    Kod:
    play "L1 A"
    "L1" en uzun süre oluyor.

    Kod:
    play "L64 A"
    "L64" ise en kısa süre oluyor. "L65" olarak denediğinizde hata alırsınız.

    Kod:
    play "L2 B"
    Kod:
    play "L2 C"
    Kod:
    play "L2 D"
    Kod:
    play "L2 E"
    Kod:
    play "L2 F"
    Kod:
    play "L2 G"
    "A" ile "G" arası harfler nota'ları temsil eder.

    Kod:
    10 play "L2 G"
    20 play "L2 G#"
    30 play "L2 G+"
    40 play "L2 G-"
    "#" ve "+" ve "-" eklentileri ara sesleri temsil ederler.

    Kod:
    10 play "L2 G O0"
    20 play "L2 G O1"
    30 play "L2 G O2"
    40 play "L2 G O3"
    50 play "L2 G O4"
    60 play "L2 G O5"
    70 play "L2 G O6"
    Burada Notalarımıza eklediğimiz "O" Oktave anlamına gelir ve 0 ve 6 arası parametreleri kabul eder.

    Kod:
    10 play "L2 N1"
    20 play "L2 N2"
    30 play "L2 N3"
    40 play "L2 N15"
    50 play "L2 N84"
    Bu şekilde de "N1" ve "N84" arası farklı notalar çalmak mümkün.
    En son oasman tarafından düzenlenmiştir: 19.12.2013 22:55

  5. #25

    Varsayılan

    Sistem ile ilgili işlemler

    Bu bölümde işletim sisteminiz (Windows) ile ilgili işlemleri göreceğiz. Gwbasic ile işletim sisteminizin araçlarını birlikte kullanmanız mümkün. Ancak böyle bir durumda, sadece Gwbasic'in kod ve komutlarını bilmek, bu tür işlemler için yetersiz kalıyor. Yararlanacaağınız araçların işlevini ve de nasıl işlediklerinide bilmeniz gerekiyor. Burada, Gwbasic kodu veya komutu olmayan komut ve kodları mavi renk ile ayırt edeceğimki, ileride bir karışıklığa neden olmasınlar.

    Kod:
    shell "command"
    veya

    Kod:
    shell "cmd"
    Bu iki kod ve parametreleri ile Windows'un komut satırını Gwbasic içinde yönetebiliyoruz. "COMMAND.EXE" ve "cmd.exe" aslında Windows'ta kurulu olan iki farklı programlar (araçlar demek bu tür programlar için daha yaygın, çünkü bunlar sistem programları) Ancak her ikiside aynı işlemleri görürler.

    Kod:
    dir
    Bu komut ile, Gwbasic içinde açılan komutsatırının bulunduğu klasör içindeki alt klasörler listelenirler.

    Kod:
    tree
    Bu komut ile ise içinde bulunduğunuz klasör içindeki diğer alt ve onlarında içindeki diğer klasörlerin hirarşi içindeki görünümü sıralanır.

    Hangi klasör içinde nulunduğunuz ise, komut satırının, ilk açıldığında, ilk satırlarda, dosya yolu olarak yazılı olarak görünür. Komutsatırnı Gwbasic ile değilde, sistemden açtığınızda, hep kullanıcı hesabınızın ana klasörü içinde açılır. Varsayalımki, Gwbasic'te o ana klasörün içindeydi ve siz Komutsatırını Belglerim klasöründe açılsın (veya girmek) istiyorsunuz.

    Kod:
    cd Belgelerim
    Bu şekilde Belgelerim klasörü içine girmiş olursunuz.

    Kod:
    cd Belgelerim\Resimlerim
    Veya bu şekilde Belgeleri klasörü içindeki alt klasör olan Resimlerim klasörüne girebilirsiniz. Tekrar geri çıkmak için ise, en baştan "C:\klasör ismi\klasör ismi" şeklide yine "cd" komutunu kullanarak ilk klasöre veya başka bir klasöre girbilirsiniz.

    Tüm kullanabileceğiniz komutları görebilmek için

    Kod:
    help
    komtunu girdiğinizde, tüm komutlar ve kısa açıklamaları sıralanacaktır. Komut satırından çıkmak için ise

    Kod:
    exit
    komutunu giriyoruz ve Gwbasic ekranına geri dönüyoruz. Aynı komut, komutsatırını sistemden başlatmış olsaydık, komut satırını kapatırdı.

    Gwbasic'ten

    Kod:
    system
    komutunu girdiğimizde ve başlattığımızda, yine komutsatır karşımıza çıkacaktır. Ancak bu sefer Gwbasic kapanmış olacaktır ve tekrar "exit" komutunu kullandığımızda, komutsatırı Gwbasic'e geri dönmeyecek ve kapanacaktır.

    Komutsatırını sistemden başlattığımızda

    Kod:
    gwbasic
    komutu ile Gwbasic'i başlatabiliriz. Gwbasic, kullanıcı hesabımızın ana klasöründe bulunması gerekir tabii. Veya GWBASIC.EXE dosyasının bulunduğu klasöre önce, daha önce belirttiğim şekilde girilmesi gerekir.

    Kod:
    gwbasic programadı.bas
    Bu şekilde ise, Gwbasic'e eklenen parametrede adı geçen program başlatılabilir. Gwbasic ile bir başka uygulamayı başlatalım.

    Kod:
    shell "notepad"
    Bu komut ile "Notdefterini başlatmış bulunuyoruz. Şimdi Notdefterine bazı kodlar yazalım. bunun tabi Gwbasic ile değilde, Notdefteri ile yapıyoruz.

    Kod:
    @echo Merhaba
    pause
    Şimdi bu kodları kayıt etmeden önce, dosya türleri arasından "Tüm dosyalar" seçiyoruz. Aksi durumda bu dosya bir "txt" dosyası olarak kayıt edilir. Ve dosyamıza isim olarak "selam.bat" veriyoruz. Notdefterini kapatana kadar Gwbasic kullanım dışı kalır.

    Şimdi "selam.bat" isimli dosyamızı çift tılayalım. Göreceğizki bir konsol programı yazmışız. Program çıktı olarak "Merhaba" yazar ve bekler. herhangi bir tuşa basıldığında da kapanır.

    Gwbasic ile

    Kod:
    shell "selam"
    kodunu yazdığımızda, "selam.bat" yine çalışacaktır Komutsatırı ile ise

    Kod:
    selam
    yazmamız yeterli. Yine bir ".bat" dosyası ile bir basic programı çalıştırmakta mümkün.

    Örnek olarak:

    Kod:
    @echo off
    GWBASIC PROGRAMADI.BAS
    Bu kodları yazdığımız ".bat" dosyasını (örnek "başlat.bat" olarak kayıt edip, ve "başlat.bat" dosyasını çift tıkladığımızda, Basic programımız çalışacaktır. Gwbasic ve basic programımız bat dosyamızın içinde olmadığı bir başka klasördelerse, Gwbasic ve basic programımız için dosya yollarınıda girmemiz gerekir.

    Gwbasic, sadece "C:\windows\system32" içinde bulunan uygulamaları (sistem araçlarını) ve kendi içinde bulunduğu klasör içinde bulunan ".exe" ".com" veya ".bat" uzantılı dosyaları çalıştırır.

    Ancak çlıştırılacak dosyaları içinde bulunduran klasör yolunu (sadece Gwbsic kapanana kadar) değiştirme olanağıda var.

    Örnek:

    Kod:
    environ "PATH = Belgelerim\"
    Bu kodlardan sonra Gwbasic ile Belgelerim içinde bulunan bir ".bat" dosyasını (veya .exe yada .com dosyasını) ismi yazıldığında çalıştıracaktır. (Windows 7 alt klasör içinde bir ".bat" dosyasının "PATH" üzerinden çalıştırılabilmasine izin vermedi). Bu şekilde bir klasörden bir alt klasöre geçişleriçin, her bir geçiş için ayrı bir adım gerekiyor. Komutsatırının "cd" komutu gibi, geri dönüş veya bir üst klasöre "PATH" (patika veya yol) aktarımı yine en baştan "C:\" diskinden başlar. Ancak komutsatırındaki gibi tüm dosya yolu tek bir seferde yazılamaz.

    "PATH" tin var olan yerini tesbit edebilmek için "ENVIRON" kodu yerine "ENVIRON$" kodunu kullanıyoruz. Örnek:

    Kod:
    print environ$("PATH")
    Her iki koddada "PATH" büyük harflerle yazılmadığında, Gwbasic ne istediğinizi anlayamıyor.

  6. #26

    Varsayılan

    Önermeye değer bulduğum bir başka Türkçe anlatım: http://midiler.50megs.com/gwba.html

    Gwbasic ve programlarını Linux'ta çalıştırmanın bir yöntemi: http://kemalkb.blogspot.com.tr/search/label/GW-BASIC
    En son oasman tarafından düzenlenmiştir: 27.01.2014 11:57

  7. #27

    Varsayılan

    Grafik Örnekler:

    Örnekler, ilk ikisi haricinde, "Introducing Small Basic" isimli belge'den, Gwbasic'e çeviridir.

    TABLO1
    Kod:
    10 SCREEN 9
    
    20 KEY OFF
    
    30 CLS
    
    40 FOR X = 100 TO 600 STEP 100
    
    50    LINE (X,0)-(X,350)
    
    60    LINE (0,X/2)-(640,X/2)
    
    70 NEXT

    TABLO2
    Kod:
    10 KEY OFF
    
    20 SCREEN 9
    
    30 CLS
    
    40 FOR X = 50 TO 600 STEP 50
    
    50    FOR Y = 40 TO 320 STEP 40
    
    55       COLOR X/100
    
    60       LINE (X,0)-(X,350)
    
    65       LINE (0,Y)-(640,Y)
    
    70    NEXT
    
    80 NEXT

    RENKLER1
    Kod:
    10 KEY OFF
    
    20 SCREEN 9
    
    30 CLS
    
    40 FOR X = 0 TO 600 STEP 100
    
    50    FOR Y = 10 TO X/10
    
    55       COLOR X/100
    
    60       LINE (X+Y,0)-(X+Y,400)
    
    70    NEXT
    
    80 NEXT

    RENLER2
    Kod:
    10 KEY OFF
    
    20 SCREEN 9
    
    30 CLS
    
    35 RENK = 1              
    
    40 FOR X = 0 TO 600 STEP 50
    
    45 RENK = RENK
    
    50    FOR Y = 1 TO X/10
    
    55       COLOR RENK           
    
    60       LINE (X+Y,0)-(X+Y,400)
    
    70    NEXT
    
    75    RENK = RENK + 1        
    
    80 NEXT

    KARELER1
    Kod:
    10 SCREEN 9
    
    20 CLS
    
    30 KEY OFF
    
    40 FOR X = 10 TO 150 STEP 3
    
    50    LINE(310-X,170+X)-(320+X,170+X)
    
    60    LINE(320+X,170+X)-(320+X,160-X)
    
    70    LINE(320+X,160-X)-(310-X,160-X)
    
    80    LINE(310-X,160-X)-(310-X,170+X)
    
    90 NEXT

    KARELER2
    Kod:
    10 SCREEN 9
    
    20 CLS
    
    30 KEY OFF
    
    40 FOR X = 10 TO 150 STEP 3
    
    45    COLOR X/10
    
    50    LINE(310-X,170+X)-(320+X,170+X)
    
    60    LINE(320+X,170+X)-(320+X,160-X)
    
    70    LINE(320+X,160-X)-(310-X,160-X)
    
    80    LINE(310-X,160-X)-(310-X,170+X)
    
    90 NEXT

    SIPIRAL1
    Kod:
    10 SCREEN 9
    
    20 CLS
    
    30 KEY OFF
    
    40 FOR X = 10 TO 150 STEP 5
    
    50    LINE(310-X,170+X)-(320+X,170+X)
    
    60    LINE(320+X,170+X)-(320+X,160-X)
    
    70    LINE(320+X,160-X)-(300-X,160-X)
    
    80    LINE(300-X,160-X)-(300-X,175+X)
    
    85    LINE(300-X,175+X)-(310,175+X)
    
    90 NEXT

    SIPIRAL2
    Kod:
    10 SCREEN 9
    
    20 CLS
    
    30 KEY OFF
    
    40 FOR X = 10 TO 150 STEP 5
    
    45    COLOR X/15
    
    50    LINE(310-X,170+X)-(320+X,170+X)
    
    60    LINE(320+X,170+X)-(320+X,160-X)
    
    70    LINE(320+X,160-X)-(300-X,160-X)
    
    80    LINE(300-X,160-X)-(300-X,175+X)
    
    85    LINE(300-X,175+X)-(310,175+X)
    
    90 NEXT

    NOKTALAR
    Kod:
    10 CLS
    
    20 KEY OFF
    
    30 SCREEN 9
    
    40 RANDOMIZE TIMER
    
    50 FOR I = 1 TO 100
    
    60    COLOR RND(1)*14+1
    
    70    X = RND(1)*620+10
    
    80    Y = RND(1)*330+10
    
    90    CIRCLE (X,Y),5
    
    100    PAINT (X,Y)
    
    110 NEXT
    En son oasman tarafından düzenlenmiştir: 05.05.2014 15:43 Sebep: İlave

  8. #28

    Varsayılan

    PCBASIC

    Gw Basic'i günümüz 64 bit Windows işletim sistemlerine aktaran bir çevirici. Burada kullandığım bir kaç örneği denedim ve denediklerimin hepsi çalıştılar. Ancak Pc Basic komut satırında değil, kendi penceresinde çalışıyor ve o pencere de kare şeklinde. Bu durum grafiklerde hesap edilmezse, dikdörtgen ekranda düzgün görünen, kare ekranda şişko görünebilir.

    PC-Basic'i buradan edinebilirsiniz : https://sourceforge.net/projects/pcbasic/

    Pc Basic, Gw Basic gibi tek bir dosyadan oluşmuyor. Tam aksine düzinelerce dosyadan oluşuyor ve indirilen dosya ise bir kurulum dosyası. Çift tıklandığında, size nereye kurulacağını soracaktır. Benim tavsiyem, ilk kurulum yeri olarak "Belgelerim" seçin ve denedikten sonra istediğiniz yere (mesela C diskinin kök dizinine) kurun. Ben şimdilik öyle yaptım. "Belgelerim"e kurunca, masaüstüne bir simge atanmadı, ben de bu işi el ile yaptım PC-BASIC klasörü içindeki "pcbasic.exe" dosyasına sağ tıkladım ve gönder seçtim, gönderilecek yer olarak ta "Masaüstüne başlatıcı" seçtim. PC-BASIC klasöründe düzinelerce dosya ve alt klasörler bulunuyor. Bu klasörler arasından "doc" isimli olanın içinde "PCBASIC documentation" isimli bir yardım ve klavuz dosyası mevcut.
    En son oasman tarafından düzenlenmiştir: 03.04.2017 16:34

Benzer Başlıklar

  1. q basıc yardım
    carg tarafından Programlama Dilleri forumunda
    Yanıt: 9
    Son Mesaj: 02.05.2008, 00:39
  2. BASİC KODLARI
    hacker_382 tarafından Programlama Dilleri forumunda
    Yanıt: 5
    Son Mesaj: 20.12.2005, 05:31
  3. VİSUAL BASİC FREE
    hacker_382 tarafından Programlama Dilleri forumunda
    Yanıt: 3
    Son Mesaj: 20.09.2005, 18:31
  4. visual basıc 6.0
    revolver_ocelot tarafından Programlama Dilleri forumunda
    Yanıt: 4
    Son Mesaj: 28.06.2005, 19:11
  5. VİSUAL BASİC
    Hacker_Ozgur tarafından İnternet, Ağ ve Güvenlik forumunda
    Yanıt: 2
    Son Mesaj: 05.09.2003, 12:45

Gönderim İzinleri

  • Yeni başlık açamazsınız
  • Yanıt yazamazsınız
  • Eklenti gönderemezsiniz
  • Mesajlarınızı düzenleyemezsiniz
  •