MemeArt

20 FAKTA SEPUTAR CINTA GAUL ala Anak-anak Masa Kini

20 FAKTA SEPUTAR CINTA GAUL ala Anak-anak Masa Kini

Siapa yang sedang dilanda mabuk asmara? Atau ada yang sedang galau atau patah hati? Mungkin apa yang kalian alami sudah terangkum pada g...

13:28

Gara- Gara Makanan Pedas, Bisnis Willy Raup Puluhan Juta Rupiah

<br /><div class="separator" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em; text-align: center;"><img border="0" height="137" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihQ_ZtGdfvJxx-a6KxRsa7eJWovRVRu_lhlpB_K5T5BRmn61cIgE0YBlXvEXs-db5Q838QxZG_ZnAaS0x3kkByZJisBq5gLNyo0Srd0KwIKZCuwroWw3UfjJ1CvxlaBBFFh27U3NBxmf4K/s320/Makanan-Pedas-Bisnis-Willy-Raup-Puluhan-Juta-Rupiah.jpg" width="320" /></div><br /><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Di Bandung, tersebar tempat-tempat yang menyajikan kekhasan dalam kuliner, termasuk tempat khusus menjual penganan pedas. Adalah Toserda alias Toko Serba Lada, buah pikiran Willyhono, yang menyediakan makanan tersebut.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Willy, sapaan Willyhono, menceritakan bahwa bisnisnya ini adalah menjajakan makanan pedas dari berbagai jenis. Usahanya itu merupakan kelanjutan dari kegiatan awalnya, yaitu menjajakan produk penganan pedas.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">“Dulu, saya menjual satu produk saja, yaitu bawang pedas. Namanya, Bawang Pedas Balalada buatan teman saya,” kata dia.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Setelah memasarkan keripik itu, pria kelahiran 1983 ini melihat respons pasar terhadap penganan pedas sangat bagus. Dari sinilah, tercetus pemikiran untuk mendirikan usaha menjual makanan pedas.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Toserda Makanan Pedas, Bisnis Willy Raup Puluhan Juta Rupiah“Kalau saya lihat, respons konsumen bagus. Rata-rata orang Indonesia suka makanan pedas,” kata dia.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Willy kemudian memutuskan untuk mengembangkan usaha itu dan memperbanyak jenis dagangannya. Namun, dia tidak serta-merta membuat toko online.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Pertama, dia membangun toko di Jalan Padjajaran No. 4, Bandung. Modal awalnya sebesar Rp10-15 juta. Untuk nama toko yang bangunannya seluas 25 meter persegi itu, dia sengaja memilih akronim dan ada unsur bahasa Sunda.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">“Orang-orang tahunya Toserba, toko serba ada. Tapi, saya pilih Toserda, toko serba lada. Kata ‘lada‘ dalam bahasa Sunda, kan, artinya pedas,” kata dia.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Lalu, dia juga mulai memperbanyak jenis dagangannya, mulai dari bawang goreng pedas, keripik, kerupuk, abon, sambal, rendang, bahkan cokelat. Produk dagangannya memiliki tingkat kepedasan, mulai level satu untuk pedas hingga level enam untuk sangat pedas.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Makanan Pedas, Bisnis Willy Raup Puluhan Juta RupiahPenganan itu pun beraneka macam ukurannya, mulai 100 gram, 300 gram, dan 400 gram. Harganya juga bervariasi, mulai dari Rp5.000 hingga Rp. 59.000.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">“Yang Rp. 5.000 itu keripik, beratnya 100 gram dan Rp. 59.000 adalah rendang kering,” kata pria lulusan Universitas Parahyangan, Bandung itu.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Barang dagangan itu, Willy memperolehnya dari para produsen makanan home industri yang ada di daerah Bandung dan sekitarnya.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div class="separator" style="clear: both; text-align: center;"><img border="0" height="181" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-N7as3qOIBmLSQQxtSsVNX8EA7FqCbZw2v0CfuB4VyGEJMos1psHXwZcxSIByEtxv-7PJtwdbO38ljMDc5eAALL2EJejTwuMwfzZdF3jp86JmAt2AiVo4dSXTMm59SHDRqWyAVAnTSvgB/s320/Makanan-Pedas-Willy-Raup-Puluhan-Juta-Rupiah.jpg" width="320" /></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">“Tapi, kalau untuk abon, saya juga mendapatkannya dari Cirebon, Medan, Jakarta, dan Surabaya. Untuk cokelat, saya mengambil produk Chocodot dari Garut dan Monggo dari Jawa (Yogyakarta) dan harganya berkisar Rp. 10-15 ribu per kemasan,” kata dia.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Ada dua cara, tambah Willy, untuk memasok barang dagangan ke tokonya, yaitu dengan beli putus dan titip dagangan. Kalau sistem beli putus, dia membeli sendiri barang untuk dijual, sedangkan sistem titip barang, produsen penganan itu yang menitipkan dagangannya ke tokonya. Cara titip barang ini yang paling banyak digunakan para supplier Toserda.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">“Saya hanya mengambil marjin keuntungan 20 persen dari dagangan mereka,” kata dia.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Tapi, tidak semua penganan pedas yang bisa masuk ke daftar jualannya. Pria ini mensurvei dahulu calon dagangannya. “Saya lihat-lihat dulu dagangannya, mana yang paling laris. Sambal biasanya habis 10 kemasan per minggu, sedangkan basreng (bakso goreng) habis 100-200 bungkus per minggu,” ujarnya.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><b>Omzet Rp70 juta</b></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Namun, usahanya ini tidak selamanya manis. Willy mengaku sempat mengalami pasang surut berjualan penganan pedas. Saat keripik pedas sedang booming, dia mampu meraup omzet Rp. 60-70 juta per bulan.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Karena sudah banyak pesaingnya, kini Toserda hanya bisa mendapat omzet setengahnya. “Kalau sekarang omzetnya sebesar Rp. 30 juta per bulan,” kata sarjana matematika ini.</span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Kini, ia memiliki lima pekerja, termasuk dirinya, yaitu dua orang pegawai offline, satu orang karyawan online, dan satu orang programmer.</span></div><div style="text-align: justify;"><br /></div>

