Malam itu di Siera

Malam itu sapaan angin lembut mengantarkan langkah kita ke Siera. Bukit indah dengan percikan cahaya bintang di langit lembang yang selalu ku rindukan. Aku juga selalu merindukan saat itu, saat dimana aku duduk dihadapanmu dengan pantulan cahaya lilin yang membuat suasana semakin hangat. I like this time, setiap detik yang kulihat hanya senyum manismu yang selalu melelehkan bekunya hati angkuhku.

Aku ingat, ketika aku mencoba makanan yang menurutku aneh, kamu hanya tertawa renyah dengan setiap celotehku, tapi sesungguhnya yang kurindukan hanya tawamu.  Tawa yang mungkin takkan ku lihat lagi apalagi dengan jarak sedekat itu. Ah..Siera! Andai saja waktu bisa ku hentikan ketika itu, aku akan memelukmu dengan erat dan berharap takdir bisa membawa kita kedalam semua cerita indah yg kita inginkan.

Pemandangan temaramnya hamparan cahaya lampu kota bandung malam itu, semakin mengantarkan kita pada lamunan panjang tentang kebahagiaan. Kita saling melempar canda, yang sesungguhnya untuk menyembunyikan kesedihan masing-masing dari kita. Kita mempunyai rasa takut yang sama. Sama-sama takut kehilangan, sama-sama takut terpisah, dan sama-sama takut untuk menyadari kebenaran yang akan kita hadapi.

Waktu itu, hatiku yang selalu berpura pura kuat akhirnya rapuh. Ada getaran yang kurasakan pilu menyayat haru. Sesungguhnya, kebersamaan singkat ini tidak ingin ku lewati dengan begini rumitnya. Jikapun salah satu dari kita harus pergi, hati kita tetap bersama.

Jikapun salah satu dari kita tidak bisa bertahan, berjanjilah untuk tidak saling menyakiti. Karena pernah ada ribuan detik yang pernah bahagiakan kita. Meski salah satu dari kita harus berhenti berkhayal, tetapi aku yakin dongeng indah yang telah kita rangkai, akan menjadi bingkai pelangi yang mampu menyejukan setiap jiwa jiwa yang merasakan.

Ah..Siera! Aku selalu ingat tatapannya yang mengiris hati. Meski malam itu indah, bintang-bintang tersenyum merekah, dan langit kota yang cerah, tapi tidak dengan kedua hati kami. Ada ribuan sakit yang sebenarnya sedang kita rasakan, kepedihan tentang kenyataan dan sebuah pertemuan yang sesungguhnya untuk perpisahan.

Siera! Malam itu, kita sudah menyerah pada takdir. Kita akhirnya menerima apapun yang digariskan waktu. Meski berat, tapi peran kita dalam cerita indah ini sudah sangat hebat.
Kita berdua sudah berjuang keras untuk merubah keadaan, kita berdua pernah mencoba saling membahagiakan. Meski pahit, kita sadar inilah akhirnya.

Malam semakin larut, langkah kita pergi meninggalkan siera, seperti hati, jiwa dan raga kita, yang ikut pergi, hilang di kegelapan bersama impian impian kita tentang masa depan. Masing-masing dari kita saling merelakan kenyataan. Perpisahan ini harus kita terima, karena tidak mudah menghidupkan impian kita tentang kebersamaan.

Selamat tinggal untuk kamu. Hati kami sudah kami simpan di bukit siera agar bisa tersenyum berdua disana. Yang kami bawa adalah hati batu yang perasaannya sudah mati. Dan hati inilah yang kini sudah menerima perpisahan ini. Ingatlah, ada dua hati yang tertinggal bahagia di siera. Dan kita yang sekarang, yang terpisah ini, harus bahagia bersama ataupun tanpa hati kita itu.

Bandung, 2013

Celoteh subuh di Paris Van Java

Alarm di Hpku berbunyi keras, aku tersentak dan seketika terbangun. Ada tali keras melingkar di depan badanku dan ternyata seatbelt. Huft.. aku tersadar telah tertidur di mobil yang sedari malam tadi melesat menuju Bandung. "Gimana tidurnya? Nyenyak? " Tanyanya. Aku hanya melirik. " Ini sudah nyampe mana?" aku bertanya balik tanpa menjawab pertanyaannya soal tidurku. "Kita udah di Bandung, tapi..." sebelum dia melanjutkan jawabannya aku potong. "Tapi seperti biasa. Kamu masih muter-mute nyari jalan ke Mesjid Agung hahhaa". Aku yang baru bangun langsung menyindirnya dengan tertawa sinis. Belum lama kita bicara soal "muter-muter" Bandung. Hpnya yang berwaran merah berdering. Dilanjutkan dengan sapaan khasnya untuk rekan kerjanya yang dipastikan bakal bicara lebih dari 5 menit. Itu tandanya fokus dia menyetir akan hilang 5 menit karena tersita oleh percakapan di ponsel itu.

Aku hanya membetulkan dudukku dengan memajukan jok depan. Dari semenjak mobil itu melaju hingga tiba di Bandung, dia selalu sibuk dengan telepon-telepon "kerja"nya yang ku anggap dongeng sebelum tidur yang bisa mengantar kantukku.
Tidak lama aku menggoyang-goyangkan lengannya. Dia menoleh, dan aku menunjukan sebuah bangunan megah yang ada di kiri jalan. Bangunan yang mempunyai menara sangat tinggi dengan halaman yang luas. Aku memberi isyarat untuk berhenti. Akhirnya kita sampai di Masjid Agung Bandung yang indah.

Mobil telah terparkir di depan Masjid dan dia belum selesai berbicara dengan client nya. Perlahan ku lepas seatbelt. Kurapikan jilbab dan kulirik sekali lagi lelaki yang dari tadi asik dengan Hp di telinganya.  Tangannya hanya melambai-lambai menyuruhku turun duluan.


Aku mulai kesal, kulangkahkan kakiku ke halaman masjid. Subhanallah... udara sejuknya menyapa. Disekitar masjid telah banyak orang-orang dengan kesibukannya. Aku lepas sandal dan turun ke tangga bawah untuk wudhu. Sungguh, rasa nyaman ini telah menawan hatiku, damai dan khusuk suasananya. Aku mensyukuri keindahan rumah Allah ini dengan beberapa raka'at di penghujung malam di Paris Van Java ini. Kuraih ponselku yang bergetar, kulihat nama yang sangat ku kenal di layar Hp. Aku beranjak dari sajadah cantik yang sedari tadi kududuki.

Setibanya di mobil, sudah tersedia beberapa bungkus makanan. Dia tersenyum manis dan bilang "Selamat sahur". Ku balas dengan  senyuman sinis-seperti biasa.
Sambil makan dia mulai bicara. "kamu mau tinggal di Bandung ga? Enak yah di sini?"Tanyanya.
"Engga, aku mau tinggal di Luar negeri, belajar culture yg berbeda, nikmatin musim-musim yg berbeda, dan aku mau sesekali merasakan jadi muslim minoritas, katanya jadi muslim minoritas itu bisa menambah keimanan kita." jawabku panjang.
"Oh...yang rajin yah kuliahnya" sahutnya. Aku mengangguk sambil mengunyah makanan.
"Menurut kamu, aku egois ga sih kalau pengen mimpi aku yang tadi itu jadi nyata?" Tanyaku.

"Loh..egois apanya? Kamu tuh ya, kalo mimpi jangan cuma satu, jangan tanggung-tanggung. Hidupkan mimpi kamu itu, hidupkan hidup kamu dengan mimpi kamu. Engga ada yg bakal aku larang." Tandasnya.
Mataku berbinar, "aku kan perempuan?" Sanggahku.
"Ada aturan yg punya mimpi itu perempuan atau laki-laki? Tanya aja setiap kedutaan besar di indonesia, ada ga larangan perempuan pergi ke luar negeri?". Aku menggeleng. Dia meneruskan ucapannya.
"Kamu itu perempuan, kamu harusnya sekolah yang tinggi, cari pengalaman yang banyak, punya banyak relasi, banyak menjelejah luar rumah, karena apa? Karena kamu itu calon ibu, kamu yang akan menjadi madrasah pertama bagi mereka,  yang akan lebih banyak mendampingi anak-anaknya di masa-masa pertumbuhan mereka.
"Seorang ibu adalah pendidik pertama dan utama untuk anak-anaknya, oleh karena itu, sebagai ibu kita perlu mengupgrade diri tiap hari agar bisa mendidik anak-anak  sesuai dengan zaman di mana mereka hidup. Selain membuat mereka bangga, seorang ibu itu harus punya pengalaman utk kehidupan yg tidak biasa, harus dinamis, dan  satu lagi, kamu harus bisa menularkan semangat bermimpi kamu". Jelasnya. Aku senyum. 
Aku balik bertanya, " aku bisa ga yah jadi seorang ibu?" 
"Kamu udah tau kan orang tua yg baik sama orang tua yang engga baik?" Aku mengangguk. 
"Engga usah d sebutin, kamu pasti tau, yang jelas KITA TIDAK BISA MILIH MAU PUNYA ORANGTUA SEPERTI APA, tapi kita bisa menentukan MAU JADI ORANG TUA SEPERTI APA KITA NANTI" tutupnya sembari minum.

Aku hanya mendengar sambil mencerna setiap ucapannya, tangannya menyodorkan susu kesukaanku. "Abisin ya susunya" pinta dia.
Perbincangan kita di tutup dengan kumandang adzan subuh. Kita bergegas berjamaah sholat subuh dan setelah itu kita akan melanjutkan perjalanan ke arah Sukajadi utk kesuatu acara.Seperti biasa, sepanjang jalan dia menyetir sambil terima telpon dan aku sibuk menengok ke luar jendela dengan tetap menumpukkan mimpi mimpiku yang banyak. Setidaknya, ucapan di sahur tadi sudah membuatku bangkit dari fikiran salah yg selalu memojokan diriku yg notabenenya-perempuan.

Pasangan, pernikahan, dan mimpi kita tetap bisa berjalan beriringan. Hubungan sejatinya berguna utk membangun sesuatu yang susah payah di bangun sendiri. Hubungan seharusnya bisa menjadi cambuk dukungan yang akan mempermudah kita meraih semua yg kita inginkan. 
Ah Bandung, bukan aku tidak mau tinggal lama disini, tapi masih banyak tanah-tanah cantik di dunia ini yg belum ku singgahi.

Sahabat

Dalam hidup ada orang yg dikirim Tuhan utk singgah dalam cerita kita. Lama atau sebentar. Baik atau tidak. Perempuan atau laki-laki. Menyenangkan atau menyedihkan. Semua hanya kriteria yg diciptakan secara sengaja oleh sang pencipta. 

Ada orang-orang yg sempat jadi orang yg paling kita percaya selama beberapa lama. Ada orang yg tiba-tiba benci dengan semua hal yg kita lakukan. Ada juga orang yg tidak kita inginkan hadir utk menjatuhkan semangat kita. 

