Bu sayfadaki yazılar
Sayfanın metni
Sayfa 22
Bu program çalıştırıldığında kullanıcıdan bir yıl ve ay adı girmesini beklemekte, bu iki bilgi girildiğinde, istenen aya ait takvimi oluşturmakta ve ekranda görüntülemektedir.
İstenen aylık takvimin altında o aya ait resmi tatil günleri ve kullanıcıya özel günlerle ilgili açıklamalar yer almaktadır. Resmi tatil günleri takvimde değişik bir renkte görüntülenmektedir.
Kullanıcı kendine özel günleri programa eklemek isterse (her ay için en fazla 4), 160-276 no.lu DATA satırlarına ulaşıp, ilgili aya ait satırlara virgülle ayrılmış olarak günü belirten bir rakam ve bir açıklama cümlesi eklemelidir.
Program takvim oluştururken bilinen bir günü baz olarak alınmakta ve istenen ayın ilk gününün o güne göre farkını hesaplamaktadır. Sonunda artık yıllar dikkate alınarak(x) bulunan sayının yardımı ile ayın ilk gününün haftanın hangi gününe rastladığı bulunmakta buna bağlı olarak ayın diğer günleri isimlendirilmektedir.
Programda değişiklik yapmak isteyenler için:
— Ekran rengi 2 no.lu satırda belirlenmektedir.
— 111,134,135,140 no.lu satırlarda takvim günlerinin rengi belirlenmektedir.
— 114-128 no.lu satırlarda takvim çerçeve rengi belirlenmektedir.
— Özel günleri ve tatil günlerini takvim altında görmek istemeyen kullanıcılar 27-30, 140-143 ve 160-276 no.lu satırları iptal edebilirler.
(x) Şubat ayı bilindiği gibi dörde bölünen yıllarda 29, yüzyıl başlarında da ise 30 çekmektedir.
NOT: Belirli bir kurala bağlı olmadıkları için Kurban ve Ramazan Bayramı tatilleri dikkate alınmamıştır.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 23
FOR Tel TO 18 FOR KAİ TÜ 5S FOR TO 2
READ TTECK, TI | RERD AYCI A
1 FOR TÜ ZEREAD PRİNT FOR TO 7 FOR TÜ &
NEKT NEXT 1 PRİNT 144) PRİNT *CESPACE PRİNT *C2SPACE ME PRİNT “CZSPACE YE” çtas> PRINT VE YAZINIZCTEPACE YU" PRİNT YE" PRİNT EK ICIN <RYSOFF) 8 RUSOFE YU" (233) PRİNT *CESPACE ©1447 PRİNT * TAK) PRTNT
PRİNT *CESPACE <eaz> PRİNT *C3UR)* <883)
THEN GR İF THEN PRİNT 148 daa)
THEN M.O. CRVEOFF) PRİNT İPRİNT THEN FAR Je) TO THEN J c167> 73 İF THEN B 3
FOR TO YI YELDA TH EN B3 FOR 1-2 TE TI İF THEN (VAL NTCOVAL 1 İTİ THEN 0 TAT BOTO
İF TREN |S9 ) 87) SÖMAR KEN THEN SÖMEL kei FOR YÜ SOMs8 THEN NEXT Ti FOR 1-1 TO 7
TE THEN NEKT 1 FOR TO 7 FOR Kel TO & 1F THEN 118 NEXT KINEAT 1 PRİNT TABLE) * YT DI ACEDAYI PRİNT *C3SPACE ACE T-SPACE YE" PRİNT “SASPACE “PA *(3SPACE PRİNT *<3SPACE “SA LI<SSPACE TRKE PRİNT BBS PRİNT *<3SPACE PRINT BBG PRİNT *<3SPACE 144 31X68 PRINT BB$ PRİNT MACSSRACE TAS PRİNT Bas PRİNT DU MARTES PRİNT BES PRİNT "PA TAR PRİNT PRİNT FÖR İsi Tü 7 TTSCİ THEN 187
1F YALCTAKVIMSCI OR THEN 135 136 NEXT 0 | PRİNT Zİ III PRİNT TA KVTMSCI