basit bi menu
uses wincrt;
var sec:char; procedure bolum1; begin end; procedure bolum2; begin end; procedure bolum3; begin end; procedure menu; begin repeat clrscr; gotoxy(30,6);write('1-hareket giris-çıkıs'); gotoxy(30,8);write('2-hareket listesi '); gotoxy(30,10);write('3-cari bilgi girişi '); gotoxy(30,12);write('c-çıkıs '); gotoxy(30,14);write('seçiminiz:'); repeat sec:=upcase(readkey); until sec in ['1','2','3','c']; case sec of '1':bolum1; '2':bolum2; '3':bolum3; 'c':exit; end; until false; end; begin menu; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 21:41 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.