Halaman

Minggu, 23 Desember 2012

Tugas Akhir IMK

Assalamualaikum Wr. Wb.
Pada kesempatan ini saya akan memposting tugas akhir saya pada mata kuliah interaksi manusia dan komputer atau lebih dikenal dengan IMK..
pada tugas akhir ini saya membuat aplikasi website alumni sma saya menggunakan Delphi, untuk lebih jelasnya akan saya jelaskan beberapa screenshootnya..

1. yang pertama yaitu tampilan dari aplikasi tersebut, disini saya membuat 1 tema dengan 5 warna berbeda. berikut tampilannya..






2. seperti pada tampilan diatas, pada menu tersebut ada tombol deskripsi singkat, sejarah, profil, visi dan misi, kontak, alumni, author dan bantuan. 
  1. pada menu deskripsi menjelaskan deskripsi tentang sman 1 plemahan
  2. pada menu sejarah menjelaskan awal berdirinya sman 1 plemahan
  3. pada menu profil menjelaskan profil, seperti banyaknya guru, siswa dan lainnya.
  4. pada menu visi dan misi menjelaskan visi dan misi sman 1 plemahan itu apa.
  5. pada menu kontak menjelaskan nomor kontak daro sman 1 plemahan
  6. pada menu alumni menjelaskan siapa saja yang menjadi alumni sman 1 plemahan
  7. pada menu bantuan menjelaskan cara penggunaan aplikasi.
untuk lebih jelasnya berikut screenshootnya..




















untuk lebih jelasnya tentan aplikasi ini, bisa didownload langsung disini
dalam aplikasi tersebut juga ada musiknya...

Kamis, 06 Desember 2012

Membuat Teks Berjalan

Setelah mengikuti perkuliahan Interaksi Manusia dan Komputer, muncul suatu permasalahan bagaimana membuat teks berjalan pada Delphi 7. Mungkin sepele, tapi teks berjalan dapat memperindah program kita saat sidang TA/PKL/SKRIPSI ataupun PROYEK.

Mungkin langsung saja ke permasalahannya. yang pertama bukalah program delphi anda di PC atau laptop. Kemudian siapkan 1 Label, 1 Timer, dan 1 Image untuk memperindah tampilan kita. Pada Label 1 dipropertisnya terserah anda ganti apa aja pada captionnya sesuai yang anda inginkan, setelah itu klik 2 kali pada timer dan masukkan coding dibawah ini :


procedure TForm1.Timer1Timer(Sender: TObject);

begin
if Label1.Left>=Image1.Width then
Label1.Left:=-8
else
Label1.Left:=Label1.Left+6;
end;

end.

maka akan muncul tampilan seperti di bawah ini :