Методы определения основных физических характеристик песчаного грунта
Дипломная работа - Геодезия и Геология
Другие дипломы по предмету Геодезия и Геология
работы" всплывают четыре строчки (рис.1) при нажатии на которые появляются соответствующие окна с выполнением работы.
Рис.1
При нажатии на кнопку " Опр. влажности грунта" появляется окно (рис.2). В окне представлена теоретическая часть с ходом выполнения данной работы. Прочитав теорию и определив исходные параметры (например: m, m1 и др.) вносим их в таблицу в соответствующие колонки.
песчаный грунт физическая характеристика
Рис.2
После внесения значений в таблицу для вычисления необходимых значений нажимаем кнопку " Расчет" и в ячейках таблицы появляются вычисленные значения искомых параметров (рис.3).
Рис.3
Проверка вычислений:
=,
=.
Для завершения работы с программой нужно нажать кнопку "Выход".
Приложение А. Текст программы
program Grunt;,in 'Main. pas' {MainForm},in 'Part1. pas' {FormPart1},in 'Part2. pas' {FormPart2},in 'Part3. pas' {FormPart3},in 'Part4. pas' {FormPart4};
{$R *. res}. Initialize;. CreateForm (TMainForm, MainForm);. CreateForm (TFormPart1, FormPart1);. CreateForm (TFormPart2, FormPart2);. CreateForm (TFormPart3, FormPart3);. CreateForm (TFormPart4, FormPart4);.run;
end.
unit Main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,,Part1, Menus, XPMan,Part2,Part3,Part4, jpeg, ExtCtrls, StdCtrls;= class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TLabel;: TLabel;: TShape;: TLabel;: TLabel;: TMenuItem;: TMenuItem;N3Click (Sender: TObject);N5Click (Sender: TObject);N6Click (Sender: TObject);N1Click (Sender: TObject);N4Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TMainForm;
{$R *. dfm}TMainForm. N3Click (Sender: TObject);. Show;;TMainForm. N5Click (Sender: TObject);. Show;;TMainForm. N6Click (Sender: TObject);. Show;;TMainForm. N1Click (Sender: TObject);;;TMainForm. N4Click (Sender: TObject);
begin. Show;;.
unit Part1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, ExtCtrls, Buttons;= class (TForm): TImage;: TLabel;: TBitBtn;: TLabel;: TMemo;: TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TStringGrid;: TButton;FormCreate (Sender: TObject);BitBtn1Click (Sender: TObject);Button1Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TFormPart1;
{$R *. dfm}TFormPart1. FormCreate (Sender: TObject);. StringGrid1. Cells [0,0]: =' Лабораторный № образца';
// FormPart1. StringGrid1. Cells [1,0]: =' № Бюксы';. StringGrid1. Cells [1,0]: =' m, г';. StringGrid1. Cells [2,0]: =' m1, г';. StringGrid1. Cells [3,0]: =' m2, г';. StringGrid1. Cells [4,0]: =' m1-m2, г';. StringGrid1. Cells [5,0]: =' m2-m, г';. StringGrid1. Cells [6,0]: =' W, ';. StringGrid1. Cells [0,1]: =' №1 ';. StringGrid1. Cells [0,2]: =' №2 ';;TFormPart1. BitBtn1Click (Sender: TObject);. Close;;TFormPart1. Button1Click (Sender: TObject);: extended;: extended;: extended;: extended;: extended;: extended;: extended;: extended;: =StrToFloat (StringGrid1. Cells [2,1]); // strtofloat (FormPart1. Edit2. Text);: =StrToFloat (StringGrid1. Cells [3,1]); // strtofloat (FormPart1. Edit3. Text);: =StrToFloat (StringGrid1. Cells [1,1]); // strtofloat (FormPart1. Edit1. Text);: = (m11-m12) / (m12-m1);. StringGrid1. Cells [4,1]: =FloatToStr (m11-m12);. StringGrid1. Cells [5,1]: =FloatToStr (m12-m1);. StringGrid1. Cells [6,1]: =FloatToStr (W1);: =StrToFloat (StringGrid1. Cells [2,2]); // strtofloat (FormPart1. Edit5. Text);: =StrToFloat (StringGrid1. Cells [3,2]); // strtofloat (FormPart1. Edit6. Text);: =StrToFloat (StringGrid1. Cells [1,2]); // strtofloat (FormPart1. Edit4. Text);: = (m21-m22) / (m22-m2);. StringGrid1. Cells [4,2]: =FloatToStr (m21-m22);. StringGrid1. Cells [5,2]: =FloatToStr (m22-m2);. StringGrid1. Cells [6,2]: =FloatToStr (W2);
end;.
unit Part2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, Buttons;= class (TForm): TMemo;: TImage;: TMemo;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TButton;: TListBox;: TLabel;: TImage;: TMemo;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TListBox;: TButton;: TBitBtn;Button1Click (Sender: TObject);Button2Click (Sender: TObject);BitBtn1Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TFormPart2;: integer=0;: integer=0;
{$R *. dfm}TFormPart2. Button1Click (Sender: TObject);,P,W,e: extended;: =StrTOfloat (FormPart2. Edit1. text);: =StrTOfloat (FormPart2. Edit2. text);: =StrTOfloat (FormPart2. Edit3. text);: = ( (Ps* (W+1)) /P) - 1;. Items [n]: ='Опыт № '+IntToStr (n+1) +' e= '+FloatToStr (e);: =n+1;;TFormPart2. Button2Click (Sender: TObject);,Pw,W,e,G: extended;: =StrTOfloat (FormPart2. Edit5. text);: =StrTOfloat (FormPart2. Edit7. text);: =StrTOfloat (FormPart2. Edit4. text);: =StrTOfloat (FormPart2. Edit6. text);: = (w*Ps) / (e*Pw);. Items [m]: ='Опыт № '+IntToStr (m+1) +' G= '+FloatToStr (G);: =m+1;;TFormPart2. BitBtn1Click (Sender: TObject);
begin;;.
unit Part3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, Buttons;= class (TForm): TMemo;: TImage;: TMemo;: TBitBtn;: TEdit;: TEdit;: TLabel;: TLabel;: TButton;: TListBox;BitBtn1Click (Sender: TObject);Button1Click (Sender: TObject);FormCreate (Sender: TObject);
{ Private declarations }
{ Public declarations };: TFormPart3;: Integer;
{$R *. dfm}TFormPart3. BitBtn1Click (Sender: TObject);;;TFormPart3. Button1Click (Sender: TObject);,p,m,m1: extended;: =50;: =StrTOfloat (FormPart3. Edit1. text);: =StrTOfloat (FormPart3. Edit2. text);: = (m1-m) /v;. Items [n]: ='Опыт № '+IntToStr (n+1) +' p= '+FloatToStr (p);: =n+1;;TFormPart3. FormCreate (Sender: TObject);
begin: =0;;.
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, Buttons, ExtCtrls;= class (TForm): TMemo;: TStringGrid;: TButton;: TBitBtn;: TImage;: TLabel;FormCreate (Sender: TObject);Button1Click (Sender: TObject);BitBtn1Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TFormPart4;: integer=1;
{$R *. dfm}TFormPart4. FormCreate (Sender: TObject);. StringGrid1. Cells [0,0]: ='Масса пикнометра пустого, г, m1';. StringGrid1. Cells [1,0]: ='Масса пикнометра с грунтом, г m2';
FormPart4. StringGrid1. Cells [2,0]: ='Масса пикнометра с грунтом и водой, г, m3';. StringGrid1. Cells [3,0]: ='Масса пикнометра с водой, г, m4';. StringGrid1. Cells [4,0]: ='Плотность частиц грунта, г/см3, P';
end;TFormPart4. Button1Click (Sender: TObject);,m1,m2,m3,m4: extended;: =StrToFloat (StringGrid1. Cells [0,str]); m2: =StrToFloat (StringGrid1. Cells [1,str]); m3: =StrToFloat (StringGrid1. Cells [2,str]);: =StrToFloat (StringGrid1. Cells [3,str]); Ps: = (m2-m1) / ( (m4+m2) - (m3+m1));. StringGrid1. Cells [4,str]: =FloatToStr (Ps);(str=1) then str: =2str: =1;;TFormPart4. BitBtn1Click (Sender: TObject);
begin;;.