Лаборатория иши топшириқлари мавзу: Кичик лойиҳалар яратиш: Матнли майдонга парол киритиш, сатрларга қайта ишлов бериш


-расм. Дастурнинг умумий кўриниши. Лекин дастур ишга тушганда Form1



Yüklə 233,9 Kb.
səhifə5/9
tarix13.12.2022
ölçüsü233,9 Kb.
#74392
1   2   3   4   5   6   7   8   9
1655115557[1]

5.1-расм. Дастурнинг умумий кўриниши.
Лекин дастур ишга тушганда Form1 нинг ўлчами ўзгаради. Яъний фойдаланувчидан парол киритишни талаб қилувчи ойнага ўзгаради. Унинг кўриниши 5.2-расмда келтирилган.



5.2-расм. Дастурнинг дастлабки кўриниши.

Бу ойнада ОК тугмачаси вуртуал яратилган ва парол киритиш учун TextBox компонентасининг PasswordChar хоссаси = '*' га тенглаштирилган. Парол тўғри терилгандан кейин дастурнинг ишлаши қуйидагича:



5.2-расм. Дастурнинг парол тўғри киритилгандан кейинги қўриниши.

Дастурнинг умумий кодлари қуйидагича:


#pragma once
#include
namespace Satrlar_bilan_ishlash {
using namespace System;
using namespace System::ComponentModel;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System::Data;
using namespace System::Drawing;
public ref class Form1:public System::Windows:: Forms::Form{
public:
Form1(void){
InitializeComponent(); }
protected:
~Form1(){
if (components){
delete components;} }
private: System::Windows::Forms::Button^ button1;
protected:
private: System::Windows::Forms::TextBox^ textBox1;
private: System::Windows::Forms::Label^ label1;
private: System::Windows::Forms::TextBox^ textBox2;
private: System::Windows::Forms::Label^ label2;
private:
System::ComponentModel::Container ^components;

#pragma region Windows Form Designer generated code


void InitializeComponent(void){
// компоненталар эълон қилинадиган бўлими}
#pragma endregion
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
char satr[200]="";
for(int i=0; iText->Length; i++)
{ satr[i]=textBox1->Text[i]; }
for(int i=0; iString^ s=gcnew String(satr); textBox2->Text=s;}
String^ parol, ^newparol;
private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e) {
label2->Visible=false; label1->Text="Parolni kiriting";
textBox2->Visible=false; button1->Visible=false;
Button^ button4 = gcnew Button();
button4->Font = gcnew System::Drawing::Font("Courier New", 16.0F, FontStyle::Italic);
textBox1->PasswordChar = '*';
textBox1->Font = gcnew System::Drawing::Font("Courier New",16.0F);
textBox1->Size = Drawing::Size(208, 35);
Form1::Height=200;
Form1::Width=230;
button4->Visible = true; button4->Size = Drawing::Size(100, 30);
button4->Location = Drawing::Point(50, 90); button4->Text = "Ok";
this->Controls->Add(button4); parol="Salom";
button4->Click += gcnew EventHandler(this, &Form1::ЩелчокНаКнопке );
}
private: System::Void ЩелчокНаКнопке(System::Object^ sender, System::EventArgs^ e)
{ newparol=textBox1->Text;
if(parol==newparol){
textBox1->Size = Drawing::Size(208, 242);
Form1::Size=Drawing::Size(503,369);
textBox1->Location = Drawing::Point(20, 35);
textBox1->Text = "";
textBox1->PasswordChar = NULL;
label1->Text="Kiruvchi ma'lumotlar";
label1->Visible=true;
label2->Visible=true;
textBox1->Visible=true;
textBox2->Visible=true;
button1->Visible=true;
}
else {
System::Windows::Forms::FormClosingEventArgs^ r; auto MBox = MessageBox::Show("Yana urunib ko'rasmi?", "Xato", MessageBoxButtons::YesNoCancel, MessageBoxIcon::Exclamation);
// YES — диалог; NO — выход; CANCEL - редактировать
if (MBox == Windows::Forms::DialogResult::No) return;
if (MBox == Windows::Forms::DialogResult::Cancel){ this->Close();}
if (MBox == Windows::Forms::DialogResult::Yes)
{ textBox1->Text=""; } }
}}; }
5


Yüklə 233,9 Kb.

Dostları ilə paylaş:
1   2   3   4   5   6   7   8   9




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin