Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun.

Kullanıcı adınızı, parolanızı ve aktif kalma süresini giriniz

  Gelişmiş Arama
insanın içinde varsa, commodore.gen.tr açığa çıkarır bunu.. bir nevi retro olaylarının dolunayıyız.(Arda)
commodore.gen.trCommodoreCommodore YazılımC64 BASIC Ortamında Basit İşlem Programları
Sayfa: [1]   Aşağı git
Yazdır
Gönderen Konu: C64 BASIC Ortamında Basit İşlem Programları  (Okunma Sayısı 6923 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
atariManyagi
Üye
****
Mesaj Sayısı: 386


En Sevdiğim Super Mario Karakteri


Üyelik Bilgileri WWW
« : Eylül 24, 2016, 13:43:55 ÖS »

Buraya Commodore 64 için BASIC'te Matematiksel İşlemler programı yapabilenler mesaj atabilirler.
1-TOPLA.PRG
Kod:
5 PRINT "X:"
6 INPUT X
10 PRINT "Y:"
11 INPUT Y
15 Z=X+Y
20 PRINT Z
RUN
2-CIKAR.PRG
Kod:
5 PRINT "X:"
6 INPUT X
10 PRINT "Y:"
11 INPUT Y
15 Z=X-Y
20 PRINT Z
RUN
3-CARP.PRG
Kod:
5 PRINT "X:"
6 INPUT X
10 PRINT "Y:"
11 INPUT Y
15 Z=X*Y
20 PRINT Z
RUN
4-BOL.PRG
Kod:
5 PRINT "X:"
6 INPUT X
10 PRINT "Y:"
11 INPUT Y
12 IF Y <> "0" THEN GOTO 15
15 Z=X/Y
20 PRINT Z
RUN
Hepsinde Aynı Olan Kısımlar 5.,6.,10.,11.,20. ve RUN Satırı Olup, 15. Satır İşleme Göre Değişir ve 12.Satır Sadece Bölme İşleminde Girilen Değerin 0(SIFIR) Olup Olmadığını Kontrol Eder.
« Son Düzenleme: Eylül 24, 2016, 14:58:38 ÖS Gönderen: atariManyagi » Logged

Web Sayfalarım
itch.io
GitHub
Peg Bebek Koleksiyonum
Peg Bebekler
I❤️8BitDo
LW3D
Yönetici
*****
Mesaj Sayısı: 11.418


Günü Kurtaran Avam Hiooargggh :)


Üyelik Bilgileri WWW
« Yanıtla #1 : Eylül 24, 2016, 13:52:43 ÖS »

Bunların çalıştığını kontrol ettiniz mi?

12 IF Y <> "0" THEN
15 Z=X/Y

Bu kısmın 12 IF Y <> "0" THEN Z=X/Y gibi olması gerek... ya da Y=0 durumunda başa dönmesi...
12 IF Y= "0" THEN GOTO 5

Logged

eins
Uzman
*****
Mesaj Sayısı: 1.816


A.K.A. deliMawi


Üyelik Bilgileri
« Yanıtla #2 : Eylül 24, 2016, 13:56:18 ÖS »

Bakalim bol programindaki hatayi bulabilecek misin?

Edit: Patron bulmus bile. Pisti olduk...
Logged

Doberman ♦ megaOne ♦ HDMI-64 ♦ HDMI-520 ♦ NewSchool
atariManyagi
Üye
****
Mesaj Sayısı: 386


En Sevdiğim Super Mario Karakteri


Üyelik Bilgileri WWW
« Yanıtla #3 : Eylül 24, 2016, 14:01:30 ÖS »

Üzgünüm...
Logged

Web Sayfalarım
itch.io
GitHub
Peg Bebek Koleksiyonum
Peg Bebekler
I❤️8BitDo
LW3D
Yönetici
*****
Mesaj Sayısı: 11.418


Günü Kurtaran Avam Hiooargggh :)


Üyelik Bilgileri WWW
« Yanıtla #4 : Eylül 24, 2016, 14:06:53 ÖS »

Commodore V2 Basic çok iyi değildi... Ne yazık ki ELSE'de yoktu

@delimawi : Bildiğim yerden geldi Ayda yılda bir olur, çaktırma
Logged

ilkerficicilar
Uzman
*****
Mesaj Sayısı: 1.122


Üyelik Bilgileri WWW
« Yanıtla #5 : Eylül 24, 2016, 14:32:15 ÖS »

Commodore 64'ün hesaplayabileceği basitlikte bir "Pi'nin basamakları" formülü:

http://www.davidhbailey.com/dhbpapers/bbp-alg.pdf

Yalnız bu BBP formülü 16'lık sayı sisteminde buluyor basamakları, ki 16'lık sayı sistemini severiz zaten.

Örneğin, Pi'nin 1 trilyonuncu basamağı ve takip eden basamakları 9C381872D27596'ymış.

Makaledeki formülü C64'e uygulamak güzel bir egzersiz olabilir kendini denemek isteyenler için.
Logged

http://cbm.ficicilar.name.tr/ - Commodore Hacking
ilkerficicilar
Uzman
*****
Mesaj Sayısı: 1.122


Üyelik Bilgileri WWW
« Yanıtla #6 : Eylül 24, 2016, 14:35:43 ÖS »

Bu arada bol.prg'deki hatada "type mismatch error"ü ve program satırlarının sıralı olması gerektiğini de unutmamalı.
Logged

http://cbm.ficicilar.name.tr/ - Commodore Hacking
emarti
Uzman
*****
Mesaj Sayısı: 2.592


Only Amiga Makes It Possible █


Üyelik Bilgileri WWW
« Yanıtla #7 : Eylül 24, 2016, 20:50:55 ÖS »

http://www.infinite-loop.at/Power64/Documentation/Power64-ReadMe/AA-C64_BASIC.html
Logged

https://github.com/emartisoft My GitHUB | http://csdb.dk/scener/?id=26786 My CSDB | https://c64kernal.com Genesis

READY.
SYS(64767): EMARTI
soby
Yeni Üye
*
Mesaj Sayısı: 1


Üyelik Bilgileri WWW
« Yanıtla #8 : Aralık 24, 2016, 08:43:21 ÖÖ »

kodlarda INPUT komutu
INPUT "X:";X ve
INPUT "Y:";Y olarak kullanılarak girişler 2 satırda halledilebilirdi.
Bölme kodunda inputla alınan değer sayısal iken BASIC tırnak içindeki ifadeyi alfanümerik kabul ettiği için "type mismatch error" oluşuyor. Burada
12 IF Y<>0 THEN goto 15 denebilir ama Basıc değer 0 olunca da bir soraki satıra yani 15 e geçeceği için araya bir donüş satırı da eklemek gerekir.
13 GOTO 10 gibi
Logged

Sayfa: [1]   Yukarı git
Yazdır
Gitmek istediğiniz yer: