TIPS DAN TRIK MAIN GAME PC DENGAN STIK ABAL-ABAL

Saya akan coba menjelaskan cara bermain game PC yang harusnya kalian memakai joystick seperti XBOX, Logitech dll. Nah saya menemukan cara agar kalian dapat memainkannya dengan joystick biasa atau lebih keren dipanggil like "Stik Abal-Abal".

Langkah:
1. Kalian download dulu bahannya disini http://goo.gl/S9hCuI
2. Extract bahannya, lalu simpan isi dari file tersebut ke lokasi game yang kalian inginkan. Yang paling penting yah catatan nih, si file/ bahan tadi harus 1 path dengan file .exe gamenya. Saya akan mencontohkannya seperti berikut:

-Copy bahan ke alamat installan game yang kalian mau

-Setelah itu buka x360ce.exe double klik saja, tapi saran saya pakai run administrator

 

-Pilih preset nya Phillips Wireless PC Controller lalu klik save

 

- Cek Setting Database pada kolom Product/ Game Name: harus terisi file aplikasi game yang anda akan mainkan. Selesai!

Semoga bermanfaat ya

Read More

PRAKTIKUM GRAFIKA KOMPUTER MODUL X

Sudah lama sekali saya tidak posting di blog, oh iya ini blog baru saya. Yang lamanya lupa password emailnya hahaha..

Sekarang saya akan memposting praktek-praktek saat saya mengerjakan modul Grafika Komputer ini. Pertama rancang tampilan form seperti ini

Kemudian masukan kode program di bawah ini:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Shape1: TShape;
    orbit1: TShape;
    merah: TShape;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender:TObject);
   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  theta,d,c:real;
  constanta:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
constanta:=5;
merah.Visible:=true;
Timer1.Enabled:=TRUE;
theta:=0.0; c:=1/100;
d:=2*PI;
end;

procedure TForm1.Timer1Timer(Sender:TOBject);
var x1,y1:real;
begin
if(theta<=(2*d))then
begin
x1:=((orbit1.Width)/2)+(orbit1.Left)+((orbit1.Width)/2)*cos(6*theta);
y1:=((orbit1.height)/2)+(orbit1.top)-((orbit1.height)/2)*sin(6*theta);
merah.left:=trunc(x1)-constanta;merah.Top:=trunc(y1)-constanta;
theta:=theta+c;
end;
if(theta>=2*d)then theta:=0.0;
end;
end.

Kemudian jalankan project delphi dan lihat hasilnya

Read More