sonraki »

[8bitplayer]

c64 ile yapilabilecek programlar [basıc ıle] ve ılgınc seyler nelerdır bu ara forumu ısgal ettm ama bugun gelıyor

[LW3D]

Commodore64'ün BASIC dile çok iyi değildir. Hatta akranlarına göre kötüdür. Bu nedenle çoğu C64 ile ilgilenen Makina Dili (Assembler) ile ilgilenmiştir. BASIC ile ilgili bir kaynak veremeyeceğim ama makina dili için, NightLord'un ilgili yazısına bakabilirsiniz.

http://nightnetwork.org/writings_tr/6502_makine_dili/html/6502_makine_dili.html

[wizofwor]

C64 Basic çok iyi olmasa da pek çok kullanışlı "metin tabanlı" program yazılabilir. Ancak programlarınızda grafik modunu veya spriteları kullanmak istiyorsanız, makine dili olmasa bile en azından peek poke komutlarıyla donanıma direk erişmeniz gerekecektir. C64 Basic üzerine çok güzel kitaplar var. Bunları büyük kütüphanelerde bulmak hala mümkün. Bu kaynaklara internet ortamında nasıl erişirim diyorsanız hiç fikrim yok malesef. 

[CenkMiri]

Sene 2009 askerde sıkıcı bir hafta sonu nöbetindeyim. Nöbetçi komutan beni yanına çağırdı.Şöyle bir soru yönelti:
 "Her ay maaşımın % bilmem kaçı oyak'a yatmakta ve bu para senelik % bilmem kaç faizle artmakta. Ne kadar zamanda ev alabilecek kadar param birikir?"
Hemen yazıcı odasında bunu çalışmak üzere izin aldım. Bu problemi çözecek 3 şey oradaydı :-). Bir adet PC, C64 emülatörü ve bunları kullanabilecek bir çavuş (ben oluyorum). Problemin cevabını hatırlamıyorum ama çözüm sayesinde keyif ve muhabbetle içtiğim çayı ve yediğim nöbeti iyi hatırlıyorum :-).

[wizofwor]

Bu tip hesaplar için excel diye bir program var. İlla da Basic'te kasacam diyenleri için içersinde VisualBasic yorumlayıcısı da barından güzel bir program

[guru68]

Diskolarda ışık sistemini yönetmek için hala kullananlar...
Tıbbi cihaz üretiminde (dializ makineleri) final test için kullanılırdı...
Kış bahçesi tavan camları, gölgelik, bitki ışığı, ısıtma, havalandırma vs otomasyonunda kullanılır...
Muhasebe hesaplamalarında bazıları günümüzde bile kullanıyor...
Ordu haber şifrelemeleri işinde kullandı...
Web sunucusu olarak günümüzde örnek olarak kullanılıyor...
Müzik prodüksiyonunda SID sayesinde kullanılabilir...

aklıma şu an gelen bunlar.

[LW3D]

@wizofwor : cenk56_2001'nin asıl amacının hesabı çözmek olduğu konusunda ciddi şüphelerim var

[wizofwor]

Hımm. Ben LW3D'nin cevabından yola çıkarken asıl sorunun özünü kaçırmışım biraz.

Commodore 64'le yapılabilecek en ilginç şeylerden biri bence ışıklı kalem (lightpen) uygulamalarıydı. Bu cihaz modern (lcd) televizyonlar da da aynı şekilde çalışıyor mu bilmiyorum. Bunun haricinde çeşitli otomasyon, veri kontrolü vs. işlerinde de kullanılabilir tabiki.   

[Skate]

en kısa ve aynı ilginç basic programı şudur.

Kod:

10 if peek(54297)=255 then 10
20 print "voila!"

programı yaz, çalıştır. öylece bekleyecek bilgisayar. sonra parmağını tükürükle ve 1. joystick portuna dokundurup ileri geri oynat. voila!

[witchdoktor]

