Bu program bir sene boyunca gördüğüm programlama dersinden aldığım birikimin eseridir. Programımı manav mesleği üzerine yaptım. Fakat "writeln" komutu içindeki satırlar değiştirilirse istenilen her mesleğe de hitap etme durumundadır. Programım dosyaya bilgi kaydeder. Kaydedilen bilgileri dosyadan okur. Listeler, değiştirir, siler. Ayrıca programım ana mönüden kontrollü olarak kullanılmaktadır, sonsuz döngüdedir. Çıkmak için ana mönüde iken 7 tuşu kullanılmalıdır. Programım fiş prosedürünün sonunda adetten düşmeyi yapamamaktadır. Bu nedenle satılan ürünün adetini stoktaki adetten düşme fiş prosedürü kullanıldıktan sonra değiştirme prosedürü kullanılarak yapılmalıdır. Kod: Program stok_kontrol; Uses crt, graph, dos; Label Tekrar, noktalama, anamenu, hata; Var ggggg, sssss, aaaaa:char; y, a, g, hg, sa, da, sn, sl, renk:word; sec, b, j, d:integer; x, o, z, k, l, m, n, t, p, ch:char; sifre:string; gs, gm:integer; procedure olustur; var urunadi:string; adeti:integer; alis, satis, adim1, adim2, adim3, karorani:real; dd:text; ch:char; begin clrscr; assign ; rewrite ; ch:='e'; repeat write ; readln ; write ; readln ; write ; readln ; write ; readln ; adim1:= /100; adim2:=alis+adim1; adim3:=(adim2 karorani)/100; satis:=adim2+adim3; writeln ; writeln ; writeln(dd, alis:3, satis:3); writeln ; writeln('Devam etmek istiyor musunuz? '); ch:=readkey; until ch in ; close ; end; procedure ekleme; var urunadi:string; adeti:integer; alis, satis, adim1, adim2, adim3, karorani:real; dd:text; ch:char; begin clrscr; assign ; append ; ch:='e'; repeat write ; readln ; write ; readln ; write ; readln ; write ; readln ; adim1:= /100; adim2:=alis+adim1; adim3:=(adim2 karorani)/100; satis:=adim2+adim3; writeln ; writeln ; writeln(dd, alis:3, satis:3); writeln ; writeln('Devam etmek istiyor musunuz? '); ch:=readkey; until ch in ; close ; end; procedure listele; var alis, satis, karorani:real; dd:text; urunadi:string; adeti:integer; begin clrscr; assign ; reset ; clrscr; gotoxy(5,2); writeln ; gotoxy85,3); writeln ; gotoxy(5,4); writeln ; while not eof dd do begin readln ; readln ; readln ; readln ; writeln(urunadi:13, adeti:11, alis:11:0satis:11:0, karorani:11:0); end; close ; readln end; procedure silme; label hata; var adeti, bay:integer; alis, satis, karorani,:integer; dd, gd:text; sil, dev, aaaaa:char; yaz:boolean; ara, urunadi:string; begin hata: clrscr; assign ; assign ; reset ; rewrite ; writeln ; readln ; bay:=0; while no eof do begin yaz:=true; readln ; readln ; readln ; readln ; if ara=urunadi then begin bay:=1 clrscr; gotoxy(5,2); writeln ; gotoxy85,3); writeln ; gotoxy(5,4); writeln ; writeln(urunadi:13, adeti:11, alis:11:0satis:11:0, karorani:11:0); writeln ; sil:=readkey; writeln; if sil in then yaz:=false; end; if yaz then begin writeln ; writeln ; writeln ; writeln ; end else writreln ; end; close ; close ; if bay:=0 then begin writeln ; erase ; end; else begin erase ; rename ; end; writeln ; readln ; if aaaaa:='e' then goto hata; end; procedure degistir; var bay, adeti:integer; adim1, adim2, adim3, alis, satis, karorani:real; dd, gd:text; yaz:boolean; deg, dev:char; ara, urunadi:string; begin clrscr; repeat assign ; assign ; reset ; rewrite ; writeln ; readln ; bay:=0; while not eof do begin yaz:=true; readln ; readln ; readln ; readln ; if ara=urunadi then begin bay:=1; clrscr; gotoxy(5,2); writeln ; gotoxy85,3); writeln ; gotoxy(5,4); writeln ; writeln(urunadi:13, adeti:11, alis:11:0satis:11:0, karorani:11:0); write ; deg:=readkey; writeln; if deg in then begin writeln ; readln ; writeln ; readln ; writeln ; readln ; writeln ; readln ; adim1:= /100; adim2:=alis+adim1; adim3:=(adim2+karorani)/100; satis:=adim2+adim3; end; end; else begin writeln ; end; close ; close ; if bay=0 then begin writeln ; erase ; end else begin erase ; rename ; end; wreiteln ; dev:=readkey; writeln; until dev in ; end; procedure fis; label tkr, hata, tekrar; const gunler:array of string = ; var alis, satis, adim1, adim2, adim3, karorani, nakit, urunfiyati, bbb:real; ara, urunadi:string; dev:char; dd, gd:text; i, ccccc, aaaaa, aaadeti, adeti, uz, bay:integer; begin clrscr; top:=0; assign ; b:=11;j:=11;d:=0;ccccc:=0; tekrar: getdate ; gotoxy(6,7);writeln('TARİH',':':3, g,'/', a,'/', y,' ', gunler ); gettime ; gotoxy(6,8); writeln('SAAT',':':4, sa,'/', da);writeln; gotoxy(27,3);writeln ; gotoxy(32,5); writeln('Tel. No: 3164789'); gotoxy(6,9); writeln ;writeln; writeln; tkr: reset ;gotoxy(1, j); j:=j+1; writeln ;readln ; write ;readln ;gotoxy(1, j); delline; uz:=length ; bay:=0; while not eof do begin readln ; readln ; readln ; readln ; if ara=urunadi then begin bbb:=aaadeti satis; gotoxy(1, b); b:=b+1; writeln(urunadi:5,' ', aaadeti,'%':10, kdv, bbb:10:0); bay:=1; d:=d+1;top:=top+ ;writeln; end; end; if bay=0 then begin j:=j-1;gotoxy(1, j); delline; goto tkr; end; dev:=readkey; if dev=

