This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Kamis, 22 November 2012

Fenomena Alam Unik

Banyak sekali fenomena alam yang terjadi secara alami dan luar biasa. Sungguh kreasi Sang Pencipta tidak akan ada yang dapat menandinginya. Walaupun tidak bisa menikmatinya secara langsung, kita bisa menikmatinya walaupun cuma sebatas gambar, seperti dilansir di situs yahoo berikut ini,

  • Lubang Biru Raksasa di Belize - Sebuah lubang dengan luas 984 kaki dengan kedalaman 407 kaki terdapat di Belize. Lubang ini terbentuk karena fenomena di zaman es yang mengakibatkan perubahan pada permukaan air laut yang jauh lebih rendah. (Kurt Amsler/Ardea/Caters News)
  • Danau Merah Muda, Hiller, Australia Barat - Para ilmuwan menyimpulkan bahwa warna merah muda ini muncul karena tumbuhnya ganggang di bawah danau yang mengakibatkan fenomena warna unik. (Jean Paul Ferrero/Ardea/Caters News)
  • Balls Pyramid  - Bukit batu ini menjulang setinggi 562 meter, menjadikannya sebagai batu menjulang tertinggi di dunia. Anda bisa menemukannya di Lord Howe, New South Wales, Australia. (Jean Paul Ferrero/Ardea/Caters News)
  • The Pool Champagne, sebuah sumber air panas berwarna-warni di area Waiotapu Geothermal, Selandia Baru. Temperatur permukaan airnya saja tercatat sepanas 74 derajat Celsius. Permukaanna yang nampak bergelembung bukan hanya dari panasnya, namun karena karbondioksida yang tinggi di sana. Mineral yang terkandung di dalamnya adalah emas, perak, merkuri, belerang dan arsenik. (Alexandra Sailer/Ardea/Caters News)
  • The Moeraki Boulders of New Zealand  - Batu bulat ukuran raksasa ini terbentuk di dasar laut, namun kini dapat dilihat di pinggir pantai karena erosi yang terjadi selama berabad-abad. (Alexandra Sailer/Ardea/Caters News)
  • Kolam Keindahan, Taman Nasional Yellowstone - Mata air panas ini menyimpan ganggang yang berwarna-warni sehingga menimbulkan efek warna yang cantik jika dilihat dari permukaan. (Francois Gohier/Ardea/Caters News)

Sumber: http://id.berita.yahoo.com






Selasa, 20 November 2012

Cara Pengaturan Volume Oli Shock Depan Motor

Sudah tiga minggu ini motor bolak-balik bengkel gara-gara shock depan suka konser kalau dipake..hehe,
apalagi pas jalan berlubang tuh konsernya makin gede aja sampe tetangga pada negok..hahaha..

Anehnya pas udah dibawa ke bengkel, tuh penyakitnya gak sembuh-sembuh juga. Kembali ke bengkel katanya harus ganti per di dalemnya..haduh bisa aja tuh mas bengkel nyari alesannya...mungkin sih bener emang udah harus diganti karena dah lama.

Pensaran cari-cari di mbah google apa penyebabnya, dan ketemu solusinya...yang paling menentukan adalah isian volume oli shock emang harus sesuai dengan jenis motornya. Jadi coba deh bongkar dan pasang sendiri. Bagi temen-temen yang mau coba berikut ada referensi untuk pengaturan volume oli shock depan motor, semoga dapat membantu
GRAND                                       52 ML
SUPRA  X/FIT                             64 ML
KARISMA                                   68ML
KIRANA                                      70ML
VARIO                                         75ML
GL 100/ GL 125                           80ML
WIN                                             81ML
GL PRO/ MAX                            157ML
MEGA PRO                                 159ML
NEW MEGA PRO                       163ML
TIGER                                         126ML
NEW TIGER                               135ML
CS 1                                             54.5ML
BEAT                                           76ML
BLADE                                        65.5ML
NEW REVO 110                         65.5ML

YAMAHA
Vega R                                         61 ml
Vega ZR                                      67 ml
Jupiter Z                                      61 ml
Jupiter MX                                  64 ml
Vixion                                          230 ml
Scorpio spoke                             252 ml
Scorpio CW                                244 ml
RX king                                       177 ml
Mio Soul / Mio                             53 ml
New Mio                                     60 ml
Nouvo                                         63 ml

SUZUKI
Shogun 125 / F1 / Smash             51 ml
Spin / Skywive / Skydrive            55 ml
Satria F                                       103,5 ml
Thunder 125                               150 ml
Thunder 250                               250 ml

KAWASAKI
Blitz                                            52,7 ml
Kaza                                          52,3 ml
Kaze ZR                                    64 ml
Ninja 250                                   310 ml

BAJAJ
Pulsar 180                                  145 ml
Pulsar 200                                  165 ml
XCD 125                                   145 ml



Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : http://elpro82.blogspot.com

