Amiga Dunyasi - Sayi 31 (Aralik 1992).pdf - Retro Dergi

diğer programlarınıza doğrudan ekleyerek,bir kez daha yazma zahmetinden kurtulabilirsiniz.Prosedürlerin bir diğer yararıda, F9 (Fold/Unfold) tuşuyla, tüm satırlarınıneditörde görülmesinin engellenebilmesi.Hazırladığınız bir prosedürünüzerinde iken F9 tuşuna bastığınızda,programınız önce test edilir ve bir hatayoksa, prosedürün sadece ilk (Procedurekomutu ile başlayan) satırı editörde kalır.Gerektiğinde, bu satır üzerinde iken tekrarF9 tuşuna bastığınızda, yeniden görünürhale getirebilirsiniz. Bu yöntemin (Fold)yararı, düzgün çalışan bir prosedürü kapatarak,dikkatinizi başka bir noktada dahakolay yoğunlaştırabilmeniz. Ayrıca, programlistesinde başından sonuna kadar gitmekiçin harcayacağınız çaba azalır.Prosedürler ve modüler programlama ileilgili daha geniş bilgiyi de bir başka sayıdaele alacağız.Bu ay da birkaç AMOS programımız var.Bunlardan ilki olan 'SINIRSIZ BOBDEMO' isimli program, bazı demolardabulunan ve bob iddiasıyla ortaya atılan,ancak gerçekte animasyondan başka şeyolmayan bir efekt içeriyor. 512KB sahiplerinin,bu programı yazmadan önce, menüden'Set Text Buffer' seçeneğini seçerektext belleğini 4000'e indirmeleri gerekiyor.Aksi takdirde, hafıza yetmediğindenprogram çalışamıyor.Programı çalıştırdığınızda. AMOS disketindenbazı library rutinlerini yüklemekisteyecektir (Sin() ve Cos() fonksiyonlarındandolayı).İkinci programımız (daha doğrusu prosedürümüz),BASİT ANALYZER isminitaşıyor ve çalan müziğe göre kanallarındurumlarını gösteriyor. Bu prosedürü ko-laylıkla programlarınıza ekleyebilirsiniz.Ancak etkisini görebilmeniz için. AMOSformatında bir müzik yüklemeniz gerekiyor.Bu program, hem AMAL, hem de Rainbowkomutlarına örnek teşkil ediyor.Üçüncü programımız ise sprite'lar ileyapılmış bir volume analyzer programı.İkinci programımızda olduğu gibi bundada, AMOS formatında bir müzik yüklemelisiniz.Dördüncü programımız (prosedür) olanYAZI KAYDIRMA #1, bir kaydırma rutinindençok, ekrana yazı getirme rutini. İncelediğinizdeoldukça basit olduğunu göreceksiniz.Son programımız olan YAZİ KAYDIR-MA #2 ise, Data'larda bulunan metni, ekranıyukarıya doğru kaydırarak gösteriyor.Son data elemanının "*SON*" olması gerekmekte.Bu ayki köşemizi de. daha önceki aylardayaptığımız çağrımızı yineleyerek sonlandırıyoruz:AMOS'la yaptığınız programlarıve prosedürleri (+ Posta pulu)gönderin ve bir AMOS program kütüphanesioluşturalım ve herkes bundan faydalansın.1993'ün Ocak ayında, yeni bir AMOSköşesinde karşınızda olmak dileğiyle...'**************************************'* *'* AMOS (C) 1990 *'* Europress Software, Ltd. *'* *'* SINIRSIZ (!) BOB DEMO *'* *'**************************************BASLADESEN[152,120,132,0.02]DESEN[152.120,1320.0.2]FİNAL'---------------------------------------Procedure BASLAClose EditorClose WorkbenchSet Sprite Buffer 18HideForA=0 To 7Screen Open A,320,256.4,LowresCurs Off: Cls 0 : Flash OffPalette0,$FFF,$8F,$F,$F00.$A00,$F0.$A0NextR=8For A=0 To 2Ink 3-ACircle R,R,(R/2-A)*2Paint R.RNextGet Bob 1,0,0 To R*2+2.R*2+2Cls 0End Proc'-----------------------------------------Procedure DESEN[XC.YC.F.S#]R#=2For A#=0 To F Step S#Add FL.1,0To3If FL=0AddS.1,0 To 7Screen To Front SWait VblEnd IfScreen SCRAdd SCR,1,0To7X=XC+Sin(A#)*R#Y=YC+Cos(A#)*R#Paste Bob X,Y,1R#=R#+0.03NextEnd Proc'------------------------------------------Procedure FINALRX#=156:RY#=4IX#=0.02 : IY#=0.015DoFor A#=0 To 155.5 Step 0.02Screen To Front SCRWait VblScreen SCRAdd SCR. 1,0 To 7X=150+Sin(A#)*RX#Y=120+Cos(A#)*RY#Paste Bob X.Y.1RX#=RX#-IX#RY#=RY#+IY#NextIX#=-IX#: IY#=-IY#LoopEnd Proc'------------------------------------------AMIGA DÜNYASI 29