Bu sayfadaki yazılar
Sayfanın metni
Sayfa 28
Bilgisayarımızın sonsuz hünerlerinden biri de bize bütçe düzenlemelerimizde yardımcı olmasıdır. Aşağıda sunacağım program; bir evin, işyerinin veya kişinin günlük, aylık ve yıllık bütçe hesabını yapıp dökümleyebilir.
Programı yazıp, kaydettikten sonra, tekrar yükleyerek çalıştırın. Önünüze şöyle bir menü çıkar:
1- Günlük Kasa
2- Aylık Kasa
3- Yıllık Kasa
4- Çıkış
GÜNLÜK MENÜ'yü seçtiğimizde diğer bir menü ile karşılaşırız.
1- Bilgi Girişi
2- Kayıt İnceleme
3- Ana Menü
BİLGİ GİRİŞİ'ni seçersek öncelikle muhasebesini kaydedeceğimiz günün tarihi (gg/aa/yy) olarak sorulacaktır. Daha sonra GELİRLER sayfası açılarak sizden o güne ait gelirler istenir. Açıklama ve gelir tutarlarını girdikten sonra bitirmek için End girmelisiniz. Sizden girilenlerin doğruluğu sorulacaktır. Girişler doğru yapılmış ise GİDERLER sayfası açılacak ve giderleri girmeniz beklenecektir. Böylece o güne ait bilgiler disket üzerindeki sequental kütüğe kayıt edilecektir. KAYIT İNCELEME bölümünde sizden tarih istenecek ve o güne ait muhasebe bilgisi önünüze sunulacaktır.
AYLIK KASA seçeneğinde karşımıza gelecek menü Günlük Kasa Menüsüne çok benzeyen bir menüdür. Burada AYLIK BİLGİ YARATMA seçeneğine girdiğinizde bilgisayar sizden tarih soracaktır. Tarihi (aa/yy) olarak girdiğinizde o aya ait günlerin diskette oluşturulmuş dosyaları teker teker okunacak ve aylık dosya oluşturulacaktır. Bu sadece ayda bir kez yapılması gereken işlemdir. Aksi takdirde bilgisayarımız bizi uyaracaktır. Bu arada akla şöyle bir soru gelebilir. Hafta sonları veya herhangi bir nedenden ötürü günlük bilgi girişi yapamadığımız bir güne ait eksiklikler aylık dosyaya nasıl etki yapacak? Aylık dosya oluşturulurken ayın herhangi bir gününe ait bilgi bulamaz ise, bize bir sonraki güne ait bilgiye mi geçeyim yoksa aylık dosyayı iptal mi edeyim? diye soracaktır. Sonraki güne geçmesini söylerseniz o güne ait gelir ve gider sıfır olarak kabul edilecek ve bir sonraki günün kayıtları ile dosya oluşturmaya devam edecektir.
KASA İŞLEMLERİ menüsünden YILLIK KASA seçeneğini seçtiğimizde karşımıza çıkacak menü aylık kasa menüsünün bir benzeri olacaktır. Yıllık bilgi dosyası yaratmak istediğimizde bizden yıl sorulacaktır. Daha sonra o yıla ait ayların bilgileri sıra ile okunup yıllık kasa dosyasına aktarılacaktır.
Bir yıl içerisinde her güne ait bilgi, 12 aya ait bilgi ve bir de yıllık bilgi dosyası yaratacak olmamız diskette yer sorununa yol açabilir. Bu yüzden tavsiyem Kasa işlemleri ile ilgili günlük, aylık ve yıllık kasa bilgi dosyaları için ayrı bir disket kullanmanızdır.
Bütçe hesaplarınızda işe yaraması umuduyla, iyi kullanımlar...
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 29
FOR Isi TO 53280.61 POKE 33281.141PRİNT ISLEMLERİ *1GOSUN 206 PRİNT SRC (6) KASA" PRİNT BCSRIGKTDAYLIK KASA" PRİNT 1GOSUB KASA" PRİNT GOSUB BS41ASVALCASILIR ACI OR T HEN 118 ON AGOTO 123.191.247.181 SYS 50260 REM #88 GÜNLÜK KASA KASA*IGOSUB Gİ 322 ON AGOTO 185.164.114 KASA-BILGI B 296 INPUT GİRİNİZ TAS PRİNT *<HOME E>* GOSUB T TAS T-SRACE >" 1GOSUB 3 34 3 BE“ e 3091N-211GOSUB CO-41GOSUB * * TF OR THEN 136
COS251GOSUB 1GOSUB 2991 3
* * 131 İsi TO NOİSUSSUSVA 1 *T OX L A 238 *“<RVSON> BİLGİLER DOGRU GİRİLDİ Mİ? < RVSOFF )* GOSÜB 89411F THEN 128 286 30BLARINT TAS -SPACE> 3271GOSUB 3 24 3 BE" * * IF OR 153 1GOSUB 3 * * NOSNOSLEGOTO 146 Isi TO NOİSÜSSUSVA 1 *T OÇ SHİFT-SPACE
PACEDA 1GOSUB 330 BİLGİLER DOGRU GİRİLDİ Mİ? < RVSOFF >* GOSUB THEN 143 #2.sı 8.SU PRİNTH 8.NL 2.NO FOR Isi TO FOR Isi TO YAPRINTM2 CLOSE 123 KOSE*GUNLUK KASA-KAYIT İNCELEME sup 296 POKE 19.G4LINRUT RIHİ GİRİNİZ PRİNT CAR IGHT) <4OSPAC E>* GOSUB T TAS THEN CLOSE CLOSE 15160TO 180 .SU NI .NO FOR Isi 1 FOR Isi TO 1 CLOSE, 15 T-SPACE )<RVSOFF >" 1GOSUB 327 FOR Isi TO 3091P RINT ACSCI) SUB 3301NEXT 1 *T OX SHİFT-SPACE >P<SHİFT-SPACE 1 GOSUB 330 GOSUB 341 KOSA*SUNLUK. KASA-KAYIT İNCELEME * 160 SUB TAS T-SPACE ><RVSOFF 1GOSUB 327 FOR Isi TO 11GOSUB 3881P RINT B$ AGSCL) 33 1 3OSEPRİNT *T OX SHİFT-SPACE PACE YACSHİFT-SPACE 336 GOSUB 341160TO 123 338:GOSUB 18 3 REM #88 AYLIK KASA ISLEMLERİ sax KASA"IGOSUB K FİLE 322 ON AGOTO 194.223.114 KASA-FİLE v8 296 İNPUT GIRINI