Apa yg kamu fikirkan tentang mereka? Apakah mereka menguntungkan utk hidupmu? Apakah mereka tidak begitu penting karena hanya memberikan cerita pahit? Atau kamu berfikir kenapa kmu bisa kenal mereka?

Tapi apakah kamu tau? Tuhan telah mengatur sedemikian rupa skenario dan alur cerita hidupmu utk membuat kamu mengerti. Tuhan mengirimkan orang-orang yg bisa membuat kamu tersenyum dan tertawa supaya kamu mengerti pentingnya kebahagiaan. Tuhan juga me"mampirkan" orang yg membuat kamu menangis dan sakit hati supaya kamu terbiasa melewati kepahitan, airmata, dan artinya kepedihan.

Tidak ada yg kebetulan, tidak ada yg tidak sengaja. Semua sudah dicatat dan direncanakan oleh Tuhan bahkan sebelum kamu lahir. Apa yg bisa kita lakukan? Hanya menjalankan peranmu sebaik mungkin. Jadilah peran yg disukai, peran yg selalu bisa membuat orang lain bahagia, dan peran yg bisa menyikapi lawan main yg tidak diharapkan. 

Seiring waktu berlalu, orang-orang akan tetap seperti itu. Entah yg baik atau tidak,  mereka akan datang silih bergantian, berbeda-beda setiap waktu terus menerus sesuai apa yg sudah direncanakan Tuhan. 

Tetapi ada orang-orang yg tetap ada dihidupmu, setia dengan kisahmu, bertahan dengan perubahan hidupmu, mereka bisa mempunyai ke 2 peran yg berbeda. Sebagai orang yg mengingatkanmu ketika kmu salah dan sebagai orang yg selalu support apapun yg kamu inginkan meskipun harus meninggalkannya. Dalam waktu yg lama, dalam cerita pahit dan manismu.

Dialah sahabat. Orang yg sudah disediakan Tuhan utk senantiasa mengingatkanmu arti hidupmu, orang yg akan selalu membuatmu bersyukur, dan dia akan siap kapan saja mendengarkan keluh kesahmu, dan menasehatimu dimanapun kamu berada.

Dialah sahabat, jauh ataupun dekat, Sahabat tetaplah Sahabat.

Simbol-simbol yang bisa digunakan untuk pemrograman web

Beberapa simbol yang bisa digunakan di pemrograman web

1.      Untuk menamai  tab di mozilla :   Contoh  à <title> pemrograman 4 </title>

2.      <hr> : horizontal line. Jika ditulis hasilnya akan : seperti ini____________________________

3.      Untuk menambah warna :  <body style = “backrground-color :yellow”>  warna bisa disesuaikan ya!

4.      Symbol pemrograman web

& (ampersand)                  = &amp;

<(less than)                        =&lt;

>(greater than)                  =&gt;

(non breaking sapce)       =&nbsp;

Dollar (cont)                      =&cent;

£(pound)                             =& pound;

¥ (yen)                                 =&yen;

© (copyright)                     =&copy;

®(registered trademark)  =&reg;

° (degree)                           = &deg;

± (plusminus)                     =&plusminus;

+(dagger)                            =&dagger;

™ (trademark)                   =&trade;

Visual Basic 2010

Rumus untuk  pemangkatan

1.     Rumus

Module modAssignment

Sub Main()
 Dim exponent As Integer ' power input by user
 Dim result As Integer ' number to raise to a power

 ' prompt user for exponent
 Console.Write("enter an base number: ")
 result = Console.ReadLine()

 Console.Write("Enter an integer exponent: ")
exponent = Console.ReadLine()
 
 result ^= exponent ' same as result = result ^ exponent
 Console.WriteLine("result ^= exponent: {0}", result)

 result = result ^ exponent
 Console.WriteLine("result = result ^ exponent: {0}", result)
 Console.ReadKey()

 End Sub ' Main
 End Module ' modAssignment

2.            Hasil / output

Setelah di run muncul gambar seperti ini              command prompt: akan muncul sebuah perintah yaitu :” enter an base number :” yang artinya ‘masukan angka dasar:’

Maka masukan angka yg anda inginkan

Misalkan anda masukan angka 4, maka hasilnya akan seperti gambar di bawah ini :

Ketika kita memasukan angka dasar 4, dan  pemangkatannya 3, maka program akan menghitung seperti berikut:

4³= 4 x 4 x 4 =64 , and than program akan bekerja kembali untuk pemangkatkan hasil yg tadi . jadi, ketika 4³ = 46, makan 46 akan di pangkatkan lagi dengan bilangan itu sendiri yaitu 46⁴⁶ =262144

Bahasa dan Otomata

Bahasa dan Otomata

Bahasa Formal adalah kumpulan kalimat (grammar)

Otomata (automata)

Adalah mesin abstrak yg dapat:

-mengenali (Recognize)

-menerima (Accept)

-Membangkitkan (generate)

Sebuah kalimat dalam bahasa tertentu.

Beberapa pengertian dasar:

-simbol adalah :enititas yg abstrak ex:Angka dan huruf

-string adalah :deretan terbatas (finite) simbol

Ex:3 buah simbol a,b,c

Bisa menjadi :aabbcc,bisa acbb,aabc dll.

-string hampa adalah :string dg nol buah simbol yg dinyatakan dg simbol ∑ atau (^)

-alfabet  adalah himpunan hingga (finite set) simbol-simbol2

OPERASI DASAR HITUNG

Diberikan 2 string ex: x=abc

Dan y=123

·        Prefik string :string yg dihasilkan dari W dg menghilangkan nol atau lebih simbol2 paling belakang dari string w

