|
"Gazlardagi mexanik qo'shimchalarning miqdoriy tahlili va gazlarning shudring nuqtasini aniqlash" nomli elektron o'quv qo'llanma
Электронное учебное пособие «Количественный анализ механических примесей в газах и определение точки росы газов»
Yaratilgan vaqti 08.05.2022 y.
Huquq egasi:
Zaripov Mizrobjon Xalim o’g’li,O‘zbekiston,O’qituvchi-stajyor, Buxoro muhandislik texnologiya instituti
Mualliflar:
Zaripov Mizrobjon Xalim o’g’li,O‘zbekiston,O’qituvchi-stajyor, Buxoro muhandislik texnologiya instituti
G’aybullayev Saidjon Abdusalimovich,O‘zbekiston, Dotsent, Buxoro muhandislik texnologiya instituti
Mavlonov Babaxan XXX,O‘zbekiston, Kimyo fanlari nomzodi, Buxoro muhandislik texnologiya instituti
"Gazlardagi mexanik qo'shimchalarning miqdoriy tahlili va gazlarning shudring nuqtasini aniqlash" nomli elektron o'quv qo'llanma dasturining kodidan namunalar
ILOVA
DASTUR LISTINGI
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, dxRibbonSkins, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxRibbonCustomizationForm, Vcl.ComCtrls, cxContainer,
cxEdit, cxTreeView, dxGDIPlusClasses, Vcl.ExtCtrls, dxBar, cxClasses, dxRibbon,ShellAPI,ComObj,
System.ImageList, Vcl.ImgList, cxImageList;
type
TForm1 = class(TForm)
dxRibbon1Tab1: TdxRibbonTab;
dxRibbon1: TdxRibbon;
dxBarManager1: TdxBarManager;
dxBarManager1Bar1: TdxBar;
dxBarLargeButton1: TdxBarLargeButton;
dxBarLargeButton2: TdxBarLargeButton;
dxBarLargeButton3: TdxBarLargeButton;
Panel1: TPanel;
Image1: TImage;
Panel2: TPanel;
cxTreeView1: TcxTreeView;
Panel3: TPanel;
cxTreeView2: TcxTreeView;
Panel4: TPanel;
cxTreeView3: TcxTreeView;
dxBarLargeButton4: TdxBarLargeButton;
dxBarManager1Bar3: TdxBar;
dxBarLargeButton5: TdxBarLargeButton;
Panel5: TPanel;
cxTreeView4: TcxTreeView;
dxBarLargeButton6: TdxBarLargeButton;
cxImageList1: TcxImageList;
cxImageList2: TcxImageList;
cxImageList3: TcxImageList;
cxImageList4: TcxImageList;
dxBarLargeButton7: TdxBarLargeButton;
Panel6: TPanel;
cxTreeView5: TcxTreeView;
cxImageList5: TcxImageList;
procedure cxTreeView1DblClick(Sender: TObject);
procedure cxTreeView2DblClick(Sender: TObject);
procedure cxTreeView3DblClick(Sender: TObject);
procedure cxTreeView4DblClick(Sender: TObject);
procedure dxBarLargeButton1Click(Sender: TObject);
procedure dxBarLargeButton6Click(Sender: TObject);
procedure dxBarLargeButton3Click(Sender: TObject);
procedure dxBarLargeButton4Click(Sender: TObject);
procedure dxBarLargeButton5Click(Sender: TObject);
procedure cxTreeView5DblClick(Sender: TObject);
procedure dxBarLargeButton7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.cxTreeView3DblClick(Sender: TObject);
var
q:AnsiString;
W: WideString;
P: PWideChar;
begin
case cxTreeView3.Selected.SelectedIndex of
//a:=GetCurrentDir+'\Maruza\Маъруза 1.docx' :
//ShellExecute (Form1.Handle, nil, PChar (a), nil, nil, SW_RESTORE);
1: q:=GetCurrentDir+'\lab\1.pdf';
2: q:=GetCurrentDir+'\lab\2.pdf';
3: q:=GetCurrentDir+'\lab\3.pdf';
4: q:=GetCurrentDir+'\lab\4.pdf';
end;
W := q;
P := PWideChar(W);
//ShowMessage(q);
ShellExecute(Handle,
'open', P, nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.cxTreeView4DblClick(Sender: TObject);
var
q:AnsiString;
W: WideString;
P: PWideChar;
begin
case cxTreeView4.Selected.SelectedIndex of
1: q:=GetCurrentDir+'\video\5-tajriba.mp4';
2: q:=GetCurrentDir+'\video\8-tajriba.avi';
3: q:=GetCurrentDir+'\video\gaz namligini aniqlash.avi';
4: q:=GetCurrentDir+'\video\Gazni qazib olish vedio havola.mp4';
5: q:=GetCurrentDir+'\video\Shudring nuqtasini aniqlash qurilmasi.mp4';
6: q:=GetCurrentDir+'\video\Фильм о Цеолитах.mp4';
end;
W := q;
P := PWideChar(W);
//ShowMessage(q);
ShellExecute(Handle,
'open', P, nil, nil, SW_SHOWNORMAL);
//Form1.ShowModal;
end;
procedure TForm1.cxTreeView5DblClick(Sender: TObject);
var
q:AnsiString;
W: WideString;
P: PWideChar;
begin
case cxTreeView5.Selected.SelectedIndex of
1: q:=GetCurrentDir+'\taqdimot\5-tajriba ishi.pdf';
2: q:=GetCurrentDir+'\taqdimot\6-tajriba ishi.pdf';
3: q:=GetCurrentDir+'\taqdimot\7-tajriba ishi.pdf';
4: q:=GetCurrentDir+'\taqdimot\8-tajriba ishi.pdf';
end;
W := q;
P := PWideChar(W);
//ShowMessage(q);
ShellExecute(Handle,
'open', P, nil, nil, SW_SHOWNORMAL);
//Form1.ShowModal;
end;
procedure TForm1.dxBarLargeButton1Click(Sender: TObject);
begin
Panel2.Visible:=True;
Panel3.Visible:=False;
Panel4.Visible:=False;
panel5.Visible:=False;
Panel6.Visible:=False;
end;
procedure TForm1.dxBarLargeButton3Click(Sender: TObject);
begin
panel5.Visible:=True;
panel1.Visible:=False;
panel2.Visible:=False;
panel4.Visible:=False;
panel3.Visible:=False;
Panel6.Visible:=False;
end;
procedure TForm1.dxBarLargeButton4Click(Sender: TObject);
var
q:AnsiString;
W: WideString;
P: PWideChar;
begin
q:=GetCurrentDir+'\test\test.doc';
W := q;
P := PWideChar(W);
//ShowMessage(q);
ShellExecute(Handle,
'open', P, nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.dxBarLargeButton5Click(Sender: TObject);
begin
panel3.Visible:=True;
panel1.Visible:=False;
panel2.Visible:=False;
panel4.Visible:=False;
panel5.Visible:=False;
Panel6.Visible:=False;
end;
procedure TForm1.dxBarLargeButton6Click(Sender: TObject);
begin
panel4.Visible:=True;
panel1.Visible:=False;
panel2.Visible:=False;
panel3.Visible:=False;
panel5.Visible:=False;
Panel6.Visible:=False;
end;
procedure TForm1.dxBarLargeButton7Click(Sender: TObject);
begin
panel6.Visible:=True;
panel1.Visible:=False;
panel2.Visible:=False;
panel3.Visible:=False;
panel5.Visible:=False;
panel4.Visible:=False;
end;
end.
Do'stlaringiz bilan baham: |
