«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша



бет34/63
Дата06.01.2022
өлшемі2,75 Mb.
#14335
1   ...   30   31   32   33   34   35   36   37   ...   63
Байланысты:
000ee066-e66f71bc

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

// «КЕЙІН» батырмасының оқиға өңдеуші коды



void __fastcall TForm2::Button1Click(TObject *Sender)

{

Form1->Show();



Form3->Hide();

Form2->Hide();

}

// Студенттер тізімі жазылған ListBox1 компонентін шерту оқиғасының коды



void __fastcall TForm2::ListBox1Click(TObject *Sender)

{

if (Form2->ListBox1->ItemIndex==0) M

Memo1->Lines->LoadFromFile("Жаркынбек.txt");

(Form2->ListBox1->ItemIndex==1)

Memo1->Lines->LoadFromFile("Жумагазы.txt");

if (Form2->ListBox1->ItemIndex==2)

Memo1->Lines->LoadFromFile("Имангалиева.txt");

}
«Оқытушылар» терезесі (Form3) үшін жазылған программа мәтіні:

#include "Unit3.h"

#include "Unit1.h"

#include "Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "SHDocVw_OCX"

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------





Достарыңызбен бөлісу:
1   ...   30   31   32   33   34   35   36   37   ...   63




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет