Membuat Kalkulator Sederhana dengan Delphi7

Setelah kita mengetahui Tipe Data dan Operator pada Delphi, saya ingin memberikan contoh program kalkulator serderhana. Contoh program kalkulator serderhana ini sangat mudah dibuat dengan menggunakan program delphi, terutama bagi programming pemula (seperti saya). Ok langsung saja, cara membuat kalkulator sederhana seperti di bawah ini.

1. Buat project baru dengan nama sembarang dan masukkan 6 buah Button (untuk +, -, x, /, Bersihkan dan Keluar), 3 buah Data Edit dan label. Tata seperti gambar dibawah ini.

2. Double klik pada Button " + " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A+B; //operasi penjumlahan

  Edit3.Text:=floattostr(C);
end;

3. Double klik pada Button " - " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A-B; //operasi pengurangan

  Edit3.Text:=floattostr(C);
end;

4. Double klik pada Button " x " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A*B; //operasi perkalian

  Edit3.Text:=floattostr(C);
end;

5. Double klik pada Button " / " lalu masukkan code di bawah ini.

var A:integer;
    B:integer;
    C:integer;
begin
  A:=strtoint(edit1.Text);
  B:=strtoint(edit2.Text);
  C:=A div B; //operasi pembagian

  Edit3.Text:=floattostr(C);

end;

6. Double klik pada Button " Bersihkan " lalu masukkan code di bawah ini.

begin
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
end;

7. Double klik pada Button " Keluar " lalu masukkan code di bawah ini.

begin
close;
end;

Selesai, tinggal tes programnya dengan klik Run atau tekan F9. Hasil akhirnya seperti gambar di bawah.

Jika ingin melihat source code projectnya dan contoh program kalkulator serderhana dengan delphi7  secara detail bisa di download DI SINI.Password : bloganakkomputer.blogspot.com

Selamat mencoba.

D4V1D

FIX error rundll32.exe c:\windows\system32\NvCpl.dll,NvStartup

Apakah komputer anda terasa sangat lambat saat pertama kali dinyalakan?? Saat klik kanan saja, jam pasir pun lama sekali berputar? Atau muncul keterangan eror seperti gambar di bawah ini?

Eror di atas artinya driver NVidia control panel gagal untuk di load/di jalankan. Solusinya bisa anda download driver VGA NVidia  anda dan re-install kembali. Tapi jika masih saja muncul seperti gambar di atas ikuti tips berikut ini.

Berikut caranya agar Rundll.32 …..NvCpl.dll tidak muncul lagi di startupnya.

1. masuk ke start – run

2. ketikkan services.msc dan Ok

3. pada “NVIDIA Display Driver Service” di klik 2 kali (doble click)

4. pada tab log On klik “disable”

 

Dan pada tab  General pada bagian Startup type pilih  Disabled.

5. pada tab General Klik “stop” kemudian apply dan Ok

6. Lalu masuk pada Run – ketik msconfig – pada tab startupnya hilangkan centang  pada NvCpl. Ok.

6. Restart PC nya

Setalah restart, jika berhasil maka komputer anda akan berjalan normal kembali, tanpa loading dan pesan  eror nvcpl yang missing.

Selamat  mencoba.
D4V1D

Tips Mengisi Tinta pada CL-811

Sedikit share nie kawan-kawan, yang belum tahu caranya mengisi tinta pada cartridge CL-811 serta susunan warna nya seperti berikut:

• Buka cover depan printer
• Copot Catridge dari tempatnya sesuai dengan prosedur
• Buka label merek dan temukan lobang udara pada atas catridge.
• Urutan warna / susunan warna  pada cartridge cl811 tiap lobang dari kiri ke kanan seperti pada gambar adalah Cyan Magenta Yellow ( CMY) seperti gambar di atas.
• Perbesar lobang catridge dengan Bor Mini, Skrup Kecil di putar mengarah ke dalam menggunakan obeng, atau gunakan paku kecil atau paku untuk papan triplex.
• Ambil tinta menggunakan suntikan berjarum

 

• Sebelum di suntik pastikan tak ada udara pada ujung jarum keluarkan semua udara pada unjung jarum dengan mendorong suntikan menghadap ke atas ( seperti saat dokter melakukan suntikan )
• Suntikan tinta kedalam Catridge ( Catridge PG 811 maksimal 4 ml, PG 810 XL 6ml pada setiap warnanya )
• !!! Pengisian sebaiknya tidak melebihi takaran untuk menghindari luber !!!
• Goyang-goyang catridge sebentar saja agar tinta turun ke bawah.
• Pasang kembali catridge ke tempatnya.
• Jika muncul error ink have run out maka anda perlu menekan tombol resume pada printer IP 2770 atau tombol stop/reset pada seri MP atau seri MX.
• Jika cetakan kurang baik/ bergaris coba clean max 3 kali pada normal cleaning.
• Jika hasil masih kurang sempurna maka anda sebaiknya menganti catridge anda.

Sekian sedikit share dari saya....

CARA MENDAPATKAN BETA KEY DoTA2

Ok kawan-kawan KaLo agan ingin maen DOTA2 Agan harus Mempunyai "KEY"nya duLu , Nah cara untuk mendapatkan KEYnya spt Di bawah ini :

Cara mendapatkan beta key dota 2

...

1. MELALUI SURVEY

Info resmi dari http://blog.dota2.com/2011/10/the-sleeping-dragon-wakes/ anda bisa dapat invite beta key dari valve dengan mengikuti surveynya dan dua beta key tambahan akan diberikan. Langkah mengikuti Dota 2 Survey adalah sebagai berikut:

#. Install Steam di PC

(http://store.steampowered.com/about/?snr=1_4_4__11) hingga finish total termasuk juga update

a.Pake aplikasi dari link bawah ini untuk mengikuti survey secara otomatis

http://www.dota2.com/survey/experience   Lalu piLih : Click here to launch the survey.

b.atau dg cara manual

1. Hapus Client.Registry.Blob Setelah Exit dari Steam

2. Buka ulang Steam, setelah masuk (signed) kemudian tekan Windows Key+R dan copas “steam://takesurvey/1/” setelah itu tekan enter.

3. Ikuti survey hingga finish

TINGGAL MENUNGGU SURAT CINTA YG BERISI KEY DARI ICEFROG

2.MELALUI PLAYDOTA/GETDOTA

Ok brader siap ya, MeLalui playdota sangat mudahhhhhh Buanggeettt Loh dapet Keynya," TAPI" yah ada tapinya Jika melaLui PLAYDOTA ada syaratnya Loh -_- Yahh kok ada syarat sihhh 

Pasti KaLian brtanya emang syaratnya apaan?? Nah jika dari syarat2 di bawah ini KaLian sudah Terpenuhi .. "GW JAMIN DEH PASTI DAPET BETA KEYNYA" , TinggaL yg tersisa ke-HOKIAN KaLian dan DOA yg buanYaaak biar cepet di kirimiin Keynya ,waLaupun trkadang nunggunya ambe 1 buLan Loh bahkan Lebih ... wah Lama yah' taekLah , tapi pasti dapet kok !!!...

Ini syaratnya:

#-Anda hanya perlu Post atau mereplay di thread tersebut, terserah anda mau tulis apa yang penting anda telah post ke thread tersebut dan jika anda beruntung maka anda akan mendapatkan beta key dari bot playdota.com

#-ID PLAYDOTA.com yang dpt mengikuti undian ini hanya id yang dibuat sebelum tanggal 04/05/2012

#-Setiap harinya BOT playdota.com akan Merandom 180 id Playdota yang mengikuti kontes undian ini.. bagi yang beruntung akan mendapatkan 3 buah beta key PER ID.

#-Undian akan dilaksanakan setiap jam 11 malam WIB (waktu indonesia bagian barat)

Buruan sebelum undian ini ditutup!!

oh ia Link Thread Undian Betakey Playdota.com:

http://www.playdota.com/forums/showthread.php?t=549077

3. MELALUI FACEBOOK

Loh emang ada??? ada donk" , KaLian hanya tinggaL mengeLike "LIKE" FB di bawah ini :

1. http://www.facebook.com/dpmlicious?ref=ts  YG ini CEWE Loh

2. http://www.facebook.com/wykrhmreddy  YG ini COWO

SiLahkan deh MuLai Ngemis-Ngemis ampe Nangis hehe ^_^

Eh mintanya jgn brLebihann ya spt coment berLebihan/JUNK eeq , Ntar g di tanggapin deh coment kaLian KaLo caranya bgitu...

SLamat brjuang ya... AGAN-AGAN

--- SLANJUTNYA TAHAP SETELAH MENDAPATKAN BETA KEY ---

1. Buka steamnya

2. PiLih menu "GAMES"

# Menu games terletak di Kiri atas SebeLahan dg Menu Friend, HeLp

3. PiLih "Activate a product on steam"

4. Product Vaction, Next, i Agree, Masukkan Keynya, instaL DoTA2nya

Lewat steam Langsung,,,

SUMBER : http://www.facebook.com/pages/DoTA-DoTA2/357515430949443#!/pages/DoTA-DoTA2/357515430949443?sk=info