Gara- Gara Makanan Pedas, Bisnis Willy Raup Puluhan Juta Rupiah

Di Bandung, tersebar tempat-tempat yang menyajikan kekhasan dalam kuliner, termasuk tempat khusus menjual penganan pedas. Adalah Toserda ali...

12:29

Cak Asmo, Berawal dari Gerobak Dorong Jadi Pengusaha Restoran

<span style="font-family: arial, helvetica, sans-serif; text-align: justify;">Cak Asmo, Berawal dari Gerobak Dorong Jadi Pengusaha Restoran</span><br /><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><img border="0" height="240" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjFZs8O04E0lXbHfsFMfzK0DVpsXgbRwadWB9CyWUPgwwxuYzhF-nTRAuoEvwnii9_4c75zIdeYwKJEiqEDqu8j8ZUjX3mEmfqPItagHHw93HROUJFey3rsD7SE8Kl34Kixrma8CEYdIsj6/s320/Kisah-Sukses-Cak-Asmo-Dari-Gerobak-Dorong-Jadi-Pengusaha-Restoran.jpg" style="text-align: center;" width="320" /><span style="font-family: "arial" , "helvetica" , sans-serif;">Cak Asmo merantau ke kota yang merupakan ikon pariwisata Indonesia itu (Bali) sejak tahun 1992 dengan satu tujuan, yaitu mencari nafkah. Pekerjaan pertamanya di Bali hanyalah membantu sang kakak berjualan mie dan nasi goreng dengan menggunakan gerobak dorong. Bekerja bagi sang kakak selama 6 bulan, pria yang hanya lulusan SMA itu akhirnya diberi sebuah Gerobak oleh sang kakak agar ia bisa berjualan sendiri.</span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Cak Asmo yang juga berjualan nasi goreng memilih untuk menjajakan dagangannya di depan kampus Udayana Sudirman Bali, sehingga yang membeli nasi gorengnya rata-rata adalah mahasiswa. Bermaksud mengembangkan usaha Asmo kemudian berpindah tempat, yaitu berjualan di depan sebuah toko. Sayang, keadaan tersebut tidak berlangsung lama karena posisinya hanya menumpang tempat, ia pun harus merelakan tempat jualannya digusur.</span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Selain berjiwa pengusaha, sebagai seorang Kristiani Cak Asmo juga memiliki iman yang kuat. Dalam keadaan yang sulit, Cak Asmo selalu berdoa pada Tuhan agar diberikan kelancaran dalam pekerjaannya. Seminggu kemudian doanya terkabul. Rekan satu gerejanya tiba-tiba memberikan sebuah ruko secara gratis untuk digunakan Asmo sebagai tempat berjualan.</span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Kisah Sukses Cak Asmo, Dari Gerobak Dorong Jadi Pengusaha RestorantDari situlah karir Asmo mulai menanjak. Rumah makan yang didirikan pada tahun 2007 itu berhasil mencuri perhatian masyarakat Bali. Salah satu alasan dari cepatnya rumah makan Cak Asmo berkembang adalah selain rajin berdoa, ia juga selalu menghadirkan menu-menu baru di rumah makannya. Hingga akhirnya rumah makan kecil tersebut menjadi sebuah depot yang tiap harinya dipadati masyarakat Bali maupun wisatawan.</span></div><img border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8qktderBtIHsB2sgiOUftXGfnmuiucm-dLtXEf6zTig_Ams0fz6qXv1dsGqPBOi0w8gPiAGlD1FzfUS7sC3Gvm-OYOK8Igtpu7lbQ__6GQQ9a9uekxnWvB8j7rTX2AiEy0jJQse8PFXBx/s320/Kisah-Sukses-Cak-Asmo-Dari-Gerobak-Dorong-Jadi-Pengusaha-Restorant.jpg" style="text-align: center;" width="320" /><br /><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Sukses dengan depot yang pertama, Asmo membuka satu depot lagi. Ditengah pengembangan karir yang menanjak, ujian kembali menerpa bagi pria paruh baya ini. Depot keduanya yang baru saja dibangun ludes terbakar. Diterpa masalah besar, bukannya membuat Asmo putus asa, malah ia semakin berserah kepada Tuhan dan berusaha bangkit dari keterpurukan. Akhirnya iapun mampu membangun kembali depot yang kedua.</span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Cak Asmo, Dari Gerobak Dorong Jadi Pengusaha RestoranSalah satu kunci sukses dari depot Cak Asmo sendiri adalah penetapan harga yang terjangkau bagi semua kalangan. Dengan moto “Cita Rasa Bos, Kantong Anak Kost”, depot tersebut sukses menjadi salah satu tempat yang paling banyak dikunjungi oleh para wisatawan dan masyarakat asli Bali. Bahkan beberapa orang berkata, “belum ke Bali namanya jika belum mengunjungi depot Cak Asmo”.</span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5km4ymdWz79G09JxSz-3XcHtpTk6pNy2ByHVgVCDQRI3RYrMSDFXkwmhtZKm5WupC4vRqtYcvSX4lpckx6B1bm3rkbmQWlWxvpY82giy94GTn6iSLgx0JqgOwqmYlwTc7kYfjAwOCYmlJ/s320/Cak-Asmo-Dari-Gerobak-Dorong-Jadi-Pengusaha-Restoran.jpg" style="text-align: center;" width="320" /><span style="font-family: "arial" , "helvetica" , sans-serif;">Meskipun telah sukses Cak Asmo tetaplah seorang pribadi yang rendah hati, Ia mengatakan bahwa kesuksesannya adalah datang dari Tuhan. “Jika bukan Tuhan, hidup saya tidak ada apa-apanya,” tambah Cak Asmo. Kini mantan pedagang nasi goreng ini sudah menjadi pengusaha sukses dan memperkerjakan lebih dari 60 orang karyawan.</span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div><div style="text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Kisah Sukses Cak Asmo, Dari Gerobak Dorong Jadi Pengusaha RestoranSegala kesuksesan semua berawal dari “Mimpi, Kerja Keras, & Doa“. 3 unsur inilah yang membawa pria perantauan bernama Cak Asmo menjadi salah satu pengusaha restoran ternama di Bali. Dengan memakai nama restoran sesuai namanya, tempat makanan ini kini menjadi salah satu favorit masyarakat ataupun para wisatawan di Bali.</span></div>

