Cara Mengatasi Baterai Laptop Di Silang Merah (Consider Replacing Your Battery)

Selamat siang,,
wahh gag nyangka bentar lagi bakal merayakan ntal dan tahun baru nehh..
sudah lama tidak ada nongol lage neh..
berikut saya akan membagikan tips bagi pengguna laptop dengan sistem operasi Windows 7, apabila laptop anda sudah cukup berumur, .biasanya setelah 1 tahun/ lebih, pasti mengalami masalah seperti ini (tergantung pemakaian dan perawatan'a juga

• Charge baterai anda sampai full (99% – 100%), setelah itu matikan laptop Anda. Sampai tahap ini jangan dulu cabut charger-nya.
• Hidupkan laptop Anda lalu tekan F8 berulang-ulang sampai muncul menu Advanced Boot Options. Pilih Safe Mode.

• Setelah sudah masuk ke dalam Windows Safe Mode, barulah cabut charger baterai laptop Anda.

• Biarkan saja laptop menyala sampai mati sendiri karena baterainya benar-benar habis. Sangat disarankan untuk tidak mengoperasikan laptop Anda selama proses ini. Biarkan saja sampai laptop mati sendiri.
• Setelah mati, pasang kembali charger laptop Anda, lalu nyalakan kembali laptop Anda dengan normal. Hasilnya…semua kembali normal! Notifikasi “consider replacing your battery” dan tanda silang merah di icon baterai tidak muncul lagi.

Note : Cara diatas juga dapat diterapkan untuk mengatasi masalah baterai laptop yang tidak bisa dicharge hingga full (100%) 

Tips agar baterai laptop tidak disilang lagi :

Usahakan untuk tidak memakai laptop secara berlebihan saat menggunakan baterai (misalnya main game) hingga laptop mati atau hibernate secara otomatis, itu semua berdasar pengalaman teman saya, dan yang terpenting, cabut charger laptop jika baterai sudah terisi penuh dan carger kembali pada saat baterai mau habis (biasanya ada pemberitahuan sebelum baterai habis).

Read More

Lirik Lagu dan Terjemahan Que Sera Sera

When I was just a little girl, (Saat aku menjadi gadis kecil)
I asked my mother, "What will I be? (Aku bertanya pada ibuku, aku akan menjadi apa?)
Will I be pretty? (Akankah aku menjadi cantik?)
Will I be rich?" (Akankah aku menjadi kaya?)
Here's what she said to me: (Inilah yang dia katakan padaku)
"Que sera, sera,
Whatever will be, will be; (Apapun yang terjadi nanti)
The future's not ours to see. (Masa depan tidak untuk kita lihat)
Que sera, sera,
What will be, will be." (Apa yang terjadi, terjadilah)


When I was just a child in school, (Saat aku masih bersekolah)
I asked my teacher, "What will I try? (Aku bertanya pada guruku, apa yang akan kupelajari?)
Should I paint pictures? (Apakah aku akan melukis?)
Should I sing songs?" (Apakah aku akan bernyanyi?)
This was her wise reply: (Inilah jawaban bijaknya)
"Que sera, sera,
Whatever will be, will be; (Apapun yang terjadi nanti)
The future's not ours to see. (Masa depan tidak untuk kita lihat)
Que sera, sera,
What will be, will be." (Apa yang terjadi, terjadilah)

When I grew up and fell in love, (Saat aku tumbuh dewasa dan jatuh cinta)
I asked my sweetheart, "What lies ahead? (Aku bertanya pada jantung hatiku, apa yang terbentang di depan?)
Will we have rainbows (Akankah kita memiliki pelangi)
Day after day?" (hari demi hari?)
Here's what my sweetheart said: (Inilah yang jantung hatiku katakan)
"Que sera, sera,
Whatever will be, will be; (Apapun yang terjadi nanti)
The future's not ours to see. (Masa depan tidak untuk kita lihat)
Que sera, sera,
What will be, will be." (Apa yang terjadi, terjadilah)

Now I have children of my own. (Sekarang aku punya anak sendiri)
They ask their mother, "What will I be? (Mereka bertanya pada ibu, aku akan menjadi apa?)
Will I be handsome? (Akankah aku menjadi tampan?)
Will I be rich?" (Akankah aku menjadi kaya?)
I tell them tenderly: (Aku memberitahu mereka dengan lembut)
"Que sera, sera,
Whatever will be, will be; (Apapun yang terjadi nanti)
The future's not ours to see. (Masa depan tidak untuk kita lihat)
Que sera, sera,
What will be, will be. (Apa yang terjadi, terjadilah)
Que sera, sera!"

Que Sera-sera (Whatever Will Be)
written by Jay Livingston and Ray Evans
for Alfred Hitchcock's 1956 re-make of his 1934 film
"The Man Who Knew Too Much" starring Doris Day and James Stewart.
Recorded by Doris Day

Read More

Data Barang Menggunakan Delphi 2010

Tugas Tabel Pelanggan

Pertama kita buat database terlebih dahulu seperti yang terlihat pada gambar dibawah ini.

Setelah itu kita buat form menggunakan data module cari di file lalu pilih new lalu other lalu pilih data module sperti gambar dibawah ini

setelah itu kita Tambahkan ADOConnection, ADOQuery, dan DataSource Pada Data Module lihat seperti gambar yang dibawah ini.

Komponen	Properties	Value
Data Module	Name	DM
ADOConnection1	Name	Koneksi
	Logint Prompt	False
ADOQuery1	Name	Query
	Connection	Koneksi
	Active	False
ADOQuery2	Name	Tampil
	Connection	Koneksi
	Active	False
DataSource1	Name	DS
	Dataset	Tampil

 


setelah kita ketik semuanya kita buat ODBC nya lalu pilih event use connection string klik build kita pilih pelanggan setelah itu kita test connection lalu ok.

setelah semuanya jadi kita buat formnya seperti yang digambar dibawah ini.

Ok langsung coding full aja ya gan.

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label5: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    procedure tampildata;
    procedure bersihdata;
    procedure tombolmati;
    procedure tombolhidup;
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
uses unit6;

procedure TForm5.Button1Click(Sender: TObject);
begin
if length (edit1.Text)<>5 then
begin
  messagedlg('maaf,kode barang harus 5 karakter!',mtwarning,mbokcancel,0);
  edit1.SetFocus;
  exit;
end;

if messagedlg('apakah anda yakin akan menyimpan data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
      with DM.query do
      begin
        sql.Clear;
        sql.Add('insert into tabel_pelanggan(kd_pelanggan,nm_pelanggan,alamat,no_hp)');
        sql.Add('values("'+edit1.Text+'","'+edit2.Text+'","'+edit3.Text+'","'+edit4.Text+'")');
        execsql;
      end;
      tampildata;
      bersihdata;
      tombolmati;
      showmessage('data telah berhasil disimpan');
      edit1.setfocus;
    end;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan mengubah data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
  sql.clear;
  sql.add('update tabel_pelanggan set nm_pelanggan="'+edit2.Text+'",alamat="'+edit3.Text+'",');
  sql.Add('no_hp="'+edit4.Text+'" where kd_pelanggan="'+edit1.text+'"');
  execsql;
  end;
  tampildata;
  bersihdata;
  tombolmati;
  showmessage('data telah berhasil disimpan');
  edit1.SetFocus;
end;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan menghapus data ini?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
  with DM.query do
  begin
    sql.Clear;
    sql.Add('delete from tabel_pelanggan where kd_pelanggan="'+edit1.Text+'"');
    execsql;
  end;
  tampildata;
  bersihdata;
  tombolmati;
  showmessage('data telah berhasil dihapus');
  edit1.SetFocus;
end;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
if messagedlg('apakah anda yakin akan menutup form ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;

procedure TForm5.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
begin
  with dm.query do
  begin
    sql.Clear;
    sql.add('select*from tabel_pelanggan where kd_pelanggan="' +edit1.Text+'"');
    open;
    if not eof then
    begin
      edit2.Text := fieldvalues['nm_pelanggan'];
      edit3.Text := fieldvalues['alamat'];
      edit4.Text := fieldvalues['no_hp'];
      tombolhidup;
      end
      else
      begin
      edit2.Clear;
      edit3.Clear;
      edit4.Clear;
      tombolmati;
    end;
  end;
end;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
tampildata;
bersihdata;
tombolmati;
end;

procedure tform5.tampildata;
begin
  with DM.tampil do
  begin
    sql.Clear;
    sql.Add('select*from tabel_pelanggan');
    active := false;
    active := true;
  end;
end;

procedure tform5.bersihdata;
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

procedure tform5.tombolmati;
begin
button1.Enabled := true;
button2.Enabled := false;
button3.Enabled := false;
end;

procedure tform5.tombolhidup;
begin
button1.Enabled := false;
button2.Enabled := true;
button3.Enabled := true;
end;

{$R *.dfm}

end.

Setelah itu kita letakkan script yang dibawah ini di form kedua.
unit Unit6;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    koneksi: TADOConnection;
    query: TADOQuery;
    tampil: TADOQuery;
    DS: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.

berikut adalah gambar printscreen yang sudah saya isi dengan database.

Read More

Membuat Aplikasi Data Simpan Barang Menggunakan Delphi

hemm...
selamat sore ya gan.
kebetulan neh dapat tugas dari dosen posting tentang mata kuliah delphi.
Kebetulan tugas nya kali ini tentang pembuatan barang seperti kode barang, harga barang, stok dan lain2.

Pertama-tama kita buat formnya terlebih dahulu seperti yang terlihat pada gambar dibawah ini.
maap ya gan itu databasenya sudah terisi. Biar ada bukti aja kalau ini udah bisa jalan.
hehehe




Setelah itu Kita buat databasenya di localhost./phpmyadmin.
oke ikutin aja database seperti yang saya buat, supaya nanti tidak salah lage.
ikutin seperti gambar yang dibawah ini ya.

Ok langsung coding full aja ya gan.

Coding Lengkap :

unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBTables, Grids, DBGrids, DB, StdCtrls, ADODB;

type
TForm4 = class(TForm)
ekdbarang: TEdit;
enmbarang: TEdit;
ehrgbeli: TEdit;
ehrgjual: TEdit;
estok: TEdit;
label1: TLabel;
label2: TLabel;
label3: TLabel;
label4: TLabel;
label5: TLabel;
btambah: TButton;
bsimpan: TButton;
bbatal: TButton;
bexit: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Query1: TQuery;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure btambahClick(Sender: TObject);
procedure ekdbarangKeyPress(Sender: TObject; var Key: Char);
procedure bsimpanClick(Sender: TObject);
procedure bbatalClick(Sender: TObject);
procedure bexitClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
private
{ Private declarations }
public
procedure tampil;
procedure kosong;
procedure mati;
procedure hidup;

{ Public declarations }
end;

var
Form4: TForm4;

implementation
procedure tform4.tampil;
begin
ekdbarang.Text := table1['kode_brg'];
enmbarang.Text := table1['nama_brg'];
ehrgbeli.Text := floattostr(table1['harga_beli']);
ehrgjual.Text := floattostr(table1['harga_jual']);
estok.Text := floattostr(table1['stok']);
end;

procedure tform4.mati;
begin
ekdbarang.Enabled := false;
enmbarang.Enabled := false;
ehrgbeli.Enabled := false;
ehrgjual.Enabled := false;
estok.Enabled := false;
end;

procedure tform4.hidup;
begin
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ehrgbeli.Enabled := true;
ehrgjual.Enabled := true;
estok.Enabled := true;
end;

procedure tform4.kosong;
begin
ekdbarang.text := '';
enmbarang.text := '';
ehrgbeli.text := '';
ehrgjual.text := '';
estok.text:= '';
end;

{$R *.dfm}

procedure TForm4.bbatalClick(Sender: TObject);
begin
kosong;
table1.First;
tampil;
mati;
end;

procedure TForm4.bexitClick(Sender: TObject);
begin
table1.Close;
close;
end;

procedure TForm4.bsimpanClick(Sender: TObject);
begin
table1.Append;
table1['kode_brg'] := ekdbarang.Text;
table1['nama_brg'] := enmbarang.Text;
table1['harga_beli'] := strtofloat(ehrgbeli.Text);
table1['harga_jual'] := strtofloat(ehrgjual.Text);
table1['stok'] := strtofloat(estok.Text);
table1.Post;
mati;
end;

procedure TForm4.btambahClick(Sender: TObject);
begin
mati;
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ehrgbeli.Enabled := true;
ehrgjual.Enabled := true;
estok.Enabled := true;
bsimpan.Enabled := true;
form4.ActiveControl := ekdbarang;
kosong;
end;



procedure TForm4.DBGrid1CellClick(Column: TColumn);
begin
tampil;
end;

procedure TForm4.ekdbarangKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
if table1.FindKey([ekdbarang.Text]) then
begin
showmessage('data sudah ada');
exit;
end
else
hidup;
ekdbarang.Enabled := false;
form4.ActiveControl := enmbarang;
end;
end;


procedure TForm4.FormActivate(Sender: TObject);
begin

tampil;
mati;
bsimpan.enabled := false;
end;


procedure TForm4.FormCreate(Sender: TObject);
begin
table1.DatabaseName := 'tabel';
table1.TableName := 'informasi_toko';
table1.Active := true;
datasource1.dataset := table1;
end;
end.

setelah semuanya jadi jgn lupa kita ubah propertiesnya table1
active menjadi true, database nya kita buat tabel, table name nya kita buat informasi_toko seperti nama yang ada di database.
Setelah itu query1 kita ubah propertiesnya
active menjadi true
dan di SQL kita tulis select*from informasi_toko
setelah itu datasource kita ubah juga
lihat seperti gambar dibawah ini





setelah semuanya jadi mari kita lanjut lage membuat odbc. Cari control panel pilih administrative tools lalu pilih Data Sources(ODBC) lalu klik Add cari mysql ODBC lalu double klik. Setelah di double klik kita isi Data souce name: Tabel
TCP/IP : localhost
User : Root
Databasenya kita dengan nama database yang kita buat di localhost/phpmyadmin setelah itu di test. lalu klik Ok.

Dan Selesailah semuanya..
Semoga berhasil ya gan.

Read More

Nonton TV Online

Read More

Kandungan Gizi dan Manfaat Kacang Merah Untuk Kesehatan

Mungkin kacang yang satu ini belum begitu familiar dan populer buat kita, tidak seperti halnya kacang tanah, kacang kedelai, dan kacang hijau yang sering di konsumsi dan sangat populer bagi masyarakat indonesia. Karena memang kacang tanah, kacang kedelai dan kacang hijau lebih sering di jadikan makanan olahan, apalagi kacang kedelai yg memang merupakan bahan baku pembuat tempe dan tahu, sehingga kacang tersebut sangat populer untuk masyarakat indonesia. Tapi bukan berarti kacang merah tidak bisa seperti kacang kedelai, kacang tanah maupun kacang hijau, kacang merah juga bisa di olah menjadi berbagai jenis makanan, salah satunya es kacang merah yg super enak. Seperti halnya jenis kacang kacangan, kacang merah juga memiliki nilai gizi yang tinggi juga loh.. dan sangat baik untuk kesehatan kita, mau tau ? untuk lebih jelasnya baca uraian di bawah ini.. 

Read More