Abdulaminxon Haydarov

15 сентября 2017 11:27

Delphi dastur misol uchun
Delphida tuzilgan dastur agar x>y bo'lsa x+y aks holda x-y ni hisoblaydigan dastur.
Dastur kodi:
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
Edit3: TEdit;
Panel1: TPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label8MouseLeave(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z:integer;
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
if x>y then z:=x+y else z:=x-y;

edit3.Text:=inttostr(z);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Label8MouseLeave(Sender: TObject);
begin
label8.Font.Color:=clblack;
label8.Font.Style:=[];
end;

procedure TForm1.Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label8.Font.Color:=clred;
label8.Font.Style:=[fsunderline];
end;

end.
Dasturni yuklab olish uchun
#webdastur 🔗 http://webdastur.uz/delphi/24-delphi-dastur-misol-uchun.html

Abdulaminxon Haydarov

14 сентября 2017 10:20

Dasturlashmi yoki o'ynash
Zamon rivojlangan sari internet va kompyuter texnologiyalari rivojlanyapti. Siz o'ylab ko'ring tanlov o'zingizda bitta zo'r kompyuteringiz bor ertadan kechgacha o'ynaysiz qancha vaqt yo'q bo'lyapti qancha umr endi o'ylab ko'ring shuncha vaqtni dasturlashga sarflasangiz qancha narsani o'rganasiz faqat shijoat bo'lsa bo'ldi sizda hammasini eplaysiz hamma ishni qila olasiz. Shunga vaqtni qadriga yeting.
#webdastur 🔗 http://webdastur.uz/shaxsiy-rivojlanish/23-dasturlashmi-yoki-oynash.html

Abdulaminxon Haydarov

06 сентября 2017 06:10

http://mahammadjon.uz/tagi-yoq-futbol-yoki-tarbiyani-otalardan-boshlash-kerak/

Abdulaminxon Haydarov

04 сентября 2017 17:18

http://mahammadjon.uz/php-dasturlash-tilida-telegram-bot-yozish/

Abdulaminxon Haydarov

28 августа 2017 19:40

Saytda maqola ochilmasa.
Salom siz ushbu maqolani ochdingizmi oxirigacha o'qing. Bizning sayt ya'ni WebDastur.uz saytimmizda ba'zi bir maqolani ochsangiz quyidagi holat sodir bo'ladi:
Agarda sizda shunday holat sodir bo'lsa maqolani ko'rishingiz juda zarur bo'lib qolsa saytimmizdan ro'yxatdan o'tishingiz yoki saytga kirishingizni so'raymiz. Sababi bu maqola ro'yxatdan o'tganlar uchun.
Nega bunday qildik?
Bunday qilganimmizni sababi maqolalarni tarqamasligi tarqasa ham o'sha inson bizning saytga a'zo bo'lib qoladi.
Ro'yxatdan o'tsam meni shaxsiy ma'lumotlarimni hech kim bilmaydimi?
Yoq hech kim bilmaydi. Shaxsiy ma'lumotlaringiz MD5 kodlash tizimi orqali kodlanadi. Agarda ma'lum davr ichida saytimmiz kiber hujumga uchrasa ham ma'lumotlaringiz hech kimni qo'liga o'tib ketmaydi.
Ro'yxatdan o'tsam menga nima foyda?
Siz ro'yxatdan o'tsangiz yashirin maqolalarni ko'ra olasiz va maqola kirita olasiz eng so'nggi yangiliklardan habardor bo'lasiz.
Tanlash imkoniyatingiz bor hammani hayoti o'zini qulida.
#webdastur 🔗 https://goo.gl/ePkvpv

Abdulaminxon Haydarov

28 августа 2017 12:57

1-dars. Veb-dizayndagi asosiy tushunchalar (RUS)
Ushbu video dars rus tilida bo'lib HTML & CSS juda yaxshi tushuntirilgan. Video dars bilan qo'shib dars paytida o'rgatilgan qo'llanmalarni ham olishingiz mumkin.
#webdastur 🔗 https://goo.gl/ktUYgH

Abdulaminxon Haydarov

27 августа 2017 08:43

WebDastur.uz
Insonlar bilan munosabatlarni yaxshilash borasida 7 tavsiya

➖ @webdastur ➖

Abdulaminxon Haydarov

26 августа 2017 17:58

Bilaman albatta bu xabarni ochdingizmi demak o'qimoqchisiz. Siz dasturlashdan biror ma'lumotga egamisiz? Agar xa degan javob kelgan bo'lsa unda sizga bir taklifimmiz bor siz saytimmizda maqola qo'shish bo'limi orqali maqolangizni qo'shing Sentabr oyini oxirigacha eng ko'p maqola qo'shgan va maqolasi ko'p ko'rilgan va sharxlangan insonga biz C++ asoslari nomli pullik video kursni beramiz faqat shoshiling bemani maqola kiritganlar esa boshqa maqola kirita olmaydi. Ha yana aytgancha maqolangiz boshqa saytdan olingiz bo'lsa albatta manbani yozib qoldiring. Shoshiling vaqt tig'iz!

WebDastur.uz Biz bilan endi boshlanadi.

Abdulaminxon Haydarov

26 августа 2017 13:04

http://mahammadjon.uz/hayotimdegi-sevimli-muallimlarim/

Abdulaminxon Haydarov

18 августа 2017 08:17

Web Dasturlashni o’rganmoqchilar uchun taklif qiladigan kitoblarim

http://webdastur.uz/qollanmalar/13-web-dasturlashni-organmoqchilar-uchun-taklif-qiladigan-kitoblarim.html

Abdulaminxon Haydarov

17 августа 2017 10:42

@InglizchaTestBot loyihasining Sertifikatidan namuna!

Abdulaminxon Haydarov

16 августа 2017 12:20

WebDastur.uz ni yangi dizaynini baholang

Abdulaminxon Haydarov

09 августа 2017 11:37

http://mahammadjon.uz/failed-yiqilgan-odamni-qayta-yiqitish/

Abdulaminxon Haydarov

07 августа 2017 16:55

Kursimmizni 78 - darsi yozib tugatildi tez kunlarda sizga taqdim etamiz arzon va sifatli eng asosiysi barcha qurilmalarga.

Abdulaminxon Haydarov

04 августа 2017 09:39

BU QOLLANMA BILAN BEMALOL STIKER YARATA TAYYORLAY OLASIZ! muallif: @Uzmax_boy

Abdulaminxon Haydarov

14 сентября 2017 17:43

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label1MouseLeave(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label2MouseLeave(Sender: TObject);
procedure Label2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Label1Click(Sender: TObject);
begin
Messagedlg('Salom',mtinformation,[mbok],0);
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=clblack;
Label1.Font.Style:=Label1.Font.Style-[fsunderline];
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color:=clred;
Label1.Font.Style:=Label1.Font.Style+[fsunderline];
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=clred;
Label1.Font.Style:=Label1.Font.Style-[fsunderline];
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color:=clred;
Label1.Font.Style:=Label1.Font.Style+[fsunderline];
end;

end.

Delphi uchun dastur salomlashadi!

Abdulaminxon Haydarov

08 сентября 2017 19:18

http://mahammadjon.uz/vazifa-uddalandi-palov-ginness-rekordlar-kitobida-foto/

Abdulaminxon Haydarov

05 сентября 2017 19:21

http://mahammadjon.uz/eron-sotdi-oyinni-ozbekiston-jchdan-qolib-ketdi-ming-afsus/

Abdulaminxon Haydarov

31 августа 2017 17:43

Hammani ulug' ayyom bilan tabriklayman!

Abdulaminxon Haydarov

28 августа 2017 16:15

Salom sizlarga bir xabarim bor @SpamVzlomBot bu botga aldanmang sizni raqamingizga kelgan kodni ko'rsatmang yoki jo'natmang sababi sizni ma'lumotlaringizni boshqalar bilib oladi iloji bo'lsa do'stlaringizga jo'nating.

Abdulaminxon Haydarov

27 августа 2017 08:43

WebDastur.uz
Bootstrap orqali moslavshuvchan sayt tuzish. Bilishingiz kerak bo'lgan narsalar

➖ @webdastur ➖

Abdulaminxon Haydarov

26 августа 2017 20:26

WebDastur.uz
Bootstrap orqali moslavshuvchan sayt tuzish. Kirish qismi.

http://img.uz/d/2017/08/59a19731c071b.jpg Ushbu video dars ingliz tilida bo'lib bootstrapda landing page tayyorlash o'rgatilgan. Eng muhimi tas-ix zonasida.
Nomi: Boostrap Layouts Responsive Single Page Design-Welcome
Davomiyligi: 01:04
Hajmi: 9mb
Kengaytmasi: MP4

Abdulaminxon Haydarov

26 августа 2017 17:49

Saytimmizga a'zo bo'ling va maqola joylang

Salom saytimmiz bazasi va dizayni yangilanib qolmay imkoniyatlar ham qo'shildi endilikda siz saytimmizdan ro'yxatdan o'tganingizdan so'ng saytimmiz a'zosigina bo'lib qolmay maqola ham joylay olasiz ha to'g'ri o'qidingiz maqola joylay olasiz agar maqolangizda fayllar bo'lsa yoki rasm qo'shmoqchi bo'lsangiz img.uz Rasm hostinggi fayl hostinggi esa ishonchlisi disk.yandex.ru shularga joylab keyin saytda e'lon qilishingiz mumkin eslatma bizdagi qulaylik yuklanadigan fayl qo'shadigan bo'lsangiz Yuklab olish darchasiga fayl url manzilini kiritsangiz bas o'zi avtomat ravishda yuklab olish tugmasi bilan chop etiladi. Eslatma har bitta maqolangiz o'zingizni nomingizga chop etiladi. Hamda mualliflik huquqi sizga tegishli bo'ladi.

Abdulaminxon Haydarov

20 августа 2017 15:56

Spinner !
💰Narxi: 15 000 so'm
🚛Yetkazish: 20-35 kun
📚 Ranglari: 6 xil
👤 Murojaat uchun: @AliExpress_Manager

Abdulaminxon Haydarov

17 августа 2017 13:59

Endi WebDastur.uz saytidan ro'yxatdan o'tib o'zingizni maqolangizni kiritishingiz mumkin.

Abdulaminxon Haydarov

17 августа 2017 06:14

🔊 @InglizchaTestbot Inglizcha Test olami✅

✅Testlar aynan siz uchun tayyorlangan
✅O’z darajangizni tanlash imkoniyati
✅Doimo bepul va qulay
✅Sertifikat olish imkoniyati
✅Ayni paytda biz 1000 dan ziyod foydalanuvchilarga egamiz
✅Kelajagizni biz bilan quring

Abdulaminxon Haydarov

10 августа 2017 07:28

http://158.69.106.40:10057 bizning TeamSpeak serverimmiz endi online darslar bo'ladi

Abdulaminxon Haydarov

07 августа 2017 16:58

Kanalga qaray olmasam hafa bo'lmanglar!

Abdulaminxon Haydarov

05 августа 2017 15:39

Yaqin kunlarda HTML ASOSLARI kursimmiz dasturlari sotuvga chiqadi. Ham kompyuterlar uchun ham telefonlar uchun.

Abdulaminxon Haydarov

03 августа 2017 05:22

HTML da oddiy forma
<!DOCTYPE html>
<html>
<head>
<title>Fayl jo'natish</title>
</head>
<body>
<form>
<input type="email" name="email" placeholder="Emailni kiriting" />
<input type="submit" name="submit" value="Jo'natish" />
<input type="reset" name="reset" value="Tozalash" />
<input type="button" name="ok" value="OK" />
</form>
</body>
</html>