C64 BASIC V2 ile yapmaya çalıştığın şeylerin çoğu seni makine diline biraz daha yaklaştıracaktır. Bunun dışında hali hazırdaki 256 karakterlik (grafik karakterlerini de ihtiva eden) set ve tam ekran editörün de yardımıyla gayet güzel işler çıkarabilirsin. Zamanının tam ekran editör içeren nadir cihazlarındandı C64.

İşletim sistemi ve BASIC yorumlayıcı değişkenleri ve I/O çip register'lerini (VIC-II, SID, CIA vb) öğrenmeye başladığında daha ilginç şeyler yapabilirsin.

Bunun dışında BASIC'de klavye tamponunu kullanarak self-modifying programlar yazabilirsin ki bu sayede 'parser' yazma zahmetine katlanmadan fonksiyon çizimi vb programlar yazılabilir.

İlle de BASIC diyorsan SIMON'S BASIC gibi bir BASIC extension yazılımı yüklemende fayda var.

[Skate]

basic mi istiyonuz? eğlence mi istiyonuz? alın size

Kod:

10 poke53280,0:poke53281,0:printchr$(147)
20 poke53269,255
30 fori=0to62:poke8192+i,0:next
40 poke8192,24:poke8195,60:poke8198,60:poke8201,24
50 fori=0to7:poke2040+i,128:poke53287+i,7:next
100 n=150:a=234
110 for i=0 to 7
120 f=cos(a+n)
130 n=n+(i/a)
140 g=cos(n)
150 a=-a
160 if iand2 then j=a:goto 180
170 j=-a
180 if iand4 then k=a:goto 200
190 k=-a
200 d=j*g-a*f
210 e=4.5+(d*g-k*f)/a
220 x=n+(d*f+k*g)/e
230 y=n+(j*f+a*g)/e
240 poke53248+i*2,x and 255
250 poke53249+i*2,y and 255
260 next
270 goto 110
run

Vice emülatörü artık copy&paste destekliyor. "run" dahil olmak üzere texti kopyalayın, sonra vice'da commodore ekranının üzerinde mouse'un sağ buttonuna tıklayın. derhal çalışması lazım. ama elbette ki acayip yavaş çalışacaktır. ALT+W ile warp speed'i açın ve basic'den nasıl küp çevrilirmiş görün. Bu aslında şunun aynısı;

http://www.pouet.net/prod.php?which=49904

Yakında bu olayla ilgili ilginç bir de release'im olacak, duyurulur.

[8bitplayer]

vay cıdden guzel seyler cıktı wıtchdoktor bıraz daha acıklarmısn? Yenıyim

[witchdoktor]

@8bitplayer
Kodu skate'e sorsan daha açıklayıcı olacaktır.

@skate
Güzel kod olmuş. BASIC V2 mantığıyla hafif optimize edeyim bari

Kod:

10poke53280,0:poke53281,0:printchr$(147):poke53269,255
30fori=0to62:poke8192+i,.:next
40poke8192,24:poke8195,60:poke8198,60:poke8201,24
50fori=0to7:poke2040+i,128:poke53287+i,7:next
100n=150:a=234:m=4.5:p=53248:o=53249:r=255:s=2:t=4:l=7
110fori=.tol:f=cos(a+n):n=n+(i/a):g=cos(n):a=-a
160j=-a:ifiandsthenj=a
180k=-a:ifiandtthenk=a
200d=j*g-a*f:e=m+(d*g-k*f)/a:x=n+(d*f+k*g)/e:y=n+(j*f+a*g)/e
240pokep+i*s,xandr:pokeo+i*s,yandr:next
270goto110
run

[guru68]

vay be arkadaşlar beni timetrip'e soktunuz, epey bişeyler çağrıştırıyor program ama unutmuş gibiyim, daha doğrusu "peek my poke" oldum!

[8bitplayer]

kup cidden cok iyi c64 gelmedı