Hasil abc,ab,a ..prefik (x)

Proper Prefik ,menghilangkan satu atau atau lebih simbol paling belakang

Ab,a, ..proper prefik (x)

·        Postfix  string(sufix)

Hasil :abc,bc,c

·        Proper postfix

Ex:bc,c

·        Head string   w ex:simbol paling depan dari string w contoh :a, a adalah (x)

·        Tail string :menghilangkan simbol paling depan

Ex:bc adalah tail string (x)

·        Concatenitaion, penyambungan/penggabungan 2 buah string

Concat (x dan y)= abc123

·        Alternation ,pilih salah satu dari 2 string                                              Alternatif  (xy)=x/y hasil abc atau 123

·        Substring :menghilangkan o atau lebih simbol yg depan atau yg belakang

Hasil :abc,ab,bc,a,b,c

·        Subsquance :menghilangkan o atau lebih simbol dari string

Hasil :abc,ab,bc,ac,a,b,c

Borland Delphi 7

03-26-2011, 04:53 PM

1.PERKENALAN BORLAND DELPHI 7

1,1.Tentang Delphi 7

Borland Delphi adalah program aplikasi data base yang berbasis object pascal dari Borland. Untuk lebih cepatnya memahamir Delphi maka diharapkan Anda mempelajari bahasa computer Turbo Pascal.terlebih dulu.

1.2. Memulai pemakaian Delphi

Langkah –langkah untuk memulai program Delphi adalah sebagai berikut:
1.Nyalakan computer, tunggu sampai muncul desktop.
2.Klik tombol Start yang berada di taskbar.
3.Pilih menu Program
4.Pilih dan klik Borland Delphi 7, lalu klik Delphi 7, tunggu sampai muncul jendela Aplikasi Delphi 7..

1.3. Form

Form adalah suatu jendela untuk menempatkan komponen – komponen untuk pembuatan sebuah aplikasi (program) atau juga disebut project.

1.4. Membuat project untuk penampilan tulisan .

Langkah –langkah awal untuk membuat project (program)sebagai berikut:.
1.Mulai pemakaian Delphi ,caranya seperti poin 1.2 di atas..
2.Ubah caption dari Form 1 menjadi PERCOBAAN PERTAMA .caranya :
• Aktifkan Tab properties dari Object Inspektor .
• Klik property Caption dan Ubah Form 1 dengan PERCOBAAN PERTAMA.
3.Klik komponen Button dari Tab Standard
• Lalu bentangkan pada Form dan ganti caption dari Button1 menjadi PESAN 1 (boleh ada spasi)
• Juga Name-nya diganti dari Button1 menjadi Tom1. Pembuatan Name tidak boleh ada spasi.
4.Lagi klik komponen Button, dan bentangkan pada Form
• Ganti caption –nya dengan PESAN II
• Ganti Name-nya dangan Tom 2.
5.Tambahkan pada Form komponen Label, caranya: Klik komponen Label dan bentangkan pada Form, dan ganti caption-nya dengan Pesan Untuk Anda
6.Tambahkan disebelah kanan Label, dengan sebuah komponen Edit, dan hapus tulisan Edit1 pada property Text, caranya:
• Edit harus aktif
• Klik property Text, lalu hapus tulisan Edit1 dengan menekan Delete pada keyboard.
7.Sekarang kita akan memasukkan / mengetik program (event handler).Agar setelah aplikasi ini dijalankan, muncul tulisan Selamat Datang di Delphi pada komponen Edit, jika tombol PesanI di klik oleh user.
Caranya:
• Klik tombol PESAN I.
• Klik Event ONKLIK
• Klik 2x pada Tom1, sehingga muncul tempat untuk mengetik program.
• Ketiklah:
Edit1 .Text :=’Selamat Datang di Delphi ‘;

1,5 Membuat aplikasi ,untuk membaca dan menampilkan data dengan Edit.