<<<< Terima kasih >>>>

Senin, 19 November 2012

Cara Mengatasi Kendala "cmos date/time not set"

Kendala ini terjadi pada saat komputer dinyalakan yaitu pada saat proses booting. Akan muncul tampilan seperti berikut,

ini terjadi karena setting tanggal dan waktu pad BIOS tidak tersetting dengan benar.
Untuk mengatasinya coba masuk ke "Setup BIOS" dengan pijit tombol F2 pada keyboard, kemudian seting tanggal dan waktu, lalu simpan dan setelah restart jika tidak ada kendala lagi maka komputer akan kembali normal.

Jika masih terjadi kendala, lakukan langkah berikut :
  • Coba ganti batere BIOS, dan lakukan setting kembali.
  • Jika masih terjadi, coba reset BIOS, dengan memindahkan jumper pada posisi reset di mother board dan mengembalikannya kembali pada posisi normal (lakukan pada saat komputer dalam keadaan mati).  Kemudian lakukan setting kembali.
  • Jika masih terjadi, kemungkinan kerusakan terjadi pada mother board-nya.
Sekian, dan semoga dapat membantu.

Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : http://elpro82.blogspot.com

<<<< Terima kasih >>>>

Kamis, 15 November 2012

Membuat Format Uang di Delphi 3

Melanjutkan tutorial sebelumnya (Membuat Format Uang di Delphi 2), selanjutnya untuk membuat aplikasi menjadi user friendly
perlu ditambahkan fitur-fitur tambahan, diantaranya :
- pada inputan nilai uang hanya bisa diisikan angka saja
- menangani error pada saat akan mengedit inputan nilai uang
- dan lain-lainnya
Kembali pada contoh aplikasi yang dibuat sebelumya


berikut form yang dibuat :


- Pada Event OnCreate Form1, tambahkan kode menjadi seperti berikut
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
  end;

