Posts

Showing posts from June, 2012

Membuat Kalkulator Sederhana dengan Delphi7

Image
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(ed...

Tips Mengisi Tinta pada CL-811

Image
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 !!...