Tabii ki Vısual Basıc 6,0 ve sonra programı setup halınde cıkarmak gerekır

Pascal dili ile yazılmış bir dos uygulaması, Visual Basic ile bu kodu çalıştırmağa çalışırsanız her satırda size syntax hatası verir ve düzeltene kadar can sıkıntısından vazgeçebilirsiniz You must log in or register to reply here. Alakalı Olabilecek Konular T Pixel Run - Destek İçin Lütfen Eleştirin trolvan 15 Eylül 2022 Yanıt 0 Gösterim 886 15 Eylül 2022 trolvan T Opet Bitcoin ATM CekoReis 17 Temmuz 2021 2 Yanıt 22 Gösterim 3K 4 Aralık 2021 numan1234 Bitcoin'i İcad Eden Elon Musk justim123 13 Mart 2021 Yanıt 17 Gösterim 2K 16 Temmuz 2021 primogen P Web Site Virus Scan P@LA 6 Şubat 2021 Yanıt 0 Gösterim 494 6 Şubat 2021 P@LA WebSite Hack - Zombi Saldırısı P@LA 6 Şubat 2021 Yanıt 1 Gösterim 900 7 Şubat 2021 Pe55iMySTiC Forum Programlama Genel Programlama Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/stok-kontrol-programi.148350\/", "headline": "Stok Kontrol Programı", "articleBody": "Bu program bir sene boyunca gördüğüm programlama dersinden aldığım birikimin eseridir. Programımı manav mesleği üzerine yaptım. Fakat "writeln" komutu içindeki satırlar değiştirilirse istenilen her mesleğe de hitap etme durumundadır. Programım dosyaya bilgi kaydeder. Kaydedilen bilgileri dosyadan okur. Listeler, değiştirir, siler. Ayrıca programım ana mönüden kontrollü olarak kullanılmaktadır, sonsuz döngüdedir. Çıkmak için ana mönüde iken 7 tuşu kullanılmalıdır. Programım fiş prosedürünün sonunda adetten düşmeyi yapamamaktadır. Bu nedenle satılan ürünün adetini stoktaki adetten düşme fiş prosedürü kullanıldıktan sonra değiştirme prosedürü kullanılarak yapılmalıdır. \r\n\r\n\r\nProgram stok_kontrol;\r\n\r\nUses crt, graph, dos;\r\nLabel\r\nTekrar, noktalama, anamenu, hata;\r\nVar\r\nggggg, sssss, aaaaa:char;\r\ny, a, g, hg, sa, da, sn, sl, renk:word;\r\nsec, b, j, d:integer;\r\nx, o, z, k, l, m, n, t, p, ch:char;\r\nsifre:string;\r\ngs, gm:integer;\r\nprocedure olustur;\r\nvar\r\nurunadi:string;\r\nadeti:integer;\r\nalis, satis, adim1, adim2, adim3, karorani:real;\r\ndd:text;\r\nch:char;\r\nbegin\r\nclrscr;\r\nassign ;\r\nrewrite ;\r\nch:='e';\r\nrepeat\r\nwrite ; readln ;\r\nwrite ; readln ;\r\nwrite ; readln ;\r\nwrite ; readln ;\r\nadim1:= \/100;\r\nadim2:=alis+adim1;\r\nadim3:=(adim2 karorani)\/100;\r\nsatis:=adim2+adim3;\r\nwriteln ;\r\nwriteln ;\r\nwriteln(dd, alis:3, satis:3);\r\nwriteln ;\r\nwriteln('Devam etmek istiyor musunuz? '); ch:=readkey;\r\nuntil ch in ; \r\nclose ;\r\nend;\r\nprocedure ekleme;\r\nvar\r\nurunadi:string;\r\nadeti:integer;\r\nalis, satis, adim1, adim2, adim3, karorani:real;\r\ndd:text;\r\nch:char;\r\nbegin\r\nclrscr;\r\nassign ;\r\nappend ;\r\nch:='e';\r\nrepeat\r\nwrite ; readln ;\r\nwrite ; readln ;\r\nwrite ; readln ;\r\nwrite ; readln ;\r\nadim1:= \/100;\r\nadim2:=alis+adim1;\r\nadim3:=(adim2 karorani)\/100;\r\nsatis:=adim2+adim3;\r\nwriteln ;\r\nwriteln ;\r\nwriteln(dd, alis:3, satis:3);\r\nwriteln ;\r\nwriteln('Devam etmek istiyor musunuz? '); ch:=readkey;\r\nuntil ch in ; \r\nclose ;\r\nend;\r\nprocedure listele;\r\nvar\r\nalis, satis, karorani:real;\r\ndd:text;\r\nurunadi:string;\r\nadeti:integer;\r\nbegin\r\nclrscr;\r\nassign ;\r\nreset ;\r\nclrscr;\r\ngotoxy(5,2); writeln ;\r\ngotoxy85,3); writeln ;\r\ngotoxy(5,4); writeln ;\r\nwhile not eof dd do \r\nbegin\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nwriteln(urunadi:13, adeti:11, alis:11:0satis:11:0, karorani:11:0);\r\nend;\r\nclose ;\r\nreadln\r\nend;\r\nprocedure silme;\r\nlabel\r\nhata;\r\nvar\r\nadeti, bay:integer;\r\nalis, satis, karorani,:integer;\r\ndd, gd:text;\r\nsil, dev, aaaaa:char;\r\nyaz:boolean;\r\nara, urunadi:string;\r\nbegin\r\nhata:\r\nclrscr;\r\nassign ;\r\nassign ;\r\nreset ;\r\nrewrite ;\r\nwriteln ; readln ;\r\nbay:=0;\r\nwhile no eof do\r\nbegin\r\nyaz:=true;\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nif ara=urunadi then\r\nbegin\r\nbay:=1\r\nclrscr;\r\ngotoxy(5,2); writeln ;\r\ngotoxy85,3); writeln ;\r\ngotoxy(5,4); writeln ;\r\nwriteln(urunadi:13, adeti:11, alis:11:0satis:11:0, karorani:11:0);\r\nwriteln ; \r\nsil:=readkey;\r\nwriteln;\r\nif sil in then yaz:=false;\r\nend;\r\n\r\nif yaz then \r\nbegin\r\nwriteln ; \r\nwriteln ; \r\nwriteln ; \r\nwriteln ; \r\nend\r\nelse\r\nwritreln ;\r\nend;\r\nclose ; close ;\r\nif bay:=0 then\r\nbegin\r\nwriteln ;\r\nerase ;\r\nend;\r\nelse\r\nbegin\r\nerase ;\r\nrename ;\r\nend;\r\nwriteln ; readln ;\r\nif aaaaa:='e' then goto hata;\r\nend;\r\nprocedure degistir;\r\nvar\r\nbay, adeti:integer;\r\nadim1, adim2, adim3, alis, satis, karorani:real;\r\ndd, gd:text;\r\nyaz:boolean;\r\ndeg, dev:char;\r\nara, urunadi:string;\r\nbegin\r\nclrscr;\r\nrepeat\r\nassign ;\r\nassign ;\r\nreset ;\r\nrewrite ;\r\nwriteln ; readln ;\r\nbay:=0;\r\nwhile not eof do\r\nbegin\r\nyaz:=true;\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nif ara=urunadi then\r\nbegin\r\nbay:=1;\r\nclrscr;\r\ngotoxy(5,2); writeln ;\r\ngotoxy85,3); writeln ;\r\ngotoxy(5,4); writeln ; writeln(urunadi:13, adeti:11, alis:11:0satis:11:0, karorani:11:0);\r\nwrite ; \r\ndeg:=readkey;\r\nwriteln;\r\nif deg in then\r\nbegin\r\nwriteln ; readln ;\r\nwriteln ; readln ;\r\nwriteln ; readln ;\r\nwriteln ; readln ;\r\nadim1:= \/100;\r\nadim2:=alis+adim1;\r\nadim3:=(adim2+karorani)\/100;\r\nsatis:=adim2+adim3;\r\nend;\r\nend;\r\nelse \r\nbegin\r\nwriteln ;\r\nend;\r\nclose ; close ;\r\nif bay=0 then\r\nbegin\r\nwriteln ;\r\nerase ;\r\nend\r\nelse\r\nbegin\r\nerase ;\r\nrename ;\r\nend;\r\nwreiteln ; \r\ndev:=readkey;\r\nwriteln;\r\nuntil dev in ;\r\nend;\r\nprocedure fis;\r\nlabel\r\ntkr, hata, tekrar;\r\nconst\r\ngunler:array of string = ;\r\nvar\r\nalis, satis, adim1, adim2, adim3, karorani, nakit, urunfiyati, bbb:real;\r\nara, urunadi:string;\r\ndev:char;\r\ndd, gd:text;\r\ni, ccccc, aaaaa, aaadeti, adeti, uz, bay:integer;\r\nbegin\r\nclrscr;\r\ntop:=0;\r\nassign ;\r\nb:=11;j:=11;d:=0;ccccc:=0;\r\ntekrar:\r\ngetdate ;\r\ngotoxy(6,7);writeln('TARİH',':':3, g,'\/', a,'\/', y,' ', gunler );\r\ngettime ; \r\ngotoxy(6,8); writeln('SAAT',':':4, sa,'\/', da);writeln;\r\ngotoxy(27,3);writeln ;\r\ngotoxy(32,5); writeln('Tel. No: 3164789');\r\ngotoxy(6,9); writeln ;writeln;\r\nwriteln;\r\ntkr:\r\nreset ;gotoxy(1, j); j:=j+1;\r\nwriteln ;readln ;\r\nwrite ;readln ;gotoxy(1, j); delline;\r\nuz:=length ;\r\nbay:=0;\r\nwhile not eof do\r\nbegin\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nreadln ;\r\nif ara=urunadi then\r\nbegin\r\nbbb:=aaadeti satis;\r\ngotoxy(1, b);\r\nb:=b+1;\r\nwriteln(urunadi:5,' ', aaadeti,'%':10, kdv, bbb:10:0);\r\nbay:=1; d:=d+1;top:=top+ ;writeln;\r\nend;\r\nend;\r\nif bay=0 then\r\nbegin\r\nj:=j-1;gotoxy(1, j); delline; goto tkr;\r\nend;\r\ndev:=readkey;\r\nif dev=

