Ands Blog

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)

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://andsc.blogspot.com

<<<< Terima kasih >>>>

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 baterai 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://andsc.blogspot.com

<<<< Terima kasih >>>>

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://andsc.blogspot.com

<<<< Terima kasih >>>>
 

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 di link download di bawah ini
Membuat Format Uang di Delphi 2

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

<<<< Terima kasih >>>>

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 : http://andsc.blogspot.com
------ Terima kasih -----

Timnas pra-Olimpiade telah berangkat ke kota Palembang, tempat diselenggarakannya partai perdana mereka menghadapi timnas U-23 Turkmenistan tanggal 23 Februari mendatang.

"Kami berangkat dari hotel sekitar pukul 08.30 WIB, dan tiba di Bandara Soekarno Hatta sekitar pukul 09.30 WIB. Kami bertolak ke Palembang sekitar pukul 11.00 WIB," kata Asisten Pelatih Timnas Indonesia, Wolfgang Pikal di Jakarta, Senin.

Dalam pertandingan kandang ini, seluruh punggawa timnas akan diboyong semuanya, guna meningkatkan atmosfer dalam tim.

Pelatih timnas, Alfred Riedl, berharap pendukung timnas Indonesia rela berbondong-bondong mendukung ke stadion agar semangat timnas di lapangan berlipat sehingga lebih mudah mengalahkan tamunya tersebut. (dikutip dari goal.com)


Laga pertandingan Pra Olimpiade antara Indonesia vs Turkmenistan rencanaya akan di siarkan langsung oleh ANTV pada hari rabu tanggal 23 Februari 2011 pukul 18.30 WIB.