Cak Asmo, Berawal dari Gerobak Dorong Jadi Pengusaha Restoran

Cak Asmo, Berawal dari Gerobak Dorong Jadi Pengusaha Restoran Cak Asmo merantau ke kota yang merupakan ikon pariwisata Indonesia itu (Bali) ...

12:24

Latihan Perhitungan Aritmatika

<span style="color: #a31515; font-size: 10pt; line-height: 115%;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Latihan Perhitungan Aritmatika</span></span><br /><span style="color: #a31515; font-size: 10pt; line-height: 115%;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span><br /><div class="separator" style="clear: both; text-align: justify;"><img border="0" height="264" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBdKATMj2E7jzkOZlESdKqlo34ylMHnAAqlVgpcpHaeyog5lagR9hhQaYX8zJPr28tdWdDHS4l4kp-3YyNrGhIfqUFNf15xRS0dx1gO_5zydSbZD7ovGzswkGx8BvAO15-MK3A2S4tR8cQ/s320/Screenshot_27.png" width="320" /></div><div class="separator" style="clear: both; text-align: justify;"><br /></div><div class="separator" style="clear: both; text-align: justify;">Coding nya :</div><div class="separator" style="clear: both; text-align: justify;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: blue; font-size: 10pt;">Public</span><span style="font-size: 10pt;"> <span style="color: blue;">Class</span> Frlatihan3<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btClose_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btClose.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Me</span>.Close()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: blue;"><br /></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> txtBil1_KeyPress(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.Windows.Forms.KeyPressEventArgs) <span style="color: blue;">Handles</span>txtBil1.KeyPress<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">If</span>e.KeyChar = Chr(13) <span style="color: blue;">Then<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">            <span style="color: blue;">Me</span>.txtBil2.Focus()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">End</span> <span style="color: blue;">If<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> txtBil2_KeyPress(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.Windows.Forms.KeyPressEventArgs) <span style="color: blue;">Handles</span>txtBil2.KeyPress<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">If</span>e.KeyChar = Chr(13) <span style="color: blue;">Then<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">            <span style="color: blue;">Me</span>.btNew.Focus()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">End</span> <span style="color: blue;">If<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btNew_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btNew.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Me</span>.txtBil1.Clear()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Me</span>.txtBil2.Clear()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Me</span>.txtHasil.Clear()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Me</span>.txtBil1.Focus()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Frlatihan3_Load(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> <span style="color: blue;">MyBase</span>.Load<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: green;">'---Mengisi proferti objek Form<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Me</span>.Text = <span style="color: #a31515;">"Latihan Perhitungan Aritmatika"<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btTambah_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btTambah.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> b1, b2 <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Integer<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> h <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Double<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b1 = Val(txtBil1.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b2 = Val(txtBil2.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        h = b1 + b2<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        txtHasil.Text = h<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btKurang_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btKurang.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> b1, b2 <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Integer<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> h <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Double<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b1 = Val(txtBil1.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b2 = Val(txtBil2.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        h = b1 - b2<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        txtHasil.Text = h<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btKali_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btKali.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> b1, b2 <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Integer<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> h <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Double<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b1 = Val(txtBil1.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b2 = Val(txtBil2.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        h = b1 * b2<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        txtHasil.Text = h<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btBagi_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btBagi.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> b1, b2 <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Integer<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: blue;">Dim</span> h <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: blue;">Double<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b1 = Val(txtBil1.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        b2 = Val(txtBil2.Text)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        h = b1 / b2<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        txtHasil.Text = h<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: blue;"><br /></span></span></span></div><div class="separator" style="clear: both; text-align: justify;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: blue; font-size: 10pt; line-height: 115%;">End</span><span style="font-size: 10pt; line-height: 115%;"> <span style="color: blue;">Class</span></span></span></div><span style="color: #a31515; font-size: 10pt; line-height: 115%;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span><span style="color: #a31515; font-size: 10pt; line-height: 115%;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="http://cbiciamis.lkp.disdikbudcms.net/html/download.php?id=lihmateri&kode=56">Download di sini PDF</a></span></span>

