AMOS THE CREATOR

• BASIC
• Programlama teknikleri
• Program dökümü
• Kurslar ve dersler

Merhaba AMOS severler. Korkarım bu ayki yazıya kötü bir haberle başlayacağım. Bir süre için AMOS yazısını iki ayda bir yayınlayacağız. Umarım çok büyük bir ara olmaz.

Bu ay sizlere vereceğim program, ivmeli hareket ile ilgili. Yani cismin yerini direkt olarak mouse'la okumaktansa, mouse ile sadece cisim üzerindeki kuvvetlerin okunmasını ve geri kalanların buradan hesaplanmasını göreceğiz. Bazılarınız bunu gereksiz ve sıkıcı bulabilir ama bu şekilde daha ilginç hareketler elde edebilirsiniz.

Programda kullandığım formüller herhangi bir temel fizik kitabında bulunabilir. Ama ben yine de bunları şekil birde yeniden yazmakta fayda görüyorum.

Program her döngüde mouse'ın ne kadar hareket ettiğine bakar ve bunu kuvvet olarak algılar. (Sanki cismi bir lastikle çekiyormuşuz gibi.)

Programdaki değişkenlerden 'M' cismin kütlesini ve 'FS' sürtünme kuvvetini belirler. Bunları değiştirip daha değişik efektler elde edebilirsiniz. Bu aylık hoşçakalın.

Rpm ******************************************** 
Rem *********************************************** 
Rpm ******************************************** 
Rem ** 
** 
Rem ** 
** 
Rem ** 
AMIGA DÜNYASI 
** 
Rem ** 
** 
Rem **     AMOS Demo Program       
** 
Rem ** 
** 
Rem ** 
Written by 
** 
Rem ** 
** 
Rem ** 
Burak Ozdemir 
** 
Rem ** 
** 
Rem ** 
** 
Rem**     AMOS Copyright 1990 
** 
Rem ** 
Mandarin/Jawx 
** 
Rem ** 
** 
Rem ** 
** 
Dam ******************************************** 
Rem ******************************************* 
Rpm ******************************************* 
Screen Close 0 
Screen Open 0,640.200.16.Hires 
Curs Off 
Flash Off 
Load   "files.amos   files amos-programs    sprite 600 
aliens/ alien4.abk" 
Hide

Get Sprite Palette 
Palette 0,0 
X=130 
Y=230 
M=6 
VX=0 
VY=0 
T=1 
FS=2

1=1 
X Mouse=X 
Y Mouse=Y 
For Q=1 To 50 
lnkRnd(16) 
Plot Rnd(600)+10,Rnd(150)+10 
NextQ 
Do 
FX=X Mouse-200 
FY=YMouse-150 
X Mouse=200 
Y Mouse=150 
FSX=0 
If VX>0 Then FSX=FS 
If VX<0 Then FSX=-FS 
FSY=0 
If VY>0 Then FSY=FS 
If VY<0 Then FSY=-FS 
FTX=FX-FSX 
FTY=FY-FSY 
AX=FTX/M 
AY=FTY/M 
VX=VX+AX*T 
VY=VY+AY*T 
X=X+VX*T 
Y=Y+VY*T 
If X>430 Then X=430 
lfX<130ThenX=130 
If Y>230 Then Y=230 
If Y<50 Then Y=50 
Sprite 1,X,Y,I 
1=1+1 
If l>4 Then 1=1 
Wait 2

Loop