Latihan Delphi 1 Part 2

Form Latihan ComboBox

Dari form diatas di bagian ALAMAT menggunakan object Memo, untuk menghilngkan text pada memo cari "Lines" pada tab Properties, lalu hapus text yang ada pada "String List Editor" dan klik OK seperti gambar dibawah:

Untuk "Level" gunakan ListBox, untuk mengisi list pada listbox cari "Items" pada tab Properties, lalu isikan list "Fundamental" dan "Advanced" dan klik OK seperti gambar dibawah:

Berikut adalah Listing Programnya:

procedure TForm1.c1Click(Sender: TObject); //CheckBox Visual Basic

begin

if c1.Checked = true then

  evb.Text:='1000000'

else

  evb.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.c2Click(Sender: TObject); //CheckBox Delphi

begin

if c2.Checked = true then

  edelphi.Text:='800000'

else

  edelphi.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.c3Click(Sender: TObject); //CheckBox Linux

begin

if c3.Checked = true then

  elinux.Text:='1100000'

else

  elinux.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.c4Click(Sender: TObject); //CheckBox Web Design

begin

if c4.Checked = true then

  eweb.Text:='1200000'

else

  eweb.text:='0';

ejumlah.text:=inttostr(strtoint(evb.text)+strtoint(edelphi.text)+strtoint(elinux.text)+strtoint(eweb.text));

end;

procedure TForm1.rgClick(Sender: TObject); //RadioGroup Pembayaran

begin

if rg.ItemIndex =0 then

  ediskon.text:=floattostr(strtofloat(ejumlah.text)*0.05)

else

  ediskon.text:=floattostr(strtofloat(ejumlah.text)*0);

etotal.text:=inttostr(strtoint(ejumlah.text)-strtoint(ediskon.text));

end;

procedure TForm1.ListBox1Click(Sender: TObject); //ListBox Level

begin

if listbox1.ItemIndex =0 then   //item index 0(nol) intuk list "Fundamental"

  etambah.text:= floattostr(strtofloat(etotal.text)*0)

else

  etambah.text:= floattostr(strtofloat(etotal.text)*0.5);

end;

procedure TForm1.bhitungClick(Sender: TObject); //Button Hitung

begin

ebiaya.text:=inttostr(strtoint(etotal.text)+strtoint(etambah.text));

end;

procedure TForm1.bbershClick(Sender: TObject);

begin

enama.clear;

memo1.clear;

c1.Checked := false;

c2.Checked := false;

c3.Checked := false;

c4.Checked := false;

ejumlah.text:='0';

evb.text:='0';

edelphi.text:='0';

elinux.text:='0';

eweb.Text:='0';

rg.ItemIndex :=-1; //Untuk menghlangkan checked pada RadioGroup

ediskon.text:='0';

etotal.text:='0';

listbox1.ClearSelection; //untuk menghilangkan seleksi pada ListBox

etambah.text:='0';

ebiaya.text:='0';

end;

procedure TForm1.bkeluarClick(Sender: TObject);

begin

if (application.MessageBox('Yakin Mau keluar?','Warning',mb_yesno)=idyes) then

close;

end;

.oO-Semoga Bermanfaat-Oo.

Ulasan Materi Delphi 1

Form ulasan materi delphi, , →

Untuk mengisi list pada combobox, aktifkan object combobox → properties → Items, ,

Saat diinput uang bayar dan ternyata uangnya kurang maka tampil messagebox seperti gambar dibawah:

Saat mau keluar tampilkan pilihan mau keluar atau tidak dengan menggunakan messagebox seperti gambar dibawah:

Berikut adalah listing/codingnya, , →

procedure TForm1.FormActivate(Sender: TObject); //Form→OnActivate

begin

etanggal.Text:=formatdatetime('dddd, dd-mm-yyyy',now); //memunculkan tanggal

epelanggan.SetFocus; //untuk menempatkan cursor pada edit pelanggan ketika project di running

end;

procedure TForm1.rtopClick(Sender: TObject); //RadioButton Top One

begin

eharga.Text:='35000';

end;

procedure TForm1.ragipClick(Sender: TObject); //RadioButton Agip

begin

eharga.Text:='30000';

end;

procedure TForm1.radvanceClick(Sender: TObject); //RadioButton Advance

begin

eharga.Text:='32500';

end;

procedure TForm1.cmbmontirChange(Sender: TObject); //ComboBox Montir

begin

if cmbmontir.Text='AND' then   //syarat/ketentuan tidak menggunakan ":"

  begin

  enama.Text:='ANDRE';             //nilai atau statement harus menggunakan ":"

  ebiayajasa.Text:='25000';       //nilai atau statement harus menggunakan ":"

  end //baris sebelum ELSE tidak boleh ada ";"

else if cmbmontir.Text='PRT' then

  begin

  enama.Text:='PARTO';

  ebiayajasa.Text:='20000';

  end

else

  begin

  enama.Text:='SULE';

  ebiayajasa.Text:='22500';

  end;

end;

procedure TForm1.bhitungClick(Sender: TObject); //Button Hitung

begin

etotal.Text:=inttostr(strtoint(eharga.Text)+strtoint(ebiayajasa.Text));

end;

procedure TForm1.rjeniscustomerClick(Sender: TObject); //RadioGroup Customer

begin

if rjeniscustomer.ItemIndex=0 then

  ediskon.Text:=floattostr(strtoint(etotal.Text)*0.2) //jika member maka diskon 20% dari total

else

  ediskon.Text:='0';

egrandtotal.Text:=inttostr(strtoint(etotal.Text)-strtoint(ediskon.Text));

eubay.SetFocus;

end;

procedure TForm1.eubayKeyPress(Sender: TObject; var Key: Char);// Uang Bayar→KeyPress

begin

if key=#13 then

  begin

  if strtoint(eubay.Text)

    begin

    application.MessageBox('Duitnya Kurang','GUBRAG',mb_ok);

    eubay.Clear;

    end

  else

    eukem.Text:=inttostr(strtoint(eubay.Text)-strtoint(etotal.Text));

  end;

end;

procedure TForm1.bkeluarClick(Sender: TObject); //Button Keluar

begin

if application.MessageBox('Yakin Mau Keluar?','WEEEIIITTTSS',mb_yesno+32)=idyes then

close;

end;

procedure TForm1.bbersihClick(Sender: TObject); //Button Bersih

begin

epelanggan.Clear;

rtop.Checked:=false;

ragip.Checked:=false;

radvance.Checked:=false;

eharga.Text:='0';

cmbmontir.Text:='Pilih Montir';

enama.Clear;

ebiayajasa.Text:='0';

etotal.Text:='0';

rjeniscustomer.ItemIndex:=-1; //untuk menghilangkan checked pada radiogroup

ediskon.Text:='0';

egrandtotal.Text:='0';

eubay.Text:='0';

eukem.Text:='0';

epelanggan.SetFocuse;

end;

☻,,perhatikan warna teks pada "begin" & "end",

☺,,lihat di bagian perhitungan, selalu ada konversi tipe data, karena tipe data yang dapat masuk ke dalam proses perhitungan hanya tipe data yang berupa int(interger→bilangan bulat) & float(floating→bilangan cacah/desimal), ketika kita merubah tipe data menjadi int/float untuk mencetak kembali kita harus mengembalikan tipe data menjadi str(string), contohnya seperti gambar dibawah ini:

Latihan Delphi 1 Part 1

Form Latihan

Ini listingnya

cmbpaketChange

begin

listmenu.Clear;

if cmbpaket.Text='Paket 1' then

begin

listmenu.Items.Add('Nasi Goreng');

listmenu.Items.Add('Kerupuk');

hargamakanan.Text:='8000';

end

else

if cmbpaket.Text='Paket 2' then

begin

listmenu.Items.Add('Nasi Uduk');

listmenu.Items.Add('Perkedel');

hargamakanan.Text:='7000';

end

else

begin

listmenu.Items.Add('Nasi Kuning');

listmenu.Items.Add('Lalapan');

hargamakanan.Text:='9000';

end;

end;

esClick

begin

hargaminuman.Text:='5000';

end;

kopiClick

begin

hargaminuman.Text:='3000';

end;

airClick

begin

hargaminuman.Text:='2000';

end;

tehClick

begin

hargaminuman.Text:='2500';

end;

jusClick

begin

hargaminuman.Text:='4000';

end;

HitungClick

begin

total.Text:=inttostr(strtoint(hargamakanan.Text)+strtoint(hargaminuman.Text));

end;

BayarKeyPress

begin

if key=#13 then

begin

if strtoint(bayar.Text)

begin

application.MessageBox('Yah Duitnya Kurang','Eiittssss',mb_ok);

bayar.Clear;

end

else

kembali.Text:=inttostr(strtoint(bayar.Text)-strtoint(total.Text));

end;

end;

BersihClick

begin

cmbpaket.Text:='Pilih Paket';

listmenu.Clear;

hargamakanan.Clear;

es.Checked:=false;

kopi.Checked:=false;

air.Checked:=false;

teh.Checked:=false;

jus.Checked:=false;

hargaminuman.Clear;

total.Clear;

bayar.Clear;

kembali.Clear;

cmbpaket.SetFocus;

end;

Membuat Gift Menggunakan PhotoShop

Sebenernya pembuatan gift dengan menggunakan PhotoShop itu gampang² susah, tapi klo kita sudah menguasai Kunci Sukses Bermain Photoshop saya pastikan anda dapat dengan mudah menguasai tutorial ini, ,

