0 modul 11 Delphi – Menambahkan Teks ke List Box

Assalamualaikum Temen Temen Semua, Salam Semangat untuk Hari ini nich /(^.^”) temen temen semua. *hmmmm hari ini mo nulis apa ya (-,-“)???. ( Delphi Delphi Delphi mas eko *\(^0^)/* – sorak parasahabat maya ) waduhhhh /(^o^) iya iya iya baiklah *hehehehe.

Nah Hari ini kita bahas Materi Delphi Lagi yukss – Permintaan khusus dari sahabat maya *fufufufu. Materi apa yang akan kita coba hari ini, tentunya melanjutkan materi materi yang sudah pernah kita bahas nich dengan tema yang gak kalah seru  (n_n). Baiklah kita post ringan aja dech Di Jum’at pagi ini – Kita akan mencoba memasukkan Teks Kedalam ListBox *hehehehe Monggo Disimak ya.

Nah komponen yang kita pelajar kali ini yakni penggunaan ListBox, dimana temen temen bisa temukan component ini pada tabs standard. Kita bisa menambahkan, Mengyisipkan, mengurangi, mengatur posisi dalam Dalam Komponent List Box. Nah kali ini kita akan mencoba memasukkan teks kedalam listbox, /(^.^”) untuk menyisipkan, mengurangi dan mengatur posisi teks mungkin kita bahas di sesi selanjutnya *hehehehe biar gak telat ngantor *fufufufu, Langsung aja ya :

• Pertama Tama Buat Design Form Sebagai Berikut

• Atur Properties Namenya Sebagai Berikut :

Nah Berikut Alur Programnya :

• Edit Box tempat mengetikkan teks yang ingin dimasukkan ke dalam ListBox.
• JIka Button Add Di Klik maka Teks yang ada pada edit Box akan di Masukkan ke dalam Listbox kemudian Edit Box bersih dan setfocus untuk teks selanjutnya.
• Jika Button Exit Di Klik maka akan keluar dari program.

Nah Berikut Listing Source Codenya :

1 2 3 4 5 6

procedure Tform_materi12.FormCreate(Sender: TObject); begin     edit_add.Text:='';   end;

pada saat Form Di jalankan makan teks pada edit box akan dibersihkan /(^.^”).

1 2 3 4 5 6 7 8

procedure Tform_materi12.button_addClick(Sender: TObject); begin     listbox1.Items.Add(edit_add.Text);   edit_add.Text:='';   edit_add.SetFocus;   end;

Jika Button Add di Klik maka Teks yang berada pada edit box akan dimasukkan pada List Box kemudian Edit Box kosong dan setfocus kembali untuk teks berikutnya.

1 2 3 4 5 6

procedure Tform_materi12.button_exitClick(Sender: TObject); begin     close;   end;

Nah saat Button Exit DI klik maka akan keluar dari program.

Nah Berikut ini hasil Program Saat di jalankan /(^.^”) :

Nah Selesai Sudah Materi Kali ini *hehehehe (  wah mas eko kok gampil ya (^o^) *hehehehe komentar sahabat ) Itulah – Belajar Delphi Emang Gampang kan, Tentunya dunk *hehehehe. sekarang mau kasih tips juga untuk temen temen yang mau copy paste code program di atas bisa klik icon yang ada pada source codenya – perhatikan gambar dibawah ini.

Setelah dikilk nanti akan mencul note dari web browser temen temen yang bisa temen temen lakukan untuk pengcopyan source codenya. Kalau yang mau liat langsung aplikasi Project Delphinya monggo di download dibawah ini.

Download Materi 12 – MEnambahkan Teks Ke List Box

Nah Sampai Jumpa Di Materi materi Delphi Selanjutnya Temen Temen semua. Sudah Saat nya menjalani Rutinitas Hari ini, Salam Semangat Di Jumat Pagi ini.

Thanks & Regards

Read more

1 modul 10 Delphi – Membuat Loading Progress

Assalamualaikum Temen Temen semua, Salam Semangat untuk pagi hari ini *hehehehe. Nyok kita belajar Borland Delphi Lagi /(^.^”) Melanjutkan Materi materi Sebelumnya tentunya, /(^o^”) sambil santap pagi kita berbagi *hehehehe.

Untuk Saat ini kita akan membahas bagaimana membuat form loading atau progress bar. Dimana temen temen bisa menyelipkan form ini setelah form login sebelum memasuki form menu utama *hmmm. membuat tampilan yang atraktif merupakan kunci sukses Program Cantik dan disenang *hehehehe. Dah jangan lama lama nanti keburu telat ngantor nich *owowowowowo. Monggo Disimak ya Temen Temen Semua.

Hari ini kita akan menggunakan component yang baru kemarin kita pelajari yakni Timer dan tambahan Component hari ini adalah component Progress Bar yang bisa temen temen dapatkan di Tab Win32 (lihat gambar dibawah ini).

Progress Bar terdapat pada tab Win 32

Komponen Progress Bar inilah yang akan membuat tampilan loading untuk masuk ke menu utama. Untuk materi kali ini kita akan mencoba membuat 2 form untuk satu materi. (  *wahhhh pusing dunk mas eko -,-” keluhan sang pembaca )  *owowowow tentu tidak, semua materinya simple dan gampang kok malah kita nanti bisa dapat trik trik yang bisa dipakai dalam pembuatan program kita nanti, Langsung aja kita bahas (^o^”) *biar bisa cepat sarapan.

• Pertama tama Buat Design Form Seperti Dibawah ini, Sebagaimana yang sudah dikatakan tadi akan ada 2 form yang dibuat yakni form_loading dan form_menu.

Design Form Loading Menggunakan Progress bar

Design Form Menu yang sangat sederhana

• Ubah Properties namenya sebagai Berikut :

Berikut Alur Program Logikanya :

• Pada Saat Form Loading Berjalan nanti Progress Bar akan berjalan sampai penuh.
• Saat Progress Bar Penuh Maka Form Loading Akan Hide Dan memunculkan Form Menu Utama.
• Pada Saat Button Keluar di Klik Pada Menu Utama akan mengeluarkan form Menu Utama dan Juga Form Loading nya, yang sebelumnya di Hide.

_______________________________________________________________________________________________

Berikut ini List Programnya :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure Tfrm_loading.Timer1Timer(Sender: TObject); begin   if progressbar1.Position=100 then   begin     frm_menu_utama.Show;     frm_loading.Hide;     timer1.Enabled:=false;   end else   begin     progressbar1.Position:=progressbar1.Position+5;   end;   end;

Pada Saat Form Create Maka Progress bar berjalan sesuai dengan interval yang sudah di setting pada timer. Dan Jika sudah sampai pada batas akhir progress maka timer disable agar tidak melakukan / menjalankan code kembali. kemudian menyembunyikan form loading dan menampilkan form menu utama.

1 2 3 4 5 6 7

procedure Tfrm_menu_utama.Button1Click(Sender: TObject); begin     frm_loading.close;   frm_menu_utama.Close;   end;

Jika button Keluar di Klik maka, kita settting keluar dulu form loading baru form menu utama karena form loading sebelumnya hanya kita sembunyikan tidak kita close. Nah Selesailah Materi kita kali ini.

Berikut Tampilah hasil Aplikasinya :

Hasil Progress Loading saat Program Dijalankan

Tampilan Hasil Aplikasi Menu Utama

Nah mudah bukan, Pastinya dunk Karena itu Belajar delphi itu menyenangkan *hehehehe karena sudah selesai akhirnya bisa sarapan pagi juga /(^.^”) ehhh tapi tunggu dulu. mau kasih tips juga untuk temen temen yang mau copy paste code program di atas bisa klik icon yang ada pada source codenya – perhatikan gambar dibawah ini.

Setelah dikilk nanti akan mencul note dari web browser temen temen yang bisa temen temen lakukan untuk pengcopyan source codenya. Kalau yang mau liat langsung aplikasi Project Delphinya monggo di download dibawah ini.

Download Materi 11 – Membuat Loading Progress 

Nah itu dulu ya yang bisa saya share pagi hari ini temen temen, sudah waktunya sarapan dan berangkat ngantor lagi *hehehehe menjalani rutinitas harian untuk kehidupan yang lebih baik. Tetep Semangat belajar Delphi temen temen, See You Next Post, Pye Pye.

Thanks & Regards

Read more

0 modul 9 Delphi – Membuat Teks Berjalan

Assalamualaikum Temen Temen Semua. Salam Semangat untuk Hari ini /(^.^”) *hehehehe lama sekali kita vakum dalam pembelajaran kali ini kita mulai lagi belajar kita d(^o^). Kita bakal melanjutkan kan Pembelajaran Pemrograman Borland Delphi 7.0 yang sudah pernah kita bahas dengan materi yang berbeda tentunya /(^.^”).

Nah Untuk Kesempatan Kali ini kita akan membahas bagaimana sih membuat suatu teks Berjalan Dengan Bahasa Pemrograman Borland Delphi 7. Kita akan membuat suatu tampilan yang atraktif untuk sebuat aplikasi atau form dengan adanya teks berjalan. yang pastinya gampang banget *hehehehehe. untuk pembahasan pertama di tahun 2012 ini juga saya akan mencoba memberikan 1 aplikasi yang saya buat untuk materi kali ini. bisa temen temen pelajari dan gunakan yang pastinya keren loch *hehehehe, Monggo DiSimak ya temen temen.

Menggunakan Sebuah Komponen label yang dijadikan teks sebagai objek yang akan berjalan dan juga penggunaan panel untuk batas akhir dan awal landasan label yang akan berjalan. Komponen baru yang akan kita pelajari kali ini adalah komponent Timer dimakan ialah yang akan membantu dalam proses jalannya teks yang ingin kita jalankan.   komponen TIMER ini bisa temen temen lihat pada tab System /(^.^”).

• Pertama Tama Buad Design Form Seperti Di bawah ini

• Ubah Properties Namenya Sebagai Berikut :

Berikut Alur Logika Programnya :

• Pada Saat Program jalan Maka Radio Button Otomatis Checked pada Speed lambat dan teks berjalan ke arah kiri, kalau sudah sampai diakhir kata di bagian kiri kemudian teks kembali ke kanan dan terus menerus seperti itu.
• Jika Radio Button Di Pilih Speed Sedang Maka kecepetan Teks Bertambah Cepat Dibanding Yang Lambat, dan Jika Di Pilih Speed Cepat Kecepatan Teks Berjalan Dengan Cepat.
• Jika Button Keluar Di Klik Maka Akan keluar dari program.

————————————————————————————————————————————

Berikut List Programnya :

1 2 3

var   frm_materi10_teksberjalan: Tfrm_materi10_teksberjalan;   batas_kiri,batas_kanan:integer;

Kita Buat variable untuk menentukan batas kiri dan kanan. Dimana akan kita gunakan sebagai acuan kapan teks itu berganti posisi dan mengulangi perjalanannya /(^.^”).

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure Tfrm_materi10_teksberjalan.Timer1Timer(Sender: TObject); begin     batas_kiri:=panel1.Left-label1.Width;   batas_kanan:=panel1.Left+panel1.Width;     if label1.Left=batas_kiri then     begin       label1.Left:=batas_kanan     end   else     begin       label1.Left:=label1.Left-1;     end;   end;

Ini Code yang digunakan untuk menjalankan teks label yang ada. dimana dalam 1 interval yang dtentukan maka akan menjalankan code berkurangnya posisi left dari label 1 sehingga membuatnya seakan berjalan kedepan :D. jangan lupa kita membatasi perjalanannya agar tidak terus berjalan dan tidak muncul kembali karena itu dibuat batas kiri dan kanan dimana jika label1.left sudah memenuhi batas kiri maka posisi label akan berpindah ke batas kanan sehingga membuatnya mengulangi perjalanan sebatas jalur panel yang sudah disediakan.

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.FormCreate(Sender: TObject); begin     radiobutton1.Checked:=true;   end;

Pada Saat Form Create Maka Radiobutton Otomatis Berada Pada Speed Lambat, Sehingga Menjalankan Label Teks.

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.button_keluarClick(Sender: TObject); begin     Close;   end;

Jika Button Keluar Di Klik Maka Keluar Dari Program.

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.RadioButton1Click(Sender: TObject); begin     timer1.Interval:=200;   end;

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.RadioButton2Click(Sender: TObject); begin     timer1.Interval:=50;   end;

1 2 3 4 5 6

procedure Tfrm_materi10_teksberjalan.RadioButton3Click(Sender: TObject); begin     timer1.Interval:=10;   end;

Merubah Interval Pengerjaan Koding Pada Timer, melalui setting Interval Timer.

Berikut ini adalah Tampilan Aplikasinya Saat Sudah Dijalankan /(^.^”).

Hasil Aplikasi teks Berjalan d(^o^)

Nah Gampang Kan (^o^) tentunya Dunk oleh karena itu belajar delphi itu menyenangkan *hehehehe. Buat temen temen mau liat langsung source code beserta aplikasinya tinggal download di link berikut ya. Tinggal Temen Temen Amati Pelajari dan Modifikasi Sesuai dengan kreatifitas temen temen semua *hehehe.

Download Materi 10 – Membuat Teks Berjalan

Nah Sesuai dengan Janji saya sebelumnya saya akan memberikan juga aplikasi Teks Berjalan Yang Utuh Buatan saya sendiri *hehehehe /(^.^”) ini aplikasi pertama yang saya buat secara utuh dan bisa dijalankan dan dinikmati orang lain *whuhhhh temen temen mesti coba nich. Intinya konsepnya hnya membuat teks berjalan di layar komputer kita untuk kata kata motivasi, pengingat atau apapun itu. Fitur sudah cukup lengkap dari setting font dan size serta kecepatan yang beranekaragam. Ukuran Aplikasinya kecil Kok Temen temen, Berikut Screen Shoot Menu dan hasilnya d(^o^).

Menu Setting nya /(^.^")

Hasil Aplikasi Saat Sudah Di Aktifkan d(^o^)

Untuk Link Downloadnya di Sini : Download Aplikasi Running Text – Eko

Nah Akhirnya Selesai juga materi delphi pertama kita di tahun 2012 ini *hehehehe maaf ya untuk vakumnya diriku terlalu lama. Insya Allah kedepan bisa lebih inten dan aktif lagi nih untuk sharing materi yang saya pelajari. Nah See You Next Post temen temen semua, salam semangat.

Thanks & Regards

Read more

1 modul 8 Mengubah Warna Component Form Pada Delphi 7

AssalamualaikumTemen Temen Semua, Salam Luar Biasa Hari ini. Hari ini saya mau share materi delphi lagi nich. Hal yang akan kita bahas kali ini adalah bagaimana merubah warna suatu component di borland delphi 7. beberapa component yang biasa kita gunakan dalam design form bisa kita rubah warnanya dengan 2 cara : yakni merubah melalui properties di object inspector pada colom tab atau merubahnya menggunakan listing code. untuk saat ini kita akan membahas bagaimana merubah warna component melalui listing code pada Borland Delphi 7.

Untuk component yang akan kita coba ganti warnanya adalah component formnya, jadi kita akan merubah rubah warna form menggunakan component button dengan list code. Langsung saja disimak ya Temen Temen.

Pertama Buat Design Form Seperti Dibawah ini :

Ubah Properties Namenya sebagai Berikut:

Berikut Alur Logika Programnya :

- Pada Saat Program jalan kita bisa memilih button dengan warna yang kita inginkan.

- Jika button warna diklik maka warna dari form akan berubah mengikuti warna yang sudah diset berdasarkan caption button.

- jika button keluar diklik maka akan keluar dari program.

———————————————————————————————————————————————————————-

Berikut List Programnya :

1 2 3 4 5 6

procedure Tfrm_materi9.button_merahClick(Sender: TObject); begin     frm_materi9.Color:=clskyblue;   end;

- Saat Button Merah Di Klik layar nanti layar berubah jadi biru langit *hahaha salah tulis penamaan button ” Gomenne”

1 2 3 4 5 6

procedure Tfrm_materi9.button_navyClick(Sender: TObject); begin     frm_materi9.Color:=clnavy;   end;

- Saat button Navy diklik nanti warna form berubah menjadi Biru Navy

1 2 3 4 5 6

procedure Tfrm_materi9.button_greenClick(Sender: TObject); begin     frm_materi9.Color:=clgreen;   end;

- Jika Button Green Di Klik Maka Form Menjadi Warna Hijau Gelap

1 2 3 4 5 6

procedure Tfrm_materi9.button_maroonClick(Sender: TObject); begin     frm_materi9.Color:=clmaroon;   end;

- Saat Button Maroon Di Klik Maka Form berubah warna menjadi merah maroon.

1 2 3 4 5 6

procedure Tfrm_materi9.button_oliveClick(Sender: TObject); begin     frm_materi9.Color:=clolive;   end;

- Saat Button Olive di klik makan warnanya berubah jadi warna Olive.

1 2 3 4 5 6

procedure Tfrm_materi9.button_yellowClick(Sender: TObject); begin     frm_materi9.Color:=clyellow;   end;

- Saat Button Yellow Di Klik Warna Form menjadi warna kuning.

1 2 3 4 5 6

procedure Tfrm_materi9.button_purpleClick(Sender: TObject); begin     frm_materi9.Color:=clpurple;   end;

- Jika Button Purple di klik Warna form berubah warna Ungu *hahahaha.

1 2 3 4 5 6

procedure Tfrm_materi9.button_redClick(Sender: TObject); begin     frm_materi9.Color:=clred;   end;

- Jika Button Red di klik maka warna form menjadi warna Merah.

1 2 3 4 5 6

procedure Tfrm_materi9.button_blueClick(Sender: TObject); begin     frm_materi9.Color:=clblue;   end;

- Saat Button Blue di klik maka warna form menjadi warna biru.

1 2 3 4 5 6

procedure Tfrm_materi9.button_climeClick(Sender: TObject); begin     frm_materi9.Color:=cllime;   end;

- Jika Button Clime Di Klik Maka Warna berubah jadi warna Clime

1 2 3 4 5 6

procedure Tfrm_materi9.button_keluarClick(Sender: TObject); begin     close;   end;

- Saat Button Keluar diklik makan akan keluar dari program

Ini hasil Button Green Saat Di Klik

Saat Button red Di Klik

ini Warna Blue Sky

Nah Mudah sekali kan temen temen, berikut ini list warna yang tersedia yang bisa rubah sesuka hati :

List And Preview Warna Pada Delphi 7.0

Nah Gampang Kan, Pastinya dunk. Yah itu dulu ya Temen Temen untuk Share Kali ini *hehehehe dah lumayan ngantuk nich -,- . tetap ditunggu saja materi lainnya untuk tutorial diblog ini. Nah bagi yang mau coba liat langsung projek materi ini bisa langsung download di link dibawah ini ya. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :

Download project 9 – Mengubah Warna Componen Form Pada Delphi 7.

Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. See you next Tutorial ya, Salam Luar Biasa.

Read more

0 modul 7 Mengenal Operator Aritmatika Pada Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa Malam ini. Hmmmm Hari ini Pengen Share Lagi Lagi dan Lagi *hihiihihi kalau kata Sponge Bob Aku Siap Aku Siap Aku Siap.

Nah kesempatan kali ini masih berkutat dengan pembelajaran Delphi nich. Untuk Kategori tutorial materi lain masih dalam penyiapan materi dan ide ide. jadi jangan bosen belajar Delphi disini  ya . Untu Materi Kali ini meneruskan Materi sebelumnya yang sudah kita bahas yakni mengenal tipe data pada delphi untuk saat ini kita akan mengenal Operator Aritmatikanya nich, mari disimak ya.

Operator Aritmatikan mempunyai fungsi untuk melakukan suatu proses aritmatika yang dapat meliputi penambahan, pengurangan, perkalian, pembagian dan fungsi fungsi aritmatika lainnya. *hmmmm ini dilakukan untuk mengubah nilai suatu variable yang nantinya akan menghasilkan nilai yang baru. kemarin kita sudah membahas mengenai operator penambahan atau ” + ” nah kali ini kita lengkapi Operator Operator yang tersedia sekalian memberikan latihan latihan guna memperlancar bahasa pemograman delphi kita.

Berikut ini adalah Tipe Operator Aritmatika dalam Bahasa Pemograman Borland Delphi :

Berikut Contoh Hasil Penggunaan Operator Aritmatika Diatas :

Nah Langsung Aja Kita Praktek ya, Pertama Kita buat form design sebagai berikut :

Ubah Properties Namenya Sebagai Berikut :

Berikut Alur Logikanya :

- Nilai 1 dan Nilai 2 diisi manual oleh user.

- Pada Saat Button Tambah diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan penambahan nilai 1 dan nilai 2.

- Pada Saat Button Kurang diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengurangan nilai 1 dan nilai 2.

- Pada Saat Button Kali diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.

- Pada Saat Button Bagi diklik maka nilai 1 dan nilai 2 berubah menjadi nilai real, kemudian nilai hasil ditampilkan pengalian nilai 1 dan nilai 2.

- Pada Saat Button Div diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil div nilai 1 dan nilai 2.

- Pada Saat Button Mod diklik maka nilai 1 dan nilai 2 berubah menjadi nilai integer, kemudian nilai hasil ditampilkan hasil Mod nilai 1 dan nilai 2.

- Jika Button Keluar diklik maka akan keluar dari program.

———————————————————————————————————————————————————————

Berikut list Programnya :

1 2 3 4

var   frm_materi8: Tfrm_materi8;   a,b,c:real;   d,e,f:integer;

Buatlah Variable Dengan tipe data seperti Di atas.

1 2 3 4 5 6 7 8 9 10 11

procedure Tfrm_materi8.button_tambahClick(Sender: TObject); begin     a:=strtofloat(edit_nilai1.Text);   b:=strtofloat(edit_nilai2.Text);     c:=a+b;     edit_hasil.Text:=floattostr(c);   end;

1 2 3 4 5 6 7 8 9 10 11

procedure Tfrm_materi8.button_kurangClick(Sender: TObject); begin     a:=strtofloat(edit_nilai1.Text);   b:=strtofloat(edit_nilai2.Text);     c:=a-b;     edit_hasil.Text:=floattostr(c);   end;

1 2 3 4 5 6 7 8 9 10 11

procedure Tfrm_materi8.button_divClick(Sender: TObject); begin     d:=strtoint(edit_nilai1.Text);   e:=strtoint(edit_nilai2.Text);     f:=d div e;     edit_hasil.Text:=inttostr(f);   end;

1 2 3 4 5 6 7 8 9 10 11

procedure Tfrm_materi8.button_kaliClick(Sender: TObject); begin     a:=strtofloat(edit_nilai1.Text);   b:=strtofloat(edit_nilai2.Text);     c:=a*b;     edit_hasil.Text:=floattostr(c);   end;

1 2 3 4 5 6 7 8 9 10 11

procedure Tfrm_materi8.button_bagiClick(Sender: TObject); begin     a:=strtofloat(edit_nilai1.Text);   b:=strtofloat(edit_nilai2.Text);     c:=a/b;     edit_hasil.Text:=floattostr(c);   end;

1 2 3 4 5 6 7 8 9 10 11

procedure Tfrm_materi8.button_modClick(Sender: TObject); begin     d:=strtoint(edit_nilai1.Text);   e:=strtoint(edit_nilai2.Text);     f:=d mod e;     edit_hasil.Text:=inttostr(f);   end;

1 2 3 4 5 6

procedure Tfrm_materi8.button_keluarClick(Sender: TObject); begin   close;   end;

Nah Gampang Kan, Pastinya dunk. Yah itu dulu ya Temen Temen untuk Share Kali ini *hehehehe dah lumayan ngantuk nich -,- . tetap ditunggu saja materi lainnya untuk tutorial diblog ini. Nah bagi yang mau coba latihan untuk materi Operator  Aritmatika ini temen temen bisa download latihan materi ini dilink dibawah ini. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :

Download Latihan 8 – Mengenal Operator Aritmatika Pada Delphi 7 pdf.

Download project Latihan 8

Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. See you next Tutorial ya, Salam Luar Biasa.

Read more

0 modul 6 Mengenal Tipe Data Di Delphi 7

Selamat Malam Temen Temen Semua, *hehehehehe Salam Luar Biasa tak lupa saya sampaikan. Hmmm Abis kalo nurutin kehendak hati yang lemes ini kayaknya gak semangat nich.

Jadi Saya Suka menyemangati diri sendiri \(^o^\) (/^0^)/ semangat semangat *hihihiihi (stress mode on) maklum abis kehujanan nich. Nah Temen Temen semua malam ini saya coba sharing lagi nich pengetahuan tentang delphi untuk sama sama belajar dan mengenal pemrograman delphi dengan lebih baik lagi. Sok Monggo Kita Belajar Bersama Disini, Hari ini saya mau bahas mengenai tipe data di Delphi.

Secara Simplenya sich yang namanya tipe data itu istilah tempat untuk menentukan / memberikan nilai suatu variabel sesuai dengan nilai yang diberikan oleh seorang User. atau istilah lainnya batasan pengenal untuk semua nilai yang diterima oleh program / aplikasi. Contoh Mudahnya begini nich jika kita pengen menambahkan angka atau harga suatu barang dalam aplikasi delphi, jika kita memberikan tipe data string ( kalimat / alphanumerik ) maka hal tersebut akan ditolak karena nilai tidak dapat ditambah karena tidak sesuai dengan tipe data yang harusnya ada.

Berikut Macam Macam Tipe Data Di Delphi :

1. Tipe Data Integer merupakan tipe data bilangan bulat yang hanya mengenal bilangan decimal dan tidak dapat mengenal bilangan pecahan. bentuk umumnya sebagai berikut :

          Var

               Nilai_1:integer;

          begin

               Nilai_1:100000;

2. Tipe Data Real merupakan tipe data bilangan yang mengenal bilangan bulan dan juga bilangan pecahan, jadi kalau urusan pembagian yang jawabannya pecahan kita kalau bisa pake tipe data ini temen temen. Bentuk Umumnya Sebagai Berikut  :

          Var

               Nilai_2: Real;

          Begin

               Nilai_2: 10,5;

3. Tipe Data Char merupaan tipe data yang sama dengan String berupa nilai Anumerik, hanya berbeda dari kapasitas ruang dari datanya kalau Tipe Data Char hanya mengenal 1 Karakter saja

4. Tipe Data String Merupakan Tipe data yang isinya berupa Anumerik yang tidak dapat diberikan operator perhitungan karena bukan bersifat numerik value. Berikut Bentuk Umumnya

          Var

               Nilai_3: String;

         Begin

               Nilai_3: ‘Eko Wardoyo’;

Dalam Delphi Default Tipe data yang tampil di form Adalah Berupa String, Jadi kalau mau membuat fungsi operator atau penambahan,pengurangan,kali,bagi kita harus merubah tipe datanya dulu menjadi Tipe data numerik bisa Real / Integer. Untuk Perintah untuk merubah Tipe data Sebagai Berikut :

strtofloat : untuk merubah tipe data string ke tipe data Real.

strtoint     : untuk merubah tipe data string ke tipe data integer.

floattostr  : untuk merubah tipe data real ke tipe data string.

inttostr     : untuk merubah tipe data integer ke tipe data string.

untuk menampilkan teks dalam edit box, combo_box, ataupun memo borland delphi hanya mau menampilkan tipe data yang string jadi jika kita mau memberikan fungsi penggantian tipe data ke Real / Integer. dan pada saat mau kita tampilkan kembali kita harus merubahnya kembali menjadi string untuk ditampilkan.

berikut Materi Merubah Tipe Data : Buat Tampilan Form Sebagai Berikut

Ubahlah Properties Name nya Sebagai Berikut :

Berikut Alur Logikanya :

- pada Saat Program Berjalan Kita Akan Memasukkan Nilai 1 dan Nilai 2 dengan angka / Numeric untuk melihat hasil penjumlahannya

- Pada Saat Button_tambah diklik maka hasil akan memberikan nilai hasil dari Nilai 1 di tambah Nilai 2.

- Pada Saat Button_Bersih diklik maka akan membersihkan nilai 1 dan nilai 2.

- Pada Saat Button_Keluar di klik maka akan keluar dari program.

——————————————————————————————————————————————————————————

Berikut List Code Programnya :

1 2 3 4 5 6 7 8 9 10 11

procedure Tfrm_materi7.button_tambahClick(Sender: TObject); begin     a:=strtoint(edit_nilai1.Text);   b:=strtoint(edit_nilai2.Text);     c:=a+b ;     edit_hasil.Text:=inttostr(c);   end;

a,b,c adalah variable penamaan dari nilai yang muncul pada edit box di delphi. karena kita mau membuat penjumlahan maka kita akan mengubah tipe data dari default string menjadi tipe data integer. dengan memberikan penamaan sementara dan kode perubahannya strtoint yakni merubah tipe data string menjadi integer. Pada Saat menampilkan c kita merubah kembali tipe data c yang tadinya integer menjadi string karena Tampilan default pada editbox delphi adalah string.

1 2 3

var   frm_materi7: Tfrm_materi7;   a,b,c:integer;

jika kita menggunakan penamaan variable maka jangan lupa untuk menambahkan tipe data dari variable di code list delphi Var seperti diatas. temen temen bisa scroll up unitnya dan cari tulisan seperti diatas var kemudian ditambahkan dengan format variable_1 , Variable2 : tipe data;

1 2 3 4 5 6 7 8

procedure Tfrm_materi7.button_bersihClick(Sender: TObject); begin     edit_nilai1.text:='';   edit_nilai2.text:='';   edit_hasil.Text:='';   end;

Pada Saat Button Bersih diklik maka akan menghapus seluruh teks pada edit box.

1 2 3 4 5 6

procedure Tfrm_materi7.button_keluarClick(Sender: TObject); begin     close;   end;

Pada Saat Button Keluar di klik maka akan keluar dari program. Berikut Tampilan Saat Dijalankan :

saat klik tambah muncul hasil nilai1 + nilai2

Saat Bersih Di Klik Seluruh Teks Hilang

Nah Gampang Kan, Pastinya dunk. Untuk Pertemuan Berikutnya kita akan membahas keseluruhan dari fungsi operator yang kalau saat ini baru kita coba operator penambahan aja ” + “. Nah bagi yang mau coba latihan untuk materi tipe data ini temen temen bisa download latihan materi pdf atau liat langsung project Latihan 7 ini bisa di download dilink dibawah ini. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :

Download Latihan 7 – Mengenal Tipe Data pada Delphi pdf.

Download Project Latihan 7

Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. Oooooo iya kedepan kita akan memberikan katergori tambahan nich gak cuma belajar delphi aja tapi ada kategori belajar lainnya ya ditunggu Saja.

Thanks & Regards

Read more

0 modul 5 Percabangan Case Pada Combo Box – Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa untuk pagi ini. Terbangun dari Tidur memberikan kesempatan untuk membuat materi Blog ini lagi *hehehehe. Kalau Kemarin Kemarin Kita Sudah Belajar Fungsi Percabangan IF Pada Borland Delphi 7 kali ini kita pakai percabangan versi lainnya yakni Menggunakan Percabangan Case Of.

Namun untuk saat ini saya mengkhususkan untuk percabangan Case pada Combo Box. Apa beda percabangan case dengan if, jika percabangan if lebih mengedepankan pernyataan statement yang jelas kondisinya pada Fungsi Case kita memberikan percabangan berdasarkan Kriteria Integer, Artinya Fungsi Case Hanya Menerima untuk kondisi kondisi yang dimana menggunakan tipe data Interger atau aritmatika.

*hmmmm kita belum bahas Tipe Data dalam delphi ya *hihihi. Okelah Nanti kita akan bahas, nah untuk materi ini kita belum akan menggunakan fungsi variable integer pada Fungsi Case ini, Kenapa ?? karena kita akan membuat percabangan case pada combo box dimana sudah tersedia jenis data integer pada properties namenya. Monggo Disimak.

Bagaimana Combo Box punya tipe data Integer padahalkan kita kalau mengisi Itemsnya selalu menggunakan Kata kata /(^o^’), Tidak lain dan tidak bukan ialah karena kita menggunakan properties items index atau urutan dari isi combo box tersebut, karena ia berbentuk aritmatik dan termasuk tipe data integer jadi bisa kita gunakan fungsi Case Of. *hmmmm Bingung Kan, Ayo langsung Praktek Aja.

Buat Form Design Sebagai berikut :

Ubah Properties Namenya Sebagai Berikut :

Untuk Properties Frm_materi6 saya menambahkan penggantian pada Position menjadi Po Desktop Center yang tujuannya pada saat frm_materi6 dijalankan maka akan muncul di tengah layar desktop temen temen semua, jadi terlihat lebih rapih dan terposisi dengan baik.

Berikut Alur Logika nya :

- Pada Saat Program Dijalankan Maka Combo Box Akan Terisi NIM 11110216, 11110219, dan 11062142 dengan menggunakan code program.

- Pada Saat Combo Box Di Klik dan dipilih maka akan terkoneksi dengan fungsi Case dimana jika ia urutan dengan index sebagai berikut :

0 :  maka edit_nama akan muncul teks : Radjanta Ashari

1  :  maka edit_nama akan muncul teks : Eko Wardoyo

2  :  maka edit_nama akan muncul teks : Eriyanah Caswati

- Jika Button Keluar Di Klik maka akan keluar dari program

————————————————————————————————————————————————————————-

Nah Berikut Code Programnya :

1 2 3 4 5 6 7 8

procedure Tfrm_materi6.FormCreate(Sender: TObject); begin     combo_nim.Items.Add('11110216');   combo_nim.Items.Add('11110219');   combo_nim.Items.Add('11062142') ;   end;

Pada Saat Program Dijalankan maka combo box terisi beberapa Items dari NIM :

1 2 3 4 5 6 7 8 9 10

procedure Tfrm_materi6.combo_nimClick(Sender: TObject); begin     case combo_nim.ItemIndex of     0:edit_nama.Text:='Radjanta Ashari';     1:edit_nama.Text:='Eko Wardoyo';     2:edit_nama.Text:='Eriyanah Caswati';   end;   end;

Pada Saat Combo_Nim di klik maka akan menjalankan percabangan Fungsi Case combo_nim.itemindex of : dimana itemindex merupakan penamaan dari urutan isian Combo Box Nim dimana urutan pertama akan diawali dengan index 0, jadi urutan paling atas memiliki index 0. nah jika index yang dipilih adalah 0 maka akan muncul teks nama yang sudah kita atur sebelumnya. untuk fungsi percabangan Case Of maka kita harus diakhir / ditutup dengan perintah End; untuk mengakhiri fungsi Case.

1 2 3 4

procedure Tfrm_materi6.button_keluarClick(Sender: TObject); begin</p> <p style="text-align: justify;">close;</p> <p style="text-align: justify;">end;

Pada Saat Button Keluar Di Klik Maka akan keluar dari program. Berikut Tampilan Hasil Form Setelah Dijalankan :

Combo Terisi pada saat program dijalankan

Funsi Case dijalankan dengan index dari combo Box

Nah Mudah kan Temen Temen Semua, Belajar Delphi Memang Mudah Kok *hehehe. Siapa ada kemauman pasti ada jalan yang akan ditempuh untuk menggapainya. Nah buat temen temen yang mau mencoba latihan dari materi ini bisa download materi percabangan case pada combo box Delphi 7 di link dibawah ini. untuk memperlancar materi yang sudah kita sampaikan dan memberikan beberapa materi tambahan yang bisa temen temen coba, jika ada kesulitan dalam pengerjaan bisa langsung lihat dari code program yang juga sudah saya siapkan dalam file tersebut.

Download Latihan 6 – Percabangan Case Pada Combo Box – Delphi 7 pdf

Download Project Latihan 6

Nah itu dulu yang bisa saya share pada kesempatan pagi ini, mudah mudahan kedepan bisa berbagi lagi di blog ini. Kutak Kutik bermanfaat buat kita bersama. Nah See You Next Lesson ya Temen Temen Semua, Salam Luar Biasa.

Read more