tag:blogger.com,1999:blog-8816018617908060552024-03-13T21:59:48.743+07:00Pemrograman Visual BasicBerbagi informasi tentang bahasa pemograman vb6 serta aplikasinyaYosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.comBlogger9125tag:blogger.com,1999:blog-881601861790806055.post-20316352531695364112015-04-05T09:55:00.001+07:002023-06-14T08:53:15.280+07:00Magnet Machine ver.01<embed align="left" allowscriptaccess="always" height="250" width="400" pluginspage="http://www.macromedia.com/go/getflashplayer" quality="high"
src="https://drive.google.com/file/d/0B1PHYSjiZ2wtakN1RFNZc1JsTWc/view?usp=sharing"
type="application/x-shockwave-flash" width="1000"></embed>Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com0tag:blogger.com,1999:blog-881601861790806055.post-24415932797826188512013-07-24T16:29:00.000+07:002017-03-19T22:59:50.040+07:00Software Koperasi Karyawan Garuda (KOKARGA)<span style="font-size: small;"><span style="font-size: small;"><a href="http://siskop.com">Software Koperasi Karyawan</a> Garuda adalah merupakan sub system pembukuan KOKARGA. Dibuat sesuai permintaan dan kebutuhan <span style="font-size: small;">penggunanya.</span></span></span><br />
<br />
<a href="http://www.kokarga.com/"><img alt="Software Koperasi Karyawan Garuda - MDI Form" border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpZV5t9Obpsv3wG2bgY-VTwS-A7CDsaok7TDTywfSxnfliiQY2qd-prT6mbmjk84_mBIpGa41H1knhSxj7YoTHO20_eD1RL0K3ufVkh0oVSkq7httZGJq0vozg0xZh5o07z74xZo1ObvaR/s400/Form+Utama.jpg" title="Software Koperasi Karyawan Garuda - Menu Utama" width="400"></a><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNExLUO3h9i5MJBGYfgNR6-VqnRW2FCGEfNR1Q74aoOfW7Wfqtl942-TBEHSVd7bbxMKViCysqIDB4T7uLx8XMhY06VTHmJGybRBZInbOxwb2sL5DW3kJ2F2g017H7M3JdlhoADGWhjGMo/s1600/Form+Utama.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><span style="clear: left; float: left; font-size: small; margin-bottom: 1em; margin-right: 1em;"><br /></span></a></div>
<b> </b><b> </b><br />
<br />
<h2>
<b>MODUL-MODUL SOFTWARE USP</b></h2>
<b>Terdiri dari : 1 Form MDI, 8 Menu Utama, 50 Sub Menu, 50 Form </b><br />
<br />
<h3>
<b>A. Setup (8 Sub Menu, 8 Form) </b></h3>
<ol>
<li>Setting Pengguna</li>
<li>Setting Unit Usaha</li>
<li>Setting Akun</li>
<li>Setting Saldo Akun</li>
<li>Setting Akun System</li>
<li>Produk Simpanan</li>
<li>Produk pembiayaan</li>
<li>Rate Pembiayaan </li>
</ol>
<br />
<h3>
<b>B. Customer Service (6 Sub Menu, 6 Form)</b></h3>
<ol>
<li>Anggota Koperasi</li>
<li>Print Slip Nasabah</li>
<li>Buka Rekening Tabungan</li>
<li>Rekening Deposito</li>
<li>Pengajuan pembiayaan</li>
<li>Hapus Pengajuan.</li>
</ol>
<br />
<h3>
<b>C. Kasir (9 Sub Menu, 9 Form)</b></h3>
<ol>
<li>Transaksi Tabungan Per Anggota</li>
<li>Transaksi Pengambilan Basil</li>
<li>Transaksi Angsuran Per Anggota</li>
<li>Transaksi Angsuran Wajib Kolektif</li>
<li>Transaksi Angsuran Kolektif</li>
<li>Pencairan Pinjaman</li>
<li>Transaksi Pelunasan</li>
<li>Jurnal Umum Kas</li>
<li>Laporan Cash Flow</li>
</ol>
<br />
<h3>
<b>D. Admin &Penagihan (4 Sub Menu, 4 Form)</b></h3>
<ol>
<li>Edit dan Ekspor Simpanan Wajib</li>
<li>Ekspor Daftar Tagihan Bulanan</li>
<li>Ekspor Simpanan Anggota</li>
<li>Impor Hasil Tagihan</li>
</ol>
<br />
<h3>
<b>E. Administrator (9 Sub Menu, 4 Sub-sub Menu, 12 Form)</b></h3>
<ol>
<li>Persetujuan Pinjaman</li>
<li>Proses Bagi Hasil Deposito</li>
<li>Proses Bagi Hasil Simpanan</li>
<li>Laporan Bagi Hasil</li>
<li>Laporan Mutasi
<ul>
<li>Mutasi Rek Simpanan</li>
<li>Mutasi Rek Pembiayaan</li>
</ul>
</li>
<li>Laporan Saldo
<ul>
<li>Saldo Simpanan Aktual</li>
<li>Saldo Pembiayaan Aktual</li>
</ul>
</li>
<li>Laporan Pencairan</li>
<li>Laporan Pelunasan</li>
<li>Laporan Kolektibilitas</li>
</ol>
<h3>
<b> </b></h3>
<h3>
<b>F. Daftar Akun</b></h3>
<ol>
<li>
Jurnal Memorial</li>
<li>
Laporan Jurnal</li>
<li>
Laporan Buku Besar</li>
<li>
Tutup Buku</li>
<li>
Laporan Neraca</li>
<li>
Laporan Rugi-Laba</li>
<li>
Backup Data Base</li>
<li>
Restore Data Base.</li>
</ol>
<br />
<h3>
<b>G. Alat (2 Sub Menu, 2 Form)</b></h3>
<ol>
<li>Kalkulator</li>
<li>Tentang Software.</li>
</ol>
<h3>
</h3>
<h3>
<b>H. Keluar (Exit)</b></h3>
<ol>
<li>Keluar</li>
</ol>
<br />
<h2>
<b><span style="font-weight: normal;"><b>SCREENSHOOT</b></span></b></h2>
Berikut sebagian screenshoot dari modul-modul yang keseluruhannya berjumlah 51 buah.<br />
<br />
<h3>
1. Form Awal (MDI)</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLR59uozkOeq0_R2K-9STY39I3i8joIQ3cW-1u5Y6gxCP-hxiadB5cVRyveGnFctKnuFDhyphenhyphenxyr5IRPTBkmz0qwHCzACGKqx1OuU6-uvyp3pa9v5TTXWuT-mmLKVznqy3m_PQSEOWHS20oo/s1600/Form+Utama.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLR59uozkOeq0_R2K-9STY39I3i8joIQ3cW-1u5Y6gxCP-hxiadB5cVRyveGnFctKnuFDhyphenhyphenxyr5IRPTBkmz0qwHCzACGKqx1OuU6-uvyp3pa9v5TTXWuT-mmLKVznqy3m_PQSEOWHS20oo/s1600/Form+Utama.jpg"></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpZV5t9Obpsv3wG2bgY-VTwS-A7CDsaok7TDTywfSxnfliiQY2qd-prT6mbmjk84_mBIpGa41H1knhSxj7YoTHO20_eD1RL0K3ufVkh0oVSkq7httZGJq0vozg0xZh5o07z74xZo1ObvaR/s1600/Form+Utama.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<h3>
</h3>
<h3>
2. Setting Pengguna</h3>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhIlIIlmqmlr0fX-EVto-dAVWmdEFZ0XtGZ3IB8h_btm1ujIXctHlrp6VPBQMHrvuK9BC6yEJioMZYCBuA3SZ5rbvhrq4aZ380d5o0SfsE3GSxbU76xnA-cYsnOyIAiXIQVJf7sRVJxgImz/s1600/Sc-Setting+User.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL0b2XW_a2644PjH_ct02AEjHi9kFS39h1oiC07tfD5DGfT-RzGQBvK0PqRcBilruZJBiBS1kLtYupPJb8qbXbPYV3MxOeyL8LRa__BzJuDIgplgFx1xSdSeYbb0_EKU_7w5P9TsKxEEhi/s1600/Sc-Setting+User.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Software Koperasi Karyawan Garuda- Setting User" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL0b2XW_a2644PjH_ct02AEjHi9kFS39h1oiC07tfD5DGfT-RzGQBvK0PqRcBilruZJBiBS1kLtYupPJb8qbXbPYV3MxOeyL8LRa__BzJuDIgplgFx1xSdSeYbb0_EKU_7w5P9TsKxEEhi/s1600/Sc-Setting+User.jpg" title="Software Koperasi Karyawan Garuda-Setting Pengguna"></a></div>
<h3>
</h3>
<h3>
3. Setting akun</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLZL8va2g6jq8p-92PCwPE4JRYdZ533yZMwQspHWIV4xtzOWG-GfI7qtbDc9SXwjqtn37QGN3803W9yA9PfxuZWIKCZVyKjmaXdwDksTieZXqo6PVTIw4Ogn3E8wlOosDpw4DQg8jxsMPc/s1600/Setting+Akun.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLZL8va2g6jq8p-92PCwPE4JRYdZ533yZMwQspHWIV4xtzOWG-GfI7qtbDc9SXwjqtn37QGN3803W9yA9PfxuZWIKCZVyKjmaXdwDksTieZXqo6PVTIw4Ogn3E8wlOosDpw4DQg8jxsMPc/s1600/Setting+Akun.jpg"></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<h3>
4. Master Produk Pembiayaan</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjK6qOPkERu8eaC2K8DBsiW4K3JqsKQ2V6eUQqTwnmLHfXRVDfmK8b3RaBseQDtKzLFkM0FhMoVWpWmabWjzd5wWVI2Pp9ZJCIbQTEilyfwwdE1CXarzKsFbZPJscVqjtuTYpeXKF-R79p8/s1600/Master+Pinjaman.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjK6qOPkERu8eaC2K8DBsiW4K3JqsKQ2V6eUQqTwnmLHfXRVDfmK8b3RaBseQDtKzLFkM0FhMoVWpWmabWjzd5wWVI2Pp9ZJCIbQTEilyfwwdE1CXarzKsFbZPJscVqjtuTYpeXKF-R79p8/s1600/Master+Pinjaman.jpg"></a></div>
<br />
<br />
<h3>
5. Daftar Anggota (Karyawan)</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi96itVAMihxMvWv4Hq6yUa-0BIT3DfN9NiQ1rnaVK5E3Ylu-WJgBV1jitrJZUpHmBRoeUNsr-8eiOyNBkmehGLPBE4EpHT0A1hdhw7uWXa8Uie46KAtdOTVq_fM_LfOS0qpCvCSHDfCMnA/s1600/Anggota.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi96itVAMihxMvWv4Hq6yUa-0BIT3DfN9NiQ1rnaVK5E3Ylu-WJgBV1jitrJZUpHmBRoeUNsr-8eiOyNBkmehGLPBE4EpHT0A1hdhw7uWXa8Uie46KAtdOTVq_fM_LfOS0qpCvCSHDfCMnA/s1600/Anggota.jpg"></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<h3>
6. Pembukaan Rekening Simpanan</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEicGJEl9cjau4FjeTMM3LBuonmA2EJ9Y92-xBnxr9OWAqkgFJlSpAn9LcOWfdgJGSJXVuYL3ZD-izyI6SRq6T4WDdcRyVzxwIPf1pou09YLPa-xLLMkNig2KW1zZTr-1BnYQN6HKeu9s5SP/s1600/Buka+Simpanan-finish.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEicGJEl9cjau4FjeTMM3LBuonmA2EJ9Y92-xBnxr9OWAqkgFJlSpAn9LcOWfdgJGSJXVuYL3ZD-izyI6SRq6T4WDdcRyVzxwIPf1pou09YLPa-xLLMkNig2KW1zZTr-1BnYQN6HKeu9s5SP/s1600/Buka+Simpanan-finish.jpg"></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br />
<h3>
7. Pengajuan Pembiayaan</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdUO8tq8S9YZlvVEZEFLNx_w-S9HOXMufwgLIj32XRivrhDJGL3TInuMF6zdigl-Fwz5QYxwBCvHxrdu66extM28EVLNOBaAMCgNF4DRUKmZt6_01Fdn9uHxsXO1Voa-xFnl0pTjdRriIl/s1600/Aplikasi+pengajuan+pembiayaan.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdUO8tq8S9YZlvVEZEFLNx_w-S9HOXMufwgLIj32XRivrhDJGL3TInuMF6zdigl-Fwz5QYxwBCvHxrdu66extM28EVLNOBaAMCgNF4DRUKmZt6_01Fdn9uHxsXO1Voa-xFnl0pTjdRriIl/s1600/Aplikasi+pengajuan+pembiayaan.jpg"></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<h3>
8. Tagihan Bulanan</h3>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbcvKQvcRq6Tl7ygXU5tR_I1QNL1ksFT7hyVg4zb8Pk9SMBlq6OSxhvNQSinHI8P782w8yc5uMIeBasf8tLeCYWUEj1hWeYsoBeYJ6Pj8tGdoIOPe9CTFiNYtCJHKUctCkzEd3SZ7Yo4lP/s1600/tagih.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbcvKQvcRq6Tl7ygXU5tR_I1QNL1ksFT7hyVg4zb8Pk9SMBlq6OSxhvNQSinHI8P782w8yc5uMIeBasf8tLeCYWUEj1hWeYsoBeYJ6Pj8tGdoIOPe9CTFiNYtCJHKUctCkzEd3SZ7Yo4lP/s1600/tagih.jpg"></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<h3>
</h3>
<h3>
9. Transaksi Angsuran Kolektif</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhs46_FuhFEPSre44mDS8NYCgAk1qxcduvAiRaIg_ZC9W99G3qMhPZWmDNOmiaIEqIY_0KdXmQygZIfU6EZzq6j0R4Azk7TEzs1hj0hKMoKNmtkCwXhA3FupVJTGKH6KiE1eJQ-_irg5DfD/s1600/Eksport+tagihan-kurang.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhs46_FuhFEPSre44mDS8NYCgAk1qxcduvAiRaIg_ZC9W99G3qMhPZWmDNOmiaIEqIY_0KdXmQygZIfU6EZzq6j0R4Azk7TEzs1hj0hKMoKNmtkCwXhA3FupVJTGKH6KiE1eJQ-_irg5DfD/s1600/Eksport+tagihan-kurang.jpg"></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<h3>
</h3>
<h3>
10. Transaksi Angsuran Kolektif</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJ8ypWo14Vr4WNjHinuxlUAyog5Z8XYMZSWsB5ZdQnf_OxbIzfz32bJMb34FlF5KvufW1ZTvmmPRhnB3POGVzF1F_YEosjKswKqQanZgSiOp1RnPRDUU4UcMIX2SlXzOcNkBTKnBV1F0-E/s1600/Eksport+tagihan-kurang.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJ8ypWo14Vr4WNjHinuxlUAyog5Z8XYMZSWsB5ZdQnf_OxbIzfz32bJMb34FlF5KvufW1ZTvmmPRhnB3POGVzF1F_YEosjKswKqQanZgSiOp1RnPRDUU4UcMIX2SlXzOcNkBTKnBV1F0-E/s1600/Eksport+tagihan-kurang.jpg"></a></div>
<br />
<h3>
11. Jurnal Memorial</h3>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm-0X_Tk52-3UZzc5Q8TmzpzOugfEDX0GNZsheiH1MaSxltrLO0ineSRb90nj_Apk4DBzYaOti0hcVl0uQjNomUAuNhI7byiOOn2J5XVPAI8-U_CtPwgeW02gmMQoQzA732RmC_PXmAuWd/s1600/jur+memo-01.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgm-0X_Tk52-3UZzc5Q8TmzpzOugfEDX0GNZsheiH1MaSxltrLO0ineSRb90nj_Apk4DBzYaOti0hcVl0uQjNomUAuNhI7byiOOn2J5XVPAI8-U_CtPwgeW02gmMQoQzA732RmC_PXmAuWd/s1600/jur+memo-01.jpg"></a></div>
<br />
<br />
<h3>
12. Laporan Saldo Simpanan</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAnmQE0cKegjaCTXDnnG8N2ws088d600UkZqhBOVL2e9Orle_wfFaG71NrHbxGHdO6B7eHK-VLAIxAKpaQprHs7hD0SSLO4iaNjuXfOnbHALSS1_tNwi85CV96YmmqTvsXCWjjdA2LcXna/s1600/def-lap+saldo+simp+wajib.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAnmQE0cKegjaCTXDnnG8N2ws088d600UkZqhBOVL2e9Orle_wfFaG71NrHbxGHdO6B7eHK-VLAIxAKpaQprHs7hD0SSLO4iaNjuXfOnbHALSS1_tNwi85CV96YmmqTvsXCWjjdA2LcXna/s1600/def-lap+saldo+simp+wajib.jpg"></a></div>
<br />
<br />
<h3>
13. Laporan Jurnal</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieqUDDRKkYJ-p_8C0UFNDxsdlZOBVD5sDtg4mtrfFdgspTTJhtAhpTqFAn1G-U-b-qdrzbsAJlwQlWbDLtfQwLU_jyU03-9z0RjXXZeiSFUJnW23a9zT40_dzAaS1IUqOUXdOKt5ycY7-B/s1600/laporan+jurnal.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Software Koperasi Karyawan Garuda-Jurnal" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieqUDDRKkYJ-p_8C0UFNDxsdlZOBVD5sDtg4mtrfFdgspTTJhtAhpTqFAn1G-U-b-qdrzbsAJlwQlWbDLtfQwLU_jyU03-9z0RjXXZeiSFUJnW23a9zT40_dzAaS1IUqOUXdOKt5ycY7-B/s1600/laporan+jurnal.jpg" title="Software Koperasi Karyawan Garuda-Laporan Jurnal"></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br />
<h3>
14. Laporan Neraca</h3>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEin0ER0OpIgStyzZ5kv9ktQeA32y1I-ZK6fePbsnrobIAV3SOgSFryBK26Oo8197V0V9xFv-IKz8CBONMBLe1lDd4E1JiHUgT-cAjWJSW2NKzd7Ll27KkFmQUzzCyvhduOuW-s-r9ImfCED/s1600/lap+neraca.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Software Koperasi Karyawan Garuda - Neraca Bulanan" border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEin0ER0OpIgStyzZ5kv9ktQeA32y1I-ZK6fePbsnrobIAV3SOgSFryBK26Oo8197V0V9xFv-IKz8CBONMBLe1lDd4E1JiHUgT-cAjWJSW2NKzd7Ll27KkFmQUzzCyvhduOuW-s-r9ImfCED/s1600/lap+neraca.jpg" title="Software Koperasi Karyawan Garuda - Lapran Neraca"></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br />
<br />
<br />Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com1tag:blogger.com,1999:blog-881601861790806055.post-19722831553390778212013-05-23T11:10:00.001+07:002013-05-23T11:15:49.125+07:00Fibonacci CounterGoogle kesana kemari ngga ditemukan software yang bisa ngitung deret fibonacci, akhirnya saya bikin sendiri. Bagi yang memerlukannya silahkan download <a href="https://sites.google.com/site/yosacahya/unduhan/Setup_Fibonaci.rar?attredirects=0&d=1">disini</a> (gratis, tanpa ada iklan, daftar email dll yang kadang menjengkelkan). Penggunaannya sangat mudah tinggal inputkan nomor urut fibonacci yang mau ditampilkan kemudian klick tombol "Count". Hasil akhir ditampilkan pada sebelah kiri, sedangkan list hasil dari mulai 0 s/d urutan ke-n ditampilkan sebelah kanan.<br />
Ini screenshoot-nya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZsfOyJ4YBaozVMTBjeVlF68szlHQyAROJGN8j88N5ZGATbWK9rfd3RESciUZ6TKdIWaV47f6zRtQ1URmP5Z5vSqL1FuM1Gsvdy6pbseWdcvV74_JwVlaoUJ9DdhkQSHqGkWnETLrVJg3S/s1600/fibo.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="255" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZsfOyJ4YBaozVMTBjeVlF68szlHQyAROJGN8j88N5ZGATbWK9rfd3RESciUZ6TKdIWaV47f6zRtQ1URmP5Z5vSqL1FuM1Gsvdy6pbseWdcvV74_JwVlaoUJ9DdhkQSHqGkWnETLrVJg3S/s400/fibo.jpg" width="400" /></a></div>
<br />Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com1tag:blogger.com,1999:blog-881601861790806055.post-10501161139677232642011-05-01T20:38:00.000+07:002011-05-03T21:06:12.179+07:00Software Teori Bentuk Kata<div style="text-align: justify;">Bagi yang lagi belajar tata bahasa khususnya teori bentuk kata (Sharaf) mungkin software ini sedikit membantu dalam latihan. Program ini masih dalam tahap beta, masih jauh dari sempurna, jadi masih banyak kekurangan disana-sini. Untuk itu mohon saran dan kritik yang membangun dari semua pihak.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Softwere ini akan berjalan dengan sempurna hanya pada windows arabic. Pada windows xp-1 atau xp-2, untuk merubah windows ke arabic lakukan langkah berikut:</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Buka Control Panel, pilih Regional and Language Options, Klik tab "Languages" lalu centang "Install files for complex script and right-to left languages..." Klik "Apply". Kemungkinan besar akan meminta CD XP tergantung penginstalan windows sebelumnya, lalu masukkan CD XP sesuai dengan windows yang anda pakai. Jangan dulu restart.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Klik tab "Advanced" lalu pada kotak pilihan bahasa pilih "Arabic (Saudi Arabia)". Klik tombol "Apply" atau "OK". Lalu restart.</div><div style="text-align: justify;">Untuk Windows Xp-3 (arabic), setting diatas tidak diperlukan.</div><br />
Ini screen shoot-nya:<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://sites.google.com/site/yosacahya/gambar/TBK-1.PNG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://sites.google.com/site/yosacahya/gambar/TBK-1.PNG" width="320" /></a></div><div style="text-align: justify;"><br />
Untuk mengunduh softwarenya silahkan<a href="https://sites.google.com/site/yosacahya/unduhan/TBKver-1.zip"> klik disini.</a><br />
Jika ada yang memerlukan code source-nya (VB6) silahkan <a href="https://sites.google.com/site/yosacahya/unduhan/TBKver-1_Code.zip">unduh disini.</a><br />
<br />
Selamat belajar.<br />
<br />
<br />
</div>Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com9tag:blogger.com,1999:blog-881601861790806055.post-18019325799023401782011-04-26T12:38:00.005+07:002011-04-27T11:54:52.865+07:00Aplikasi Waktu Beranimasi<div style="font-family: inherit; text-align: justify;">Pada kali ini saya akan membuat sebuah aplikasi waktu (Jam dan Tanggal) dimana saat form tampil (load) dan keluar (unload) bisa beranimasi. Mari kita langsung saja ke TKP.</div><div style="font-family: inherit; text-align: justify;"><br />
</div><div style="font-family: inherit; text-align: justify;">Buatlah Projek Baru (New project, standar exe) </div><div style="font-family: inherit; text-align: justify;">Pada form tambahkan control/object sbb:</div><div style="font-family: inherit; text-align: justify;">1. 2 buah label dengan nama masing-masing lblWaktu dan lblTanggal. Lalu hapus properti caption-nya (kosongkan).</div><div style="font-family: inherit; text-align: justify;">2. CommandButton dengan nama 'cmdFormat' , Caption = "12"</div><div style="font-family: inherit; text-align: justify;">3. Tambahkan sebuah timer pada form.</div><div style="font-family: inherit; text-align: justify;"><br />
</div><div style="font-family: inherit; text-align: justify;">Aturlah ukuran dan tampilannya sesuai selera, serta tambahkan label judul atau yang lainnya.</div><div style="font-family: inherit; text-align: justify;">Setelah selesai, copas code dibawah ini dan letakkan pada halaman kode (untuk menampilkan halaman kode, klik 2 kali pada form).</div><div style="font-family: inherit; text-align: justify;"></div><blockquote><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Option Explicit</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">'Dibuat oleh Yosa Cahya</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">'Email: yosa.cahya@gmail.com</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">'Blog : tutorialvb6.blogspot.com</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Dim wkt As String, Tanggal As Variant</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Dim TimeFormat As Byte</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Dim hijri As Boolean</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Const AW_CENTER = &H10</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Const AW_HIDE = &H10000</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Const AW_BLEND = &H80000</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Declare Function AnimateWindow Lib "user32" _</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> (ByVal hwnd As Long, _</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> ByVal dwTime As Long, _</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> ByVal dwFlags As Long) As Boolean</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Sub Form_Load()</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Me.AutoRedraw = True</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Animasikan Me.hwnd, 1000, AW_CENTER</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Me.Show</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Me.Refresh</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> TimeFormat = 1</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Timer1.Interval = 1000</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblWaktu.Caption = Format(Time, "h:mm:ss")</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblWaktu.Refresh</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblTanggal.Caption = Hari(Date) & ", " & Format(Date, "dd mmmm yyyy")</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblTanggal.Refresh</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Sub</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Sub Form_Unload(Cancel As Integer)</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Animasikan Me.hwnd, 1000, AW_BLEND Or AW_HIDE</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Sub</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Sub cmdFormat_Click()</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">If cmdFormat.Caption = "12" Then</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> cmdFormat.Caption = "24"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> TimeFormat = 0</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Else</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> cmdFormat.Caption = "12"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> TimeFormat = 1</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End If</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Sub</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Sub lblTanggal_Click()</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">If hijri = False Then</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Calendar = vbCalHijri</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> hijri = True</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Else</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Calendar = vbCalGreg</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> hijri = False</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> End If</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Sub</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Sub lblTanggal_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblTanggal.ToolTipText = "Klik pada tanggal ini untuk merubah Kalender"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Sub</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Sub lblWaktu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblWaktu.ToolTipText = "Klik tombol disamping kanan untuk merubah format jam"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Sub</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Private Sub Timer1_Timer()</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> wkt = Time</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Tanggal = Date</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> If TimeFormat = 0 Then</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> wkt = Format(Time, "HH:mm:ss AMPM")</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> wkt = Replace(wkt, "AM", "am")</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> wkt = Replace(wkt, "PM", "pm")</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Else</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> wkt = Format(Time, "h:mm:ss")</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> End If</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblWaktu.Caption = wkt</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblWaktu.Refresh</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> If hijri = False Then</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblTanggal.Caption = Hari(Tanggal) & ", " & Format(Tanggal, "dd mmmm yyyy")</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Else</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> lblTanggal.Caption = Hari(Tanggal) & ", " & FormatDateTime(Tanggal, vbShortDate) & " Hij"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End If</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Sub</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Function Hari(ByVal tgl As Variant) As String</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Dim poe As Byte</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> poe = Weekday(tgl, vbSunday)</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Select Case poe</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Case 1: Hari = "Minggu"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Case 2: Hari = "Senin"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Case 3: Hari = "Selasa"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Case 4: Hari = "Rabu"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Case 5: Hari = "Kamis"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Case 6: Hari = "Jum'at"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> Case 7: Hari = "Sabtu"</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> End Select</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Function</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">Function Animasikan(Win_hWnd As Long, AnimationTime As Long, flag As Long)</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"> AnimateWindow Win_hWnd, AnimationTime, flag</div><div style="font-family: "Courier New",Courier,monospace; text-align: justify;">End Function</div></blockquote><div style="font-family: "Courier New",Courier,monospace; text-align: justify;"><br />
</div><div style="text-align: justify;"><span style="font-family: inherit;">Jalankan program dengan menekan F5 dan lihat hasilnya.</span></div><div style="text-align: justify;"><span style="font-family: inherit;">Bagi anda yang ingin melihat contoh aplikasi yang sudah jadi dari artikel ini, silahkan download <a href="https://sites.google.com/site/yosacahya/unduhan/Waktu_Animasi.zip">disini</a>, dijamin direct link alias tanpa iklan.</span></div><div style="text-align: justify;"><span style="font-family: inherit;"><br />
</span></div><div style="text-align: justify;"><span style="font-family: inherit;">Selamat mencoba, Semoga bermanfa'at.</span></div>Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com1tag:blogger.com,1999:blog-881601861790806055.post-13180196177857207432011-04-10T18:17:00.002+07:002011-04-27T11:58:34.634+07:00Membuat aplikasi penjumlahan Lanjutan<div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Latihan ini adalah kelanjutan dari latihan <a href="http://tutorialvb6.blogspot.com/2011/04/membuat-aplikasi-penjumlahan-sederhana.html">sebelumnya</a> yaitu 'ProjectJumlah'.</span><br />
<span style="font-size: small;">Tambahkan sebuah form pada ProjectJumlah, caranya, pada menu klik Project > add Form. Akan tampil jendela AddForm, dan pilihan pertama (default)nya adalah New > Form. Maka tinggal klik open. Beri nama 'frmJumlah2'. </span><br />
<span style="font-size: small;"><br />
</span><br />
<span style="font-size: small;">Selanjutnya Copy semua control pada frmJumlah dan paste pada frmJumlah2. Aturlah ukuran form sesuai kebutuhan agar semua objek control terlihat. Rubah nama 'cmdKeluar' menjadi 'cmdKembali' dan ganti caption-nya dengan "Kembali".</span><br />
<span style="font-size: small;"><br />
</span><br />
<span style="font-size: small;">Buka lagi frmJumlah dan tambahkan sebuah CommandButton, berilah nama 'cmdLanjutan'. Ini digunakan untuk memanggil frmJumlah2 yang sedang kita buat sekarang ini. Dobel klik pada 'cmdLanjutan' isikan code berikut:</span></div><br />
<blockquote><div style="font-family: inherit;"><span style="font-size: small;"> Load frmJumlah2</span></div><div style="font-family: inherit;"><span style="font-size: small;"> frmJumlah2.Show</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Me.Hide</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;"> jadi lengkapnya menjadi sbb:</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub cmdLanjutan_Click()</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Load frmJumlah2</span></div><div style="font-family: inherit;"><span style="font-size: small;"> frmJumlah2.Show</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Me.Hide</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Selanjutnya buka frmJumlah2, copy code dibawah ini, paste pada halaman code frmJumlah2.</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Option Explicit</span></div><div style="font-family: inherit;"><span style="font-size: small;">Dim input1 As Long</span></div><div style="font-family: inherit;"><span style="font-size: small;">Dim input2 As Long</span></div><div style="font-family: inherit;"><span style="font-size: small;">Dim hasil As Long</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub cmdJumlah_Click()</span></div><div style="font-family: inherit;"><span style="font-size: small;">'cek jika user telah mengisi input</span></div><div style="font-family: inherit;"><span style="font-size: small;">If Text1.Text = "" Or Text2.Text = "" Then</span></div><div style="font-family: inherit;"><span style="font-size: small;"> MsgBox "Ma'af, Isi dulu angkanya!"</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text1.SetFocus</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Exit Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;">End If</span></div><div style="font-family: inherit;"><span style="font-size: small;">'mengambil data dari user</span></div><div style="font-family: inherit;"><span style="font-size: small;">'pada code dibawah ini digunakan fungsi "replace" karena</span></div><div style="font-family: inherit;"><span style="font-size: small;">'teks pada text1 dan text2 menggunakan Format "###,##0"</span></div><div style="font-family: inherit;"><span style="font-size: small;">'ingat, koma pada vb dibaca titik pada format angka indonesia</span></div><div style="font-family: inherit;"><span style="font-size: small;"> input1 = Val(Replace(Text1.Text, ".", ""))</span></div><div style="font-family: inherit;"><span style="font-size: small;"> input2 = Val(Replace(Text2.Text, ".", ""))</span></div><div style="font-family: inherit;"><span style="font-size: small;"> 'menghitung hasil</span></div><div style="font-family: inherit;"><span style="font-size: small;"> hasil = input1 + input2</span></div><div style="font-family: inherit;"><span style="font-size: small;"> 'menampilkan hasil pada text3</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text3.Text = hasil</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text3.Refresh 'untuk memastikan tampilan</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub cmdHapus_Click()</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text1.Text = ""</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text2.Text = ""</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text3.Text = ""</span></div><div style="font-family: inherit;"><span style="font-size: small;"> 'tempatakan kursor pada text1</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text1.SetFocus</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub cmdKembali_Click()</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Load frmJumlah</span></div><div style="font-family: inherit;"><span style="font-size: small;"> frmJumlah.Show</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Unload Me</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub text1_KeyPress(KeyAscii As Integer)</span></div><div style="font-family: inherit;"><span style="font-size: small;">'agar hanya angka yang boleh diketikkan</span></div><div style="font-family: inherit;"><span style="font-size: small;">If Not ((KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then</span></div><div style="font-family: inherit;"><span style="font-size: small;"> KeyAscii = 0</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text1.Text = ""</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Beep</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Else</span></div><div style="font-family: inherit;"><span style="font-size: small;"> 'agar jika di tekan enter, kursor berpindah ke text2</span></div><div style="font-family: inherit;"><span style="font-size: small;"> If KeyAscii = vbKeyReturn Then Text2.SetFocus</span></div><div style="font-family: inherit;"><span style="font-size: small;"> End If</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub text2_KeyPress(KeyAscii As Integer)</span></div><div style="font-family: inherit;"><span style="font-size: small;">'agar hanya angka yang boleh diketikkan</span></div><div style="font-family: inherit;"><span style="font-size: small;">If Not ((KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then</span></div><div style="font-family: inherit;"><span style="font-size: small;"> KeyAscii = 0</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text2.Text = ""</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Beep</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Else</span></div><div style="font-family: inherit;"><span style="font-size: small;"> 'agar jika di tekan enter, cmdJumlah dieksekusi</span></div><div style="font-family: inherit;"><span style="font-size: small;"> If KeyAscii = vbKeyReturn Then cmdJumlah_Click</span></div><div style="font-family: inherit;"><span style="font-size: small;"> End If</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub text1_KeyUp(KeyCode As Integer, Shift As Integer)</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text1.Text = Format(Text1.Text, "###,##0")</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text1.SelStart = Len(Text1.Text)</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub text2_KeyUp(KeyCode As Integer, Shift As Integer)</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text2.Text = Format(Text2.Text, "###,##0")</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text2.SelStart = Len(Text2.Text)</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Private Sub Text3_Change()</span></div><div style="font-family: inherit;"><span style="font-size: small;"> Text3.Text = Format(Text3.Text, "###,##0")</span></div><div style="font-family: inherit;"><span style="font-size: small;">End Sub</span></div></blockquote><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><span style="font-size: small;">Cobalah test dengan mengklik menu Run > Start atau icon Start, atau bisa juga menekan F5 pada keyboard. Bandingkan hasilnya dengan frmJumlah pada latihan sebelumnya.</span></div><div style="font-family: inherit;"><span style="font-size: small;">Selamat mencoba. </span></div>Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com0tag:blogger.com,1999:blog-881601861790806055.post-35650985533483697082011-04-09T23:25:00.003+07:002011-04-27T12:00:36.670+07:00Membuat aplikasi penjumlahan sederhana<div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Buatlah Projek Baru (New project, standar exe) dan beri nama 'ProjectJumlah'<br />
Rubah nama pada "form1" menjadi "frmJumlah".<br />
Pada frmJumlah tambahkan control/object sbb:<br />
</span></div><div style="font-family: inherit; text-align: justify;"><ol><li><span style="font-size: small;">3 buah textBox dengan nama masing-masing Text1, text2, dan text3. Lalu hapus properti text-nya(kosongkan)</span></li>
<li><span style="font-size: small;">CommandButton dengan nama 'cmdJumlah' , Caption "="</span></li>
<li><span style="font-size: small;">CommandButton dengan nama 'cmdHapus' , Caption "Hapus"</span></li>
<li><span style="font-size: small;">CommandButton dengan nama 'cmdKeluar' , Caption "Keluar"</span></li>
<li><span style="font-size: small;">Buatlah label dengan caption "+" </span></li>
</ol><br />
<span style="font-size: small;">Aturlah ukuran dan tampilannya sesuai selera, serta tambahkan label judul atau yang lainnya.<br />
Lalu urutkan secara horisontal Text1 -- label "+" -- Text2 -- cmdJumlah -- Text3 pada baris pertama. <br />
Kemudian dibawahnya urutkan cmdHapus -- cmdKeluar<b><br />
</b></span><span style="font-size: small;"><br />
</span><br />
<span style="font-size: small;">Setelah selesai, copy code dibawah ini dan letakkan pada halaman kode (untuk menampilkan halaman kode, klik 2 kali pada form).</span></div><div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><blockquote><div style="font-family: inherit;"><span style="font-size: small;">Option Explicit<br />
<br />
Dim input1 As Long<br />
Dim input2 As Long<br />
Dim hasil As Long<br />
<br />
Private Sub cmdJumlah_Click()<br />
'mengambil data dari user<br />
input1 = Val(Text1.Text)<br />
input2 = Val(Text2.Text)<br />
'menghitung hasil<br />
hasil = input1 + input2<br />
'menampilkan hasil pada text3<br />
Text3.Text = hasil<br />
End Sub<br />
<br />
Private Sub cmdHapus_Click()<br />
Text1.Text = ""<br />
Text2.Text = ""<br />
Text3.Text = ""<br />
'tempatakan kursor pada text1<br />
Text1.SetFocus<br />
End Sub<br />
<br />
Private Sub cmdKeluar_Click()<br />
End<br />
End Sub</span></div></blockquote><div style="font-family: inherit;"><br />
</div><div style="font-family: inherit;">Cobalah test dengan mengklik menu Run > Start atau icon Start, atau bisa juga menekan F5 pada keyboard. Lihatlah hasilnya.</div>Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com0tag:blogger.com,1999:blog-881601861790806055.post-10372313963742064682011-03-29T08:48:00.005+07:002011-04-27T12:02:06.926+07:00Apakah Visual Basic 6 Telah mati?<div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Apakah Visual Basic 6 Telah mati?</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Tidak!</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Hari ini, VB.NET telah menjadi sangat populer di kalangan pengembangan aplikasi. Visual Studio 2005, yang berisi VB.NET, adalah produk luar biasa. Bahasa programmer ini sekarang benar-benar berorientasi objek dan yang membuatnya menjadi alat pengembangan yang kuat untuk semua jenis proyek-proyek besar.</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Namun, beberapa kekuatan VB.NET juga kelemahan utama. Faktanya adalah orientasi objek-nya akan meningkatkan produktivitas programmer . Bagaimanapun juga, dunia ini penuh dengan programmer yang menggunakan VB 6, dia masih merupakan bahasa yang paling populer di dunia. Para programmer merasa nyaman dengan VB 6 dan 'environment'-nya yang tidak terlalu 'object-oriented' dan terbukti sangat enggan untuk beralih ke teknologi yang baru, karena mereka harus menguasainya dulu sebelum menjadi produktif.</span></div><div style="font-family: inherit; text-align: justify;"><br />
</div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Juga, untuk mengimplementasikan sepenuhnya NET Framework yang baru, Microsoft telah mengorbankan backward compatibility. Itu berarti bahwa anda tidak dapat secara otomatis mengkonversi aplikasi dari VB 6 ke VB.NET. Bila Anda pindah dari VB5 ke VB6, konversi itu tidak akan terasa. Segala sesuatu yang bekerja di VB 5 masih bekerja di VB 6 ditambah beberapa fitur baru yang kemudian terserah anda untuk mengimplementasikannya atau tidak.</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Hal itu tidak akan terjadi lagi, untuk memindahkan aplikasi dari VB 6 ke VB.NET Anda harus melakukan utilitas konversi. Proses ini akan mengubah sebagian besar kode 6 VB, tetapi tidak semua. Dalam kebanyakan kasus, Anda akan harus secara manual mengkonversi 20% dari kode. Pada sebuah proyek besar, ini akan menjadi suatu usaha besar!</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Departemen Pemasaran di Microsoft mungkin menghitung bahwa jika mereka akan benar-benar membuat orang untuk pindah ke VB.NET, mereka harus menyediakan alat konversi - jika hanya untuk menciptakan ilusi bahwa itu adalah sesuatu yang mudah, upgrade aja langsung.</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Jadi, VB 6 tetap, dan akan tetap untuk waktu yang lama, lingkungan pemrograman yang paling populer. Jutaan programmer tumbuh dengan Visual Basic 6 dan mereka telah menciptakan suatu kesetiaan pada satu bahasa pemrograman. Jika anda ingin mengkonfirmasi hal itu, nimbrung aja ke salah satu dari banyak forum yang membahas perangkat lunak Microsoft dan produknya.</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Tidak ada alasan mengapa anda tidak bisa terus menggunakan VB 6 selama yang anda mau. Bahkan pada Windows baru (Vista, yang dirilis sekitar tahin 2007) Microsoft telah menawarkan beberapa dukungan untuk VB 6. Tetapi anda tidak akan bisa mendapatkan Tech Support dan tidak akan ada Paket Service, tetapi bahasa ini akan terus bekerja seperti yang telah bertahun-tahun dilalui.</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Salah satu masalah hanya dengan menggunakan VB 6 adalah bahwa anda tidak dapat membeli copy resmi lagi. Microsoft tidak menjual salinan baru dari perangkat lunak ini. Tetapi ada sumber lain, seperti Amazon dan eBay dimana anda dapat menemukan salinan baru untuk menggunakan software ini.</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Jika anda baru dalam VB 6 atau anda hanya ingin meningkatkan keterampilan, carilah sendiri beberapa tutorial yang bagus, seperti yang ada di sini. Juga, carilah beberapa buku yang bagus untuk dibaca, seperti yang dijual di Gramedia atau sejenisnya.</span></div>Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com2tag:blogger.com,1999:blog-881601861790806055.post-3536878236195436632011-03-25T09:54:00.003+07:002011-04-27T12:08:13.217+07:00Tutorial Pemula - "Halo, apa kabar dunia!"<div style="font-family: inherit; text-align: justify;"><span style="font-size: small;">Visual Basic adalah bahasa pemrograman yang besar. Bukan hanya karena mudah untuk dipelajari, tetapi banyak aplikasi bisnis menggunakannya secara ekstensif untuk aplikasi mereka. Jika Anda baru mulai belajar untuk mengembangkan aplikasi, ini adalah bahasa yang tepat untuk memulainya. Tutorial ini dan banyak tutorial Visual Basic lainnya di situs ini akan memberikan kepada Anda dasar yang kuat dalam pengetahuan Visual Basic.</span><br />
<br />
<span style="font-size: small;">Mari kita langsung memulai dengan sebuah aplikasi sederhana. Ketika Anda selesai dengan tutorial Visual Basic ini, Anda sudah memiliki aplikasi lengkap ketika Anda mengklik tombol yang akan mengatakan "Halo, apa kabar dunia!"</span><br />
<br />
<span style="font-size: small;">Buka Microsoft Visual Basic 6.0 (VB6)</span><br />
<span style="font-size: small;">Kotak dialog New Project akan muncul. Jika tidak, maka klik menu bar dan pilih File => New Project</span><br />
<ul style="text-align: justify;"><li><span style="font-size: small;"><b>Langkah 1</b></span></li>
</ul><span style="font-size: small;">Dalam dialog New Project pilih Standard EXE, dan klik tombol Open.</span><br />
<br />
<span style="font-size: small;">Secara default, Ini akan memunculkan aplikasi Projek1 dengan tampilan Form1.</span><br />
<br />
<span style="font-size: small;">Visual Basic telah mempersiapkan segalanya untuk kita. Seperti yang anda lihat tutorial ini tidak terlalu panjang, tetapi Anda sudah memiliki sebuah aplikasi yang bekerja penuh. Anda dapat melihat program baru Anda dengan mengklik menu bar dan pilih Run -> Start (Atau cukup tekan tombol F5).</span><br />
<span style="font-size: small;">Anda akan melihat jendela Form1 muncul.</span><br />
<ul style="text-align: justify;"><li><span style="font-size: small;"><b>Langkah 2</b></span></li>
</ul><span style="font-size: small;">Ini merupakan aplikasi yang berfungsi secara penuh. Anda dapat meggerakkannya di sekitarnya, meminimalkan dan memaksimalkan itu, dan menutupnya. Jikalau Anda ingin melakukan hal yang sama di C + + ; yang merupakan bahasa asli sebagian besar Windows ditulis, Anda harus menulis ratusan bahkan ribuan baris kode. Dengan VB, Anda telah berada pada tempat yang tepat, untuk mendapatkan kekuatan ekstrem VB yang akan Anda terima. Sekarang mari kita lanjutkan dengan tutorial ini.</span><br />
<br />
<span style="font-size: small;">Mari membuat sebuah program yang akan menyapa Anda!</span><br />
<ul style="text-align: justify;"><li><b><span style="font-size: small;">Langkah 3</span></b></li>
</ul><span style="font-size: small;">Di sisi kiri layar Anda dapat melihat toolbox (jika ini tidak muncul pergi ke menu bar diatas dan pilih View -> Toolbox). Dalam toolbox ini Anda akan melihat ikon tombol. Klik dua kali ikon tombol maka akan terciptalah CommandButton Command1 di tengah form Anda. Cara kedua adalah dengan mengklik satu kali ikon tombol lalu bawa kursor ke daerah form, klik-tahan lalu seret kursor sampai ukuran yang Anda inginkan, lalu lepas.</span><br />
<ul style="text-align: justify;"><li><b><span style="font-size: small;"> Langkah 4</span></b></li>
</ul><span style="font-size: small;">Jika Anda menjalankan program sekarang (Tekan F5), Anda akan melihat form Anda sekarang memiliki tombol berlabel Command1 di tengah, tapi jika Anda mengklik tombol ini, dia tidak melakukan apa-apa. Jadi mari kita link supaya program kami akan mengatakan "Halo, apa kabar dunia!" ketika Anda mengklik tombol. Tutup program Anda dengan klik tanda "X" dipojok kanan atas form sehingga Anda kembali ke lingkungan desain utama.</span><br />
<br />
<span style="font-size: small;">Visual Basic memungkinkan Anda untuk melakukan pemrograman event driven. Ini adalah konsep yang sangat kuat dan mudah digunakan. Pemrograman Event driven bekerja sebagai berikut: Sebuah objek pada Visual Basic memiliki berbagai event berbeda yang didefinisikan ketika sebuah hal tertentu sedang berlangsung, atau sesuatu menimpa pada objek tersebut. Kita sebagai pemrogram dapat link ke dalam peristiwa tersebut dan menulis kode untuk melakukan apa yang kita inginkan. Satu even yang sangat berguna adalah even Klik. Peristiwa ini terjadi setiap saat pengguna mengklik pada objek tertentu. Aku yakin bayangan sudah berputar di kepala Anda, jika kita ingin menyapa dunia ketika seseorang mengklik tombol pada form kita maka kita harus melakukan sesuatu pada even Klik untuk tombol Command1. Ya, itulah apa yang akan kita lakukan.</span><br />
<br />
<span style="font-size: small;">Untuk menulis kode event klik, klik dua kali pada tombol Command1. Ini akan memunculkan kode editor dan secara otomatis akan menulis kode awal untuk menangani event klik.</span><br />
<ul style="text-align: justify;"><li><span style="font-size: small;"><b>Langkah 5</b></span></li>
</ul><span style="font-size: small;">Sekarang Anda adapat meletakkan kode apapun antara Private Sub ... dan pernyataan End Sub yang akan dijalankan ketika pengguna mengklik tombol Command1. Untuk menunjukkan ini kita akan memiliki sebuah kotak pesan muncul menyapa dunia. Jadi tambahkan baris kode ini:</span><br />
<br />
<blockquote><div><span style="font-size: small;">Private Sub Command1_Click ()</span></div><div><span style="font-size: small;"> MsgBox "Halo, apa kabar dunia!"</span></div><div><span style="font-size: small;">End Sub</span></div></blockquote><br />
<span style="font-size: small;">MsgBox adalah fungsi yang dibangun Visual Basic untuk membuat message box yang akan ditampilkan kepada pengguna. Parameter pertama yang diambil fungsi ini adalah string teks yang ingin Anda tampilkan. Kita memilih string teks "Halo, apa kabar dunia!", Atau apapun yang ingin anda tuliskan. MsgBox juga mengambil parameter lain untuk menentukan hal-hal seperti tombol apa yang ingin ditampilkan dan apa keterangan yang digunakan, tetapi ini akan kita diskusikan nanti. Untuk sekarang mari kita lihat bagaimana ini bekerja. Jalankan program yang baru Anda buat dengan menekan F5. Setelah program ini berjalan klik tombol Command1, Anda akan melihat kotak pesan yang mengatakan Hello, World! muncul.</span><br />
<ul style="text-align: justify;"><li><span style="font-size: small;"><b>Langkah 6</b></span></li>
</ul><div style="text-align: justify;"><span style="font-size: small;">Tambahkan sebuah tombol Command lagi pada form dengan cara yang sama seperti diatas, maka pada form tercipta Command2. Dobel klik, lalu tambahkan kode end seperti berikut:</span><br />
<br />
<blockquote><div><span style="font-size: small;">Private Sub Command2_Click ()</span></div><div><span style="font-size: small;"> End</span></div><div><span style="font-size: small;">End Sub</span></div></blockquote><br />
<span style="font-size: small;">Ini akan menjadi tombol untuk keluar dari aplikasi yang anda buat, selain menggunakan "X' pada pojok kanan atas form.</span><br />
<br />
<span style="font-size: small;">Selamat! Anda telah menulis sebuah program kerja Visual Basic lengkap lewat tutorial pemula- "Halo, apa kabar dunia!". Baca beberapa tutorial VB6 kami <a href="http://tutorialvb6.blogspot.com/p/daftar-isi.html">yang lain</a> untuk belajar bagaimana kekuatan bahasa ini sebenarnya.</span><br />
<br />
</div></div>Yosa Cshttp://www.blogger.com/profile/09136158164396103550noreply@blogger.com0