Unit Unit1;
Interfaace
uses
Windows, Messages, SusUtils, Classes, Graphics, Controls,
Forms, Dialog, Menus, StdCtrls, ComCtrl ;
Type
TForm1=class (TForm)
Main Menu1: Tmain Menu;
OpenDialog1:TopenDialog;
SaveDialog1: TsaveDialog;
Filel: TmenuIteem;
Open1: TmenuItem;
Save1: TmenuItem;
RichEdit1: TrichEdit;
Procedure Open1Click (Sender: TObiect);
Procedure Save1Click (Sender: Tobject);
Private
{Private declarations}
public
{Public decllarations}
end;
var
Form1: Tform1;
Implementation
{$R*.DFM}
procedure Tform1.Oen1 Click(sender: TObect);
var
F: TextFile;
S, s11: string;
Begin
OpenDiаlog1. Execute;
Begin
If OpenDialog1. FileName<>” then begin
s11:=OpenDialog1.FileName;
AssignFile (F, s11); Reset (F);
While not eof (F) do
Begin
Readln (F, S11); s:=s+s11+#13+#10
End;
RichEdit1. Text :=S; CloseFile (F); end;
End;
End;
Procedure Tform1. Save1Click (Sender: TObiect);
Var F: TextFile; s, s11: string;
Begin
SaveDialog1. Execute;
If SaveDialog1. FileName<>” then begin
S11:= SaveDialog1.FileName;
AssignFile (F, 11); Rewrite (F);
s:= RichEdit1.text; writeln(F, s); CloseFile(F); end;
End;
3. Контексті мєзір ќ±ру. TpopupMenu компоненті.
TpopuMenu компоненті қайсыбір басқару элементіне (компонентке) тышќаныњ оњ т‰ймесін шерткен кезде кµрінетін контексті (бетке шыѓаратын) мєзірді ќ±ру ‰шін пайдаланылады. Контекстті мәзірді нақты бір басқару элементімен байланыстыру үшін осы басқару элементінің PopupMenu атты қасиетінің мәні ретінде орнатылған TPopupMenu компонентінің атауын беру қажет. Контекстті мәзірдің пункттерін анықтау TMainMenu компонентіндегі сияқты орындалады.
Кейбір қасиеттері:
Property Alingment : TpopupAlingment; - тышқанның оң жағын шерткен кезде контекстті мәзір тышқан көрсеткішінің қай жағынан пайда болу керектігі айқындалады: сол не оң жағынан, центр бойынша. Үнсіз келісім бойынша paLeft мәні орнатылады.
Property AutoPopup: Boolean; - контекстті мәзір тышқанның оң жағын(не клавиатурадағы контекстті мәзір пернесін) шерткен кезде автоматты түрде пайда болу(True) не болмауын(False) анықтайды. Егер False мәні берілсе контекстті мәзір пайда болу үшін арнайы Popup тәсілін пайдалану қажет.
Кейбір тәсілдері:
Сonstructor Create(AOwner: TComponent); override; - ТPopupMenu классының данасын құрады. Бұл тәсіл контекстті мәзірді программалық жолмен құруға арналған. Егер мәзір формаға қойылған болса онда контекстті мәзір объекті автоматты түрде құрылады.
Procedure Popup (X, Y: integer); virtual; экранның көрсетілген нүктесінде контекстті мәзірді шығарады.
Ќазаќстан Республикасы Білім жєне ѓылым Министрлігі
“Сырдария” университеті
“Физика және математика” факультеті
“Информатика” кафедрасы
“Дельфи программалау ортасы”
пєні бойынша
050602, 050111 – «Информатика» мамандықтарыныњ студенттері ‰шін
ЛАБОРАТОРИЯ САБАЌТАРЫНЫЊ ЖОСПАРЫ
Жетісай-2007 ж
10. ЛАБОРАТОРИЯ САБАҚТАРЫ
№
|
Таќырыптары
|
Сағат
саны
|
Әдебиеттер
|
|
Кредит №1
|
|
| -
|
Проект құру.
Жаңа проект құру. Форма. Модульді және проектті сақтау. Пограмманы іске қосу
|
1
|
1,2,3,6
| -
|
Timer компоненті. Уақытқа байланысты функциялармен жұмыс
1. Формада жүріп тұрған сағатты көрсету
2. Now, DayOfWeek, StrToTime, DateToStr функциялары және олармен жұмыс
|
1
|
1,2,3,6
| -
|
OleContainer компоненті. OLE технологиясы
1. OLE технологиясы. OleContainer компоненті арқылы қосымша(Paint) ашу.
2. Ole автоматтандыруын пайдаланып Excelде есеп шешу
|
2
|
1,2,3,6
| -
|
Берілгендерді жеке диалогтық терезеде енгізу және шығару
1. InputBox функциясы
3. ShowMessage процедурасы
|
1
|
1,2,3,6
| -
|
Edit, Label, Button компоненттері.
Формада берілгендерді енгізу және шығару
|
1
|
1,2,3,6
| -
|
Тармақталу командасы
ax2+bx+c=0 квадрат теңдеуін шешу программасы
|
1
|
1,2,3,6
| -
ж
|
Таңдау командасы
Ұшбұрыш, трапеция, дөңгелек аудандары формуласының керектісін шығаратын программа
|
1
|
1,2,3,6
| -
|
Цикл операторлары
1. Бүтін санның жай не құрама сан екендігін анықтайтын программа. Үшін, дейін, әзірше циклдері
2. Салыстырмалы жиілікті табу программасы. Random функциясы. Const операторы
|
2
|
5,2,3,6
| -
|
Процедура және функция
Тікбұрышты үшбұрыштың берілген катеттері арқылы периметрін табу программасы. Процедура мен функцияны пайдаланып құру
|
1
|
5,2,3,6
| -
|
Пайдаланушының модулі
isint және isFioat функцияларын өз ішіне алатын модуль құру және пайдалану
|
1
|
5,2,3,6
| -
|
Scroolbar компоненті
Тікұшақ жылдамдығын бақылау программасы
|
1
|
5,2,3,6
| -
|
BitBtn, Panel, Combobox компоненттері. Бұл компоненттерді пайдаланып калкулятор қосымшасын құру
|
1
|
1,2,3,6
| -
|
Сандық массивтермен жұмыс.
Сандық массивтің min, max, орта мәнін табу программасы. Массивті жариялау, массив элементтерін пайдалану
|
1
|
5,2,3,6
| -
|
Матрицамен жұмыс.
Жүгіру бойынша жарыс нәтижелері программасы. Екі өлшемді массивпен жұмыс
|
1
|
1,2,3,6
| -
|
Мәтіндік массивпен жұмыс.
Студентердің тізімін фамилия бойынша реттеу программасы. Мәтіндік қатармен жұмыс істейтін функциялар
|
1
|
1,2,3,6
|
|
Кредит №2
|
|
1,2,3,6
| -
|
Ерекше жағдайлар
Try…except блогын пайдаланып қателікті өңдеу
|
1
|
1,2,3,6
| -
|
Фигуралар сызу және мәтіндік жол шығару
Дөңгелек, тіктөртбұрыш, кесінді, нүктені бейнелеу. Белгілі бір позициядан мәтіндік жол шығару
|
1
|
1,2,3,6
| -
|
TPaintBox компоненті. Диаграмма тұрғызу
Түрлі түске боялатын үш сектордан тұратын дөңгелек диаграмма тұрғызу
|
1
|
1,2,3,6
| -
|
Image компоненті арқылы дайын кескінді орнату тәсілдері
1. Picture қасеті арқылы
2. OpenPictureDialog компоненті арқылы
|
1
|
1,2,3,6
| -
|
Фигура салу
1. TShape компоненті арқылы геометриялық фигура салу
2. TBevel компоненті арқылы фрманы безендіру
3. TImageEditor редакторын пайдаланып қолдан фигура салу
|
2
|
1,2,3,6
| -
|
Графикалық кескіндерді жылжыту әсерін ұйымдастыру
1. 2 шеңберді қарама-қарсы жылжыту программасы
2. Жерді айналған ай программасы
|
1
|
4,5,3,6
| -
|
Кемені жылжыту
1. Image1, Timer1 компонентерін пайдаланып аралдағы кемені жылжыту программасы
2. Жады буферімен жұмыс
|
2
|
4,5,3,6
| -
|
Файлды типтік түрде тиеу
Rewrite, write операторлары
|
1
|
4,5,3,6
| -
|
Типтік файлды оқу
Reset, read операторлары
|
1
|
1,2,3,6
| -
|
TMainMenu компоненті
1. Мәзір құру
2. Құрылған мәзірді пайдалану
|
2
|
4,5,3,6
|
|
Барлығы
|
30
|
|
Пайдаланылатын әдебиеттер:
Негізгі:
-
О. Камардинов. Х.Жантелі, DELPHI 5 – 6 , Оқу құралы. Шымкент, 2002
-
И.Баженова, Дельфи 7, Кудиц-Образ, М.-2003
-
В.Попов, Паскаль и Дельфи, Питер-2003
-
В.Фараонов, Delphi 6, учебный курс, М.-2001
-
Электронный учебник, Иллюстрированный самоучитель по Дельфи 7 для начинающих
Қосымша:
-
А.Полянский. Среда программирования Delphi 5-6 Справочное пособие. М.,2001
-
С.Бобровский. Delphi 5. Учебный курс. М.2001
-
Н.Культин. Delphi 6. Программирование на Object Pascal. БХБ-Петербург, 2001
Ќазаќстан Республикасы Білім жєне ѓылым министрлігі
“Сырдария” университеті
“Физика және математика” факультеті
“Информатика” кафедрасы
“Дельфи программалау ортасы”
пєні бойынша
050602, 050111 - «Информатика» мамандықтарыныњ студенттері ‰шін
Достарыңызбен бөлісу: |
