Bu sayfadaki yazılar
Sayfanın metni
Sayfa 8
Bazen geçmişteki veya gelecekteki, bazı özel tarihlerin hangi güne rastladığını merak etmişsiniz. Böyle bir durumda bu program size yardımcı olacaktır.
Program istediğiniz bir yılın, herhangi bir ayına ait takvimi oldukça kısa bir sürede hazırlayıp gösterebilmektedir. Ayrıca sorduğunuz yılın ilk gününü (1 Ocak) de ekrana yazarak size belirtmektedir.
Programı çalıştırdığınızda karşılaşacağınız ay-yıl sorusuna ay için 01-12 arası bir sayı, yıl için ise, dört rakam halinde istediğiniz yılı verebilirsiniz. Bu işlemleri tamamladıktan sonra return tuşuna basıp bir süre bekleyeceksiniz. Vereceğiniz ayın durumuna göre geçen süre uzayıp kısalabiliyor. Örneğin 01-1900 yılına ait takvim 3 saniyede gösterilirken, 12-1900 yılına ait takvim yaklaşık 9 saniyede gösterilmektedir. Bunun nedeni istenen ayın ilk gününün, verilen yılın ilk gününe göre hesaplanması ve döngünün, o ayın Ocak ayına uzaklığıyla doğru orantılı olarak artmasıdır. Programı severek kullanmanızı dilerim.
Program Satırlarının Açıklanması:
80-146: Giriş bölümü.
200-220: Takvimi istenen ayın ve yılın sorulması.
222-230: Ay ve yılın doğru girilip girilmediğinin kontrolü.
233-245: Verilen yılın ilk gününün bulunması.
255-270: Ayın ilk gününün yılbaşına göre bulunması.
300: Yılbaşı gününün belirtilmesi.
305-400: Takvimin ekranda gösterilmesi.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 9
KULE iF X-6 OR POKE 214,5 RINT "<CTR POKE 214,5 RIİNT "<Cs3 END DATA DATA "PAZA *