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.
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.
- Pendahuluan
- Faktor manusia
- Ragam dialog
- Perancangan tampilan
- Piranti interaktif
- Aspek ergonomic
- Teknik-teknik evaluasi
- Tingkat kedewasaan HCI (Human-Computer Interaction)
- Past, present, and future of user interface software tools
- Creating creativity: user interfaces for supporting innovation
- Teaching
- Diskusi kelompok
- Tugas kelompok
- Tugas individu
- Ujian Mid dan Akhir Semester
|
Kecakapan Manusia
|
Kecakapan Komputer
|
|
Estimasi
|
Kalkulasi
akurat
|
|
Intuisi
|
Deduksi logika
|
|
Kreatifitas
|
Aktifitas perulangan
|
|
Adaptasi
|
Konsistensi
|
|
Kesadaran serempak
|
Multitasking
|
|
Pengolahan abnormal/perkecualian
|
Pengolahan rutin
|
|
Memori asosiatif
|
Penyimpanan dan pemanggilan kembali data
|
|
Pengambilan keputusan non-deterministik
|
Pengambilan keputusan deterministik
|
|
Pengenalan pola
|
Pengolahan data
|
|
Pengetahuan duniawi
|
Pengetahuan domain
|
|
Kesalahan manusiawi
|
Bebas dari kesalahan
|
Nama : Arya Ariyani
NIM : 12650024
No. HP : 085749439633
Alamat : Banyutengah Panceng Gresik
Fakultas : Sains & Teknologi
Jurusan : Teknik Informatika
Universitas Islam Negeri Maulana Malik Ibrahim Malang


