Selasa, 16 Juni 2015

Download SPAT 6.0.9.9

Bertemu lagi dengan saya Een Pahlefi, karena kebetulan pengen buat remastering windows XP/7 buat semua tipe mainboard, supaya enak di catet dulu biar gk ilang ^_^

Download 

1. Mirror
2. Mirror

Caranya, install semua aplikasi yang di butuhkan, driver nya juga gpp, dan atur seringan mungkin, trus jalankan downloadtan anda tadi, habis restart, silahkan backup pakai norton ghost/acronis.. jadi deh :)

Senin, 15 Juni 2015

Cara Membuat Coding Simpan dengan Delphi7 + Microsoft Database Access

Berjumpa lagi dengan saya Een Pahlevi, kali ini saya akan menulis sebuah catatan kecil mengenai saya belajar pemprograman delphi7, disini saya menggunakan Microsoft Access Database 2013 sebagai database penyimpanan data nya. 

Baiklah, saya anggap anda sudah bisa mendesain sebuah form sederhana, seperti gambar disamping ini.

Logika program nya seperti ini



1. Jika inputan username atau password kosong maka pesan akan muncul inputan anda masih kosong
2. Jika inpuan username atau password sudah di inputkan, tetapi data username sudah ada di database maka akan muncul pesan "username sudah ada"
3. Jika inputan username sudah di inputkan, dan username tidak ada yang sama didalam database maka username dan password tersebut bisa di simpan didalam database

procedure TForm5.btndaftarClick(Sender: TObject);
begin
  if edtuser.Text='' then
    begin
    MessageDlg('Username masih kosong',mtError,[mbOK],0);
    edtuser.SetFocus;
    end else
  if edtpass.Text='' then
    begin
    MessageDlg('Password masih kosong',mtError,[mbOK],0);
    edtpass.SetFocus;
    end else
  if DataModule1.qry_users.Locate('username',edtuser.Text,[]) then
    begin
    MessageDlg('Maaf username sudah ada',mtError,[mbOK],0);
    end else
  begin
    DataModule1.qry_users.Append;
    DataModule1.qry_users.FieldByName('username').AsString:=edtuser.Text;
    DataModule1.qry_users.FieldByName('password').AsString:=edtpass.Text;
    DataModule1.qry_users.Post;
    ShowMessage('Data berhasil di simpan');
    edtuser.Clear;
    edtpass.Clear;
  end;
end;
end.

Sabtu, 13 Juni 2015

Cara Membuat Calculator dengan Delphi7

Lagi belajar membuat calculator pake delphi7, catat dlu siapa tau berguna :(

dilengkap dengan validasi, kalo angka pertama kosong keluar pesan messagebox, dan seterus nya

procedure TForm2.btntambahClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1+angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnkurangClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1-angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnkaliClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1*angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;

procedure TForm2.btnbagiClick(Sender: TObject);
var angka1,angka2,hasil:Single;
begin
  if edtpertama.Text='' then begin
    ShowMessage('angka pertama kosong');
    edtpertama.SetFocus;
  end else if edtkedua.Text='' then begin
    ShowMessage('angka kedua kosong');
    edtkedua.SetFocus;
  end else
  begin
    angka1:=StrToFloat(edtpertama.Text);
    angka2:=StrToFloat(edtkedua.Text);
    hasil:=angka1/angka2;
    edthasil.Text:=FloatToStr(hasil);
  end;
end;
end.

Senin, 08 Juni 2015

Download Wandriver 6.5 - Latest

Kali ini kita mau nulis sesuatu artikel yang mungkin berguna bagi para pekerja install ulang, hahahaha..

Versi terbaru WanDriver 6.5 :D

Download :
Mirror : http://adf.ly/1IRmew
1. http://adf.ly/1IRmOh
2. http://adf.ly/1IRmT6
3. http://adf.ly/1IRmUm
4. http://adf.ly/1IRmWA
5. http://adf.ly/1IRmXa



Selasa, 02 Juni 2015

Easy Sysprep 3.1.2 Portable Download

Membagikan sesuatu tentang Easy Sysprep 3.1.2 Portable, dimana kegunaanya adalah membuat image norton ghost (extensi file nya .gho), supaya para tukang install ulang dapat membuat sysprep otomatis yang mampu di muat di berbagai jenis mainboard, tinggal restore jalan deh.. Belajar sendiri yah kegunaanya

Download Appbox

Bank Saya

Pembayaran melalui Bank berikut :

Norek : 013 1 001384 5
An. Een Pahlefi

Norek BRI Rencana : 0623 01 000074-55-6
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Norek : 0623 01 015938 50 9
An. Een Pahlefi

Google+ Followers

Monitoring

Status Panel Admin
Jam Sekarang
Tanggal
Salam Sapa :
Status Admin :
User : User Online

Popular Posts