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 gambar-gambar yang unik berikut ini. Semua gambar dan isi fakta seputar cinta dirangkum oleh IGers (pengguna instagram.com) dengan akun @ukik.rm Nah mungkin penyeba…

20Dec2016

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 alias Toko Serba Lada, buah pikiran Willyhono, yang menyediakan makanan tersebut.Willy, sapaan Willyhono, menceritakan bahwa bisnisnya ini adalah menjajakan makana…

06Dec2016

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 RestoranCak 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 menggun…

06Dec2016

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 AritmatikaCoding nya :Public Class Frlatihan3 Private Sub btClose_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btClose.Click Me.Close() End Sub Private Sub txtBil1_KeyPress(ByValsender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEv…

04Dec2016

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 InputanCoding nya :Public Class PrLatihan3 Private Sub btKeluar_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles btKeluar.Click IfMsgBox("Anda Yakin Ingin Keluar dari Aplikasi Ini", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") …

04Dec2016

Latihan Pertama Menampilkan Nilai Object

<span style="color: #a31515; font-size: 10pt; line-height: 115%;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Latihan Pertama Menampilkan Nilai Object</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;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><img border="0" height="207" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg91BxANsALXi7_r4B5f3mOfjrAA8mj_uis7OtoczKwv5h-PygsTEAU2wiXrpBQMzV8KFD776e57-7vTKrQCPWFJDC7FknQxFXOZZeQ73OfI3V9BE0o-6VIZgpd7IJ2sc4BR_9Meiv3aDu0/s320/Screenshot_2.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> Frlatihan1<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> Form1_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: 0.0001pt; text-align: justify;"><span style="font-size: 10pt;"><span style="font-family: "arial" , "helvetica" , sans-serif;">        <span style="color: green;">'---mengisi properti objek Form<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>.Text = <span style="color: #a31515;">"Latihan Pertama Menampilkan Nilai Object"<o:p></o:p></span></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: green;">'---Mengisi objek label<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>.lblNim.Text = <span style="color: #a31515;">"No.Induk Mahasiswa"<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>.lblNama.Text = <span style="color: #a31515;">"Nama Lengkap"<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>.lblKelamin.Text = <span style="color: #a31515;">"Jenis Kelamin"<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>.lblAlamat.Text = <span style="color: #a31515;">"Alamat lengkap"<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>.lblKota.Text = <span style="color: #a31515;">"Asal Kota"<o:p></o:p></span></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: green;">'---mengisis objek Button<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>.btList.Text = <span style="color: #a31515;">"&List"<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>.btClear.Text = <span style="color: #a31515;">"&Clear"<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>.btExit.Text = <span style="color: #a31515;">"&Exit"<o:p></o:p></span></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;">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> btList_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> btList.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;">Me</span>.txtNim.Text = <span style="color: #a31515;">"2007-001"<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>.txtNama.Text = <span style="color: #a31515;">"Zen Munawar ST"<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>.txtKelamin.Text = <span style="color: #a31515;">"Pria"<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>.txtAlamat.Text = <span style="color: #a31515;">"Jl. Gatsu No 123, Binong Jati"<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>.txtKota.Text = <span style="color: #a31515;">"Bandung"<o:p></o:p></span></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;">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> btClear_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> btClear.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;">Me</span>.txtNim.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;">        <span style="color: blue;">Me</span>.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;">        <span style="color: blue;">Me</span>.txtKelamin.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;">        <span style="color: blue;">Me</span>.txtAlamat.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;">        <span style="color: blue;">Me</span>.txtKota.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;">        <span style="color: blue;">Me</span>.txtNim.Focus()<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;">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> btExit_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> btExit.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;">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;">Sub<o:p></o:p></span></span></span><br /><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" style="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><span lang="EN-US" style="color: blue; font-family: "courier new"; font-size: 10.0pt; line-height: 115%;"><o:p></o:p></span><br /><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: 10pt; line-height: 115%;"><span style="color: blue;"><br /></span></span></span><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: 10pt; line-height: 115%;"><span style="color: blue;"><a href="http://cbiciamis.lkp.disdikbudcms.net/html/download.php?id=lihmateri&kode=55">Download di sini PDF</a></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>

Latihan Pertama Menampilkan Nilai Object

Latihan Pertama Menampilkan Nilai ObjectCoding nya :Public Class Frlatihan1 Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load '---mengisi properti objek Form Me.Text = "Latihan Pertama Menampilkan Nilai Object" '---Mengisi ob…

04Dec2016

Materi VISUAL BASIC

Materi VISUAL BASIC

Materi VISUAL BASICMateri Pertemuan PertamaMateri Pertemuan KeduaMateri Pertemuan Ketiga…

04Dec2016

Materi Program Paket Niaga II PPN II

Materi Program Paket Niaga II PPN II

Materi Program Paket Niaga II PPN II Materi PPN2- Ms Power Point 2007 Materi PPN2- Ms Access …

04Dec2016

Bisnis Kerupuk Padang Pasir Omset 90 juta/bulan

<div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-QVY86XW3oRSTAoyIdm9jl4Q89ezSha08kHaMITQQx4L1M9yUfOAxRjpjM7Zp7ATG1wronXuo8WUmjzIec8aI9crM5rva5-dGcL0NNTCjkdgRSUXxFJ7xSQz4A12uJBMUPE9ti77vQnGC/s1600/Bisnis-Kerupuk-Padang-Pasir1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="132" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-QVY86XW3oRSTAoyIdm9jl4Q89ezSha08kHaMITQQx4L1M9yUfOAxRjpjM7Zp7ATG1wronXuo8WUmjzIec8aI9crM5rva5-dGcL0NNTCjkdgRSUXxFJ7xSQz4A12uJBMUPE9ti77vQnGC/s200/Bisnis-Kerupuk-Padang-Pasir1.jpg" width="200" /></a><span style="font-family: "arial" , "helvetica" , sans-serif;">Kedengarannya Aneh jika kita belum pernah dengar yang namanya “Kerupuk Padang Pasir”. Sebutan kerupuk Padang pasir sangat beralasan karena proses penggorengannya yang dilakukan dengan menggunakan media pasir halus</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;">Bambang Suparno (49), warga Dusun Jeruk, Desa Tugurejo, Kecamatan Ngasem, Kabupaten Kediri, Jawa Timur, ini patut diacungi jempol. Dari usahanya berdagang kerupuk goreng pasir, mantan buruh migran ini dapat mengantongi omzet hingga Rp 90 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;">Pekerjaan yang dilakukan Bambang adalah menggoreng kerupuk tanpa minyak. Ia mengganti minyak goreng dengan pasir halus hasil penyaringan. Dengan bantuan pengapian, kerupuk tetap mekar. Cara penggorengan inilah yang membuat jenis kerupuk ini disebut kerupuk padang pasir.</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;">Kerupuk yang digoreng dengan teknik ini rasanya akan sedikit berbeda jika dibandingkan dengan yang menggunakan minyak goreng. Kelebihan lain adalah rendah kolesterol dan tentu saja lebih hemat dalam menekan biaya produksi. Bahkan, risiko untuk melempem dapat ditekan karena dapat didaur ulang.</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;">Varian rasanya juga bernacam-macam. Setidaknya ada tujuh rasa yang dibuat oleh pria yang memulai usahanya sejak tahun 2001 ini. Ada rasa pedas, manis, pedas manis, terasi, rujak, seledri, bawang, serta ubi. Pemberian rasa dilakukan dengan dua cara, yaitu bumbu dicampur dengan kerupuk sebelum digoreng atau dicampur setelah digoreng.</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;">Kerupuk yang selesai digoreng kemudian dikemas dalam plastik ukuran setengah kilogram dan panjang 30-40 sentimeter. Setiap bungkus ukuran besar ia jual seharga Rp 1.000-Rp 2.500. Tiap rasa juga memengaruhi harga.</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;">Kerupuk yang sudah dikemas kemudian dikirim kepada agennya yang tersebar di beberapa kota, seperti Kediri, Nganjuk, Kertosono, Jombang, Bojonegoro, Tuban, Ngawi, Malang, dan Sidoarjo. Agen tersebut adalah pedagang di pusat oleh-oleh di kota masing-masing.</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;">Bisnis Kerupuk Padang Pasir1Bambang termasuk pengusaha yang ulet dalam bekerja. Untuk usahanya itu, ia hanya mempekerjakan empat tenaga pria yang bertugas mulai dari menjemur kerupuk hingga menggoreng. Pengemasan dilakukan oleh istri dan enam anaknya serta beberapa tenaga borongan yang juga para tetangganya.</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;">“Kalau saya sendiri bertugas di pengaturan serta pengiriman barang ke kota-kota,” kata pemilik usaha penggorengan kerupuk padang pasir dengan merek Arofah ini, Senin (4/6/2012). Perkembangan usahanya lumayan bagus. Pada awal memulainya, ia hanya memproduksi 30 kilogram kerupuk dan itu pun untuk beberapa hari. Karena permintaan yang selalu ada, ia terus terpacu untuk mengembangkan usahanya sehingga kini produksi per hari mencapai 2,5 kuintal.</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;">“Kalau tentang omzet begini saja, harga bahan kerupuknya per kilo Rp.12.000, lalu kalikan 250 kilogram, dikali lagi selama 30 hari. Berapa itu hasilnya, silakan dikira-kira sendiri,” ungkapnya.</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;">Menemukan jenis usaha ini bukanlah jalan yang mudah baginya. Beberapa profesi pernah ia jalani, mulai dari kuli bangunan di negeri seberang hingga penjual bakso keliling. Pernah pula ia hendak berdagang oli pelumas sesuai ajakan rekannya, tetapi urung dilakukan karena khawatir dengan risikonya.</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 berjualan kerupuk karena melihat saudara saya ada di bidang ini. Setelah saya pelajari, saya menjadi yakin sehingga saya ikut terjun,” tutur Bambang sambil mengingat masa lalunya.</span></div>

Bisnis Kerupuk Padang Pasir Omset 90 juta/bulan

Kedengarannya Aneh jika kita belum pernah dengar yang namanya “Kerupuk Padang Pasir”. Sebutan kerupuk Padang pasir sangat beralasan karena proses penggorengannya yang dilakukan dengan menggunakan media pasir halusBambang Suparno (49), warga Dusun Jeruk, Desa Tugurejo, Kecamatan Ngasem, Kabupaten Ked…

03Dec2016

Materi Program Paket Niaga I

<span style="font-family: "arial" , "helvetica" , sans-serif;">DAFTAR ISI</span><br /><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span><br /><div class="separator" style="clear: both; text-align: left;"><img border="0" height="385" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjXHNSiICEYZPe0m9pddBbwBUpjNHZmaSbwSLUdqIYoQqnXh5d8dOsK-zs-A4psMOLP4z0Pu1i4z6z2DpXhwfnuT7cm0URLyXqRsRc660V19P5zi2dCgC2duxowRUPbG9EJLhaddUkvUHyU/s640/indonesia_wallpaper_by_ghozai-d3kqb61.jpg" width="640" /></div><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span><ol><li><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://drive.google.com/open?id=0B88qqVkO4O1NVnFlelh2dm5XQ28">Materi 1 - PPN1 - MsWord</a></span></li><li><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://drive.google.com/open?id=0B88qqVkO4O1NTFhSMkVJM2JkNUE">Materi 1 - PPN1 - EXCEL - LEMBAR KERJA MAHASISWA</a></span></li></ol>

Materi Program Paket Niaga I

DAFTAR ISIMateri 1 - PPN1 - MsWordMateri 1 - PPN1 - EXCEL - LEMBAR KERJA MAHASISWA…

03Dec2016

Perkenalan Pribadi

<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: "arial" , "helvetica" , sans-serif;">Data Pribadi</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDcDD82bwJKsLRC4kODZdhDio_Mu4iTgTqergMwEj_XKSEuOHBNO1ZdkzhIB8Krfy4o7XjvrkFKplbDnpbGjFHgsqmkm5QLQvvtj-kgY5BPr99kigKsrwl-YiTDx3T42x-f2sDc5-m0SPW/s1600/28112aaa.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="200" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDcDD82bwJKsLRC4kODZdhDio_Mu4iTgTqergMwEj_XKSEuOHBNO1ZdkzhIB8Krfy4o7XjvrkFKplbDnpbGjFHgsqmkm5QLQvvtj-kgY5BPr99kigKsrwl-YiTDx3T42x-f2sDc5-m0SPW/s200/28112aaa.jpg" width="197" /></a></div>
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span><span style="font-family: "arial" , "helvetica" , sans-serif;">Nama lengkap : Aceng Taofik, S.Kom</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif;">Alamat :</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif;">Tempat, Tanggal Lahir :</span><br />
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></div>

Perkenalan Pribadi

Data Pribadi Nama lengkap : Aceng Taofik, S.Kom Alamat : Tempat, Tanggal Lahir : …

03Dec2016

Load more posts

MemeArt

20 FAKTA SEPUTAR CINTA GAUL ala Anak-anak Masa Kini

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

Cak Asmo, Berawal dari Gerobak Dorong Jadi Pengusaha Restoran

Latihan Perhitungan Aritmatika

Latihan Pertama Menampilkan Hasil Inputan

Latihan Pertama Menampilkan Nilai Object

Materi VISUAL BASIC

Materi Program Paket Niaga II PPN II

Bisnis Kerupuk Padang Pasir Omset 90 juta/bulan

Materi Program Paket Niaga I

Perkenalan Pribadi

Weekly Posts

Category