Напишите коментарии к листингу программе

Tom · #1 25.09.2011, 14:46

опишите программный код пожалуйста. Заранее огромное спасибо.

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

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

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var
  fio,a:string;
  b,c:string;
  f: textFile;
  pref:integer;
  Ini: Tinifile;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
fio:=Edit1.Text;
a:=Edit1.Text;
b:=Edit2.Text;
c:=Edit3.Text;
if b<>c then  label4.Caption:='Пароли не совпадают.'
   else label4.Caption:='Регистрация успешно завершина.';
case combobox1.itemindex of
0:pref:=1;
1:pref:=2;
2:pref:=3;
end;
Ini.WriteString('login','log',a);
Ini.Writestring('login','parol',b);
Ini.WriteInteger('login','pref',pref);
Form2.Close;
end;



end.
unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
a,b:string;
log,parol:string;
Ini: Tinifile;
c:integer;
f:string;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
a:=Ini.Readstring('login','log','default value');
b:= Ini.Readstring('login','parol','default value');
c:=Ini.Readinteger('login','pref',10);
str(c,f);
log:=edit1.Text;
parol:=edit2.text;
if (a=log) and (b=parol) then begin
Form4:=TForm4.Create(Application);
 Form4.Caption:='Вход';
 Form4.Visible:=true;
 form4.Label1.Caption:='уровень доступа='+f;
 end else label3.caption:='логин или пароль не верны';
end;

end.
unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

end.

Админ: Пользуемся тегами для оформления кода!

M.A.D.M.A.N. · #2 25.09.2011, 15:30

Ну вы совсем...
Наверное скоро на форум будут заходить с просьбами о проверке орфографии в коде.
Твой код очень тривиален, мнемонически должно быть итак понятно, что там происходит.

Pyro · #3 25.09.2011, 15:55

Или ещё попросят расставить пробелы перед для индентации

Tom · #4 26.09.2011, 01:03

Ребят был бы я програмистом я бы не просил. Я инженр. Даже не знаю зачем нам поставили пару Программирования. Так что буду очень благодарен если вы опишете код. Заранее огромное спасибо.

Konrad · #5 26.09.2011, 01:08

Мда, нынешние инженеры настолько суровы...

В раздел ======> Работа.

chainik · #6 26.09.2011, 08:59

а вообще- то проверить орфографию нелишне.
Слово Завершина правильно пишется так: Завершена

Delphist · #7 26.09.2011, 10:42

"Я в инженеры бы пошел, пусть меня научат!!!!)))"

Код:

unit Unit1;//Имя модуля

interface

uses//После этого слова идет перечисление подключаемых модулей 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type//после этого объяснение типов
  TForm1 = class(TForm)
//здесь описывается компоненты исобытия
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private//После этого слова можно описывать закрытые данные объектов
    { Private declarations }//подсказка!!!!!!! которую сгенерировал Delphi
  public//После этого можно описать открытые данные объекта
    { Public declarations }//Подсказка!!!!!!!


//Здесь можно описать переменные и методы доступные из другого модуля

  end;

Тож самое только для второго модуля
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);

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

var
  Form2: TForm2;

implementation

{$R *.dfm}
//Событие по нажатию кнопкп Button1
procedure TForm2.Button1Click(Sender: TObject);
//Объявление переменных используемые в этом событие  
var
  fio,a:string;
  b,c:string;
  f: textFile;
  pref:integer;
  Ini: Tinifile;
//Начало выполнения события
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini'); //Инициализация Ini файла 

fio:=Edit1.Text;
a:=Edit1.Text;
b:=Edit2.Text;
c:=Edit3.Text;
//Проверка на правельность ввода данных b и c
if b<>c then  label4.Caption:='Пароли не совпадают.'
   else label4.Caption:='Регистрация успешно завершина.';
case combobox1.itemindex of
0:pref:=1;
1:pref:=2;
2:pref:=3;
end;
//заносим данные из пременных a и b в ини файл
Ini.WriteString('login','log',a);
Ini.Writestring('login','parol',b);
Ini.WriteInteger('login','pref',pref);
Form2.Close;//закрытие формы Form2
end;



end.
unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
a,b:string;
log,parol:string;
Ini: Tinifile;
c:integer;
f:string;
begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini');
a:=Ini.Readstring('login','log','default value');
b:= Ini.Readstring('login','parol','default value');
c:=Ini.Readinteger('login','pref',10);
str(c,f);
log:=edit1.Text;
parol:=edit2.text;
if (a=log) and (b=parol) then begin
Form4:=TForm4.Create(Application);
 Form4.Caption:='Вход';
 Form4.Visible:=true;
 form4.Label1.Caption:='уровень доступа='+f;
 end else label3.caption:='логин или пароль не верны';
end;

end.
unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

end.

Чего тут не понятного??? Надеюсь в подобии слов разберешься??? Ты инженер какой инженер????

Tom · #8 26.09.2011, 11:00

Системы обработки информации и управления( Автоматизированные системы) Спасибо. Очень благодарен.

Konrad · #9 26.09.2011, 11:12

Цитата:

Сообщение от Tom

Системы обработки информации и управления( Автоматизированные системы) Спасибо. Очень благодарен.

Ёшкин кот, человек учится обрабатывать информацию и размышляет на тему - накой ему нужно программирование?

chainik · #10 26.09.2011, 11:24

все очень просто
списал исходники откуда-то причем не задумываясь и не понимая
Сейчас потащит все эти комментарии своему преподу.
Зачет получит....
А потом будет проектировать ракетные комплексы.
Или сочинять программы предупреждения столкновения самолетов

Delphist · #11 26.09.2011, 11:32

закончит обучение! Устроится на работу и уволят его за не компетентность))))

Pyro · #12 26.09.2011, 12:00

Цитата:

А потом будет проектировать ракетные комплексы

Помойму их щас проектируют кинооператоры и режисёры, программисты там не нужны.
А автор как вариант можно пойти в преподаватели, там кодить не заставляют

Tom · #13 27.09.2011, 01:51

Я буду делать платы. Изучаю электронику. Теории автоматизированных систем. А писать программы для всего этого будут другие.

angvelem · #14 27.09.2011, 04:33

Ну одно другому не мешает. Когда-то я в плотную занимался электроникой и свой первый компьютер паял сам. Потом к нему же и первые программы писал.

Pilot_Red · #15 27.09.2011, 08:28

Цитата:

Сообщение от angvelem

Ну одно другому не мешает. Когда-то я в плотную занимался электроникой и свой первый компьютер паял сам. Потом к нему же и первые программы писал.

И ОС писал сам???

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты