MANFAAT DAUN SIRIH HIJAU DAN MERAH

MANFAAT DAUN SIRIH HIJAU DAN MERAH
Siapa yang tak kenal dengan sirih? Sedari dulu nenek-nenek kita orang indonesia sangat terkait dengan budaya “nyirih”-nya. Sirih sendiri memiliki banyak jenis. Ada sirih merah, hijau, dan hitam. Masing-masing dengan manfaat berbeda. Serupa namun tak sama. Sirih sendiri sudah dari lama dipercaya oleh para leluhur kita untuk dijadikan pengobatan alternatif yang bisa untuk segala jenis penyakit. Ini jugalah yang menciptakan budaya “nyirih” itu sendiri untuk memperkuat gigi dan gusi yang ternyata berhasil.

Caranya adalah dengan mencampurkan daun sirih, kapur sirih, kapulaga, pinang, dan gambir. Kemudian, semuanya digulung pada daun sirih dan dikunyah atau digosokkan di gigi hingga warna gigi berubah. Setelah itu, kumur dengan air dan dibuang. Hasilnya adalah gigi dan gusi yang senantiasa bagus kondisinya. Padahal waktu zaman dahulu belum ada peralatan modern seperti sekarang.

Perbedaan mendasar dari sirih-sirih yang terkenal sebagai tanaman rambat tersebut adalah warna daun yang dimiliki. Sirih merah memiliki warna daun yang kemerahan. Sementara sirih hijau memiliki warna daun yang hijau segar. Sementara sirih hitam memiliki warna daun yang kehitaman. Di antara ketiga jenis sirih tersebut, ada dua yang paling populer. Kedua yang populer itu adalah manfaat daun sirih hijau dan merah. Pada artikel ini akan dibahas dua jenis sirih saja: sirih hijau dan sirih merah.

- Khasiat Dan Manfaat Daun Sirih Hijau

Daun sirih hijau memiliki warna hijau muda terang. Sirih hijau terkenal dengan nama latin Piper betle, Linn.. Sirih hijau termasuk dalam keluarga Piperaceae. Sirih hijau biasa merambat pada tanaman lain. Akan tetapi, sirih hijau juga bisa merambat di tanah. Sirih hijau kaya akan kandungan minyak atsiri, fenil propana, estragol, kavicol, hidroksikavicol, kavibetol, caryophyllene, allylpyrokatekol, cyneole, cadinene, tanin, diastase, pati, terpennena, seskuiterpena, dan gula. Kandungan minyak atsiri pada sirih hijau ini dan juga beberapa di antaranya menjadikan sirih hijau sebagai salah satu antijamur yang baik.

Sirih hijau memiliki manfaat sebagai berikut:

1. Mengobati keputihan – bentuk mengobati keputihan ini terjadi dikarenakan sirih hijau memiliki antijamur yang mampu membunuh kuman jahat pada daerah kewanitaan. 
2. Mengobati sakit gigi
3. Mengobati gusi bengkak
4. Obat semprot hama
5. Mengobati sariawan
6. Menghilangkan bau mulut tidak sedap
7. Mengobati demam berdarah
8. Memperlancar haid
9. Menghilangkan bau badan
10. Mengobati eksim dan penyakit kulit
11. Menghentikan mimisan
12. Membersihkan mata
13. Mengobati diare
14. Mengibati asma
15. Mengobati radang tenggorokan
16. Mengobati luka bakar
17. Mengusir serangga
18. Memperlambat penuaan karena kandungan antioksidan
19. Mengatasi sembelit
20. Mengurangi peradangan
21. Mengatasi masalah penafasan
22. Mengobati batuk
23. Mengobati sakit punggung
24. Menghilangkan jerawat dan bekas luka

- Manfaat Daun Sirih Merah

Sirih merah biasa ditemui di hutan yang tidak terlalu rapat ekosistemnya. Sirih merah kaya akan kandungan  minyak terbang (betiephenol), atsiri, seskuiterpen, pati, hidroksikavikol, kavibetol, allylprokatekol, tanin, diastase, gula dan zat samak dan kavikol yang memiliki daya mematikan kuman, aktioksidasi dan fungisida, anti jamur. baca juga Temuan Khasiat Dan Manfaat Daun Sirsak Yang Sangat Menguntungkan

Sirih merah memiliki manfaat sebagai berikut:

1. Mengatasi keputihan 
2. Mengobati diabetes
3. Menghilangkan bau badan
4. Menghilangkan bau mulut 

Kemungkinan besar, masih banyak yang belum diketahui mengenai sirih merah yang daunnya berbentuk hati di bagian puncaknya ini. Hal ini dikarenakan masih sangat jarangnya penelitian oleh para ahli yang menggunakan sirih merah sebagai objek. Berbeda dengan khasiat dan manfaat daun sirih hijau telah terjabar dengan rapi dan diketahui secara umum.

Cara Menggunakan Daun Sirih

Kedua varietas ini memiliki manfaat yang nyaris sama. Pengolahan yang dibutuhkan untuk keduanya pun juga sama. Tinggal lakukan teknik rebusan saja untuk digunakan sebagai obat dalam. Teknik rebusan yang dilakukan adalah dengan memasukkan beberapa lembar daun sirih ke dalam beberapa gelas air hingga jumlah air yang direbus susut. Setelah itu, air rebusan yang telah susut itu diminum. Sementara untuk obat luar, teknik yang digunakan adalah dengan membalurkan sirih ke bagian-bagian luar yang sakit. Baik dengan cara setelah dilumat atau dengan cara hanya diletakkan saja.

Pemaparan di atas tentu membuka wacana baru bagi kita tentang kemungkinan obat herbal yang bagus di dalam manfaat daun sirih merah dan hijau. Kita tinggal melestarikannya saja. Apalagi daun sirih terkenal sudah merambat dengan bebas di mana-mana. Waktu yang dibutuhkan pun untuk menyiapkan segala keperluan penggunaan daun sirih ini sendiri juga terbilang singkat dan tidak memakan waktu banyak.

Khasiat daun sirih hijau dan merah hari ini telah berkembang menjadi salah satu obat alternatif dan herbal yang diolah komersil dalam bentuk botolan. Tapi tetap saja, daun sirih yang telah diolah tersebut memiliki beberapa kelemahan. Kelemahan tersebut di antaranya adalah bahwa daun sirih yang diolah terbilang mahal dan masih bercampur dengan bahan kimia lainnya. Alhasil, ekstrak sirih yang dimiliki dalam setiap botolnya terbilang sedikit.

Meskipun demikian, penggunaan sirih dalam bentuk botolan terbilang lebih baik dibandingkan menggunakan bahan kimiawi. Jadi, pastikan kita menggunakan sirih dengan teratur dalam bentuk apapun.
klik disini

Manfaat Buah Tomat Untuk Kecantikan Wajah

Manfaat Buah Tomat

Dalam dunia kecantikan, manfaat tomat memiliki kesan yang berarti, karena tomat memiliki antioksidan yang baik dikonsumsi untuk tubuh dan juga berdampak pada mencegah sel-sel kulit mati yang ada di wajah. Cara mengkonsumsi tomat sangat mudah dilakukan, salah satu cara dapat dilakukan sebagai berikut:

1. Pilihlah tomat yang masih segar dan berwarna merah, jangan memilih tomat yang kulitnya sudah mengendur, bisa jadi kandungan yang ada di dalam tomat sudah mulai berkurang.

2. Cuci bersih tomat, bila perlu tomat dicuci dengan menggunakan air yang mengalir, hal ini dilakukan untuk mendapatkan kebersihan tomat yang menyeluruh.

3. Setelah dicuci, bisa langsung dipotong secara kecil-kecil dan sediakan gula pasir secukupnya untuk menyantap tomat yang telah dipotong. Alangkah baiknya, jika mau, mengkonsumsi tomat dengan cara langsung dimakan lebih baik setelah tomat selesai dicuci, dengan langsung memakannya, zat-zat baik yang dikandung di dalam tomat tidak berkurang sedikitpun.

Fenomena kecantikan dengan menggunakan tomat sebagi alat yang membantu untuk mendapat kecantikan yang sesungguhnya sudah digunakan oleh orang-orang dari zaman dahulu. Tomat dikenal memilki vitamin C yang tinggi, vitamin C baik untuk membantu metabolisme dari tubuh terutama untuk wajah. Tidak heran banyak produk kosmetik yang menggunakan bahan berdasar tomat untuk kecantikan wanita.

Untuk kesehatan kulit, manfaat tomat dapat dirasakan dengan menggunakannya sebagai masker, banyak produk instan untuk masker yang berbahan dasar tomat, tetapi disarankan lebih baik mengolah masker tomat buatan sendiri di rumah, selain tidak memerlukan biaya yang berlebih, tomat juga sudah terbukti secara klinis bagus untuk digunakan di wajah, cara membuat masker wajah tomat yaitu sebagai berikut:

1. Siapkan alat dan bahan-bahannya terlebih dahulu, seperti sendok, mangkuk, madu, tomat, air hangat yang digunakan setelah mendiamkan masker tomat di wajah selama beberapa menit, serta tidak ketinggalan handuk kecil.

2. Pilihlah tomat yang masih segar, dicuci dengan air mengalir, dan potong-potong. Setelahnya, campurkan tomat dengan satu sendok teh madu ke dalam mangkuk, lalu lumatkan, sehingga terciptanya masker wajah tomat.

3. Gunakan masker tomat yang sudah dibuat ke seluruh wajah, diamkan selama beberapa menit, lalu basuh dengan menggunakan air hangat, setelah dibasuh, gunakan handuk kecil untuk mengelap wajah dari air hangat. Kesegaran untuk wajahpun segera didapat.

Untuk mendapatkan tomat yang bagus dan memilki zat-zat bagus yang tidak berkurang, sangat mudah sekali untuk menemukannya, tomat bisa ditemukan di pasar swalayan maupun pasar tradisional, tetapi, jangan lupa untuk memilih tomat yang merah sebagai bentuk dari kesegaran tomat yang ada. klik disini

11 Manfaat Pepaya Bagi Kesehatan dan Obat Penyakit

Pepaya menyandang nama ilmiah Carica papaya, jenis tumbuhan jenis genus yang tumbuh dengan subur pada daerah beriklim tropis. Diperkirakan berasal dari Meksiko bagian selatan dan Amerika Serikat bagian utara, penyebaran sudah mencakup seluruh dunia.

© Ilustrasi Sunpride

Buah pepaya bisa dikonsumsi untuk mengganjal perut ataupun pengobatan karena memiliki banyak kandungan yang baik untuk memproteksi tubuh dari berbagai macam penyakit. Daging yang lembut banyak membantu orang melancarkan BAB nya yang sebelumnya macet, karena buah ini memang mudah dicerna.

Kandungan Pepaya

Orang yang rajin makan buah-buahan seperti pepaya banyak membuat hidupnya terasa jauh lebih sehat. Hal ini disebabkan oleh kandungan nutrisi pada buah pepaya. 

Berikut ini nutrisi yang dapat Anda temukan pada sebongkah buah pepaya ukuran apapun.

• Vitamin A (Retinol)
• Vitamin B komplek
• Vitamin C
• Niacin
• Kalsium
• Riboflavin
• Kalori
• Zat Besi
• Fosfor
• Kalium
• Karbohidrat
• Lemak, dan
• Protein

Manfaat Pepaya

Hampir 50% vitamin tersimpan dalam buah pepaya, jadi mustahil betul jika pepaya tidak berperan penting dalam mengontrol kondisi kesehatan seseorang. Untuk mengetahuinya, Anda bisa mengenal manfaat pepaya bagi kesehatan dan obat tradisional dari penjelasan berikut.

1. Kesehatan Kulit

Pepaya mempunyai peran aktif dibidang kecantikan maupun kesehatan, salah satunya untuk permukaan kulit dalam hal melembabkan ataupun mencerahkan serta menyegarkan kulit yang kusam. Hal ini disebabkan oleh kandungan vitamin A, C dan E dalam buah pepaya.

2. Membesarkan Alat Vital Pria

Kandungan enzim arginine yang disimpan dalam buah pepaya berkemampuan dalam hal mendongkrak aliran darah pada areal Mr. P. Argarine mendongkrak produksi asam nitrat dalam tubuh untuk merileksasikan otot-otot di sekitar pembuluh darah, alhasil Mr. P akan membesar dalam waktu yang signifikan seiring banyaknya enzim arginine yang masuk ke dalam tubuh.

3. Mengoptimalkan Fungsi Pencernaan

Tadi sudah dijelaskan bahwa pepaya bisa melancarkan sembelit, hal ini karena kandungan serat yang tinggi pada buah pepaya mampu diserap dengan sempurna oleh sistem pencernaan tubuh. Sementara kandungan antioksidannya mampu membersihkan sisa makanan pada usus dan membuangnya melalui saluran pembuangan. klik disini

7 Manfaat Unik Mangga Bagi Kesehatan Tubuh Anda

7 Manfaat Unik Mangga Bagi Kesehatan Tubuh Anda

      Buah mangga merupakan buah yang memiliki rasa manis dan asam pada daging buahnya. Mayoritas warna buah ini bewarna hijau tua saat mentah maupun saat matang. Di saat lagi musimnya, tentu anda tidaklah sulit untuk mendapatkan buah yang satu ini. Buah ini sangat nikmat dirujak ketika mentah dan berasa manis saat matang atau masak. Namun selain enak rasanya, buah mangga juga memiliki berbagai manfaat besar untuk meningkatkan kesehatan tubuh anda. Lalu, apa saja manfaat unik mangga bagi kesehatan tubuh anda...???

      Sahabat, tips kesehatan. Mangga merupakan salah satu buah kaya manfaat di jajaran buah-buahan yang sudah di kenal oleh semua orang. Oleh karena itulah, mangga seharusnya menjadi makanan yang harus dikonsumsi untuk mencukupi kebutuhan nutrisi harian anda. Mangga mengandung vitamin C, A, B6, serat, tembaga, kalium serta magnesium. Maka, tak mengherankan buah ini berperan penting dalam pemenuhan nutrisi bagi tubuh semua orang. Tips kesehatan kali ini akan mengulas berbagai manfaat mangga bagi kesehatan tubuh. Berikut ini 7 manfaat unik mangga bagi kesehatan tubuh anda : 

1. Penangkal Aneka Jenis Kanker. Kanker menjadi salah satu penyakit pembunuh terbesar bagi umat manusia. Mengkonsumsi buah mangga dapat membantu tubuh menangkal berbagai jenis kanker seperti kanker usus besar, payudara serta prostat. Ini dikarenakan, buah mangga mengandung senyawa penting yaitu quercetin, isoquercitrin, astragalin, fisetin, asam galat serta methilgallat.
2. Menurunkan Kadar Kolesterol Jahat. Membiarkan kadar kolesterol jahat dalam tubuh terus meningkat tentu berdampak buruk bagi tubuh. Solusinya yaitu dengan menyediakan buah mangga di daftar menu makanan anda. Kandungan serat yang cukup tinggi, pectin serta vitamin C dalam mangga sangat efektif untuk menurunkan kadar kolesterol jahat dalam tubuh anda.
3. Menutrisi Organ Mata Anda. Memiliki penglihatan yang lebih baik dan super jelas tentu impian semua orang termasuk anda. Kandungan vitamin A yang cukup melimpah dalam mangga sangat baik untuk indera penglihatan anda.
4. Melindungi Organ Pencernaan Anda. Mangga merupakan salah buah yang kaya akan serat alami. Serat alami inilah yang mampu melindungi dan menyehatkan organ-organ pencernaan seseorang.
5. Peningkat Sistem Imun Tubuh Anda. Perubahan musim serta cuaca yang tidak menentu menyebabkan tubuh mudah terserang berbagai penyakit. Kandungan vitamin C, A serta 25 jenis karotenoid menjadikan mangga sangat efektif untuk meningkatkan sistem kekebalan tubuh seseorang.
6. Nutrisi Sempurna Untuk Kulit Anda. Ini dikarenakan dengan mengkonsumsi buah ini, maka berbagai kotoran yang menyumbat pori-pori kulit akan hilang serta membantu menghilangkan masalah kulit seperti jerawat.
7. Penurun Berat Badan Yang Alami. Dengan mulai mengkonsumsi mangga  yang kaya akan vitamin dan nutrisi akan membuat tubuh merasa kenyang lebih lama. Sehingga menurunkan nafsu makan berlebih anda. klik disini

Aneka Manfaat Buah Apel Bagi Kesehatan Dan Kecantikan

Manfaat Buah Apel Bagi Kesehatan

Berikut ini adalah manfaat buah apel untuk kesehatan dan kecantikan:

• Buah apel meningkatkan kecerdasan otak.

Kandungan asetilkolin bisa meningkatkan daya ingat sehingga kemampuan daya fikir lebih meningkat sehingga kepikunan bisa dihindari.

• Apel bisa meningkatkan kekuatan tulang.

Dengan rutin mengkonsumsi buah apel membuat tulang lebih kuat dan terhindar dari kerapuhan. Jika asupan gizi yang didapat dari apel terus dijaga, penyakit osteoporosis akan bisa dihindari.

• Menurunkan kolesterol

Apel bisa menurunkan kolesterol karena kandungan nutrisi dalam apel bisa mengusir lemak jahat dalam tubuh. Rutinkan makan apel dua buah sehari sehingga kadar kolesterolpun semakin berkurang.

Selain bisa langsung dimakan, apel ini juga bisa di buat jus. Jika di buat jus akan lebih mudah meminumnya. Apalagi kerja pektin dalam apel yang di jus lebih cepat kerjanya.  Manfaat jus apel setelah di minum langsung bekerja membuang lemak dalam darah.

• Memperbaiki elastisitas kulit

Manfaat apel hijau sangat baik untuk menjaga elastisitas kulit. Apel hijau ini di blender dan dicampurkan dengan madu. Setelah itu, di oleskan pada wajah sampai merata. Tunggu hingga 10 menit baru di cuci hingga bersih. Dengan merutinkan memakai masker apel hijau ini akan mengurangi kerutan dan di wajah dan menjadikan wajah awet muda.

Manfaat Apel Yang Dijadikan Cuka Apel

Selain buah apel yang segar baik kesehatan, cuka apel juga sangat bermanfaat menjaga kesehatan dan kecantikan. Manfaat cuka apel bisa dirasakan dengan berbagai cara yang berbeda:

• Menjaga kecantikan kulit

Jika ingin mendapatkan kulit bersih bersinar. Anda larutkan cuka apel dengan air dan gunakan sebagai toner pada wajah. Kelembutan dan kehalusan wajah akan dirasakan jika rutin dilakukan.

• Mengobati ketombe

Ketombe pada kulit kepala memberikan ketidaknyaman. Apalagi ketombenya sudah parah yang dibarengi dengan gatal-gatal. Dengan mengoleskan cuka apel dengan air dan dioleskan ke kulit kepala membuat jamur Malassezia furfur hilang dan keseimbangan kulit kepala semakin terjaga.

• Menjaga tekanan darah supaya stabil

Minum satu sendok cuka apel yang dimasukkan dalam segelas air bisa menjaga kestabilan tekanan darah.

Begitu banyak manfaat buah apel ini, sangat baik jika selalu mengkonsumsinya setiap hari. Dengan makan satu buah apel bisa menyembuhkan berbagai macam penyakit karena serat yang sangat tinggi. Mau coba. klik disini

Manfaat Buah Semangka Bagi Kecantikan dan Kesehatan

Manfaat Buah Semangka Bagi Kecantikan dan KesehatanManfaat buah semangka sangat baik bagi tubuh yang berperan untuk membantu kesehatan dan menjaga metabolisme tubuh. Buah semangka adalah salah satu buah tropis yang menyegarkan dan kaya kandungan air, sangat cocok dinikmati saat cuaca panas. Selain enak dinikmati, semangka menyimpan kandungan yang memiliki manfaat beragam.
Kandungan Gizi Buah Semangka
Semangka adalah anggota dari keluarga Cucurbitaceae botani. Satu cangkir semangka yang dipotong dadu sebanyak (152 gram) mengandung :

• 43 kalori
• 0  gram lemak
• 2 gram natrium
• 11 gram karbohidrat (termasuk 9 gram gula dan 1 gram serat)
• 1 gram serat

Satu cangkir semangka akan memberikan 17% dari vitamin A, 21% vitamin C, 2% dari besi dan 1% dari kebutuhan kalsium untuk hari. Di balik nutrinya tersebut, buah semangka ternyata sangat bermanfaat untuk kesehatan, bahkan kecantikan. Selengkapnya berikut ini :

Manfaat Semangka Untuk Kesehatan

Bagi kesehatan, mengkonsumsi buah semangka juga memberikan kontribusi bagi pemeliharaan kesehatan. Beberapa diantaranya adalah sebagai berikut :
5. Memelihara kesehatan ginjal
kalium yang terkandung dalam manfaat buah semangka ini, membersihkan zat-zat racun pada ginjal, sehingga membantu kerja ginjal. Buah semangka juga mengurangi kadar asam urat yang menekan resiko pembentukan batu ginjal.
6. Pencegahan sariawan
Sariawan ditimbulkan dari bakteri yang berkembang biak dengan baik pada rongga mulut yang kering. Memakan semangka memberikan konsumsi air dan vitamin yang dapat mengurangi perkembang biakan bekteri di mulut. Bagi pencegahannya mengkonsumsi semangka dapat disandingkan dengan vitamin C seperti pada manfaat jeruk, manfaat lemon dan manfaat jambu biji.
7. Mengurangi resiko hipertensi dan stroke
Pada buah semangka terdapat karetenoid yang mencegah pengerasan dinding pembuluh arteri maupun vena yang dapat menyebabkan hipertensi . Kandungan kalium semangka juga berperan untuk menurunkan tekanan daran darah. Tentu saja manfaat ini dapat dirasakan jika mengkonsumsi semangka dengan rutin. Kalium juga menyehatkan jantung sehingga akan terhindar dari penyakit jantung.
8. Anti inflamasi dan Antioksidan Semangka kaya akan senyawa fenolik seperti flavonoid, karotenoid, dan triterpenoid. Karotenoid  dalam semangka sangat bermanfaat dalam mengurangi peradangan dan menetralisir radikal bebas. Triterpenoid juga hadir dalam semangka, yang memberikan dukungan anti inflamasi dengan menghambat aktivitas enzim yang biasanya menyebabkan peningkatan inflamasi. Pastikan untuk memilih semangka matang, karena mengandung jumlah senyawa fenolik yang lebih tinggi.

9. Otot nyeri
Semangka telah terbukti mengurangi nyeri otot dan meningkatkan waktu pemulihan setelah latihan pada atlet. Para peneliti percaya ini mungkin lakukan untuk asam amino L-citrulline yang terkandung dalam semangka.
10. Obat kuat yang alami
Konsumsi semangka pada pria dapat mengurangi dan mengobati impoten. Penelitian ini dituturkan oleh  Dr. Bhimu Patil, direktur Texas A&M’s Fruit and Vegetable Improvement Center di College Station, seperti dilansir sciencedaily. Tentu saja semangka tidak menimbulkan efek samping seperti yang terjadi pada orang yang mengkonsumsi obat  kuat.
Menu Diet dengan Buah Semangka
Buah semangka biasanya hanya dikonsumsi sebagai buah pencuci mulut. Tapi tentu saja, semangka sebagai pencuci mulut tidaklah mencukupi kebutuhan nutrisi harian. Berikut ini beberapa menu diet semangka yang mudah dicoba :

• Potong semangka berbentuk dadu dan campurkan beberapa buah es batu dalam blender untuk dingin menyegarkan. Jus semangka sangat sempurna untuk rehidrasi setelah olahraga atau saat hari siang, di bawah terik matahari
• Menu salad terkadang bisa jadi membosankan, namun dengan menambahkan semangka, mint dan mozzarella segar untuk tempat tidur daun bayam. Dapat menjadi pilihan menu sa;ad yang mudah dibuat

Meskipun mengkonsumsi buah-buahan adalah hal yang baik, namun diet menu makanan atau pola makan secara keseluruhan adalah hal yang paling penting dalam pencegahan penyakit dan mencapai kesehatan yang baik. Lebih baik mengkonsumsi makanan yang beragam daripada berkonsentrasi pada makanan tertentu, sebagai kunci untuk menjaga kesehatan tubuh yang baik. klik disini

Kelebihan Dan Kekurangan Bahasa Pemrograman Delphi

Kelebihan Dan Kekurangan Bahasa Pemrograman Delphi ~ Delphi 7 merupakan bahasa pemrograman tingkat tinggi karena sudah berbasis grafis.Bahasa pemrograman berbasis grafis banyak digemari seorang programer karena lebih mudah dimengerti dan dapat berkreasi dengan tampilan.Diantara bahasa pemrograman berbasis grafis yang ada,delphi 7 merupakan salah satu bahasa pemrograman yang  mempunyai / lebih unggul
dalam hal componen.Hal tersebut bida dibuktikan dengan component nya yang sudah bisa dihubungkan dengan internet.tapi tidak semua bahasa pemrograman itu tidak mempunyai kekurangan,pasti ada-ada saja kekurangan yang terdapat di dalamnya.Nach berikut saya berikan sedikit penjelasan tentang kelebihan dan kekurangan bahasa pemrograman delphi. 


Kelemahan / Kekurangan :
1. GILA HASIL EXE NYA BESAAAAR,FORM KOSONG XE2 dapet 7 MB
2. bisa di decompile 
3. operator assignment lo mesti nulis := ,bahasa lain sih tinggal = doank,males neken shift :D
4. mesti nulis begin end,tapi untungnya otomatis sendiri kalo udah ada di IDE 

Kelebihannya
1. udah bisa pascal tinggal lanjut bro ke delphi
2. ga perlu framework kecuali firemokey buat ke iOS
3. KOMPONEN MELIMPAH
4. Kompilasi CEPAT FAST
5. cross platform ready
Hanya itu nsaja ya, semoga bermanfaat :). klik disini

Delphi- Play Sound Wave

Ada sebuah pernyataan,
jika a >=50 maka
a akan menghasilkan suara a
a akan menghasilkan gambar a
a akan menghasilkan tulisan a
jika b<=50 maka
b akan menghasilkan suara b
b akan menghasilkan gambar b
b akan menghasilkan tulisan b
dengan timer 2detik.
Setelah 2 detik perulangan diatas tidak berfungsi lagi.
Kira2 coding di delphinya gmn ya???
Mohon bimbingannya….
Saya baru bisa seperti dibawah tapi klu di run hanya muncul suara saja…
begin
if VoltF >= 60 then
Label6.Caption:=’Batang’;
sndPlaySound(‘E:\nyoba.wav’, SND_NODEFAULT Or SND_ASYNC Or
SND_LOOP);
if VoltF <=50 then
Label6.Caption:=’Daun’;
sndPlaySound(‘E:\nyoba.wav’, SND_NODEFAULT Or SND_ASYNC Or
SND_LOOP);
end

Nah dari tulisan diatas saya memang agak bingung untuk alur programnya nanti saya jawab alur yang saya pahami saja ya soalnya detail diatas masih kurang jelas. untuk code dari masnya sudah betul untuk tampilan sound hanya ada beberapa kesalahan pada penggunaan ifnya saja, nah monggo simak alur yang coba saya jawab berdasarkan yang saya pahami.

Pertama Buat Form Baru sebagai berikut :

design formnya

Nah aturlah Properties Namenya Sebagai Berikut :

Nah Berikut ini adalah alur programnya :

• Jika Program Dijalankan maka Text_a bernilai 0 dan kita bisa memulai program dengan mengklik Button_mulai.
• Jika Button_mulai Di Klik maka Text_a akan berjalan dengan penambahan penyataan a+2 setiap time interval 250 di timer 1. dan Caption Button_mulai Berubah Jadi Stop.
• Saat Nilai Text_a > 0 maka akan muncul tulisan pada label_suara : ‘ ini adalah suara Ayam  ~ ~ ~ ‘, kemudian image muncul gambar Ayam dan memainkan sound wave untuk ayam yang sudah disediakan.
• Saat Nilai Text_a > 50 maka akan muncul tulisan pada label_suara : ‘ ini adalah suara Kodok ~ ~ ~ ‘, kemudian image muncul gambar kodok dan memainkan sound wave untuk kodok yang sudah disediakan.
• jika nilai Text_a >100 maka gambar hilang, label kembali semula dan button_mulai Kembali Menjadi mulai dan text_a kembali bernila 0;

note: format gambar yang digunakan dengan format Bmp ya karena format jpg tidak support untuk image untul langsung load. format suara juga digunakan format wav yang sudah support tanpa ada penambahan komponent lainnya.

_______________________________________________________________________________

Berikut ini adalah listing Codenya :

tambahakan componet MMSystem pada list Uses di list kode paling atas delphi yang digunakan untuk pemutaran file wav ( lihat gambar dibawah ini ) :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

</pre> procedure TForm1.Timer1Timer(Sender: TObject); var a:integer; begin a:=strtoint(edit_a.Text); a:=a+2; edit_a.Text:=inttostr(a);   if a>100 then begin button_mulai.Caption:='Mulai'; timer1.Enabled:=false; timer_kodok.Enabled:=false; timer_ayam.Enabled:=false; sndPlaySound(nil, 0); // Stops the sound edit_a.Text:='0';   image1.Picture:=nil; label_suara.Caption:='ini adalah Suara ???? ~ ~ ~' end else if a>50 then begin label_suara.Caption:='ini adalah Suara Kodok ~ ~ ~'; image1.Picture.LoadFromFile('C:\main_suara_wat\picture\kodok.bmp'); timer_ayam.Enabled:=false; timer_kodok.Enabled:=true; end else begin label_suara.Caption:='ini adalah Suara Ayam ~ ~ ~'; image1.Picture.LoadFromFile('C:\main_suara_wat\picture\ayam.bmp'); timer_ayam.Enabled:=true; timer_kodok.Enabled:=false; end;   end;

saat timer1.enabled:=true maka akan menjalankan list code diatas dimana akan ada penambahan nilai a yang akan di tampilkan pada text_a. Jika nilai a bernilai > 50 maka akan tampil label tulisan suara kodok, gambar kodok dan suara kodok dengan menjalankan timer_kodok, selain dari a>50 maka ia akan bernilai ayam dan jika sudah lebih dari 100 maka akan di stop keseluruhan aktivitas timer.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.button_mulaiClick(Sender: TObject); begin     if button_mulai.Caption='Mulai' then     begin       button_mulai.Caption:='Stop';       timer1.Enabled:=true;       timer_ayam.Enabled:=false;       timer_kodok.Enabled:=false;     end   else     begin       button_mulai.Caption:='Mulai';       timer1.Enabled:=false;       timer_ayam.Enabled:=false;       timer_kodok.Enabled:=false;       sndPlaySound(nil, 0); // Stops the sound       edit_a.Text:='0';       image1.Picture:=nil;       label_suara.Caption:='ini adalah Suara ???? ~ ~ ~'     end;   end;

Jika caption button adalah Mulai maka akan menyalakan Timer1 dan jika Caption Button adalah Stop dan di klik maka akan mematikan timer1.

1 2 3 4 5 6 7

procedure TForm1.timer_ayamTimer(Sender: TObject); begin         sndPlaySound('C:\on_request\sound\ayam.wav', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);       timer_ayam.Enabled:=false;   end;

Jika Timer Ayam dinyalakan dengan enabled = true maka akan menjalankan file suara ayam.

1 2 3 4 5

procedure TForm1.Timer_kodokTimer(Sender: TObject); begin       sndPlaySound('C:\on_request\sound\kodok.wav', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);       timer_kodok.Enabled:=false; end;

Jika Timer kodok dinyalakan dengan enabled = true maka akan menjalankan file suara kodok.

_______________________________________________________________________________

Nah Berikut ini adalah tampilan hasil aplikasinya .

mulai program dengan klik button mulai

nilai teks a jika < 50 maka akan tampil suara dan gambar ayam

jika nilai teks a > 50 maka akan tampil suara dan gambar kodok

Nah jika nilai teks sudah lebih dari 100 ia akan otomatis kembali ke awal dengan Caption Button Menjadi Mulai dan gambar hilang dan Suara Hilang.. Nah itulah yang bisa saya jawab untuk pertanyaan listing kode delphi yang pertama masuk kesaya ini hehehehe.

Untuk Temen Temen yang mau liat sourcecodenya secara jelas untuk copy paste maka temen temen bisa lihat di pojok kanan atas listcode bisa temen temen klik yang view sourcecode untuk menampilkan codenya, perhatikan gambar berikut :

klik view sourcecode di kanan atas ( dilingkari merah )

contoh tampilan sourcecode saat sudah di klik d(^o^”)

Semoga Berguna dan untuk Temen temen :). klik disini

 

Delphi- Timer Hitung Mundur Games

Pertama Buat Form Baru sebagai berikut :

design form aplikasi

Nah aturlah Properties Namenya Sebagai Berikut :

Properties Name

Nah Berikut ini adalah alur programnya :

• Jika Tombol Start Di Klik Maka Panel timer akan menentukan jumlah detik yang akan dihitung mundur pada program ini saya mensetting 5 detik saja supaya gampang melihat hasilnya. saat itu pula button Start akan enabled false dan button pause akan aktif dan timer mulai menghitung mundur perdetik.
• Jika Button Pause di Klik maka hitung mundur akan berhenti dengan mematikan timernya dan button pause akan berubah nama menjadi lanjut.
• Jika Button lanjut di klik makan kan menjalankan kembali timer dan hitungan mundur dan Button kembali mejadi Pause.
• Jika Nilai Timer sudah menjadi 0 maka timer akan berhenti dan muncul konfirmasi bahwa waktu ada sudah habis dan kembali kesemula dengan button start yang aktif.
• Jika button keluar diklik makan akan muncul konfirmasi keluar dari program jika ya makan akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing Codenya :

1 2 3 4 5 6 7 8

</p>   <pre>procedure Tfrm_hitungmundur.FormCreate(Sender: TObject); begin     button_pause.Enabled:=false;   end;

Pada Saat Aplikasi Dijalankan maka tampilan awal button Start Aktif namun Button pause tidak aktif. Dan Timer dalam keadaan tidak aktif juga panel timer hanya bernilai tulisan timer.

1 2 3 4 5 6 7 8 9

procedure Tfrm_hitungmundur.button_startClick(Sender: TObject); begin     panel_timer.Caption:='5';   timer1.Enabled:=true;   button_start.Enabled:=false;   button_pause.Enabled:=true;   end;

Saat Button Start di klik makan panel timer akan menampilkan nilai atau jumlah detik yang akandiberikan untuk kasus kali ini saya hanya memakan nilai 5 agar mudah dilihat hasilnya. dan Button Start menjadi tidak aktif dan button pause diaktifkan. Timer mulai berjalan berhitung sesuai interval yang diatur 1000 atau akan berjalan per 1 detik.

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

procedure Tfrm_hitungmundur.Timer1Timer(Sender: TObject); var   waktu:integer; begin     if panel_timer.Caption='0' then     begin       timer1.Enabled:=false;       showmessage('Maaf Waktu anda habis');       button_start.Enabled:=true;       button_pause.Enabled:=false;     end   else     begin       waktu:=strtoint(panel_timer.Caption);       waktu:=waktu-1;       panel_timer.Caption:=inttostr(waktu);     end;   end;

Saat Timer diaktifkan maka ia akan menjalankan nilai panel timer terus mengurahi satu nilai sehingga terlihat seperti hitungan mundur berdasarkan timer 1 detik yang sudah disetting. jika nilai panel timer sudah mencapai batas 0 maka timer akan di matikan dan muncul konfirmasi masi bahwa waktu anda sudah habis.

1 2 3 4 5 6 7 8 9

procedure Tfrm_hitungmundur.button_keluarClick(Sender: TObject); begin     if(application.MessageBox('Yakin Akan keluar dari Permainan','Konfirmasi',MB_YesNo)=ID_Yes) then     begin       close;     end;   end;

Jika Button Keluar diklik maka akan muncul konfirmasi keluar jika pemilihan nilai yes maka akan keluar dari program.

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

procedure Tfrm_hitungmundur.button_pauseClick(Sender: TObject); begin     if button_pause.Caption='Pause' then     begin       timer1.Enabled:=false;       button_pause.Caption:='Lanjut';     end   else     begin       timer1.Enabled:=true;       button_pause.Caption:='Pause';     end;   end;

Jika button pause diklik maka akan mematikan timer dan waktu hitung mundurpun berhenti, dan saat itu nama button menjadi lanjut, jika button lanjut maka akan menjalankan kembali nilai timernya dan panel timer kembali melakukan hitung mundur.

_______________________________________________________________________________

Nah Berikut ini adalah tampilan hasil aplikasinya .

tampilan awal kita bisa memulai hitung mundur dengan klik start

timer berjalan mundur dan button pause aktif

JIka waktu mundur sudah mencapai nilai 0 maka akan muncul peringatan waktu habis

jika button keluar diklik makan akan muncul peringan keluar

Nah ia akan berjalan mundur sesuai dengan nilai yang kita masukkan pada tombol start. jika sudah mencapai 0 maka akan muncul notifikasi bahwa waktu habis dan akan mengulang kembali ke kondiri awal.

~ *** ~

Untuk Temen Temen yang mau liat sourcecodenya secara jelas untuk copy paste maka temen temen bisa lihat di pojok kanan atas listcode bisa temen temen klik yang view sourcecode untuk menampilkan codenya, perhatikan gambar berikut :

klik view sourcecode di kanan atas ( dilingkari merah )

contoh tampilan sourcecode saat sudah di klik d(^o^”)

Semoga Berguna dan untuk Temen temen :). klik disini

 

Delphi – Karakter Angka Saja Pada Edit Box

• Pertama-tama temen temen bisa buat design form sebagai berikut :

• Aturlah Properties Namenya sebagai Berikut :

Nau untuk alur programnya adalah sebagai berikut :

• Saat program berjalan setfocus pada edit box.
• Saat Edit Di Ketikkan Maka hanya bisa memasukkan angka saja dari 0 s/d 9 jika abjad tidak bisa diketikan.
• jika button keluar diklik makan akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing codenya :

Pilih Edit Nama kemudian lihat di Object Inspectornya Pilih Tab Event. Kemudian Klik 2 Kali pada event Key Press.

1 2 3 4

procedure Tfrmmateri33.btnkeluarClick(Sender: TObject); begin   close; end;

Edit Box hanya bisa diisi oleh angka saja.

1 2 3 4 5

procedure Tfrmmateri33.editangkaKeyPress(Sender: TObject; var Key: Char); begin   if not ( key in['0'..'9', #8, #13]) then     key:= #0 ; end;

Jika button keluar di Klik maka keluar dari program.

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

Saat Edit Nama di isi hanya bisa diisi dengan Angka Saja.

Button Keluar di Klik makan akan keluar dari program

klik disini

 

Delphi – Fungsi Enter Pada Edit Box

• Pertama-tama temen temen bisa buat design form sebagai berikut :

• Aturlah Properties Namenya sebagai Berikut :

Nau untuk alur programnya adalah sebagai berikut :

• Saat program Set Focus Kurso Pada Edit Box Nama, Saat Edit Box Nama Di isi Dan Di Enter maka Kursos akan pindah ke Edit Cita Cita.
• Saat Edit Cita Cita Di isi dan di Enter maka akan pindah Set Fokus Ke Button Keluar.
• jika button keluar diklik makan akan keluar dari program.

_______________________________________________________________________________

Berikut ini adalah listing codenya :

Pilih Edit Nama kemudian lihat di Object Inspectornya Pilih Tab Event. Kemudian Klik 2 Kali pada event Key Press.

1 2 3 4 5 6 7

procedure TForm1.editnamaKeyPress(Sender: TObject; var Key: Char); begin   if key = chr(13) then     begin       editcitacita.setfocus;     end; end;

Jika Edit Box Nama Di Enter maka akan pindah ke Edit Box Cita Cita.

1 2 3 4 5 6 7

procedure TForm1.editcitacitaKeyPress(Sender: TObject; var Key: Char); begin   if key = chr(13) then     begin       btnkeluar.SetFocus;     end; end;

Jika Edit Box Cita Cita Di Enter maka akan pindah ke Button Keluar.

1 2 3 4

procedure TForm1.btnkeluarClick(Sender: TObject); begin   close; end;

Jika Button Keluar Di Klik maka akan keluar dari program

_______________________________________________________________________________

Nah dibawah ini adalah hasil tampilan programnya :

Saat Edit Nama di isi dan di enter maka set focus akan pindah ke Edit box Cita Cita.

Button Keluar di Klik makan akan keluar dari program

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Fungsi Enter pada Edit Box. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”).

klik disini

 

Delphi – Simulasi Lampu Lalu Lintas

Untuk Materi kali ini sungguh simple temen temen dimana kita hanya akan membuat Shape Warna yang akan hilang dan timbul di kondisi kondisi tertentu dan diulang terus sesuai dengan urutan urutannya yang sudah ditentukan. Hanya dengan menggunakan beberapa Code kita sudah bisa membuat Simulasi Lampu Lalu lintas menggunakan Delphi ini, Langsung aja kita bahas nich.

• Pertama Tama Temen Temen bisa buat design Form Sebagai Berikut : cukup gunakan 3 button.

• Atur Properties Namenya Seperti Gambar di bawah ini.

Nah berikut ini adalah alur Programnya :

• Form Setting Di Sebelah kanan atas untuk mensetting detik berjalannya lampu untuk jalanan Atas, Kanan, Bawah dan Kiri.
• Jika Button Aktifkan di Klik namun belum ada isi detik berjalan makan akan ada peringatan Data Setting Belum Terisi.
  
• Jika Semua sudah di Masukkan dan Button Aktifkan Di Klik maka akan berjalan sesuai dengan urutan arah jam dari Atas dulu yang boleh jalan, kemudian ke kanan, bawah dan kiri.
  
• Lampu Hijau dan merah diarahkan berseberangan karena nanti yang mereka lihat adalah yang ada di seberang mereka sesuai dengan setting waktu untuk tiap ruas jalan.
• Jika button Stop Di klik makan akan berhenti, dan jika button keluar di klik akan keluar dari program

_______________________________________________________________________________

Berikut ini adalah Source Codenya :

1 2 3 4

procedure Tform_materi16.button_informasiClick(Sender: TObject); var   Form1: TForm1;   kiri,bawah,atas,kanan,jatas,jkanan,jkiri,jbawah:integer;

Pertama-tama Buat Variable Integer dulu untuk Inisialisasi Waktu perdetik.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

procedure TForm1.btnaktifClick(Sender: TObject); begin   if(editsetatas.Text='') then     begin       application.Messagebox ('Maaf Setting Time Atas Masih ada yang kosong','Konfirmasi');       editsetatas.SetFocus;     end   else if(editsetbawah.Text='')then     begin       application.Messagebox ('Maaf Setting Time Bawah Masih ada yang kosong','Konfirmasi');       editsetbawah.SetFocus;     end   else if(editsetkanan.Text='')then     begin       application.Messagebox ('Maaf Setting Time Kanan Masih ada yang kosong','Konfirmasi');       editsetkanan.SetFocus;     end   else if(editsetkiri.Text='')then     begin       application.Messagebox ('Maaf Setting Time Kiri Masih ada yang kosong','Konfirmasi');       editsetkiri.SetFocus;     end   else     begin       kiri:=strtoint(editsetkiri.Text);       kanan:=strtoint(editsetkanan.Text);       atas:=strtoint(editsetatas.Text);       bawah:=strtoint(editsetbawah.Text);         editatas.Text:=inttostr(atas);       lamp.Enabled:=true;       editstatus.Text:='atas';       hijaubawah.Visible:=true;       hijauatas.Visible:=false;       hijaukiri.Visible:=false;       hijaukanan.Visible:=false;       merahbawah.Visible:=false;       merahatas.Visible:=true;       merahkiri.Visible:=true;       merahkanan.Visible:=true;     end; end;

Prosedur Button Aktif di klik masukkan code seperti diatas dmana setting pertama akan kita lakukan di jalanan atas dan menjalankan fungsi timer yang akan berfungsi sebagai detik yang menggerakkan settingan lampu lalu lintas yang sudah kita buat.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94

procedure TForm1.lampTimer(Sender: TObject); begin if(editstatus.Text='atas')then   begin     jatas:=strtoint(editatas.Text);     if(jatas<>0)then       begin         jatas:=jatas-1;         editatas.Text:=inttostr(jatas);       end     else       begin         editstatus.Text:='kanan';         editkanan.Text:=editsetkanan.Text;         jkanan:=strtoint(editkanan.Text);         hijaubawah.Visible:=false;         hijauatas.Visible:=false;         hijaukiri.Visible:=true;         hijaukanan.Visible:=false;         merahbawah.Visible:=true;         merahatas.Visible:=true;         merahkiri.Visible:=false;         merahkanan.Visible:=true;       end;   end else if(editstatus.Text='kanan')then   begin    jkanan:=strtoint(editkanan.Text);     if(jkanan<>0)then       begin         jkanan:=jkanan-1;         editkanan.Text:=inttostr(jkanan);       end     else       begin         editstatus.Text:='bawah';         editbawah.Text:=editsetbawah.Text;         jkanan:=strtoint(editkanan.Text);         hijaubawah.Visible:=false;         hijauatas.Visible:=true;         hijaukiri.Visible:=false;         hijaukanan.Visible:=false;         merahbawah.Visible:=true;         merahatas.Visible:=false;         merahkiri.Visible:=true;         merahkanan.Visible:=true;       end;   end else if(editstatus.Text='bawah')then   begin   jbawah:=strtoint(editbawah.Text);     if(jbawah<>0)then       begin         jbawah:=jbawah-1;         editbawah.Text:=inttostr(jbawah);       end     else       begin         editstatus.Text:='kiri';         editkiri.Text:=editsetkiri.Text;         jkiri:=strtoint(editkiri.Text);         hijaubawah.Visible:=false;         hijauatas.Visible:=false;         hijaukiri.Visible:=false;         hijaukanan.Visible:=true;         merahbawah.Visible:=true;         merahatas.Visible:=true;         merahkiri.Visible:=true;         merahkanan.Visible:=false;       end;   end else   begin      if(jkiri<>0)then       begin         jkiri:=jkiri-1;         editkiri.Text:=inttostr(jkiri);       end     else       begin         editstatus.Text:='atas';         editatas.Text:=editsetatas.Text;         jatas:=strtoint(editatas.Text);         hijaubawah.Visible:=true;         hijauatas.Visible:=false;         hijaukiri.Visible:=false;         hijaukanan.Visible:=false;         merahbawah.Visible:=false;         merahatas.Visible:=true;         merahkiri.Visible:=true;         merahkanan.Visible:=true;       end;   end; end;

Jika Timer diaktifkan maka fungsi inilah yang akan berjalan perdetiknya. dimana jika edit setatus bertuliskan atas maka fungsi atas yang akan berjalan sesuai dengan detik yang sudah di setting. jika detik atas sudah habis maka otomatis memindahkan ke status kanan, dan code kanan akan berjalan hingga detik terakhir dan begitu seterusnya sampai kembali lagi keatas.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.Button1Click(Sender: TObject); begin   lamp.Enabled:=false;     editatas.Text:='';   editbawah.Text:='';   editkiri.Text:='';   editkanan.Text:='';     editsetatas.Text:='';   editsetbawah.Text:='';   editsetkiri.Text:='';   editsetkanan.Text:='';     editstatus.Text:='';     hijaubawah.Visible:=false;   hijauatas.Visible:=false;   hijaukiri.Visible:=false;   hijaukanan.Visible:=false;   merahbawah.Visible:=false;   merahatas.Visible:=false;   merahkiri.Visible:=false;   merahkanan.Visible:=false;   end;

 Jika Button Stop Di klik maka kita akan mematikan fungsi timer dan mebersihkan semua fielt teks dan menghilangkan lampu yang menyala.

1 2 3 4

procedure TForm1.Button2Click(Sender: TObject); begin    close; end;

 JIka button keluar di klik maka akan keluar dari program.

_______________________________________________________________________________

Nah Berikut ini adalah Hasil Program Saat Dijalankan \(^o^”)/ :

Tampilan Awal Program Dijalankan

Isikan Setting Detik untuk Tiap Ruas Jalan, jika masih kosong ada konfirmasi saat button aktif di klik

Saat Diaktifkan, Awal berjalan dari Jalan Atas dimana ia akan melihat lampu di seberang jalannya yang saling berserbrangan, jalan arus searah jarum jam saat detik sudah mencapat nilai 0 akan berpindah.

Semua berhenti setelah button stop di klik

  

Nah Selesailah Materi Delphi kita di hari ini untuk membuat Simulasi Lampu Lalu Lintas dengan Delphi, Gampang Banget kan – Tentunya Dunk. klik disini