- Untuk membuat inputan nilai mata uang hanya bisa diisi oleh angka saja, tambahkan pada Event OnKeyPress pada Edit1 :
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if (Key in ['0'..'9','-',^C,^V]) or (Key=#9) or (Key=#13) or (Key=#08) then
      else Key := #0;
    if Key=#13 then
      Edit2.SetFocus;
  end;
 
  dan pada Edit2 :
  procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
  begin
    if (Key in ['0'..'9','-',^C,^V]) or (Key=#9) or (Key=#13) or (Key=#08) then
      else Key := #0;
    if Key=#13 then
      BitBtn1.SetFocus;
  end;
 
- Butlah sebuah function untuk mengembalikan nilai menjadi nilai inputan
  function TForm1.ReplaceBlank(StrText:string):string;
  begin
    ReplaceBlank := AnsiReplaceStr(StrText,',','');
  end;
 
  definisikan function tersebut pada private,
    private
    { Private declarations }
    NilaiUang1, NilaiUang2, Jumlah : real;
    function ReplaceBlank(StrText:string):string;
 
  dan tambahkan StrUtils pada uses.
 
- Pada event OnExit dari Edit1 dan Edit 2 ubah menjadi seperti berikut
  Edit1 :
  procedure TForm1.Edit1Exit(Sender: TObject);
  begin
    if Edit1.Text = '' then
    else
      begin
        NilaiUang1 := StrToFloat(ReplaceBlank(Edit1.Text));
        Edit1.Text := Format('%.n',[StrToFloat(ReplaceBlank(Edit1.Text))]);
      end;
  end;
 
  dan pada Edit1:
  procedure TForm1.Edit2Exit(Sender: TObject);
  begin
    if Edit2.Text = '' then
    else
      begin
        NilaiUang2 := StrToFloat(ReplaceBlank(Edit2.Text));
        Edit2.Text := Format('%.n',[StrToFloat(ReplaceBlank(Edit2.Text))]);
      end;
  end;
 

Berikut keseluruhan kodenya :
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    Bevel3: TBevel;
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    NilaiUang1, NilaiUang2, Jumlah : real;
    function ReplaceBlank(StrText:string):string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.ReplaceBlank(StrText:string):string;
begin
  ReplaceBlank := AnsiReplaceStr(StrText,',','');
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = '' then
  else
   begin
     NilaiUang1 := StrToFloat(ReplaceBlank(Edit1.Text));
     Edit1.Text := Format('%.n',[StrToFloat(ReplaceBlank(Edit1.Text))]);
   end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['0'..'9','-',^C,^V]) or (Key=#9) or (Key=#13) or (Key=#08) then
    else Key := #0;
  if Key=#13 then
    Edit2.SetFocus;
end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
  if Edit2.Text = '' then
  else
   begin
     NilaiUang2 := StrToFloat(ReplaceBlank(Edit2.Text));
     Edit2.Text := Format('%.n',[StrToFloat(ReplaceBlank(Edit2.Text))]);
   end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['0'..'9','-',^C,^V]) or (Key=#9) or (Key=#13) or (Key=#08) then
    else Key := #0;
  if Key=#13 then
    BitBtn1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Jumlah := NilaiUang1 + NilaiUang2;
  Edit3.Text := Format('%.n',[Jumlah]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
end;

end.

Source kode bisa di download pada link di bawah ini :
Membuat Format Uang di Delphi 3

Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : http://elpro82.blogspot.com

<<<< Terima kasih >>>>
 

Rabu, 14 November 2012

Membuat Format Uang di Delphi 2

Untuk selanjutnya setelah dibuatkan format uang seperti pada tutorial sebelumnya (Membuat Format Uang di Delphi), tentunya akan ada kendala jika akan menggunakan nilai dari TEdit yang sudah berformat uang.
Berikut saya uraikan cara untuk mengatasi hal tersebut :
Saya buatkan contoh kasus aplikasi untuk menjumlahkan dua buah nilai sperti berikut


- Pertama buat form seperti berikut,

- Tambahkan variabel pada private,
  private
    { Private declarations }
    NilaiUang1, NilaiUang2, Jumlah : real;

- Isi kode pada Event OnExit TEdit1 seperti berikut,
  procedure TForm1.Edit1Exit(Sender: TObject);
  begin
  if Edit1.Text = '' then
  else
   begin
     NilaiUang1 := StrToFloat(Edit1.Text);
     Edit1.Text := Format('%.n',[StrToFloat(Edit1.Text)]);
   end; 
  end;

- Isi kode pada Event OnKeyPress TEdit1 seperti berikut,
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if Key=#13 then
      Edit2.SetFocus;
  end;
 

- Isi kode pada Event OnExit TEdit2 seperti berikut,
  procedure TForm1.Edit2Exit(Sender: TObject);
  begin
    if Edit2.Text = '' then
    else
      begin
       NilaiUang2 := StrToFloat(Edit2.Text);
       Edit2.Text := Format('%.n',[StrToFloat(Edit2.Text)]);
     end;
  end;

- Isi kode pada Event OnKeyPress TEdit1 seperti berikut,
  procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
  begin
    if Key=#13 then
      BitBtn1.SetFocus;
  end;

- Isi kode pada Event OnClick BitBtn1 seperti berikut,
  procedure TForm1.BitBtn1Click(Sender: TObject);
  begin
    Jumlah := NilaiUang1 + NilaiUang2;
    Edit3.Text := Format('%.n',[Jumlah]);
  end;
 

Pada saat Event OnExit, dari TEdit1 akan diambil NilaiUang1 dan dari TEdit2 diambil NilaiUang2 yang bertipe real/float, ini dilakukan sebelum nilai dikonversi menjadi format uang. Sehingga nilai yang terekam pada NilaiUang1 dan NilaiUang2 merupakan nilai pada saat input dilakukan.


Keseluruhan kode bisa dilihat seperti berikut :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    NilaiUang1, NilaiUang2, Jumlah : real;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = '' then
  else
   begin
     NilaiUang1 := StrToFloat(Edit1.Text);
     Edit1.Text := Format('%.n',[StrToFloat(Edit1.Text)]);
   end; 
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    Edit2.SetFocus;
end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
  if Edit2.Text = '' then
  else
   begin
     NilaiUang2 := StrToFloat(Edit2.Text);
     Edit2.Text := Format('%.n',[StrToFloat(Edit2.Text)]);
   end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    BitBtn1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Jumlah := NilaiUang1 + NilaiUang2;
  Edit3.Text := Format('%.n',[Jumlah]);
end;

end.

Tidak ingin repot, silahkan download source-nya pada link di bawah ini
Membuat Format Uang di Delphi 2

Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : http://elpro82.blogspot.com

<<<< Terima kasih >>>>

Selasa, 13 November 2012

Membuat Format Uang di Delphi

Ada cara sederhana untuk membuat format uang di delphi, bisa disisipkan pada Event onExit dari komponen TEdit atau dibuatkan procedure jika menggunakannya berulang-ulang. Berikut contoh membuat format uang pada saat Event onExit,
- Buat Form seperti berikut :


- Pada Event OnExit dari TEdit1 masukkan kode berikut :
  procedure TForm1.Edit1Exit(Sender: TObject);
  begin
    if Edit1.Text = '' then
      else Edit1.Text := Format('%.n',[StrToFloat(Edit1.Text)]);
  end;
- Kemudian pada Event OnKyPress dari TEdit1 masukkan kode berikut :
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if Key=#13 then
    Edit2.SetFocus;
  end;
  Kode ini berfungsi ketika menekan tombol Enter, maka kursor akan berpindah ke TEdit2.


- Ketika di Run dan dicoba, maka hasilnya akan seperti berikut


  Isi isian yang paling atas dengan angka (missal 1000000), kemudian pijit Enter.


Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : www.elpro82.blogspot.com
----- Terima kasih -----