Program Rental Mobil Delphi

Form Rental Mobil pucuk_ubi

Ukay, kali ini Kei akan berbagi program sederhana menggunakan Delphi 1, program ini adalah program penyewaan/rental mobil dengan menggunakan Database Desktop, yang masih bingung tentang pembuatan database desktop bisa me_review posting_an Transaksi Resto. Pada form ini kita tambahkan 3 tabel, yaitu: table1 untuk koneksi ke master data petugas, table2 untuk koneksi ke master data mobil, dan table3 untuk koneksi ke tabel transaksi, buat yang agak males(#nyebut diri sendiri (-,-")>) bikin tabel database gag usah rewel, karena saya sudah menyediakan tabelnya, tinggal di copas di folder yang sama dengan project'a, EITS, jangan lupa bikin "Alias Manager" nya, coz gag bisa diwakilin ntuh bikinnya, ,

langsung aja dagh, klo listingnya di posting mungkin bakalan panjang pake banget, So di download aje ye listingnye, ,

nih link downloadnye: Rental-Mobil-pucuk_ubi 

.oOo.Semoga Bermanfaat.oOo.

Layer Mask

Hmmmm, Udah lama nie gag sharing tentang PhotoShop, ,

Ukay, diriku mau berbagi tips PhotoShop tentang pengguna_an "Layer Mask", ,

mungkin bagi pemula seperti saya (#TampangPolosModeOn) belum tau apa itu "Layer Mask", yaa intinya Layer Mask itu layer yang dipake wat nyembunyi_in layer utama, namanya jg topeng, klo kta pake topeng kan muka kita ktutupan 'n gag kliatan, nah klo biasanya kita menghapus bagian sebagian gambar pake tool "ERASER", kali ini kita pake "Layer Mask", ada beberapa keuntungan klo kita pake "Layer Mask" dibandingkan pake "ERASER", keuntungan'a : 1.klo ada kesalahan bisa dibalikin sesuai keinginan (gag perlu "UNDO"), 2.masi bisa mengembalikan bagian yang hilang/disembunyikan walau project(format PSD) sudah di close, ,

Okay kita kembali ke *^@%#^#&$ (-,-")>

The First (#sok²_anPakeBhsInggris), buka satu file photo dengan menggunakan photoshop, lalu gandakan layer dengan menekan Ctrl+J, , *Udah blom??, klo udah, liat gambar dibawah, udah sama blom?

(cakep yak yang tengah??hehe)

klo udah diganda_in, layer yang dibawah dibikin beda warna'a, misal item-putih, bis ntu langsung ke step kedua, ,

The Second, Sorot/aktifkan/klik sekali aja di layer yang atas lalu Klik icon "Layer Mask" yang ada di Tab Layer, klo gag tau icon "Layer Mask" itu yang mana liat gambar dibawah, ,

nah, klo udah di klik ntar muncul lembar putih(Layer Mask) disamping layer, trus klik sekali aja pada "Larer Mask" nya untuk memastikan Layer Mask sedang aktif, ,

The Third, aktif_in Brush Tools, trus perhati_in bagian "foreground", liat gambar dibawah, ,

masih di bagian "foreground", disitu ada item ma putih, klo bukan item/putih klik aja icon kcil diatas'a, nah ini kunci dari materi "Layer Mask" kali ini. Untuk catatan, jika warna hitam diatas artinya menyembunyikan, sebaliknya jika warna putih diatas maka memunculkan, untuk membalik dari hitam ke putih ataupun sebaliknya cukup kita tekan huruf X pada keyboard, Oke Next, ,

The Fourth, kita bisa mengatur brush tool sesuai yang kita inginkan, setelah brush tool aktif lalu klik kanan pada gambar, setelah kita atur kuas brush jangan lupa melihat ke bagian atas, atur opacity dan flow sesuai yang di_inginkan, coba tengok kebawah, ,

klo udah di setting, kita menuju ke step berikutnya, ,

The Fifth, tinggal dipoles dagh yang mana yang mau disembunyi_in, misalnya kita ingin nyembunyi_in semua gambar KECUALI Cewek 'n Cowok yang pake baju Harajuku Batik, kurang lebih hasilnya seperti gambar dibawah, ,

Coba perhatikan, bagian yang berwarna hitam/putih adalah layer yang bawah, sedangkan yang berwarna adalah layer yang kita sembunyikan sebagian gambarnya, lihat pada "Layer Mask" nya, disana terlihat ada warna hitam dan putih, yang hitam adalah bagian gambar yang disembunyikan, ,

Akhirnya selesai juga tutor "Layer Mask" nya, ,

semoga bisa dimengerti 'n bermanfaat, ,

.oOo.Tetap Berkarya.oOo.

Transaksi Resto

FORM TRANSAKSI

Kali ini Saia akan bahas tentang form transaksi suatu restoran, disain fornnya kurang lebih seperti ini, ,

Langkah yang pertama→ Buat 2 tabel database, yaitu tabel "paket" dan tabel "trans" seperti screenshot dibawah ini:

Langkah yang kedua→ buat alias manager, pembuatan alias manager hanya perlu dilakukan satu kali saja, asalkan database yang diambil masih di dalam satu folder, berikut screenshotnya:

klik new untuk membuat alias baru,

isi_kan database aliasnya sesuai dengan keinginan anda(tidak boleh sama dengan yang sudah ada),

jangan lupa masukkan alamat folder yang dituju dengan menggunakan "Browse..."

Langkah yang ketiga→ Mengkoneksikan Form dengan database yang kita buat tadi dengan cara mengatur properties object Table, DataSource, serta DBGrid seperti screenshot dibawah:

berikut adalah properties dari object Table1:

berikut adalah properties dari object Table2:

berikut adalah properties dari object DataSource1:

Dan ini properties DBGrid1:

Langkah yang keempat→ Setelah database terkoneksi, tinggal ngetik listingnya deh, ,

Berhubung listingnya lumayan agak panjang, listingnya didownload aja yak??
nah, Download'a disini niiiii

Okey, Semoga bermanfaat, ,
(-,-")/

Materi Database Desktop

Form Daftar Barang

Kali ini kita belajar delphi dengan menggunakan database yaitu Database Desktop, ,

Jangan lupa untuk me_Record / mengisi data pada tebel database yang kita buat, dengn cara= File-> Open-> Tabel, lalu cari tabel yang telah dibuat tadi, setelah tabel yang ingin kita record muncul, untuk mengedit tabelnya klik button "Edit Data" yang ada diatas tabel, kalau sudah selesai mengeditnya silakan di tutup saja, karena data sudah otomatis tersimpan. Untuk catatan, bila ingin menghapus data yang tidak kita inginkan tekan Ctrl+Delete, contohnya saat kita selesai merecord tapi sudah terlanjur ditekan enter, nanti akan membuat baris baru, nah untuk menghapusnya tekan Ctrl+Delete, ,

Download Listing Program : Database Desktop Delphi1

Semoga Bermanfaat, , (-,-")/

.oOSelamat MencobaOo.

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),,(-,-")/