Latihan Perhitungan Aritmatika

Latihan Perhitungan Aritmatika Coding nya : Public Class Frlatihan3 Private Sub btClose_Click( ByVal sender As System.Object, ByVal...

15:57

Latihan Pertama Menampilkan Hasil Inputan

<span style="font-family: Arial, Helvetica, sans-serif;">Latihan Pertama Menampilkan Hasil Inputan</span><br /><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span><div class="separator" style="clear: both; text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><img border="0" height="257" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4N29JUF22GCr56b3dKxdoR4P28TjiQ-8zONklxMbIQR2DRdQWJ1JcJl-IIy1nNfG4J1Z3RWXPemd-7BRPhncj0pN6u65K_PR18_YJewwbFK08uI1vEIfpFgOTxYM-Q1Gfgre4ig1M5umA/s320/Screenshot_3.png" width="320" /></span></div><div class="separator" style="clear: both; text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div class="separator" style="clear: both; text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;">Coding nya :</span></div><div class="separator" style="clear: both; text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-family: Arial, Helvetica, sans-serif;"><span style="color: blue; font-size: 10pt;">Public</span><span style="font-size: 10pt;"> <span style="color: blue;">Class</span> PrLatihan3<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><br /></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btKeluar_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btKeluar.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">        <span style="color: blue;">If</span>MsgBox(<span style="color: #a31515;">"Anda Yakin Ingin Keluar dari Aplikasi Ini"</span>, vbYesNo + vbQuestion + vbDefaultButton2, <span style="color: #a31515;">"Keluar"</span>) = vbYes <span style="color: blue;">Then<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">            <span style="color: blue;">Me</span>.Close()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">        <span style="color: blue;">End</span> <span style="color: blue;">If<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;"><span style="color: blue;"><br /></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btBersih_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btBersih.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">        txtNama.Clear()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">        txtAlamat.ResetText()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">        txtUmur.Text = <span style="color: #a31515;">""<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">        txtNama.Focus()<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;"><span style="color: blue;"><br /></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">    <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btTampilkan_Click(<span style="color: blue;">ByVal</span>sender <span style="color: blue;">As</span> System.Object, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>System.EventArgs) <span style="color: blue;">Handles</span> btTampilkan.Click<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">        MsgBox(<span style="color: #a31515;">"Nama Anda Adalah :"</span> & txtNama.Text & vbNewLine & _<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">               <span style="color: #a31515;">"Alamat Anda Adalah :"</span> & txtAlamat.Text & vbNewLine & _<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">               <span style="color: #a31515;">"Sekarang Umur Anda Adalah :"</span> & txtUmur.Text & vbNewLine)<o:p></o:p></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;">    <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></span></div><div class="MsoNormal" style="line-height: normal; margin-bottom: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: Arial, Helvetica, sans-serif;"><span style="color: blue;"><br /></span></span></span></div><div class="separator" style="clear: both; text-align: justify;">                                   </div><div class="MsoNormal"><span style="font-family: Arial, Helvetica, sans-serif;"><span style="color: blue; font-size: 10pt; line-height: 115%;">End</span><span style="font-size: 10pt; line-height: 115%;"> <span style="color: blue;">Class</span></span></span><span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-no-proof: yes;"><o:p></o:p></span></div><span style="font-family: Arial, Helvetica, sans-serif;"><br /></span>

Latihan Pertama Menampilkan Hasil Inputan

Latihan Pertama Menampilkan Hasil Inputan Coding nya : Public Class PrLatihan3 Private Sub btKeluar_Click( ByVal sender As System.O...