Bu sayfadaki yazılar
Sayfanın metni
Sayfa 72
rapçı mı?" diye soruyorsun. Bu sayı monitörünün yaşıdır. Eee! 1084 yaşındaki bir monitörde tabii ki titreme olur. Bilirsin insanlarda bu titreme 60 ve 70 yaşlarında başlar. Bu sebeple sana (benim yaptığım gibi) 18S MONİTÖR almanı tavsiye ederim. Bu arada sayının yanındaki "S" harfini merak edenler başka bir maceramı beklesinler. Onun manasını da orada anlatacağım.
2> Olmaz! Soğuk suyun sürücüler üzerinde şok ve ardından felç etkisi yaptığını herkes bilir. Eğer olumlu sonuç almak istiyorsan sıcak suda yıka. Yoksa sürücünün alt ya da üst tarafı felç olabilir. (Bknz: BİLGİSAYARALOJİ bilimlerinde geri koşan adam. Yazan: DOÇ. DR. Çavuş NAZİF GIDIALTI)
3> Bunu babama sormalıyım. Sordum bilene. Benden önce dünyaya gelen abimin ismi AMIGA ABİ'ymiş, ama o 8 aylıkken önce ben dünyaya gelmişim. Kahretsin yanlış otobüse binince kendimi burada buldum. Aslında ben AKSARAY'a gitmek istiyordum. İşte babam adımı KOMMODOR ABİ koymuş. Anladın mı?
4> Evet okur var. MICROPIRASA adlı ünlü simülasyon firması yeni bir oyun çıkardı. Bu simülasyon DEVEKUŞU SİMÜLASYONU. Yalnız oyunu oynayanlar DEVEKUŞU'nu kaldıramamış. Oyunun sonsuz haklı versiyonu yakında çıkacakmış.
Tekrar görüşmek üzere hoşçakal. Aaa ne kadar HOŞ bir ÇAKAL. Aaa HOŞ bir TİLKİ. Aaaa HOŞ bir KURT da varmış burada. Aaaaa.....
Bu arada bilgisayar ile çekilmiş fotoğrafınızı gönderin demiştim. Birçok okur arkadaş bana bilgisayar ile nasıl fotoğraf çekeceğiz diye soruyor. Nfhohohahano! Öyle değil yani fotoğrafın bir yerinde bilgisayarın gözükmesi şart demiştik. Yani aşağıda bir örnek veriyoruz. (Bknz: Bu sayfa, yıl 1992)
Şimdi çok uzun mektup yazan bir okurun mektubundan kısa bölümler yazacağım. Okurun adı VE.FA LOK. Onun da takma adı var. Takma adı BEST AMIGA WARRIOR. Bir de resim göndermiş. Buyrun resminiz sayfamızı süslüyor. Uğurlu sayısı 19. Derginin bu sayfalarını yalnızken okuyor. Kalabalıkta okursa, etrafındakiler BİLGİSAYAR DERGİSİ okurken güldüğünü görünce garipsiyorlarmış. Esprilerim çok kaliteymiş. (Teşekkürler.)
Ehh! Valla herkes senin gibi düşünüyor. Mektubun için sağol ama daha iyi espriler ve daha komik bir mektup bekliyorum OK? Tekrar görüşmek üzere bye..
SAMSUN'un delileri KOMMODOR ABİ fanatikleri COMANIACS'lar, bana kendilerini VİDEO kasetine çekmişler göndermişler. Sağolsunlar uzak diyarlardaki okurlarımı canlı ve kanlı gördüm. HOBAREY! Hey YAŞAR! İlgin için teşekkürler sen bu satırları okurken ben çok uza...
Hey! ANTİN KUNTİN! Neler yazıyorum. Sen bu satırları okurken demo disketlerine bakıyor olacaksın. Yakında görüşmek üzere. Yine yaz haa! Bu arada Ankara'lı okurum BÜLENT YASER (Bu sefer soyadını doğru yazdım değil mi?) İstanbul'a gelip beni ziyaret etti. Teşekkürler efendim, yine beklerim. C U & ByE...
Şimdi yeni bir mektup ve dertlere cevaplar:
Sevgili KOMMODOR ABİ. Bendeniz A.C.A Software© 1986 kurucu elemanlarındanım. Bu aralar aklımı kurcalayan çeşitli sorularım var. Bir ruh doktoruna gittim ve hemen seni tavsiye etti. Ben de sana danışmaya karar verdim. İyi mi ettim? Ettiysem niye ettim, etmediysem niye etmedim? Eyvah yine başladı. Neyse hemen sorularıma geçelim.
1> Geçen gün arkadaşlarla atletizm müsabakasında disk attık, ama nedense 5.25 disketler 3.5 disketlere nazaran daha az gitti. Acaba niye böyle oldu? Harddisk atsaydık daha mı iyi olmazdı?
2> DOSHELL var da, DOSMOBİL veya DOSPETROL OFİSİ var mı? Acaba buralarda benzin daha mı ucuz?
3> XCOPY'deki X, bir bilinmeyen mi? Eğer öyleyse sonucu niye bulamıyorum? Matematiğim zayıf mı?
4> Printer'im ısınınca terliyor. Aynı sorun blitter'imde de var. Ne yapayım?
5> SEKA isimli programı SEKA KAĞIT FABRİKASI'nın yaptığı doğru mu? Öyleyse niye yaptı?
6> ToyotaSa, KordSa Sabancı'nın. Peki NaSa da Sabancı'nın mı? Öyleyse Amerika bunu ne zaman, kaça sattı? Yoksa devren kiraladı mı?
7> Bir şeyin fiyatı, ucuzsa "Aaa, sudan ucuz valla!" diye kıyaslama yapıyoruz. Acaba niye su en ucuz? Ondan ucuz bir şey yok mu? Varsa nedir?
Sorularımı cevaplayıp beni ruhi bunalımdan kurtarırsan çok sevineceğim. Agnus'un ellerinden, Paula'nın gözlerinden, Denise'in yanaklarından öperim. Hadi eyvallah.
UNFORGIVEN * Dertli hasta OKUR. Hmmm! Tipik bir öpme sendromu! Sana sağı solu öpmeni değil sülükleri öpmeni tavsiye edeceğim. Bu tedaviden sonra SAMANTHA FOX'u görsen bile öpmezsin. Neyse Dertli UNFORGIVEN, işte cevaplar;
1> Eğer disketlere HARD'N HEAVY adlı oyunu çekersen, harddisk atmana gerek kalmaz. Çünkü bu oyun oldukça çok ağırdır.
2> Bazıları var, ama onları burada yazamıyorum. Reklam oluyormuş.
3> Allahım, nedir bu matematiği zayıflardan çektiğim. Aaa saçmış! Neyse orada bulunması gereken bilinmeyen, X değil Y yani X=COP+Y Eğer sinüshipopotamını alırsan, X=0 ve Y=874767453.333330 çıkar. Şimdi çıkanların karesini al ve üçgenlerini geri ver! Bir daha üçgenlerini aldığını görürsem cıs yaparım!
4> Bu terleme sorunları çok kez birçok kullanıcının başına gelir. Bu terler bilgisayara damlarsa bilgisayarın bilgisaymaz. Yani bozulur. Bu işlem için TER-lik al. Printer'in ve Blitter'in terlerini burada biriktirsinler ve dikkatli çalışsınlar. Gece bu terleri terliklerden dökmeyi unutma!
5> Tabii ki assembler programı olan SEKA'yı SEKA KAĞIT FABRİKASI'nın sahibi yapmış. Hatta kız kardeşi SEKA'da Almanya'da filmlerde oynuyor.
6> Yoo hayır, sadece bir benzerlik. 7> İşte şaşkın okur serisinin yeni bir örneği. "Aaa, sudan ucuz valla!" kıyaslamasındaki "SUDAN" kelimesi bir Afrika ülkesi olan Sudan'ı kastediyor. Bu devlette her şey çok ucuzdur. Herkes burada mutlu ve zengindir. İşte çok ucuz bir şey gördüğümüzde Sudan'ı kastederek "Aaa, sudan ucuz valla!" deriz. Anladın mı sevgili okurum?
Selamını CEKO'ya söylerim. Tabii ki görürsem. Hey CEKO, bana telefon aç!
Şimdi size komik sorular ve laflar! Bu sorular bizzat sorulmuş ya da söylenmiştir. Uydurma değildir!
> AMIGA'nın altındaki yer PİL yeri mi! > AMIGA 5000 çıktı mı? > ASTERIX oyununda adımdaki 'ö'yü yazamıyorum. Nasıl yazabilirim? Ayrıca Şirinevler'deki komik sorular abidesi ALPER'e ilginç soruları hiç zorlanmadan bulduğu ve ilginç teorileri için çok teşekkür ederim. ALPER'e göre: Eğer bilgisayarınızı HARDDİSK işlemleri sırasında kapatırsanız, ŞAMAR yemiş gibi olurmuş. Ona göre HARDDİSK kullanıcıları dikkatli olun. Ve tüm okurlar unutmayın! KOMİK RESİM yarışmamız devam ediyor! Unutmayın! Sürpriz hediyemiz çok ilginç! Yarışma bittikten sonra keşke ben de katılsaydım demeyin! Hala beni merak edenler rekor seviyede! Niye resmimi basmıyorum? Nihohahaoho intikam.
Şimdilik bu kadar! Hadi okurlar bye! Tekrar görüşürüz. Haa ilginç mektuplarınızı (hediyelerinizi!) bekliyorum. CU later ALLIGATOR..
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 73
mizi ekrana ortalayarak yazmak için LOCATE emrini kullanıyoruz, ekran 80 sütun boyunda (yaklaşık) dolayısı ile 40 - (dd/2) satırı ortalayacaktır. Sonra ismi tarıyoruz, ilk karakterinden son karakterine (dd) kadar, bir harf varsa bunu - ile gösterecektik. Yok ama harf değil de boşluk varsa boşluk yazacağız. Bunu anlamak için MID$ emrinden yararlanıyoruz. MID$(d$,f, 1) komutu kısaca d$ isminin f'inci karakterinden itibaren bir karakter anlamında. Oyunun bundan sonraki ismine dada adını verdim (Umarım çocuğuma bir başkası isim verir).
dada: hak x hak +1 LOCATE 6,60:PRINT " LOCATE 6,60:PRINT "Puan : ";puan
x = INT (RND*5) y = 10 + INT(RND*20) FOR f = 1 TO y x = x+1 : IF x = 6 THEN x = 0 LOCATE 6,1 O.PRINT" LOCATE 6,10:PRINTj$(x) FOR a = (y-f)*25 TO y*25 NEXTg NEXTf IF x = 5 THEN puan = 0:GOTO dada Burada son derece gerilimli bir hava yaratıyoruz. Biraz- dan kullanıcıdan bir sessiz harf girmesini isteyeceğiz. Ön- ce puanını yazıyoruz, ilk satın önceden yazılmış olabile- cek pislikleri silmek için kullanıyoruz. Harfi sormadan ön- ce bu harf için şansometresinin dönmesini sağlamamız ge- rekiyor, tam altı adet durumumuz var. Zar örneğinde oldu- ğu gibi, bunu hemen belirleyebiliriz. Ne var ki, bu yol oy- nayanı pek mutlu etmeyecektir. Heyecanla puanın değiş- mesini izlemesi, hay allah 100 puanı kaçırdım, allah iflas gelecek psikolojisini yaşaması gerekiyor. Bu yüzden yuka- rıda biraz soytarılık yaptık. 0'dan 5'e kadar numaralanmış toplam 6 adet durumumuz var. X sayısı ile rasgele bir tane durum seçiyoruz. Bu bizim ilk durumumuz oluyor. Daha sonra 10 ila 30 arasında değişen bir sayı belirliyoruz. Bu sayıda durumun kaç defa değişeceğini gösteriyor. Sonra çok gerekliymiş gibi bu değişimi ekrana getiriyoruz. For g satırı ile ise amaçladığımız tek şey yavaşlamak. Dikkat ederseniz sayı değiştikçe For g döngüsünün işi uzayacak, dolayısı ile dönmenin sonlarına doğru durum daha çok ek- randa kalacaktır. Sadece x, 5'e eşit çıkarsa özel bir durum var demektir. Bu takdirde iflas gelmiştir. Oyuncunun pua- nını sıfırlayarak tekrar bir puan belirlemek gerekecek. Di- yelim ki-iflas gelmedi, o zaman devam edeceğiz: sor: LOCATE 10,20 .INPUT " Sessiz bir harf lutfen";c$ LOCATE 10,20 :PRINT" IF c$ ="" THEN GOTO tahmin c$=UCASE$(LEFT$(c$,1)) IF INSTR ("AEIUO",c$)<> 0 THEN GOTO sor
Sorumuzu sorduk. Eğer cevap olarak sadece return tuşuna basılırsa, oyuncu bir tahminde bulunacak herhalde diyoruz ve tahmin adlı bölüme atlıyoruz. Kullanıcıya her zaman nazik davranmak gerekir. Girdiği harfi büyük harfe çeviriyoruz. Belki arkadaş birden fazla tuşa basmıştır diyerek sadece ilk bastığı tuşla ilgilenmeye çalışıyoruz. Bu işi LEFT$(c$,1) yapıyor. Türkçesi c$ satırının soldan ilk harfi demek. Son satırda ise önceki programlarımızda kullandığımız INSTR emri ile bu girilen harfin herhangi sesli bir harf olup olmadığını arıyoruz. Eğer harf sesli ise, hemen soruyu bir daha soruyoruz. Programımız maalesef Türkçe karakterler için tasarlanmamış. Elinizde Türkçe karakterler kullanma imkanı varsa, gerekli değişiklikleri kolayca yapabilirsiniz.
Evet harfi öğrendik bakalım bu harften kaç tane var: bul = 0 FOR f = 1 TO dd IF c$ <> MID$(d$,f,1) THEN GOTO devam bul s bul +1 LOCATE 2,39-(dd2)+f.PRINT c$; devam: NEXTf puan = puan + bul*VAL(j$(x)) IF hak > 8 THEN GOTO tahmin GOTO dada
Bulunan harf sayısını bul değerinde tutuyoruz. Yine kelimeyi baştan sona dek arıyor ve MID$ emri yardımı ile harf harf, girilen harf var mı yok mu diye kontrol ediyoruz. Şayet uyumlu bir harf bulursak hemen o harfi yerine yazıyoruz. Puanı gerektiği düzeyde arttırıyoruz. VAL emri bir alfanümerik değişken içinde bulunan sayı değerini verir. j$(5) değeri, "İFLAS" ve VAL(j$(5)) ise 0'a eşit. Ancak bu durumda program buraya kadar gelemeyecekti. Oyuncuya sonsuz hak verirseniz, hemen cevabı bulacaktır. Ben adama bir sınır koydum. Eğer sekiz hakta bulamazsanız, bir tahmin hakkı veriyorum. Bu hak meselesini zorluk derecesi olarak girmek mümkün olabilirdi. Programın asıl döngüsü burada bitiyor. Bize kalan tek şey, alt programları bitirmek.
Alt bölümlerin ilkinde kullanıcı kelimeyi tahmin etmeye çalışacak. Burada kelimeyi bilip bilmediği basitçe kontrol edilerek gerekli davranış gösterilecektir.
tahmin: LOCATE10,20:PRINT TAHMİNİNİZİ GİRİN LÜTFEN " PRINT:PRINT INPUT g$ g$ = UCASE$(g$) IF g$ = d$ THEN GOTO tebrik > PRINT-PRINT: PRINT: PRINT " HA ha ha ha ha haaaa haaa, YANLISSSÜ" PRINTPRINT " doğrusu:" PRINT d$ WHILE INKEY$ ="" :WEND GOTO oyun
tebrik: PRINTPRINT PRINT "Helal olsun size, bildiniz" WHILE INKEY$ = "".WEND GOTO oyun
Oyunun en başında bir tanıtım kısmı vardı. Son olarak bu kısmı yazmak istiyorum: basla* b$ = " BASİT OYUN, LÜTFEN BİR TUŞA BASIN. " bb = LEN (b$) WHILE INKEY$=""
LOCATE 5,40-(bb/2) : PRINT b$ b$ = MID$(b$,2,bb) + LEFT$ (b$,1) FOR f = 1 TO 30 : NEXT f WEND RETURN
Evet, hayırlı uğurlu olsun. Sevimli ufak bir programınız oldu. İlk olarak soru bankasını nasıl gireceğinizi anlatayım. Bunun için en iyisi iyi bir editör kullanmak. Mesela CED (Cygnus Editor Professional) ile istediğiniz isimleri, cümleleri hazırlayabilirsiniz. Program cümlelerin 80 karakterden kısa olması halinde iyi çalışacaktır. Eğer daha uzun cümleler kullanırsanız, ortalamak için düşündüğümüz sistem işe yaramayacaktır. Bu durumda cümleyi iki satıra bölmek için bir yöntem düşünmelisiniz. Burada istediğiniz isimle kaydettiğiniz dosyayı okuyabilmek için, oyunun başında bulunan OPEN emrindeki dosya ismini değiştirmek zorunda kalabilirsiniz.
Bu program nasıl güzelleşir? Mesela oyuna birden fazla oyuncu ile oynama seçeneği katabilirsiniz. Dahası, sadece bir bilgi bankası değil de birden fazla değişik konulu bilgi bankası hazırlarsınız. Bankaların herbiri değişik konularda olabilir. DIM A$(24,4) gibi bir tanımlama yapar, ilk olarak bir konu belirler (0 ila 4 arasında), daha sonra bu konunun kaçıncı sorusunu (0 ila 24 arasında) soracağınızı belirlersiniz. Oyuncunun ismini girmesini isteyerek soru bankasına en çok puanı alanları kaydedebilirsiniz. Daha iyi bir ekran düzenlemesi yapabilirsiniz. Kendinize yeni bir ekran açarak, hatta bir arka plan resmi yükleyerek oyunu sevimli hale getirebilirsiniz. Aralara SOUND emri ile dit dit sesleri ilave edebilirsiniz. İmkanlar oldukça fazla. Size tavsiyem, bu programı yazarak mutlaka üzerinde bazı değişiklikler yapmanız. Bu sayede program yazma hastalığına tutulabilirsiniz.
Fazla gevezelik ettim. Gelecek aya kadar hepinize işinizde, okulunuzda başarılar, mutluluklar.