linkedin facebook linkedin facebook nod32

Delphida kitob sahifasi holatga tayyorlash dasturi

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2017-08-24

Delphida kitob sahifasi holatga tayyorlash dasturi

Kitobcha holida qog’ozga chiqarish uchun mo’ljallangan ushbu dastur boshqa shunga o’xshash dasturlardan farq qiladi. Birinchi va eng asosiy farqi shundaki ushbu dastur kitob betlarini har qanday printer uchun mos holda ishlab beradi. Ya’ni ayrim printerlar qog’ozning ust tomoniga chop qilsa ayrimlari esa aksincha tomoniga chop qiladi.

Agar sizning printeringiz birinchi turdagi printerlar sinfiga mansub bo’lsa unda dasturning “BIRINCHI TOMON UCHUN:” nomi bilan berilgan satrdagi fayl varaqlari raqamini printerga bergninggizdan so’ng “IKKINCHI TOMON UCHUN:” nomi bilan berilgan keyingi satrdagi raqamlarni printerga berasiz va birinchi tomon chop qilingan varaqlarni hech qanday o’zgarishsiz ust tomoniga bo’sh bo’lgan holda joylashtirasiz.
Agar sizning printeringiz ikkinchi turdagi printerlar sinfiga mansub bo’lsa unda dasturning “BIRINCHI TOMON UCHUN:” nomi bilan berilgan satrdagi fayl varaqlari raqamini printerga bergninggizdan so’ng “BOSHQA PRINTERLAR UCHUN:” nomi bilan berilgan keyingi satrdagi raqamlarni printerga berasiz va birinchi tomon chop qilingan varaqlarni hech qanday o’zgarishsiz ost tomoniga bo’sh bo’lgan holda joylashtirasiz.
Ikkinchi tomonga ham chop qilingandan so’ng varaqlarni o’rtasidan buklasangiz fayldagi ma’lumotni kitobcha holda chop qilinganlgini ko’rasiz.
Ushbu dasturdgi yangiliklardan biri dasturning printerga chiqarish buyrug’i bilan bog’langanligidir. “FAYL NOMINI KO’RSATING” buyrug’ini bossangiz fayl nomini ko’rsatishingiz uchun oyna paydo bo’ladi va siz fayl nomini ko’rsatishingiz mumkin. “QOG’OZGA CHIQARISH” buyrug’ini bosishdan oldin fayl nomini ko’rsatmagan bo’lsangiz faylni ko’rsatish uchun muloqot oynasi paydo bo’ladi.
Dastur kelajakda fayl bilan bevosita muloqot qilib agar faylning varaqlari soni kitobcha holida chiqish uchun to’rtga karrali bo’lmasa avtomatik ravishda unga keraklicha varaqlarni qo’shish imkoniyatiga ega bo’ladi. Va siz hech qanday muammosiz shu dasturdan turib hohlagan faylni kitobcha holida chop qilish imkoniyatiga ega bo’lasiz.

Dastur kodi:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Hisoblash: TButton;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
procedure HisoblashClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.HisoblashClick(Sender: TObject);
label 1,2,3;
var i,j:integer;
a,b:integer;
begin

a:=StrToInt(Edit1.Text);
if a<0 then ShowMessage('Iltimos musbat son kiriting!') else
if a mod 4<>0 then ShowMessage('Iltimos 4 ga karrali son kiriting!')else
begin i:=a-2;j:=1; label3.Caption:='Printerga '+IntToStr(a div 4)+' dona toza list joylashtiring!';
Edit2.Text:=IntToStr(a);
1: begin Edit2.Text:=Edit2.Text+','+IntToStr(j)+','+IntToStr(i);
i:=i-2;j:=j+2; if i<> a div 2 then goto 1 else Edit2.Text:=Edit2.Text+','+IntToStr(j);
end;
begin i:=a div 2;j:=a div 2+1;
2: begin Edit3.Text:=Edit3.Text+IntToStr(i)+','+IntToStr(j)+',';
i:=i-2;j:=j+2; if i<> 2 then goto 2 else Edit3.Text:=Edit3.Text+inttostr(i)+','+IntToStr(j);
end;
end;
begin i:=2 ;j:=a-1;
3: begin Edit4.Text:=Edit4.Text+IntToStr(i)+','+IntToStr(j)+',';
i:=i+2;j:=j-2; if i<> a div 2 then goto 3 else Edit4.Text:=Edit4.Text+inttostr(i)+','+IntToStr(j);
end;
end;
end;
end;
end.

2297 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений