Monday, February 28, 2011

Tugas IMK ( Interaksi Manusia dan Komputer )

Berikut ini adalah tugas matakuliah IMK ( Interaksi Manusia dan Komputer )
1.Carilah sebuah contoh bad design
2.Jelaskan mengapa design itu Anda anggap buruk
3.Jelaskan bagaimana menurut Anda design tersebut seharusnya

Dan berikut ini adalah jawaban saya untuk tugas-tugas tersebut.
Saya memilih design produk dari bus-bus yang beredar di Indonesia.
sumber gambar : afatmafatichul.blogspot.com

Mengapa saya memilih design bus menjadi design yang buruk ?

Friday, February 25, 2011

Memodifikasi Game Strawberry Prolog

Output Game Try Your Luck !!
Sebelum membahas game yang saya modifikasi, saya akan mengenalkan prolog.
Prolog adalah bahasa pemrograman logika atau di sebut juga sebagai bahasa non-procedural. Namanya diambil dari bahasa Perancis programmation en logique (pemrograman logika). Bahasa ini diciptakan oleh Alain Colmerauer dan Robert Kowalski sekitar tahun 1972 dalam upaya untuk menciptakan suatu bahasa pemrograman yang memungkinkan pernyataan logika alih-alih rangkaian perintah untuk dijalankan komputer.

Pertama-tama kita jalankan program Prolog. Untuk mengunduhnya Anda dapat mengunjungi di alamat ini http://www.dobrev.com/.

Wednesday, February 23, 2011

Listing Game Try Your Luck !!

Berikut ini adalah listing dari game Try Your Luck !!

% This program is created by Nayden Nachev
% from University of Sofia

?-
  pen(0,0),
  G_R:=brush(rgb(0,0,1)),
  G_X:=brush(rgb(255,255,255)),
  G_B:=brush(rgb(255,255,0)),
  G_O:=brush(rgb(255,0,0)),
  set(pos([  [x,b,x,b,x,b,x,b],
           [b,r,b,r,b,r,b,r],
             [r,b,r,b,r,b,r,b],
             [b,r,b,r,b,r,b,r],
             [r,b,r,b,r,b,r,b],
             [b,r,b,r,b,r,b,r],
             [r,b,r,b,r,b,r,b],
             [b,r,b,r,b,r,b,o]   ])),
  G_Br=4,
  G_I =0,
  G_J =0,
  G_K =0,
  G_think1=0,
  G_think2=0,       
  window(_,_,win_func(_),"Try Your Luck",100,100,450,485).

chetno(0).
chetno(X) :-
    X>0, Y := (X - 2),chetno(Y).
win_func(init) :-
    menu( normal, _, _, menu_new(_), "&New Game"),
    menu( normal, _, _, menu_Petunjuk(_), "&Petunjuk"),
    menu( normal, _, _, menu_exit(_), "&Exit").


win_func(paint) :-
    text_out(5,37,"1"),
    text_out(5,87,"2"),
    text_out(5,137,"3"),
    text_out(5,187,"4"),
    text_out(5,237,"5"),
    text_out(5,287,"6"),
    text_out(5,337,"7"),
    text_out(5,387,"8"),
    text_out(37,0,"A"),
    text_out(87,0,"B"),
    text_out(137,0,"C"),
    text_out(187,0,"D"),
    text_out(237,0,"E"),
    text_out(287,0,"F"),
    text_out(337,0,"G"),
    text_out(387,0,"H"),

Listing Game ROW pada Strawberry Prolog

Berikut ini adalah listing Game Row pada Strawberry Prolog
% This program is created by Nayden Nachev
% from University of Sofia

?-
  pen(0,0),
  G_R:=brush(rgb(128,128,128)),
  G_X:=brush(rgb(255,255,255)),
  G_B:=brush(rgb(70,70,200)),
  G_O:=brush(rgb(255,0,0)),
  set(pos([  [x,b,x,b,x,b,x,b],
         [b,r,b,r,b,r,b,r],
             [r,b,r,b,r,b,r,b],
             [b,r,b,r,b,r,b,r],
             [r,b,r,b,r,b,r,b],
             [b,r,b,r,b,r,b,r],
             [r,b,r,b,r,b,r,b],
             [b,r,b,r,b,r,b,o]   ])),
  G_Br=4,
  G_I =0,
  G_J =0,
  G_K =0,
  G_think1=0,
  G_think2=0,       
  window(_,_,win_func(_),"The Game",100,100,450,473).

chetno(0).
chetno(X) :-
    X>0, Y := (X - 2),chetno(Y).

win_func(paint) :-
    text_out(5,37,"8"),
    text_out(5,87,"7"),
    text_out(5,137,"6"),
    text_out(5,187,"5"),
    text_out(5,237,"4"),
    text_out(5,287,"3"),
    text_out(5,337,"2"),
    text_out(5,387,"1"),
    text_out(425,37,"8"),
    text_out(425,87,"7"),
    text_out(425,137,"6"),
 
Copyright © Roby Erlangga's Blog. All rights reserved.
Blogger template created by Templates Block | Start My Salary
Designed by Santhosh