Ylmf OS, Linux Yang Mirip Windows XP

Untuk menghindari adanya razia terhadap windows bajakan, para pemilik warnet kini memilih untuk beralih ke linux ketimbang membeli windows original yang harganya lumayan mahal. Namun konsekuensinya banyak pengunjung yang merasa tidak nyaman karena kebanyakan dari mereka sudah terbiasa menggunakan windows. Mungkin ini salah satu alasan diciptakannya Ylmf OS, sistem operasi berbasi linux ubuntu yang didesain mirip tampilan windows XP. Jadi bagi anda yang biasa menggunakan windows tidak akan kaget lagi ketika menggunakan OS ini.

Pada Ylmf OS juga sudah disertakan beberapa aplikasi tambahan seperti Mozilla Firefox, Pidgin, download manager, multimedia player, dll. Selain itu di OS ini juga sudah diintegrasikan Wine sehingga anda bisa menjalankan aplikasi windows anda disini. Dan yang pasti, Ylmf OS ini gratis dan bisa di download disini: adf.ly/MpkPR

Cara Cepat Validasi Input Di Delphi

Kali ini saya akan berbagi tentang cara validasi input di Delphi. Kenapa saya katakan cara cepat, karena dengan cara ini kita tidak perlu lagi mengetikkan script validasinya untuk tiap-tiap field. Untuk lebih jelasnya, sebagai contoh kita buat sebuah form dengan empat komponen Edit dan satu Button didalamnya. Misalnya dari keempat field tersebut ada tiga field yang wajib diisi. Ganti properti "tag" dari ketiga komponen Edit tersebut menjadi 1, dan yang lainnya biarkan tetap 0. Hal ini bertujuan untuk membedakan mana field yang wajib diisi dan mana yang tidak. Setelah itu ketikkan script dibawah ini. Fungsi inilah yang akan digunakan untuk validasi input ketika tombol submit di klik.

function inputKosong(frm:TForm):boolean;
var i: integer;
begin
  result:=false;
  with frm do begin
    for i:=0 to ComponentCount-1 do begin
      if (Components[i] is TEdit)and(Components[i].Tag = 1) then
        if TEdit(Components[i]).Text = '' then result:=true;
    end;
  end;
end;

Perhatikan pada fungsi diatas terdapat parameter "frm" yang bertipe "TForm". Isikan nama form dimana field-field yang akan di-validasi untuk parameter ini. Sebagai contoh, tambahkan script berikut pada event "onClick" tombol submit anda.

procedure TForm1.Button1Click(Sender: TObject);
begin
 if inputKosong(self) then begin
  showmessage('Masih ada field yang kosong');
  exit;
 end;
 showmessage('Data disimpan');
end;

Pada contoh diatas, parameter "self" digunakan untuk validasi pada form itu sendiri. Contoh source codenya bisa di download disini.

Ok sekian dulu tips ringan dari saya kali ini. Selamat mencoba

Membuat Aplikasi Mp3 Player

Ini adalah contoh aplikasi mp3 player yang dibuat dengan Borland Delphi. Fungsinya ya untuk memainkan file mp3. Sengat sederhana sih, tapi lumayan buat belajar. Ada playlistnya juga. Kalo mau, download aja source code-nya disini