1. Klik File, New, Application , sehingga muncul Form. Gantilah caption form tsb dengan Fungsi Edit.
2.Tambahkan 4 buah Label dan ubah captionnya menjadi : Nama Pembeli , Kode Barang , Banyak Barang , Total Harga
3. Tambahkan 4 buah komponen Edit dan kosongkan masing- masing kotak kotak Edit tersebut. (Klik property Text, dan hapus tulisannya dengan Delete.
4. Tambahkan sebuah komponen Button dan ubah captionnya menjadi HITUNG.


5. Cara mengubah font ( jenis, warna, ukuran dll )
• Klik tombol HITUNG , agar menjadi aktif.
• Klik property Font , lalu ubah : color-nya menjadi Red , Size menjadi 13 , style menjadi Bold
6. Sekarang kita memasukkan program ( event handles )
• Klik tombol HITUNG , agar menjadi aktif
• Klik event On Click
• Klik 2x pada Button 1 , sehingga muncul tempat menulis program , dan ketiklah

• Dibawah baris procedure diketik program berikut ini
Var banyak , harga , bayar : real
• Diantara Begin dan end diketik program berikut:
Banyak : = StrTo Float ( Edit3 , Text ) ;
Case StrToInt ( Edit2 . Text ) of
1 : Harga : = 1500 ;
2 : Harga : = 2000 ;
3 : Harga : = 2500 ;
end ;
Bayar : Banyak * Harga ;
Edit 4 . Text : = Float to str ( Bayar ) ;
end ;

7. Coba jalankan (Tekan F9 ) .
8. Agar kembali ke Form , tekanlah F 12
9. Agar setelah aplikasi ini di jalankan , dan klik tombol PESAN II akan muncul tulisan : ‘Pelajari Delphi dengan Cepat ‘ , maka programnya :
Edit . Text : ‘Pelajari Delphi dengan Cepat ‘ ;
10. Untuk menjalankan aplikasi (program) ada 3 cara :
• Klik Tombol RUN pada toolbar
• Klik RUN , RUN pada menu bar
• Tekan F9 , pada key board.


11. Setelah di RUN , cobalah :
• Klik tombol PESAN I , apa yang muncul pd Edit ?
• Klik tombol PESAN II , apa yang muncul pd Edit ?

Kesimpulan : Anda telah mengenal/memahami: :
a. Jendela Form
b. Komponen Button
c. Komponen Edit
d. Komponen Label
e. Cara menampilkan tulisan pada Edit.

1.6. Aplikasi degnan RadioButton

Jika ada beberapa Radio Button dalam Form hanya salah satu saja yang bisa dipilih . Aplikasi yang akan dibuat adalah hampir sama dgn aplikasi sebelumnya,yaitu tentang Pembelian Barang.. Perbedaannya terletak pada Kode Barang . Aplikasi ini tidak memakai Kode Barang ,melainkan dengan memilih Nama Barang yang dibeli melalui Radio Button yang dikelompokkan dgn Group Box
Langkah-langkah pembuatan aplikasi tersebut:
1. Tambahkan 3 Label, dengan caption: Nama Langganan , Banyak Barang ,Jumlah Pembayaran
2. Tambahkan 3 Edit , dan hapus / kosongkan dengan meng klik property Text, lalu Delete pada tulisan Edit –nya masing-masing
3. Tanbahkan sebuah Button dan ubah captionnya menjadi . HITUNG
4. Tambahkan komponen GroupBox dan ubah captionnya menjadi Jenis Barang
5. Tambahkan 3 RadioBatton kedalam GroupBox dan ubah masing-masing captionnya menjadi Pensil, Buku dan Map
6. Salah satu RadioButton dijadikan default, misalnya RadioButton1, yaitu Pensil akan dijadikan default, caranya: klik property Checked dari RadioButton1 menjadi True

7. Tulis program (event handler) pada tombol Hitung (Button 1 ) sebagai berikut:
Var banyak, harga, bayar: Real;
Begin
Banyak: = StrToFloat (Edit2..Text);
If RadioButton 1. Checked Then Harga:=1000;
If RadioButton 2. Checked then Harga :=2000;
If RadioButon 3. Checked then Harga :=3500;
Bayar := Banyak * Harga ;
Edit3. Text:= FloatToStr(Bayar);
End;

Arti dari: If RodioButton1.Checked then Harga :=1000; adalah, Jika RodioButton1 di klik (RadioButton1.Checked bernilai True) maka Harga diberi nilai 1000. Begitu seterusnya .

1.7. Mengelompokkan beberapa pilihan dengan RadioGroup.
Kita akan membuat aplikasi seperti aplikasi sebelumnya. Aplikasi sebelumnya memakai RadioButton di dalam GroupBox, sedangkan aplikasi ini hanya memakai satu komponen, yaitu komponen RadioGroup.
Cara memperbaiki Aplikasi sebelumnya menjadi aplikasi yg kita maksudkan:
1. Open aplikasi sebelumnya.
2. Klik pada GroupBox, lalu tekan Delete . supaya GroupBox beserta RadioButton –nya terhapus.
3. Ganti dengan komponen RadioGroup.
4. Ubah caption-nya menjadi Jenis Barang.
5. Klik pada property Items, sehingga muncul String List Editor. Kliklah:Pensil, tekan enter, Klik:Buku, tekan enter, klik: Map, tekan enter. Terakhir Klik OK.
6 Klik pada property Columms, kelihatan nilainya = 1. Hal ini berarti bahwa tulisan: Pensil, Buku, Map, disusun secara vertical memakai 1 (satu) kolom. Ubahlah nilai tersebut menjadi 3, supaya tulisan Pensil, Buku, dan Map disusun secara horizontal (dalam 3 kolom).
7. Buatlah supaya Pilihan I (Pensil) menjadi default. Ternyata Pilihan I (Pensil) nilainya = 0, Pilihan II (Buku) nilainya 2. Sekarang klik property ItemIndex, ternyata nilinya -1, maka ubahlah menjadi 0, agar Pilihan I menjadi default.
8. Ketik Event Handler untuk tombol Hitung;

var banyak, harga, bayar : real ; Began
Banyak:= StrToFloat (Edit2.Text);
case RadioGroup1, Item Index of
0 : Harga : = 1000;
1 : Harga : = 2000;
2 : Harga : = 3500;
Bayar : = Banyak * Harga;
Edit3 . text : = FloatToStr (Bayar) ;
end;


1.8.Aplikasi dengan memanfaatkan Scroll Bar kita akan mengubah aplikasi sebelumnya.
Perhatikan pada aplikasi sebelumnya, untuk memasukkan nilai pada kotak Banyak Barang (yaitu pada Edit2) dengan mengetikkan bilangan.. Tetapi pada aplikasi ini, untuk memasukkan data (nilai) tersebut dengan menggeserkan kotak peluncur pada ScrollBar. Caranya:
1. Klik komponen Scroll Bar, lalu bentangkan di Form
2. Klik property Max dan Min kemudian ubah Max dan Minnya sesuai dengan kemauan anda. Misalnya: Max = 50 dan Min = 10
3. Masukkan program (event handler) dari ScrollBar1 . Caranya: Klik Tab Events dari Objek Inspektor lalu klik OnScroll, sehingga muncul Code Editor dan ketiklah:

Edit2 . Text : = FloatToStr (Scroll Bar1 . Postion);



1.9 Soal:
Buatlah Application untuk menghitung nilai rata-rata, nilai akhir (*Nilai matematika + 2 Nilai Bahasa Inggris + Nilai Bahasa Indonesia)/6, dan tentukan kelulusannya, dengan ketentuan:
• Dinyatakan LULUS jika nilai akhirnya ≥ 6
• Dinyatakan GAGAL jika nilai akhirnya < 6

Acuan:
MATEMATIKA Edit1 ScrollBar1
BAHASA INGGRIS Edit2 ScrollBar2
BAHASA INDONESIA Edit3 ScrollBar3
HITUNG RATA-RATA Edit4
NILI AKHIR Edit5
KETERANGAN Edit6

• Program untuk ScrollBar1, ScrollBar2 atau ScrollBar3 adalah:
Edit1.text : = FloatToSta ( ScrollBar1. Position);
• Program untuk Button1
Var n1, n2, n3, nR, na:: Real
Begin
n 1 : = StrTo Float (Edit1.Text);
n 2 : = StrTo Float (Edit2.Text);
n 3 : = StrTo Float (Edit3.Text);
nr : Int ((n 1 + n2 + n3) / 3) ;
Edit4 . Text : = FloatToStr (nr) ;
na : = int ((3*n1 + 2*n2 + n3) / 6) ;
Edit5.Text : = FloatToStr (na) ;
IF na >=60 Then Edit6 Text : = ‘LULUS’ ;
Else Edit6 Text : = ‘GAGAL’ ;

Anjuran: Setelah RUN, ScrollBar 1,2, dan 3 belum digeser, tetapi sudah diklik pada Button, akibatnya tidak valid, sebab yang dirata - ratakan
Edit1 + Edit2 + Edit3, dimana ketiga komponen tersebut nilai-nya adalah String (text).
Sebaiknya : Property Text dari Edit1, Edit2, dan Edit3 diubah menjadi bilangan, misalnya 0 atau bilangan lain, supaya dapat dirata - ratakan atau dicari nilai akhirnya.

1.10 Buatlah suatu Aplikasi dengan menggunakan komponen2 berikut ini :


1. Komponen Memo :
Setelah di RUN maka Memo dapat diisi tulisan secara langsung.pada kotak Memo tersebut dan dapat juga diketik melalui Edit, tetapi harus diisi program sebagai berikut terlebih dulu pada Edit1.

Memo1. Text : = Edit1.Text ;

2. Komponen ComboBox, ComboBox mempunyai prilaku yang sama dengan Edit. Program pada ComboBox1 adalah
:
Memo1.Text : = ComboBox1.Text ;

Prilaku yang lain dari ComboBox adalah dapat diisi beberapa pilihan , caranya :
• Klik Property Items, lalu klik tanda …
• Lalu ketik pilihannya : misalnya :
 Mencoba Delphi , enter
 Mencoba Memo, enter
 Coba ListBox, klik Ok
3. Komponen ListBox, : ListBox dapat pula diisi pilihan (Items), caranya :
• Aktifkan ListBox, lalu klik property Items
• Lalu klik tanda …, lalu ketik pilihannya
• Misalnya:
 Kotak Memo menjadi merah, enter
 Kotak Memo menjadi biru, enter
 Kotak Memo menjadi kuning, klik Ok
4. Agar warna Memo berubah sesuai dengan items pada ListBox1, maka perlu ditambahkan komponen Button. Kemudian diisi event handler (program) sbb:

Memo1. Clear ; {memo1 supaya bersih}
Memo2. Lines.Add(ComboBox1. Text);

Arti program di atas adalah : Supaya ke dalam Memo1 ditambah suatu baris yang berisi teks yang berasal dari ComboBox1.

Memo1. Lines.Add(‘Tulisan dari List Box’
+IntToStr(List Box1. Item Index)) ;

Artinya : Pada baris lain ditulis tulisan dari ListBox dan tulisan yang berasal
dari Item (pilihan) pada ListBox. Dan nilai Item tersebuy adalah:
Item Index yang pertama nilainya 0
Item Index yang kedua nilainya 1
Item Index yang ketiga nilainya 2, dst.
Kemudian ketiklah programnya sebagai berikut:


Case ListBox1. ItemIndex of
0 : Memo1. Color : = clRed ;
1 : Memo1. Color ; = clAqua ;
2 : Memo1. Color : = clYellow ;
End ;
End ;


5. Komponen GroupBox.
Komponen ini berguna untuk menampung beberapa komponen lain.di dalamnya.
Cara menggunakan:
• Bentangkanlah sebuah GroupBox pada Form.
• Bentangkan 4 buah komponen CheckBox di dalam GroupBox dan masing masing dengan caption; Teks Berwarna Putih;Teks Cetak Miring ,Teks Cetak Tebal dan Teks Bergaris Bawah
6. Bentangkan lagi sebuah komponen Bulton yang kedua dan buat/kelik event handler berikut:
IF CheckBox1. State = Checked
Then Memo1.Font . Color = clWhite
Else Memo1.Font . Color = cl Red ;
Memo1. Font . Style = [] ;
If CheckBox2 State = cbChecked then
Memo1 . Font . Style = [fsItalic];
If CheckBox3 . State = cbChecked then
Memo1 . Font . Style = Memo1. Font . Style + [fsBold];.

7. Bentangkan lagi Button yang ketiga, yaitu untuk mengakhiri program. Ketiklah event handler (progam) nya sebagai berikut:
Application . Terminate;





2. MEMBUAT APLIKASI

2.1. Buatlah aplikasi baru
• Ubah caption dari form menjadi Aplikasi Menu.
• .Tambahkan komponen MainMenu dan PopUpMenu, komponen ini dapat dibentangkan di mana saja, karena komponen ini nonvisual (tidak nampak setelah di aplikasinya dijalankan)
• .Mengisi item item pada MainMenu,.Caranya, klik (aktipkan0 MainMenu, .klik property Items lalu klik tanda.... sehingga muncul menu Desig ner yang isinya sebuah kotak hitam yang kosong, lalu ketik-lah : &Pilihan (Tanda & dipakai untuk menyatakan Shortcut, yaitu agar tampilan huruf P berisi garis bawah.
• Kemudian.klik item /kotak yang dibawahnya, lalu ketik beberapa item kebawahnya : Kotak Edit warna &Biru
Kotak Edit warna &Menu
Kotak Edit warna &Hijau
• Sekarang klik item (kotak) yang berada disebelah kanan item pilihan tersebut di atas, lalu ketik: &KELUAR
• Dilanjutkan dengan mengisi program (event handler) pada masing-masing item dari MainMenu, klik ganda item pertama (kotak Edit warna Biru) sehingga muncul lembar Code Editor, lalu ketik program berikut ini:
Edit1 . Color:= clBlue;
• Lalu klik ganda pada item kedua ( kotak Edit warna Menu), Lalu ketik:
Edit1 . Color := clMenu;
• Klik ganda item ketiga (kotak Edit warna Hijau), lalu ketik :
Edit . Color := clLime;
• Klik ganda item KELUAR, lalu ketik programnya:
Application . Terminate;
• Kita akan melanjutkan membuat komponen PopUpMenu., dengan cara:
o .klik komponen PopUpMenu
o .klik property Items, lalu klik tanda ...
o .lalu ketiklah Item-item pada lembar Editor, yaitu sebagai berikut:
Teks warna &Kuning, tekan enter
Teks warna &Merah , tekan enter
Teks warna &Default, klik Close[X]
Untuk setiap item di atas harus diisi program, caranya adalah sebagai berikut:
.Klik ganda pada item Teks warna Kuning, lalu ketik program berikut:;
Edit1 . Font . Color := clYellow;
Klik ganda pada item Teks warna Merah, lalu ketik program berikut:;
Edit1 . Font . Color := clRed:
Klik ganda pada item Teks warna Default, lalu ketik program berikut:;
Edit1. Font . Color := clWindow . Text:
• Pilihan ( item-item ) dari PopUpMenu tidak keliatan setelah programnya dijalankan, agar bisa kelihatan maka harus dihubungkan dengan komponen lain , misalnya komponen: Edit, Label, Button, atau CheckBox, caranya klik (aktifkan) komponen yang akan dihubungkan, lalu :kik propurty PopUPMenu dilanjutkanmeng-klik segitiganya, lalu pilih PopUpMenu1

2.2. Membuat Submenu pada komponen MainMenu
• Tambahkan komponen MainMenu
• Buatlah pilihan-pilihan (item-item), caranya sebagai berikut:
o klik MainMenu1 pada Object TreeView atau boleh juga pada Form
o klik property Items, dan klik tanda ….
o Lalu ketik Item-itemnya (pilihan): Merah, Putih, Kuning
• Untuk membuat sub menunya:
o .klik salah satu, misalnya Merah
o klik kanan lagi pada Merah, lalu pilih Create Sub Menu.
o lalu ketik : misalnya Tulisan Miring, Tulisan Tebal dan Tulisan Bergaris
o .klik Close, untuk mengakhiri.
• Tambahkan sebuah komponen Memo, lalu isikan tulisan , caranya: pilih property. Lines, lalu klik tanda …. Kemudian ketik : Yang bertanda tangan di bawah ini ….dst , diakhiri dengan mengklik OK.
• Kita akan mengisi program pd item-item tersebut: caranya:
o klik item Merah, lalu klik event OnClick.
o Double Click pada item Merah ,lalu ketik programnya:
Memo1 . Color := elRed::
o klik item tulisan Miring ,lalu klik event OnClick
o .klik ganda pada item tulisan Miring, lalu ketik :

Memo1 . Font . Style := [ fsItalic];:

• Cobalah sendiri isikan program pada item-item yang lainnya.

2.3. Memakai komponen Frame.
• Frame adalah sebuah kontainer yang dapat menampung komponen-komponen lainnya. Dan frame dapat ditempatkan di dalam Form..
• Bila akan membuat frame, tutuplah terlebih dulu Form dan Unitnya tanpa disimpan.
• . klik File, New ,Frame.
• . Kemudian simpanlah Aplikasi ini dan beri nama untuk unitnya: UPening Pas dan untuk projectnya: PPeating .dpr.. Ubah projerty Nama .nya dengan Penting
• .Tambahkan komponen Button dan Edit .
• .Dan buatlah program untuk Button OnClick seperti berikut:
Edit1 . Text := ’Selamat Datang di Frame’ ;:

• Buat lagi Bolton dan berikan event handler-nya
Application . Terminate;
• Cara meletakkan Frame yang sudah dirancang ke dalam Ckomponen Palette sebagai sebuah icon.
o .Klik kanan pada lembar kerja Frame.
o .Klik Add to Palette., lalu .pilih nama Tab pada komponen Palette,misalnya: Staudard.
o .Klik tombol Change apabila perlu dengan gambar icon yang lain.
o Kilk OK
• Apabila Anda menaruh pointer mouse di atas icon frame,yang baru dimasukkan ke komponen Standard maka akan muncul namanya.
• Bila akan menghapus keberadaan icon frame tersebut, caranya::
o .Klik kanan pada icon tersebut.
o .Klik Properties , cari nama icon tersebut dalam daftar (letaknya biasanya paling bawah ).
o Klik nama icon tersebut, lalu klik tombol Delete dan ,untuk mengakhiri klik OK.
• Cara memekai icon frame yang baru dimasukkan ke Component Palette
o .Buat Aplikasi baru (klik File, New, Application) ada 2 cara:
 .Cara pertama:.Klik icon frame tersebut ,lalu bentangkan pada Form, lalu klik Yes dalam kotak Confirm.
 .Cara kedua:.Klik komponen Frames pada tab Standard,dan Klik di Form.
o .Lalu pilih salah satu nama Frame yang tersimpan, .Klik OK.
Setelah proses itu ,maka komponen dalam Frame tadi dapat digunakan seperti biasa.

2,4.Buatlah sebuah Frame.
• Tambahkan komponen Timer (dari Tab System), Label, Edit, Panel.
• .Berikan program, caranya: klik Timer1 dan klik Event OnTime.
• Klik ganda pada Timer1 ,sehingga muncul Code Editor.
• .Ketiklah programnya:
Panel1 . Caption := TimeToStr(Time) ;
Edit1 . Text := TimeToStr(Time).;
Label1 . Caption := TimeToStr(Time);.

• .Simpan: Aplikasi ini, caranya:
• .Klik File, Save Project As, lalu untuk Unit-nya beri nama: UJam.pas lalu klik Save.
• .Ketik nama untuk Project-nya : PJam,dpr, klik Save.




3..PEMAKAIAN KOMPONEN DARI TAB ADDITIONAL.

3.1.Komponen MaksEdit untuk memformat data yang masuk/dimasukkan.
• MaksEdit dapat mengontrol validasi data yang dimasukkan oleh user.
Contoh Aplikasinya::
o Tambahkan 6 Label, 6 MaskEdit, dan 2 Button.
o Ubah Caption dari Label tersebut dengan : Nama, Alamat, Kode Pos, Gaji, Tunjangan, Gaji Bersih, lalu ubah Caption dari Button menjadi PROSES dan KELUAR.
Nama: Maskedit1 PROSES
Alamat: MaskEdit2 KELUAR
Kode Pos: MaskEdit3
Gaji: MaskEdit4
Tunjangan: MaskEdit5
Gaji Bersih: MaskEdit6

• Aktifkan MaskEdit1, Klik property EditMask.
• Klik Tanda … sehingga muncul jendela Input MaskEditor.
• Kotak Imput MaskEdit , untuk mendefisinikan mask. untuk membuat definisi tersebut Anda harus tahu/memahami berikut ini

Kode Artinya
> Semua karakter yang mengikuti di ubah menjadi kapital sampai di tutup dengan tanda <,(misalnya::>LLL<LL maka 3 L yang didepan akan menjadi huruf kapital ,Sedangkan 2 L berikutnya akan tetap seperti apa yang diketik oleh User.
< Semua karakter yang mengikuti akan diubah menjadi huruf kecil sampai di tutup dengan >
< > Tidak ada perubahan ke huruf kecil atau ke huruf besar.
\ Karakter yang mengikuti dijadikan literal
L , l Menerima karakter A -Z, a-z, tanpa spasi
A, a Menerima karakter dan angka , tanpa spasi
C, c Menerima sembarang karakter, angka, tanda-tanda baca, spasi.
Kode Artinya
0 - 9 Menerima angka saja, tanpa spasi
_ (garis bawah), sebagai tempat mengetik huruf atau karakter.
: (titik dua), sebagai pemisah pada jam, menit, detik.
/ (garing) sebagai pemisah pada tanggal, bulan, tahun.
: (titik koma) sebagai pemisah tiga bagian dari Mask.
# Menerima angka, tanda plus (+), min (-), dan spasi.


• Sekarang lanjutkan pembuatan Aplikasi di atas, isikanlah kotak input Mask untuk masing - masing Mask
MaskEdit1 di isi dengan : ccccccccc;0;_
MaskEdit2 di isi dengan: cccccccccccccccc;o;$
MaskEdit3 di isi dengan: 99999;1;=
MaskEdit4 di isi dengan: 9999;1;=
MaskEdit5 di isi dengan: 9999;1;@
MaskEdit6 di isi dengan: 999999;1;=
• Masukan program untuk button1, caranya: aktifkan button1, klik event klik OnClick, klik dua kali pada Button1, ketik programnya :
MaskEdit3 . Text := FloatToStr(StrToFloat (MaskEdit1 . Text)+ StrToFloat(MaskEdit2 . Text ));
• Seperti biasa ketiklah program pada Button KELUAR:
Application . Terminate;
• .Coba di jalankan (Tekan F9), lalu masukan pada MaskEdit1 bilangan: 950 dan pada MaskEdit2 bilangan: 145, lalu klik Button1 (PROSES )









DAFTAR PUSTAKA

Hengky, (2004). Pemrograman Database Menggunakan Delphi 7.0 PT Elex Media Komputindo, Jakarta.

Inge Martina, (2000),36 Jam Belajar Komputer Delphi 5.0, PT Elex Media Komputindo kelompok Gramedia, Jakarta

Madcoms Madiun, (2002),Pemrograman Borland Delphi 7, CV Andi Offset, Yogyakarta.