twitter
rss

Aspek Ergonomi dalam IMK


Aspek Ergonomi Dalam IMK
·         Pengertian Ergonomi
1.       Suatu bidang studi yang mencari atau menangani desain peralatan dan tugas-tugas           yang cocok dengan kapabilitas manusia dan limitnya
2.         Faktor kenyamanan kerja
3.   Ergonomi harus bisa memahami seluruh keadaan manusia, baik dari segi anatomi, fisiologi, psikologi, engineering, manajemen, dan desain/perancangan untuk membuat desain tugas yang berguna
4.          Aturan atau kebijaksanaan dalam bekerja
5.           Ramah penggunaan di segala tempat dan bidang
6.          Bahwa seorang pekerja yang mengoperasikan banyak peralatan, namun dapat dijangkau dengan mudah

0 komentar | Baca selengkapnya »

Data Base ke Delphi

unit tumggk;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label6: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
   
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=";
edit2.Text:=";
edit3.Text:=";
edit4.Text:=";
edit5.Text:=";
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Adotable1.Open;
AdoTable1.Append;
ADOTable1.FieldByName('Nama Mahasiswa').AsString:=edit1.Text;
 ADOTable1.FieldByName('NIM').AsString:=edit2.Text;
  ADOTable1.FieldByName('Jurusan').AsString:=edit3.Text;
   ADOTable1.FieldByName('Kelas').AsString:=edit4.Text;
    ADOTable1.FieldByName('Dosen Pengampu').AsString:=edit5.Text;
    ADOTable1.Post;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

end.




0 komentar |

Tampilan Awal


0 komentar |

Splash screen

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Left:=Label1.Left-15; //Nilai (15) tingkat kecepatan bergerak
  if Label1.Left <=-500 then
   Label1.Left:=400;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 Image1.Left:=Image1.Left-10; //Nilai (10) tingkat kecepatan bergerak
  if Image1.Left <=-700 then
   Image1.Left:=600;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
 Label2.Left:=Label2.Left-15; //Nilai (15) tingkat kecepatan bergerak
  if Label2.Left <=-500 then
   Label2.Left:=400;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin

end;

end.



unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    tmMainTimer: TTimer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

0 komentar |
Langganan: Postingan (Atom)