Program yazmak zordur kardeş bunu çok iyi bilirim... Emek vermişsin çok teşekkürler yararlı olacagından eminim... Vere bilirsem +... Saygılar...

ellerınıze saglık. harıkaa

bu kodu çalıştırmak için hangi programa sokmak gerekir...

stok olarak program isteyen olursa excel de özel program yazıyorum ısteyen olursa pm den ulasabılır. kullandığım ve güncel olarak netsis erp gibi programlara entegre edebılecek düzeydedir.

pascal dili ile yazılmış Delphi IDE ile düzenleyebilir ve çalıştırabilirsiniz.

gercekten güzel paylaşım emek

yeni gördüm böyle paylaşımı teşekkürler

bunu direk olarak program şeklinde sunsan daha bi güzel olur

bu pcposmu oluyo bende öyle program kullandımda

then begin ccccc:=ccccc+1; goto tekrar; end else begin close ; writeln ; aaaaa:=17; writeln('Toplam', top:28:2); hata: aaaaa:=aaaaa+1; gotoxy(1, aaaaa+1); writeln ; readln ; if top>nakit then goto hata else writeln ; gotoxy(20,25); writeln ; readln; clrscr; writeln ; writeln('o ürünlerin adetlerini değiştirme prısedrü kullanarak adetlerini writeln ; readln; end; end; begin clrscr; gotoxy(20,15); writeln ; x:=readkey; write ; o:=readkey; write ; z:=readkey; write ; k:=readkey; write ; l:=readkey; write ; m:=readkey; write ; n=readkey; write ; t:=readkey; write ; p:=readkey; write ; ggggg:=readkey; write ; sssss:=readkey; write ; aaaaa:=readkey; write ; sifre:=x+o+z+k+l+m+n+t+p+ggggg+sssss+aaaaa; if sifre<>'erman turgut' then exit else hata: anamenu: clrscr; gotoxy(35,6);textcolor ;writeln ; normvideo; gotoxy(3,25);writeln ; gotoxy(32,2);writeln ; gotoxy(31,3);writeln ; gotoxy(26,7); writeln ; gotoxy(26,8); writeln ; gotoxy(26,8); writeln('│ 1 KAYIT OLUŞTURMA │'); gotoxy(26,8); writeln('│ 2 KAYIT EKLEME │'); gotoxy(26,8); writeln('│ 3 KAYIT LİSTELEME │'); gotoxy(26,8); writeln('│ 4 KAYIT DEĞİŞTİRME │'); gotoxy(26,8); writeln('│ 5 KAYIT SİLME │'); gotoxy(26,8); writeln('│ 6 FİŞ │'); gotoxy(26,8); writeln('│ 7 ÇIKIŞ │'); gotoxy(26,8); writeln ; gotoxy(26,17); writeln ; gotoxy(30,22); writeln ; readln ; writeln; case sec of 1 : olustur; 2 : ekleme; 3 : listele; 4 : degistir; 5 : silme; 6 : fis; 7 : exit; else goto anamenu; writeln; end; goto anamenu; end. Alıntıdır.

ustalar için iyi bişiy eline saglık biz çıraklar içinde nasıl kullanılacagını açıklarsan sana zahmet iyi olur bunu nasıl çalıştıracagız şimdi bu kodu nereye kopyallıycaz mesela şimdiden eline saglık