Okey, langsung aja kita belajar membuat gift dengan mengguakan PhotoShop, berikut adalah tahap²nya, ,

  simak baik² yaa, ,

Tahap Pertama

Buat canvas baru, dengan panjang 10cm, lebar 10cm, color mode=RGB Color, Background Contents = Transparent →

Tahap Kedua

Buat satu objek dengan menggunakan Shape Tool, pilih Fill Pixels, lalu pilih shape yang anda inginkan, disini saya ambil contoh bentuk hati, lakukan pewarnaan agar lebih menarik →

Tahap Ketiga

Gandakan Layer dengan cara tekan Ctrl+J, setelah digandakan, kemudian resize pada layer yang telah kita gandakan dengan cara menekan Ctrl+T, pada saat mengecilkan objek agar objek tetap ditengah(center) gunakan Shift+Alt, lakukan penggandaan dan resize secara berulang-ulang sehingga kita mendapatkan beberapa hasil yang beraturan, →

Tahap Keempat

Tampilkan jendela Animation Frames, klik windows lalu cheklist Animation, setelah jendela Animation muncul, klik icon yang ada di pojok kanan atas pada jendela animation, kemudian klik "Make Frames From Layer", seelah di_klik maka akan muncul layer-layer pada jendela Animation, →

Tahap Kelima

setelah semua layer masuk ke dalam jendela Animation kita bisa tes hasil dari gift sebelum disimpan, jika anda ingin mengatur durasi layer bisa anda rubah di setiap layernya dengan mengklik icon segitiga(0 sec.▼), jika anda ingin menambahkan layer klik new layer pada jendela Animation, →

Tahap Keenam

jika anda sudah mendapatkan hasil yang sesuai dengan design anda, projek bisa disimpan, klik File -> Save for Web & Devices, atau tekan Alt+Shift+Ctrl+S, pilih colors = 256, lalu klik Save, pastikan file typenya adalah Image Only (*.gif), →

SELESAAAIIIIIIIIIIIIIIII, ,

dan hasilnya, ,


TAARRAAAAAAAAAAA, ,

yang pengen nge_share jngan lupa ya di link ke blog saya YAAAAA, ,

Kunci Sukses Bermain PhotoShop

PhotoShop adalah suatu aplikasi editing gambar yang dapat membuat si editor berimajinasi dan berkreatif, dimana semua fasilitas-fasilitas untuk efek'a sudah tersedia disana. Sebagai pengguna aplikasi ini saya salut pada pembuat aplikasi ini, karena semua yang saya butuhkan ternyata sudah tersedia didalamnya. Okey, kali ini saya akan memberi tips sukses meanipulasi gambar di PhotoShop, ,

Yang pertama,

"SABAR", dalam mengedit photo kita musti sabar, untuk hasil yang optimal biasanya membutuhkan waktu yang cukup lama, maka dari itu kita musti sabar, apalagi bila terjadi kesalahan atau tiba² komputer mati sedangkan project belum sempat di save, mau gag mau kita harus mulai dari awal lagi, ,

Yang kedua,

"TELITI", mengapa kita harus teliti? karena jika tidak teliti nantinya bisa merusak photo yang kita manipulasi, misalnya untuk pengeditan objek rambut, dengan ukuran yang cukup keci kita harus memilah² rambut yang perlu dan yang tidak perlu untuk di ikutsertakan menjadi hasil akhirnya, ,

Yang ketiga,

"Kreatif dan Berimajinasi luas", saat pengeditan photo setidaknya kita punya ide² kreatif atau imajinasi tentang projek kita, agar nanti tidak bingung apa yang musti dilakukan saat membuka PhotoShop. Ide² kreatif akan memaksa kita untuk menggunakan fasilitas² yang sudah disiapkan oleh  pembuat PhotoShop dan secara tidak langsung kita juga mempelajari fasilitas² yang ada didalamnya, sedangkan imajinasi memberitahu kita apakah hasil manipulasi kita terlihat real, art, atau malah jadi aneh, ,

Yang ke empat,

"Pikiran Sedang Santai", usahakan bila ingin mengedit photo hendaknya pikiran kita sedang santai adem, biasanya klo sedang santai tu ide² brillian bermunculan, banyangkan jika kita mengedit photo saat pikiran sedang kacau, yang ada bukannya makin bagus tapi malah makin berantakan, klo udah berantakan biasanya otak juga makin ruwet, ujung²nya RSJ dah, hehe just kid, ,

Yang kelima,

jangan lupa cuci tangan dan baca bismilah, ,

itu tadi adalah tips² dari saya, ,

walau hanya sedikit saya harap dapat membantu anda dalam mengembangkan kreatifitas, ,

*Percayalah bahwa kau mampu, ,*

Hatsu Kei Mangetsu (Eka Dian Purnama),,(-,-")/