JusT AnDri: Visual Basic

Showing posts with label Visual Basic. Show all posts

Macam-Macam Hak Akses Variabel Pada VB.Net

<div style="text-align: justify;">
Maksud dari judul diatas adalah kita akan mencoba memahami macam macam hak akses yang ada pada Visual Basic.Net, Seperti Public, Private dan lain lain. Hak akses adalah suatu keadaan dimana suatu elemen dapat diakses.</div>
<br />
<br />
<ol>
<li><b>Public</b><br /><div style="text-align: justify;">
Variabel atau element yang dideklarasikan dengan kata kunci Public memiliki ruang lingkup global yang juga berarti dapat diakses dibagian manapun dalam suatu project, Bahkan project lain yang memiliki referensi terhadap project trersebut. Jadi jika kita ingin atau membutuhkan suatu Variable atau element dapat diakses dimanapun kita inginkan maka sebaiknya kita gunakan Public saat pendeklarasian.</div>
</li>
<li><b>Protected</b><br /><div style="text-align: justify;">
Protected mendeklarasikan elemen atau variabel hanya dapat diakses dari sebuah kelas atau kelas turunannya. Kata kunci ini hanya digunakan pada level kelas dan hanya untuk mendeklarasikan nggota dari sebuah kelas.</div>
</li>
<li><div style="text-align: justify;">
<b>Friend</b><br />
Kata kunci Friend mirip dengan Public, hanya saja ruang lingkupnya hanya dalam sebuah project. Project yang lain tidak dapat mengaksesnya.</div>
</li>
<li><div style="text-align: justify;">
<b>Protected Friend</b><br />
Kata kunci Protected Friend merupakan gabungan dari Protected dan Friend, yang berarti mendeklarasikan sebuah elemen untuk sebuah kelas atau turunannya dan hanya dapat diakses dari dalam sebuah project saja.</div>
</li>
<li><div style="text-align: justify;">
<b>Private</b><br />
Private digunakan untuk mendeklarasikan elemen yang hanya dapat diakses dari dalam modul, kelas, atau struktur dimana elemen tersebut dideklarasikan. Kata kunci ini tidak dapat digunakan dari dalam sebuah prosedur.</div>
</li>
</ol>

Macam-Macam Hak Akses Variabel Pada VB.Net

Maksud dari judul diatas adalah kita akan mencoba memahami macam macam hak akses yang ada pada Visual Basic.Net, Seperti Public, Private da...

5:33 PM

Membuat File .Txt Menggunakan TextBox Pada VB.Net

<div style="text-align: justify;">
Kali ini kita akan mencoba membuat sebuah file .Tex baru hanya menggunakan Sebuah TextBox, dan isinya merupakan kata yang kita ketikkan kedalam TextBox tersebut.</div>
<div style="text-align: justify;">
<br /></div>
<ul>
<li>Buat Projek baru</li>
<li>Desain tempilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjr4SpP6zXpwFDqnO6Dl5PF2H82zSpqUvELG85ysW1oSlY1oQuaQuDFE1-u8UMnvqzImMjI7STA4XqS1CNCDgHhJbR-JOB4vSYEok06rBqt5-UQGrBE6HMSK8JXZsz5T0H71a5h2cpSaiA/s1600/Snap+2014-05-08+at+14.39.54.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjr4SpP6zXpwFDqnO6Dl5PF2H82zSpqUvELG85ysW1oSlY1oQuaQuDFE1-u8UMnvqzImMjI7STA4XqS1CNCDgHhJbR-JOB4vSYEok06rBqt5-UQGrBE6HMSK8JXZsz5T0H71a5h2cpSaiA/s1600/Snap+2014-05-08+at+14.39.54.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain Tempilan</td></tr>
</tbody></table>
<ul>
<li> Kemudian ketikkan kode berikut pada tombol save:<br /><br /><span style="background-color: cyan;">My.Computer.FileSystem.WriteAllText("<span style="color: red;">D:\file.txt</span>", TextBox1.Text, True) MsgBox("File berhasil disimpan")</span></li>
<li>Untuk kode yang berwarna merah merupakan lokasi dimana nantinya file Text kita akan disimpan dan bisa anda ubah sesuai keinginan.</li>
<li>Jalankan dan isi bagian textbox lalu tekan save, maka akan muncul sebuah pesan bahwa file berhasil disimpan.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdaLwEg59lbc7gQVoMS-oxc4t5__vvulOgjgEOaHkhElkneVKKuY515BP-XOS22MMcuauE7VtVBNkLHcyRC4xOLvx6vD2FqXg011TohUi7CRZLXiUS8tAZ1-ZEnCBlcIY4YORpCmBI2kU/s1600/Snap+2014-05-08+at+14.40.28.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="168" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdaLwEg59lbc7gQVoMS-oxc4t5__vvulOgjgEOaHkhElkneVKKuY515BP-XOS22MMcuauE7VtVBNkLHcyRC4xOLvx6vD2FqXg011TohUi7CRZLXiUS8tAZ1-ZEnCBlcIY4YORpCmBI2kU/s1600/Snap+2014-05-08+at+14.40.28.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Simpan File</td></tr>
</tbody></table>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8vmWVMhlyOg4QL-LSxqbye_acKvsfZSkPSLs8iiBOFc7oPrZY7tKJbntqkditn3X3dOcAdacyNZvXfa_TqLkpwua6xOuYGbgi9X5kGBs-uP-N_BWjQU8j6snZYyxGzHtgJHip3ZQh_UQ/s1600/Snap+2014-05-08+at+14.41.09.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="303" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8vmWVMhlyOg4QL-LSxqbye_acKvsfZSkPSLs8iiBOFc7oPrZY7tKJbntqkditn3X3dOcAdacyNZvXfa_TqLkpwua6xOuYGbgi9X5kGBs-uP-N_BWjQU8j6snZYyxGzHtgJHip3ZQh_UQ/s1600/Snap+2014-05-08+at+14.41.09.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">File yang telah kita buat</td></tr>
</tbody></table>

Membuat File .Txt Menggunakan TextBox Pada VB.Net

Kali ini kita akan mencoba membuat sebuah file .Tex baru hanya menggunakan Sebuah TextBox, dan isinya merupakan kata yang kita ketikkan ked...

5:03 PM

Cara Mudah Mengganti Font Dengan FontDialog Pada VB.Net

<div style="text-align: justify;">
Kali ini kita akan memanfaatkan sebuah tool yang ada pada VB.Net yaitu FontDialog, yang fungsinya untuk menampilkan dialog dimana kita bisa mengatur jenis huruf ukuran format huruf dll (dan lupa lagi).</div>
<div style="text-align: justify;">
<br /></div>
<ul>
<li>Buat Projek baru</li>
<li>Desain tampilan sederhana seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEicjpuFyXluW0EvcpvtOyvXNSjF3vyTuM0jRFni7PsDzAEUKCS4K29n_gtiBVjLClMsbR4F4iAxtaqbwJLCWVfT40OCuf7ekDjPPWBgq7WaHPq1V6X7dFXU3KXnHdWn4hGq7K1nT8zb75A/s1600/Snap+2014-05-08+at+14.24.44.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEicjpuFyXluW0EvcpvtOyvXNSjF3vyTuM0jRFni7PsDzAEUKCS4K29n_gtiBVjLClMsbR4F4iAxtaqbwJLCWVfT40OCuf7ekDjPPWBgq7WaHPq1V6X7dFXU3KXnHdWn4hGq7K1nT8zb75A/s1600/Snap+2014-05-08+at+14.24.44.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain Tampilan</td></tr>
</tbody></table>
<ul>
<li>Drag Sebuah Tool FontDialog kedalam Form.</li>
<li>Kemudian Ketikkan kode berikut pada Tombol Ganti Font:<br /><br /><span style="background-color: cyan;">FontDialog1.ShowDialog() <br />Label1.Font = FontDialog1.Font</span><br /><br /> </li>
<li>Jalankan dan klik ganti Font atur sesuai keinginan.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDwbWEntOXbxgnMJNqH2-0CW3VAs3-ktZrFG4vZarJOTl591_8-eycj_VBhqxgTNdtT0ixQ-3xxHC7H5wd5S25knC1wLSXZ_hv40oJ47qp4briNvwFIA1eKgpjzd6csL7EJoNn4aD8fSc/s1600/Snap+2014-05-08+at+14.25.21.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><br /><img border="0" height="152" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDwbWEntOXbxgnMJNqH2-0CW3VAs3-ktZrFG4vZarJOTl591_8-eycj_VBhqxgTNdtT0ixQ-3xxHC7H5wd5S25knC1wLSXZ_hv40oJ47qp4briNvwFIA1eKgpjzd6csL7EJoNn4aD8fSc/s1600/Snap+2014-05-08+at+14.25.21.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Ganti Font</td></tr>
</tbody></table>
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEYjnBMZP_kGqzE0pc5dA_FEbHKlHKdhfgdcJnZAw_3LCDcTNZggTZ4t_wLNdskENPVMGAOWhzTSHdtRGgIGRoH89XUdpfsHn_YYo9J_cU1qzFVrlYwscHMt8LLjJLTrTQRvfTX_VXczM/s1600/Snap+2014-05-08+at+14.25.32.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEYjnBMZP_kGqzE0pc5dA_FEbHKlHKdhfgdcJnZAw_3LCDcTNZggTZ4t_wLNdskENPVMGAOWhzTSHdtRGgIGRoH89XUdpfsHn_YYo9J_cU1qzFVrlYwscHMt8LLjJLTrTQRvfTX_VXczM/s1600/Snap+2014-05-08+at+14.25.32.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Hasilnya</td></tr>
</tbody></table>

Cara Mudah Mengganti Font Dengan FontDialog Pada VB.Net

Kali ini kita akan memanfaatkan sebuah tool yang ada pada VB.Net yaitu FontDialog, yang fungsinya untuk menampilkan dialog dimana kita bisa...

4:53 PM

Cara Menggabung Dua Buah Kata Dengan VB.Net

Maksudnya kita akan mencoba menggabungkan beberapa kata yang terpisah menjadi satu kalimat.<br />
<br />
<ul>
<li>Buat Projek Baru</li>
</ul>
<ul>
<li>Desain tampilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKpTG0z6cbv3DH2PguIekTRJHFttunvA2Rp_jeuI8RRl_n6o6QeviTzev_n4EOgcutoE6yibhg_p2qZ1TgRWKKvDplX3wjcJsvGMWxyw2E3jsl2Ncj1baLA1JS5fBpERSH66Qy-o57QX8/s1600/Snap+2014-05-09+at+00.43.26.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="145" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKpTG0z6cbv3DH2PguIekTRJHFttunvA2Rp_jeuI8RRl_n6o6QeviTzev_n4EOgcutoE6yibhg_p2qZ1TgRWKKvDplX3wjcJsvGMWxyw2E3jsl2Ncj1baLA1JS5fBpERSH66Qy-o57QX8/s1600/Snap+2014-05-09+at+00.43.26.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain Tampilan</td></tr>
</tbody></table>
<ul>
<li>Kemudian pada tombol Gabungkan ketikkan kode berikut:<br /><br /><span style="background-color: cyan;">TextBox3.Text = TextBox1.Text & " " & TextBox2.Text</span><br /> </li>
<li>Jalankan dan isi TextBox 1 dan 2 lalu klik gabungkan.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgz6rKV5FT3u1_X-IgHLNJYq1LCgDEPP59_tS9IdFJhM30tdOL8zzzssoLPdRlQOI6gFGQcAkSKxsBBvZUzDy07qBjbGWXWlQ1hbYIADiyxM_A-fedxjuWWpy0uXCn_TnTT-jgl5O71iDU/s1600/Snap+2014-05-09+at+00.43.36.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="145" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgz6rKV5FT3u1_X-IgHLNJYq1LCgDEPP59_tS9IdFJhM30tdOL8zzzssoLPdRlQOI6gFGQcAkSKxsBBvZUzDy07qBjbGWXWlQ1hbYIADiyxM_A-fedxjuWWpy0uXCn_TnTT-jgl5O71iDU/s1600/Snap+2014-05-09+at+00.43.36.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Menggabungkan kata</td></tr>
</tbody></table>

Cara Menggabung Dua Buah Kata Dengan VB.Net

Maksudnya kita akan mencoba menggabungkan beberapa kata yang terpisah menjadi satu kalimat. Buat Projek Baru Desain tampilan seperti i...

4:46 PM

Merubah Kata Menjadi Huruf Besar Atau Kecil Dengan VB.Net

<br />
<div style="text-align: justify;">
Kita akan mencoba membuat sebuah program untuk mengubah kata atau kalimat yang kita inputkan dalam TextBox menjadi huruf besar semua tau juga menjadi Huruf Kecil semua.</div>
<div style="text-align: justify;">
<br /></div>
<ul>
<li>Buat Projek Baru</li>
<li>Desain Tempilan Seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3sPkXKvuDQFxp6Ses25I384ZnUi7fsk0WhsG2hTHf6n0POSJsh9c7bMuqEED0zoibcpu5TOFuTuC4fWJL4qOOO_TIo2VX6wFCPQkGhJ024wvP_G_Xm0fp27aoycM7Vl2Ww8Y6bcCzTJA/s1600/Snap+2014-05-09+at+00.51.24.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3sPkXKvuDQFxp6Ses25I384ZnUi7fsk0WhsG2hTHf6n0POSJsh9c7bMuqEED0zoibcpu5TOFuTuC4fWJL4qOOO_TIo2VX6wFCPQkGhJ024wvP_G_Xm0fp27aoycM7Vl2Ww8Y6bcCzTJA/s1600/Snap+2014-05-09+at+00.51.24.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain Tampilan</td></tr>
</tbody></table>
<ul>
<li> Pada Tombol Besar ketikkan kode berikut:<br /><br /><span style="background-color: cyan;">TextBox2.Text = (TextBox1.Text.ToUpper)</span></li>
</ul>
<ul>
<li> Kemudian pada Tombol Kecil ketikkan kode berikut:<br /><br /><span style="background-color: cyan;">TextBox2.Text = (TextBox1.Text.ToLower)</span></li>
<li>Coba jalankkan dan ketikkan sebuah kalimat pada TextBox lalu klik salah satu tombol.</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWbb6_WOUqod4AcKfDDEdxwloUaN25EaaAQ8IIQxvZEvRV_ii676YbcaMvFIAp8rNMp_Wc_-AP3u8HJYGQSBAn0OGz2J058px1wFG26iyqNKz0EfgTne2pM2Xgzi10_a3RjjOi5JE62rc/s1600/Snap+2014-05-09+at+00.51.37.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWbb6_WOUqod4AcKfDDEdxwloUaN25EaaAQ8IIQxvZEvRV_ii676YbcaMvFIAp8rNMp_Wc_-AP3u8HJYGQSBAn0OGz2J058px1wFG26iyqNKz0EfgTne2pM2Xgzi10_a3RjjOi5JE62rc/s1600/Snap+2014-05-09+at+00.51.37.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Ubah Kedalam huruf besar</td></tr>
</tbody></table>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhV0dpUGoXE_yRVcvFj3RnHYwmYCdikOLN4_9VOG6Rwa2c9sSXa2yJ-_3m4ODPUrYYqDvv1ZKOXp2uUWv-DqR-iJszFPjdlXasDTGr6YLlYEO6UVdnJaU_fVd-lxg_xnunZMaLMZmTq6lQ/s1600/Snap+2014-05-09+at+00.52.02.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhV0dpUGoXE_yRVcvFj3RnHYwmYCdikOLN4_9VOG6Rwa2c9sSXa2yJ-_3m4ODPUrYYqDvv1ZKOXp2uUWv-DqR-iJszFPjdlXasDTGr6YLlYEO6UVdnJaU_fVd-lxg_xnunZMaLMZmTq6lQ/s1600/Snap+2014-05-09+at+00.52.02.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Ubah Kedalam huruf kecil</td></tr>
</tbody></table>
<br />

Merubah Kata Menjadi Huruf Besar Atau Kecil Dengan VB.Net

Kita akan mencoba membuat sebuah program untuk mengubah kata atau kalimat yang kita inputkan dalam TextBox menjadi huruf besar semua tau j...

4:40 PM

Membuat Aplikasi Untuk Mengitung Berat Badan Dengan VB.Net

<div style="text-align: justify;">
Kali ini kita akan belajar membuat sebuah aplikasi sederhana yang bisa kita gunakkan untuk mengetahui apakah berat badan kita normal atau atau tidak.</div>
<div style="text-align: justify;">
<br /></div>
<ul>
<li>Buat Projek Baru</li>
<li>Desain tampilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjahxBk-CdKnojFZIot5wc6CB02bOsydsnsO-Dv-JeN1edFvuVEdSKYnhAamheJR-61CZGLdj1PopwFZrOaT5mTa-1sG2624oSHcVr5MkVjj2bQi3CwFXYoWfMiTrktX-gbJezz9abGq4A/s1600/Snap+2014-05-09+at+03.08.26.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjahxBk-CdKnojFZIot5wc6CB02bOsydsnsO-Dv-JeN1edFvuVEdSKYnhAamheJR-61CZGLdj1PopwFZrOaT5mTa-1sG2624oSHcVr5MkVjj2bQi3CwFXYoWfMiTrktX-gbJezz9abGq4A/s1600/Snap+2014-05-09+at+03.08.26.png" width="306" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain Tampilan</td></tr>
</tbody></table>
<ul>
<li> Pada tomblol hitung tuliskan kode berikut:<br /><br /><span style="background-color: cyan;">Dim hitung As Double = Val(TextBox1.Text) / (Val(TextBox2.Text / 100) * Val(TextBox2.Text / 100)) <br />        Dim hasil As Double <br />        hasil = FormatNumber(hitung, 2) <br />        TextBox3.Text = (hasil) <br />        If RadioButton2.Checked = True Then <br /><br />            If hasil < 17 Then <br />                Label4.Text = "Kurus" <br />            ElseIf hasil >= 17 And hasil <= 23 Then <br />                Label4.Text = "Normal" <br />            ElseIf hasil > 23 And hasil <= 27 Then <br />                Label4.Text = "Kegemukan" <br />            ElseIf hasil > 27 Then <br />                Label4.Text = "Obesitas" <br />            End If <br />        ElseIf RadioButton1.Checked = True Then <br />            If hasil < 18 Then <br />                Label4.Text = "Kurus" <br />            ElseIf hasil >= 18 And hasil <= 25 Then <br />                Label4.Text = "Normal" <br />            ElseIf hasil > 25 And hasil <= 27 Then <br />                Label4.Text = "Kegemukan" <br />            ElseIf hasil > 27 Then <br />                Label4.Text = "Obesitas" <br />            End If <br />        End If</span></li>
<li style="text-align: justify;">Coba jalankan dan isi berat badan dan tinggi badan anda, apa hasilnya.<br />Mungkin hasil ini bisa saja berbeda bila kita menggunakkan cara lain, karena standar BMI itu juga berbeda-beda.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZ4-V49dPfRkHZESxbV8ac79PRVNpL4dS0wa43WMOsg7noT3C0I-V0K5vN6QeZjbsBS4bc_inLHhij0041UqfLAKhXLgVsLodc4wvv-xSkVndARwhH5n3S-iPQa-W2kYPuyJzp9M_IKq8/s1600/Snap+2014-05-09+at+03.25.31.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZ4-V49dPfRkHZESxbV8ac79PRVNpL4dS0wa43WMOsg7noT3C0I-V0K5vN6QeZjbsBS4bc_inLHhij0041UqfLAKhXLgVsLodc4wvv-xSkVndARwhH5n3S-iPQa-W2kYPuyJzp9M_IKq8/s1600/Snap+2014-05-09+at+03.25.31.png" width="306" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Menghitung Berat Badan Pada Pria</td></tr>
</tbody></table>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-gSPRzMy4VT7AUl32LkO-Ah1B0-BCwIh6pj7-IA0UaYLb16BgUWP7_5WCTiDdIHtWfcCiM1Tc1uZ2kdM2AT3Psf84DbjIeksq8_sWj2vy9icy4QaA107_woqGZm-stwypqJ79LIripjk/s1600/Snap+2014-05-09+at+03.25.41.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-gSPRzMy4VT7AUl32LkO-Ah1B0-BCwIh6pj7-IA0UaYLb16BgUWP7_5WCTiDdIHtWfcCiM1Tc1uZ2kdM2AT3Psf84DbjIeksq8_sWj2vy9icy4QaA107_woqGZm-stwypqJ79LIripjk/s1600/Snap+2014-05-09+at+03.25.41.png" width="306" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Menghitung Berat Badan PadaWanita</td></tr>
</tbody></table>

Membuat Aplikasi Untuk Mengitung Berat Badan Dengan VB.Net

Kali ini kita akan belajar membuat sebuah aplikasi sederhana yang bisa kita gunakkan untuk mengetahui apakah berat badan kita normal atau a...

4:31 PM

Membalik Kalimat Dengan VB.Net

<div style="text-align: justify;">
Kali ini kita akan belajar cara untuk membalikkan kata atau kalimat yang kita inputkan pada TextBox, Misalnya seperti kata "Percobaan" akan menjadi "naabocreP".</div>
<div style="text-align: justify;">
<br /></div>
<ul>
<li>Buat Projek baru</li>
<li>Desain tempilan  seperti gambar dibawah, kita membutuhkan 2 TextBox dan sebuah Button. </li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZSJJh90TmLhLCrWttjKOIi9Khd4-qa8c-kKQtqxUPAA6RX1JP4Oan0Za7otwPE0TCZRAX6yH7WDl6MRxyoaeplXuzAHLqNAR8F_8fDohdxIi7MsPY_65gxbPBNDHCejgctRJkgiGIKz0/s1600/Snap+2014-05-09+at+00.29.00.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZSJJh90TmLhLCrWttjKOIi9Khd4-qa8c-kKQtqxUPAA6RX1JP4Oan0Za7otwPE0TCZRAX6yH7WDl6MRxyoaeplXuzAHLqNAR8F_8fDohdxIi7MsPY_65gxbPBNDHCejgctRJkgiGIKz0/s1600/Snap+2014-05-09+at+00.29.00.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain Tampilan</td></tr>
</tbody></table>
<ul>
<li>Kemudian pada tombol balik ketikkan kode berikut:<br /><br />Dim balik As String <br />Dim Letters() As Char <br /><br />balik = TextBox1.Text <br />Letters = balik.ToCharArray() <br />Array.Reverse(Letters) <br />Dim balikkata As New String(Letters, 0, Letters.Length) <br />TextBox2.Text = balikkata</li>
<li>Coba jalankan dan isi TextBox1 lalu tekan tombol Balik.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhn2wVtjcbas-nZt2nvOB_mZ5UKvUpSQ_qio_cdko7O3li9rm-vOGTRmECq1Ie09phP27AzlT6s97hkV-_ajFtmlMQAWSD9J3vmAZj_z9voY7r476xj8QxQE80le3uu6o-c0WB4qgmMxE/s1600/Snap+2014-05-09+at+00.29.14.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhn2wVtjcbas-nZt2nvOB_mZ5UKvUpSQ_qio_cdko7O3li9rm-vOGTRmECq1Ie09phP27AzlT6s97hkV-_ajFtmlMQAWSD9J3vmAZj_z9voY7r476xj8QxQE80le3uu6o-c0WB4qgmMxE/s1600/Snap+2014-05-09+at+00.29.14.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Balik kata</td></tr>
</tbody></table>

Membalik Kalimat Dengan VB.Net

Kali ini kita akan belajar cara untuk membalikkan kata atau kalimat yang kita inputkan pada TextBox, Misalnya seperti kata "Percobaan...

4:05 PM

Cara Untuk Mengetahui Tombol Yang Ditekan

<div style="text-align: justify;">
Maksud judul diatas ialah kali ini kita akan membuat aplikasi sederhana yang bisa kita gunakan untuk  mengetahui tombol yang ditekan dan akan ditampilkkan pada Form.</div>
<br />
<br />
<ul>
<li>Buat Projek baru</li>
<li>Tambahkan semuah Label lalu Hapus Properti Textnya.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhISqxTsJzC8RgrhZtHq2ZgdnPVUxWWjV1vjGLuP10AyLlNKEfpenasMXjItDPmSMRjXCxDlwsX8QT7lGwLa5xASc3aAdyvmou0GkIKhsmu4wbbcqzl9FG2pxyEabXHMmBPHJpPBHIwr5M/s1600/Snap+2014-05-07+at+16.18.27.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhISqxTsJzC8RgrhZtHq2ZgdnPVUxWWjV1vjGLuP10AyLlNKEfpenasMXjItDPmSMRjXCxDlwsX8QT7lGwLa5xASc3aAdyvmou0GkIKhsmu4wbbcqzl9FG2pxyEabXHMmBPHJpPBHIwr5M/s1600/Snap+2014-05-07+at+16.18.27.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Tambah sebuah label</td></tr>
</tbody></table>
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdP0BnXkUgIvkHvXnA6Vj6yvpOl4J_OLRhyfUHzNV6Lyzi0a6EfFXGevFzwsS4G6VeLvRUXlnPq_Wu5GZk-0-ZW7jzz4KhgiLzEntnKvlBxLhuD7szziQo0D1ABZIYiNwBsO9VAB5wMRs/s1600/Snap+2014-05-07+at+16.18.48.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdP0BnXkUgIvkHvXnA6Vj6yvpOl4J_OLRhyfUHzNV6Lyzi0a6EfFXGevFzwsS4G6VeLvRUXlnPq_Wu5GZk-0-ZW7jzz4KhgiLzEntnKvlBxLhuD7szziQo0D1ABZIYiNwBsO9VAB5wMRs/s1600/Snap+2014-05-07+at+16.18.48.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">hapus textnya</td></tr>
</tbody></table>
<br />
<ul>
<li> Double Klik pada form lalu ubah Metodnya menjai KeyPress.</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi58wIw9mWM9un3ZTIAYz5Mv9MH-AB4M_HmHtgCBfOkEhi3-0l57_rIhgE_93_9KO172cbY2H0gb2X0-GVy-qMGZtnVtZUrdJM5k8IdQm5zJfCD86762z84709ZB4o8j-vYrB8Kvc4cmp4/s1600/Snap+2014-05-07+at+16.19.50.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="43" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi58wIw9mWM9un3ZTIAYz5Mv9MH-AB4M_HmHtgCBfOkEhi3-0l57_rIhgE_93_9KO172cbY2H0gb2X0-GVy-qMGZtnVtZUrdJM5k8IdQm5zJfCD86762z84709ZB4o8j-vYrB8Kvc4cmp4/s1600/Snap+2014-05-07+at+16.19.50.png" width="320" /></a></div>
<div>
<ul>
<li>Ketik Kode Berikut :<br /><br /><pre class="brush: java"><span style="background-color: cyan;">If Asc(e.KeyChar) > 1 Then
   Label1.Text = e.KeyChar
     e.Handled = True
End If
</span></pre>
</li>
<li><span style="white-space: pre;"><span style="font-family: inherit;">Jalankan dan coba tekan salah satu tombol pada keyboard</span><span style="font-family: monospace;"> </span><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="font-family: monospace; margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJ2JyUsNyBWZc-MxOrRK0boIWP-PumYZ0x6YO30r5McFtKZgcaFI4I8aclIWqD4LbXTPKy1kS31CRrDSM5FWL9sigzs7QvAJp847MseTXOUAs-p9px91eH2yXXr4_dr_BEFCOxsDIIwJ4/s1600/Snap+2014-05-07+at+16.19.05.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJ2JyUsNyBWZc-MxOrRK0boIWP-PumYZ0x6YO30r5McFtKZgcaFI4I8aclIWqD4LbXTPKy1kS31CRrDSM5FWL9sigzs7QvAJp847MseTXOUAs-p9px91eH2yXXr4_dr_BEFCOxsDIIwJ4/s1600/Snap+2014-05-07+at+16.19.05.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;"><span style="font-family: inherit; font-size: small;">Ketika a ditekan</span></td></tr>
</tbody></table>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="font-family: monospace; margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEir_dRl-fvpDhRmMCxZJUf74cwRXvoOAEDhHDNYf3LrxKvTiVdrUc_lBkAo6pDV51jG7qLL3HYWIA86e6NQcpQ_1WDos8XMVxsMYw8d4ruLlAdllrp2muxZGHkDJiwCX6NQbpsEbKB5O6k/s1600/Snap+2014-05-07+at+16.19.13.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEir_dRl-fvpDhRmMCxZJUf74cwRXvoOAEDhHDNYf3LrxKvTiVdrUc_lBkAo6pDV51jG7qLL3HYWIA86e6NQcpQ_1WDos8XMVxsMYw8d4ruLlAdllrp2muxZGHkDJiwCX6NQbpsEbKB5O6k/s1600/Snap+2014-05-07+at+16.19.13.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;"><span style="font-family: inherit; font-size: small;">Ketika b ditekan</span></td></tr>
</tbody></table>
</span></li>
</ul>
</div>

Cara Untuk Mengetahui Tombol Yang Ditekan

Maksud judul diatas ialah kali ini kita akan membuat aplikasi sederhana yang bisa kita gunakan untuk mengetahui tombol yang ditekan dan ak...

5:04 PM

Aplikasi Untuk Menghitung Usia

<ul>
<li>Buat Projek Baru</li>
<li>Desain tempilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0s_Wspbs_iN8hiEZOOZ_wx96nro6RT3FL_JMrrxbkDdz4OXnCHdCVtLLu8OtixOMz8hz0srJ8SEmFyVzdz9rfBsHi5-LNHTpJHRdDjQkLgfERqmuhi3Z_kTDHMyzwUUHa-aEaSh2cbS0/s1600/Snap+2014-05-07+at+16.08.23.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0s_Wspbs_iN8hiEZOOZ_wx96nro6RT3FL_JMrrxbkDdz4OXnCHdCVtLLu8OtixOMz8hz0srJ8SEmFyVzdz9rfBsHi5-LNHTpJHRdDjQkLgfERqmuhi3Z_kTDHMyzwUUHa-aEaSh2cbS0/s1600/Snap+2014-05-07+at+16.08.23.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain</td></tr>
</tbody></table>
<div>
<ul>
<li>Pada Tombol hitung ketikkan kode berikut:<br /><br /><pre class="brush: java"><span style="background-color: cyan;">Dim a As String
Dim b As String
Dim c As String

a = TextBox3.Text
b = TextBox2.Text
c = TextBox1.Text

Dim DOB As New DateTime(a, b, c)

Dim Years As Integer = DateDiff(DateInterval.Year, DOB, Now) - 1
Dim Months As Integer = DateDiff(DateInterval.Month, DOB, Now) Mod 12
Dim days As Integer = DateDiff(DateInterval.Day, DOB, Now) Mod 30 - 10
TextBox4.Text = Years & " Tahun, " & Months & " Bulan "</span>
</pre>
</li>
<li>Jalankan, lalu inputkan tanggal bulan dan tahun lahir.</li>
</ul>
</div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijmZ8TXGO8jPDjgxaEJYSKha5SI7JkRUelygXJxYjyQEGczjOuUrFlajx9UWqotX9KogdB_CrjrxJu7aPwKv-FPEC2lWODvYoOUZohv3TtwOp8popJn4eHhYQszhqTE4V94HEXAQX5k4s/s1600/Snap+2014-05-07+at+16.10.35.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijmZ8TXGO8jPDjgxaEJYSKha5SI7JkRUelygXJxYjyQEGczjOuUrFlajx9UWqotX9KogdB_CrjrxJu7aPwKv-FPEC2lWODvYoOUZohv3TtwOp8popJn4eHhYQszhqTE4V94HEXAQX5k4s/s1600/Snap+2014-05-07+at+16.10.35.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Hitung Usia</td></tr>
</tbody></table>
<br />
<div>
<br /></div>

Aplikasi Untuk Menghitung Usia

Buat Projek Baru Desain tempilan seperti ini: Desain Pada Tombol hitung ketikkan kode berikut: Dim a As String Dim b As String Dim...

4:54 PM

Cara Menghapus Banyak TextBox Dalam Satu Form

<div style="text-align: justify;">
Maksud judul diatas ialah kita akan mencoba menghaspus beberapa TextBox yang ada dalam suatu form sekaligus.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
</div>
<ul>
<li>Buat Projek baru</li>
<li>Desain tampilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcRFdyad8NBdadsZq_5d-cXtJ1Iu406Us-yNBB-Vd9O7bbVuVkHXX2NkBkvA2oyBLjZXxWcPIjEEXQ24YXkK50OuHMiudJlljNDWpEudQYggPXV5kCHBI0FU795UXpUSJpazegusXFMqo/s1600/Snap+2014-05-07+at+15.36.53.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="168" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcRFdyad8NBdadsZq_5d-cXtJ1Iu406Us-yNBB-Vd9O7bbVuVkHXX2NkBkvA2oyBLjZXxWcPIjEEXQ24YXkK50OuHMiudJlljNDWpEudQYggPXV5kCHBI0FU795UXpUSJpazegusXFMqo/s1600/Snap+2014-05-07+at+15.36.53.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain Tampilan</td></tr>
</tbody></table>
<div>
<ul>
<li>Lalu ketikkan kode berikut pada Button Hapus Semua:<br /><br /><pre class="brush: java"><span style="background-color: cyan;">Dim a As Control
For Each a In Me.Controls
    If TypeOf a Is TextBox Then
          a.Text = Nothing
    End If
Next</span>
</pre>
</li>
<li><div style="text-align: left;">
<span style="text-align: justify;">Coba jalankan dan isi semu TextBox dan tekan tombol Hapus.</span></div>
</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6RqSsXKq_qrhw9peTcu1oswI8TbFptnQjp85dAzzRS8faXSGKY22QxKvackaxaipxoO96EmgQSKS8990lxuqto6H89y7Gu8CVk9mGiYFD8soQU-sn-b20UVhQTNDzcABZACkMwq8MkiQ/s1600/Snap+2014-05-07+at+15.36.35.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="168" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6RqSsXKq_qrhw9peTcu1oswI8TbFptnQjp85dAzzRS8faXSGKY22QxKvackaxaipxoO96EmgQSKS8990lxuqto6H89y7Gu8CVk9mGiYFD8soQU-sn-b20UVhQTNDzcABZACkMwq8MkiQ/s1600/Snap+2014-05-07+at+15.36.35.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Hapus Semua</td></tr>
</tbody></table>
<div style="text-align: justify;">
<br /></div>
</div>

Cara Menghapus Banyak TextBox Dalam Satu Form

Maksud judul diatas ialah kita akan mencoba menghaspus beberapa TextBox yang ada dalam suatu form sekaligus. Buat Projek baru Desain...

4:42 PM

Cara Menghapus Items Dari ListBox

Yang akan kita coba hanya dua cara, yaitu menghaspu semua items yang ada pada ListBox dan menghapus salah satu items yang dipilih saja.<br />
<div>
<br /></div>
<div>
<ul>
<li>Buat Projek baru.</li>
<li>Desain tempilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhI6cLN9JHAXYCJZ0UhkvxAqGsy5Vf_IkqkSO5oKL6OXlICZqwD1-k4Msk1ASqerhKb8HskjaF0QUwyQvxID_GoRoRtcRRoHLwK5TnMGU7XiVNDHgHmX0blhMp-yvOLhSxSOGo1azCn680/s1600/Snap+2014-05-07+at+15.57.55.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhI6cLN9JHAXYCJZ0UhkvxAqGsy5Vf_IkqkSO5oKL6OXlICZqwD1-k4Msk1ASqerhKb8HskjaF0QUwyQvxID_GoRoRtcRRoHLwK5TnMGU7XiVNDHgHmX0blhMp-yvOLhSxSOGo1azCn680/s1600/Snap+2014-05-07+at+15.57.55.png" width="259" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Desain</td></tr>
</tbody></table>
<ul>
<li> Untuk Button tambah Lihat caranya<a href="http://justandri.blogspot.com/2014/05/menambah-items-dari-textbox-kedalam.html" target="_blank"> disini.</a></li>
<li>Pada Button Hapus Semua ketikkan kode berikut:<br /><span style="background-color: cyan;">ListBox1.Items.Clear()</span></li>
<li>Lalu pada Button Hapus Yang Dipilih Ketikkan kode berikut:<br /><span style="background-color: cyan;">ListBox1.Items.Remove(ListBox1.SelectedItem)</span></li>
<li>Jalankan dan tambahkan beberapa items kedalam ListBox</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIQlWMWXKFfqMUb1OGx-UX0eO3u3cN9nLJMLbE7E0XutDqRlhu59hyus8hJWimdThhDGKWkIWzNPRH93eFC6ObL14d_UxQLmaREZlFLeLG5JCJlrXGFaW6AnYKDA7dQXp3Q5_B7IV9SME/s1600/Snap+2014-05-07+at+15.58.23.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjIQlWMWXKFfqMUb1OGx-UX0eO3u3cN9nLJMLbE7E0XutDqRlhu59hyus8hJWimdThhDGKWkIWzNPRH93eFC6ObL14d_UxQLmaREZlFLeLG5JCJlrXGFaW6AnYKDA7dQXp3Q5_B7IV9SME/s1600/Snap+2014-05-07+at+15.58.23.png" width="259" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Tambahkkan Items kedalam ListBox</td></tr>
</tbody></table>
<ul>
<li> Coba pilih salah satu dan tekan Hapus Yang Dipilih.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHmS664ohacIlKKTD7hc2q-8lKBgMriz773UhIrnVjM8GDgG5x_2xkptM25Cl1UENizptztP9KwpNwH34hhuaUHW-I4GseOeJ5qQyAxqWRpevaYISZiIk2LiCpZhXzzqQq_QC8336xGUM/s1600/Snap+2014-05-07+at+15.58.33.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHmS664ohacIlKKTD7hc2q-8lKBgMriz773UhIrnVjM8GDgG5x_2xkptM25Cl1UENizptztP9KwpNwH34hhuaUHW-I4GseOeJ5qQyAxqWRpevaYISZiIk2LiCpZhXzzqQq_QC8336xGUM/s1600/Snap+2014-05-07+at+15.58.33.png" width="259" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Hapus yang dipilih</td></tr>
</tbody></table>
<div>
<ul>
<li>Jka Tombol Hapus Semua yang ditekan maka semua items dalam ListBOx akan terhapus.</li>
</ul>
</div>
</div>

Cara Menghapus Items Dari ListBox

Yang akan kita coba hanya dua cara, yaitu menghaspu semua items yang ada pada ListBox dan menghapus salah satu items yang dipilih saja. ...

4:34 PM

Cuma Angka Yang Bisa Diinputkan Kedalam TextBox

<div style="text-align: justify;">
Bagaimana agar hanya anggka saja yang bisa diinputkan kedalam TextBox, itulah yang akan kita bahas kali ini.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<ul>
<li>Buat Projek baru</li>
<li>Buat desain sederhana seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaRvTBXC-dcGMoxK33W9bECPKG7WzqCLBLJRkF2867xDPHudnuoRcYVY8p1jH_S-VnFqGoZiYcNQPk4kDA0LWmCqGTWWo02op9jE6YkrPwHHXY5H2OoKchpNqJjWuFIBKn2XRotBXZHTo/s1600/Snap+2014-05-07+at+16.26.10.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="147" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaRvTBXC-dcGMoxK33W9bECPKG7WzqCLBLJRkF2867xDPHudnuoRcYVY8p1jH_S-VnFqGoZiYcNQPk4kDA0LWmCqGTWWo02op9jE6YkrPwHHXY5H2OoKchpNqJjWuFIBKn2XRotBXZHTo/s1600/Snap+2014-05-07+at+16.26.10.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Number Only</td></tr>
</tbody></table>
<div>
<ul>
<li>Kemudian Double klik pada TextBox lalu ubah Fungsinya menjadi KeyPress.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7s8UDu-Fq7V8ji-usJD374h_sacPgyCPTOwAIzLGVI_s075DkAuEjzcX1B_wa7aHG0EcXVUEWm1fQKuyW07kNuQ-5ZXsIDqNkQpJI1QYM66AGoeLh-kv3hl0AVKIfDIzAxt8SsgmqTlM/s1600/Snap+2014-05-07+at+16.24.21.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="58" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7s8UDu-Fq7V8ji-usJD374h_sacPgyCPTOwAIzLGVI_s075DkAuEjzcX1B_wa7aHG0EcXVUEWm1fQKuyW07kNuQ-5ZXsIDqNkQpJI1QYM66AGoeLh-kv3hl0AVKIfDIzAxt8SsgmqTlM/s1600/Snap+2014-05-07+at+16.24.21.png" width="400" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">keyPress</td></tr>
</tbody></table>
<div>
<ul>
<li>Kemudian anda ketikan kode berikut :<br /><span style="background-color: cyan;">If Asc(e.KeyChar) <> 13 AndAlso Asc(e.KeyChar) <> 8 _<br />AndAlso Not IsNumeric(e.KeyChar) Then<br />MessageBox.Show("Mohon Hanya Angka yang anda Inputkan")<br />e.Handled = True<br />End If</span></li>
<li><span style="background-color: white;">Coba anda jalankkan dan jika yang diinputkkan berupa Huruf maka akan tampil seuah pesan seperti ini:</span></li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1jit8arBUZNmnPKd4PJktaNS5wAvzK8IhLQORcRUYlTM9kkF0A-skzqMXtPQAI4cyTWYY2tApq6JohYjRRNiNfvqbzGrvYVzpIY6lPS0TsqR5KAT-6XqCVx3w5Hoffj9VjX_ozhW8sks/s1600/Snap+2014-05-07+at+16.27.31.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="196" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1jit8arBUZNmnPKd4PJktaNS5wAvzK8IhLQORcRUYlTM9kkF0A-skzqMXtPQAI4cyTWYY2tApq6JohYjRRNiNfvqbzGrvYVzpIY6lPS0TsqR5KAT-6XqCVx3w5Hoffj9VjX_ozhW8sks/s1600/Snap+2014-05-07+at+16.27.31.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Saya inputkan angka 123 lalu saya tekan huruf</td></tr>
</tbody></table>
<div>
<br /></div>
</div>
</div>
</div>

Cuma Angka Yang Bisa Diinputkan Kedalam TextBox

Bagaimana agar hanya anggka saja yang bisa diinputkan kedalam TextBox, itulah yang akan kita bahas kali ini. Buat Projek baru Buat de...

4:23 PM

Cara Merubah Warna Background dengan Color Dialog Pada VB.Net

<div style="text-align: justify;">
Maksud dari dari judul diatas adalah kita akan memanfaatkan sebuah Tool yang ada pada Visual Basic.Net yaitu ColorDialog yang fungsinya untuk merubah warna Background Form.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
</div>
<ul>
<li>Buat Projek baru</li>
<li>Buat tampilan sederhana seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9MWpbV1SCbzcmUUmpopXevdRdpl8rWfjbVeQOCca8m18l_CHlsMt3PO1LtAlrppcxWD3p7S1sZzTMRsCtX2vOl0Mp18DM77ttkcWo_8jLOH-5fvpNMRudF44M1ClV7YTiUQnt_BV-cB4/s1600/Snap+2014-05-07+at+19.13.24.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9MWpbV1SCbzcmUUmpopXevdRdpl8rWfjbVeQOCca8m18l_CHlsMt3PO1LtAlrppcxWD3p7S1sZzTMRsCtX2vOl0Mp18DM77ttkcWo_8jLOH-5fvpNMRudF44M1ClV7YTiUQnt_BV-cB4/s1600/Snap+2014-05-07+at+19.13.24.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">ColorDialog</td></tr>
</tbody></table>
<div>
<ul>
<li>Kemudian Drag atau tarik ColorDialog kedalam form kita.</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_faSq4aaZM941uEkdyhNIcCiK_axzrTKr2qD6-2aWUWTBfAnSzefhj6PHphBlrgtVBZOrJBnLjc7WT67Qdi4UzIx443yiFaba0kyELVlPnvAVHtSa1lp0BVAtNPeTeSUP3S3xRHc6XQo/s1600/Snap+2014-05-07+at+19.13.17.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_faSq4aaZM941uEkdyhNIcCiK_axzrTKr2qD6-2aWUWTBfAnSzefhj6PHphBlrgtVBZOrJBnLjc7WT67Qdi4UzIx443yiFaba0kyELVlPnvAVHtSa1lp0BVAtNPeTeSUP3S3xRHc6XQo/s1600/Snap+2014-05-07+at+19.13.17.png" /></a></div>
<div>
<ul>
<li>Jika sudah selanjutnya ketikkan kode berikut pada tommbol Gamti Background:<br /><span style="background-color: cyan;">ColorDialog1.ShowDialog()</span><div style="text-align: left;">
<span style="background-color: cyan; text-align: justify;">Me.BackColor = ColorDialog1.Color</span></div>
</li>
<li>Kemudian jalankkan dan klik Ganti Bacground lalu pilih warna dan tekan OK</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTznKEcQAsiZ5S5QzHwXEwFKTjLszetIo4dbuXhHp9n4xbMCuRehlB0r-aYWSXbsV1i6Ilipfl_67roYTcFPw2gv9bLzEbdx1f2UxBUoORrDCuS_nhZOBYb7QZS4McIgYhYGoky5PUfpk/s1600/Snap+2014-05-07+at+19.13.54.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="199" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTznKEcQAsiZ5S5QzHwXEwFKTjLszetIo4dbuXhHp9n4xbMCuRehlB0r-aYWSXbsV1i6Ilipfl_67roYTcFPw2gv9bLzEbdx1f2UxBUoORrDCuS_nhZOBYb7QZS4McIgYhYGoky5PUfpk/s1600/Snap+2014-05-07+at+19.13.54.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Color Dialog</td></tr>
</tbody></table>
<div style="text-align: justify;">
<ul>
<li>Hasilnya warna sudah berubah.</li>
</ul>
</div>
</div>
</div>
<div style="text-align: justify;">
</div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgftkXHZGvJZjNMKzi1oek47VphHuZXx52Iz2DZ5j35r9ptvsUDmf6as-lwXcKcvydRWMAY6Np2WWgYq0noJLZiaiMw6eAwM6yNYk8HaPrLfbYjuQKcG52W177uCLt9QKC3zlsbkxd3tU/s1600/Snap+2014-05-07+at+19.14.05.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgftkXHZGvJZjNMKzi1oek47VphHuZXx52Iz2DZ5j35r9ptvsUDmf6as-lwXcKcvydRWMAY6Np2WWgYq0noJLZiaiMw6eAwM6yNYk8HaPrLfbYjuQKcG52W177uCLt9QKC3zlsbkxd3tU/s1600/Snap+2014-05-07+at+19.14.05.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Color Dialog</td></tr>
</tbody></table>
<br />
<div>
<br /></div>

Cara Merubah Warna Background dengan Color Dialog Pada VB.Net

Maksud dari dari judul diatas adalah kita akan memanfaatkan sebuah Tool yang ada pada Visual Basic.Net yaitu ColorDialog yang fungsinya unt...

4:12 PM

Membuat Aplikasi Shutdown Dengan VB.Net

<div style="text-align: justify;">
Kali ini yang kita akan membuat aplikasi sangat sederhana yang bisa kita gunakan untuk melakukan Shutdown, Restart, dan Logoff.</div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
</div>
<ul>
<li>Buat Projek baru</li>
<li>Lalu buat tampilan seperti gambar dibawah ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9Fvc4_fzjFE75F-__DZWcQdgk0dIbm6pQICl3iDa0xcZFi6HEtZNokoOT-MtIeKfPiDmCGJy0-Ai31wTtQzQep7I2ptKWeu54O_NRFuX5AbMmSeHLc5jbXcjgFt_uRFWrBgJHBL4iV9A/s1600/Snap+2014-05-07+at+15.45.19.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9Fvc4_fzjFE75F-__DZWcQdgk0dIbm6pQICl3iDa0xcZFi6HEtZNokoOT-MtIeKfPiDmCGJy0-Ai31wTtQzQep7I2ptKWeu54O_NRFuX5AbMmSeHLc5jbXcjgFt_uRFWrBgJHBL4iV9A/s1600/Snap+2014-05-07+at+15.45.19.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Aplikasi Shutdown</td></tr>
</tbody></table>
<div>
<ul>
<li>Selanjutnya kita akan memasukkan kodeing kemasing masing tombol.<br />Pada tombol Shutdown ketikkan kode berikut :  <span style="background-color: cyan;">Shell("shutdown -s")</span><br />Pada Tombol Restart ketikkan kode berikut    :  <span style="background-color: cyan;">Shell("shutdown -r")</span><br />Terakhir pada rombol Log Off ketikkan          :   <span style="background-color: cyan;">Shell("shutdown -l")</span></li>
<li><span style="background-color: white;">Cukup mudha bukan??</span></li>
</ul>
</div>

Membuat Aplikasi Shutdown Dengan VB.Net

Kali ini yang kita akan membuat aplikasi sangat sederhana yang bisa kita gunakan untuk melakukan Shutdown, Restart, dan Logoff. Buat ...

4:00 PM

Membuat Aplikasi Untuk Menjalankan Aplikasi Lain dengan VB.Net

<div style="text-align: justify;">
Pada kesempatan kali ini kita akan membut sebuah aplikasi sederhana yang nantinya berfungsi untuk menjalankan aplikasi lain tentunya pada Sistem Oprasi WIndows.</div>
<br />
<br />
<ul>
<li>Buat Projek baru</li>
<li>Buat Tampilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKEpB1Y-2S9B1ErLCRuFs_tpypmZAjdfY78VFGx0Geq7inOBQBlswjCo6C0LG49qtJdemeZqgc5KZyf2k55azIR4qFg2Uz51n10Klmd69Zgay5gFbmfGyCpYQQRDmI5uHVGq0yx7QgIqI/s1600/Snap+2014-05-07+at+19.05.24.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKEpB1Y-2S9B1ErLCRuFs_tpypmZAjdfY78VFGx0Geq7inOBQBlswjCo6C0LG49qtJdemeZqgc5KZyf2k55azIR4qFg2Uz51n10Klmd69Zgay5gFbmfGyCpYQQRDmI5uHVGq0yx7QgIqI/s1600/Snap+2014-05-07+at+19.05.24.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Aplikasi Launcher</td></tr>
</tbody></table>
<div>
<ul>
<li>Pada Button Kallulator ketikkan kode berikut:<br /><span style="background-color: cyan;">Shell("calc")</span></li>
<li><span style="background-color: white;">Kemudian pada Button Notepad ketikkan dode berikut:</span><br /><span style="background-color: cyan;">Shell("notepad")</span></li>
<li><span style="background-color: white;">Selanjutnya pada Button Paint ketikkan kode berikut:</span><br /><span style="background-color: cyan;">Shell("mspaint")</span></li>
<li><span style="background-color: white;">Terakhit pada button CMD ketikkan kode berikut:</span><br /><span style="background-color: cyan;">Shell("cmd")</span></li>
</ul>
</div>

Membuat Aplikasi Untuk Menjalankan Aplikasi Lain dengan VB.Net

Pada kesempatan kali ini kita akan membut sebuah aplikasi sederhana yang nantinya berfungsi untuk menjalankan aplikasi lain tentunya pada S...

3:50 PM

Membuat Aplikasi Konversi Suhu Dengan VB.Net

<br />
<ul>
<li>Buat Projek baru</li>
<li>Buat tampilan seperti gambar dibawah ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhz2mgDqVg2SJtbZevhjXu_KSCJvMsHW2XOOk5NPZgi0niLnX3j8LBoCowbdANhvOzY5NWJ7YhzfBuLNRAtpjBN1v2jRW6FN44hvzbez1RhdvNn3D5zBzxYhi8ZPu0oIxpxwiIisyfbv1A/s1600/Snap+2014-05-06+at+10.28.55.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhz2mgDqVg2SJtbZevhjXu_KSCJvMsHW2XOOk5NPZgi0niLnX3j8LBoCowbdANhvOzY5NWJ7YhzfBuLNRAtpjBN1v2jRW6FN44hvzbez1RhdvNn3D5zBzxYhi8ZPu0oIxpxwiIisyfbv1A/s1600/Snap+2014-05-06+at+10.28.55.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Konversi Suhu</td></tr>
</tbody></table>
<div>
<ul>
<li>Text pada Label1 dihapus saja.</li>
</ul>
<div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQb0pvM2NQmvZpfdWDZMziMOznHR6F5WjrgCh7R1rsZ0zHDab-4n_n9-k0EkVN-DZSsKPGIRqQJNEXaDhvwbxs6OBpsc4qg5EFI9WSwzJ38yFzRvUhzZ2S8KIf5_ph-jJVEyXwDF5N2z8/s1600/3.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQb0pvM2NQmvZpfdWDZMziMOznHR6F5WjrgCh7R1rsZ0zHDab-4n_n9-k0EkVN-DZSsKPGIRqQJNEXaDhvwbxs6OBpsc4qg5EFI9WSwzJ38yFzRvUhzZ2S8KIf5_ph-jJVEyXwDF5N2z8/s1600/3.png" width="180" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Text pada label dikosongkan saja</td></tr>
</tbody></table>
<ul>
<li>Sehingga hasilnya seperti ini:</li>
</ul>
</div>
</div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjuaH4w4MyVSCMLSJxTx3MwTK8F2k7OLoATTImxOa3mKd0gsjE3RiVt4KtwyFrjTPJvhvp75Yc1SJq-_ofy_bOFsDtoIKwCJji9J1hYV1bq5mn3tkVo3JiPogKBdQY0jIHgPQyQBv4eprU/s1600/1.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjuaH4w4MyVSCMLSJxTx3MwTK8F2k7OLoATTImxOa3mKd0gsjE3RiVt4KtwyFrjTPJvhvp75Yc1SJq-_ofy_bOFsDtoIKwCJji9J1hYV1bq5mn3tkVo3JiPogKBdQY0jIHgPQyQBv4eprU/s1600/1.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Konversi suhu</td></tr>
</tbody></table>
<div class="separator" style="clear: both; text-align: left;">
</div>
<ul>
<li>Pada Button Konvrt ketikan kode berikut:</li>
</ul>
<div>
<pre class="brush: java">If RadioButton1.Checked = True Then
   Label1.Text = TextBox1.Text & " Celsius = " & (TextBox1.Text - 32) / 1.8 & " Fahrenheit"
ElseIf RadioButton2.Checked = True Then
   Label1.Text = TextBox1.Text & " Fahrenheit = " & (TextBox1.Text * 1.8) + 32 & " Celsius"
End If</pre>
</div>
<div>
<ul>
<li>Jalankan Aplikasinya.</li>
</ul>
</div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJ2vgEY0k367ezDW4jDeNXi-3XJbyg9BSpi0VGY_tcLvbwO5nxu7qIDwEeBJupQv7ZLHVqC6uo1qsqqRd_AaKJ2pQEPxMQerzCUJo5M-2g1lYuLmtRU0SV94eD0ZDh0j5dq_6n0mIKyvo/s1600/2.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJ2vgEY0k367ezDW4jDeNXi-3XJbyg9BSpi0VGY_tcLvbwO5nxu7qIDwEeBJupQv7ZLHVqC6uo1qsqqRd_AaKJ2pQEPxMQerzCUJo5M-2g1lYuLmtRU0SV94eD0ZDh0j5dq_6n0mIKyvo/s1600/2.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Aplikasi Konversi Suhu</td></tr>
</tbody></table>
<br />
<br />
<div>
<br /></div>

Membuat Aplikasi Konversi Suhu Dengan VB.Net

Buat Projek baru Buat tampilan seperti gambar dibawah ini: Konversi Suhu Text pada Label1 dihapus saja. Text pada label diko...

8:33 PM

Membuat Aplikasi Untuk Mencari Nilai Akhir Dengan VB.Net

<ul>
<li>Buat Projek Baru</li>
<li>Desain Tempilan seperti gambar dibawah ini</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh_55wGmTA_yTP3MARAyXq992Tn2dRxuEHaZfh3dPuWzOmnM3eekjJ6zzXubxfJeKCha5M22ozazu4zfouQh_9J26hZKe7nrLlAW_fKMs_-7yOSgDvYsUueTPZ4PosSEpMHkAbCd6dwgVs/s1600/Snap+2014-05-06+at+09.50.35.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh_55wGmTA_yTP3MARAyXq992Tn2dRxuEHaZfh3dPuWzOmnM3eekjJ6zzXubxfJeKCha5M22ozazu4zfouQh_9J26hZKe7nrLlAW_fKMs_-7yOSgDvYsUueTPZ4PosSEpMHkAbCd6dwgVs/s1600/Snap+2014-05-06+at+09.50.35.png" width="174" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Aplikasi mencari nilai akhir</td></tr>
</tbody></table>
<br />
<ul>
<li> Keterangan<br />- Nama = TextBox<br />- Jenis Kelamin = RadioButton<br />- Jurusan = ComboBox<br />- Mata Kuliah = ListBox<br />- Tugas sampai uas teori = TextBox<br />- Cari Nilai Akhir, Bersih Dan Tutup = Button</li>
<li>Tambahkan Item Jurusan pada ComboBox, Caranya<a href="http://justandri.blogspot.com/2014/05/cara-menambahkan-items-kedalam-combobox.html" target="_blank"> disini.</a></li>
<li>Tambahkan juga item mata kuliah pada ListBox, caranya hampir sama dengan Comboox.</li>
<li>Pada Button Cari Nilai Akhir ketikkan kode berikut:</li>
</ul>
<div>
<pre class="brush: java">Label13.Text = Val(TextBox2.Text) * 0.2 + _
               Val(TextBox3.Text) * 0.3 + _
               Val(TextBox4.Text) * 0.4 + _
               Val(TextBox5.Text) * 0.1</pre>
</div>
<div>
<ul>
<li>Pada Button Bersih Ketikkan kode berikut:</li>
</ul>
<div>
<pre class="brush: java">TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()

RadioButton1.Checked = False
RadioButton2.Checked = False

ComboBox1.SelectedIndex = -1

ListBox1.SelectedIndex = -1

Label13.Text = 0

TextBox1.Focus()</pre>
</div>
</div>
<div>
<ul>
<li>Pada Button Tutup ketikkan kode berikut:</li>
</ul>
<div>
<pre class="brush: java">End</pre>
</div>
</div>
<div>
<ul>
<li>Hasilnya akan seperti ini:</li>
</ul>
</div>
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWei0zOnZSBbPQOnh6YCQhrfqD2DoEj4SyAaUV4bk5rVXMEJl5x7Tlmt_8vdA6Zq-I29XMlWh9iCvevlqFAMIf2sz4CrVL4VRB9sRUEZrqkTwG8PsbBWKnqTCoKk0VOSOiQJDRcP0sP9g/s1600/Snap+2014-05-06+at+09.51.09.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWei0zOnZSBbPQOnh6YCQhrfqD2DoEj4SyAaUV4bk5rVXMEJl5x7Tlmt_8vdA6Zq-I29XMlWh9iCvevlqFAMIf2sz4CrVL4VRB9sRUEZrqkTwG8PsbBWKnqTCoKk0VOSOiQJDRcP0sP9g/s1600/Snap+2014-05-06+at+09.51.09.png" width="174" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Aplikasi Mencari nilai akhir</td></tr>
</tbody></table>
<div>
<br /></div>

Membuat Aplikasi Untuk Mencari Nilai Akhir Dengan VB.Net

Buat Projek Baru Desain Tempilan seperti gambar dibawah ini Aplikasi mencari nilai akhir Keterangan - Nama = TextBox - Jenis Kela...

8:03 PM

Cara Menambahkan Items kedalam ComboBox

<ul>
<li>Buat Form baru</li>
<li>Saya Contohkan dengan tampilan seperti ini.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjVENFC_Rtj27miPpS3vsnS-SIbkGatD1PH9T38FC20rQAbEE6t6eG5GTHvAY4e38XkG1irIvy7RwWRaf91MX7aVd6TwW2n4btLE0y-jXkowTgUP9XekirJqao26gdIg_a5ZN4bSauJuD0/s1600/Snap+2014-05-06+at+09.32.52.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjVENFC_Rtj27miPpS3vsnS-SIbkGatD1PH9T38FC20rQAbEE6t6eG5GTHvAY4e38XkG1irIvy7RwWRaf91MX7aVd6TwW2n4btLE0y-jXkowTgUP9XekirJqao26gdIg_a5ZN4bSauJuD0/s1600/Snap+2014-05-06+at+09.32.52.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Form combo_box</td></tr>
</tbody></table>
<ul>
<li> Klik pada ComboBox, lalu lihat pada bagian properties anda klik kotak kecil sebelah kanan items.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcoFkRqkzaCkJ0AbNvktiApoHaOq8f2l3ODrmNT0h2703vSjcFG0tHjLxI3bUSth3tCcz_eN239_LXAME-VSiWfzijDG34VVrFRzhncAb2inXjo6dv9X9kluRQzFtgexd7YNXaGCJVvKI/s1600/Snap+2014-05-06+at+09.33.43.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcoFkRqkzaCkJ0AbNvktiApoHaOq8f2l3ODrmNT0h2703vSjcFG0tHjLxI3bUSth3tCcz_eN239_LXAME-VSiWfzijDG34VVrFRzhncAb2inXjo6dv9X9kluRQzFtgexd7YNXaGCJVvKI/s1600/Snap+2014-05-06+at+09.33.43.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Pilih Items</td></tr>
</tbody></table>
<ul>
<li> Isikan Items-Items yang akan ditambahkan kedalam ComboBox.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9ZzOj-hJ9AVrlaQWt9ATE5B11A9UEeT87CUqSHnp63LgIkqFiwhruexd6sq_lA_2ky2csMjNFKECq-H7mHt-2S7MkRBluhNKohtmEV21cv7CwvVTXaMY47Zo_wLp6n7eB4AZOEy8KIXg/s1600/Snap+2014-05-06+at+09.34.09.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="203" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9ZzOj-hJ9AVrlaQWt9ATE5B11A9UEeT87CUqSHnp63LgIkqFiwhruexd6sq_lA_2ky2csMjNFKECq-H7mHt-2S7MkRBluhNKohtmEV21cv7CwvVTXaMY47Zo_wLp6n7eB4AZOEy8KIXg/s1600/Snap+2014-05-06+at+09.34.09.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Menambah Items Lewat Properties</td></tr>
</tbody></table>
<ul>
<li>Anda juga bisa menambahkan Items mengunakan Koding. caranya double klik pada form, lalu ketikkan kode berikut.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLaP4HZk6SoExaerQx66j_kWK6IESnYuPH6X6pGyA5R3LfbtpAadLDSH3BgKqFlai6EqOWFzlLM5IgZ2YyQNhMvPxT-VtGtCR_SZhVToNvxyEKYFG3M82jxH9YPBliWUf23QwiKucovjI/s1600/Snap+2014-05-06+at+09.36.46.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="58" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLaP4HZk6SoExaerQx66j_kWK6IESnYuPH6X6pGyA5R3LfbtpAadLDSH3BgKqFlai6EqOWFzlLM5IgZ2YyQNhMvPxT-VtGtCR_SZhVToNvxyEKYFG3M82jxH9YPBliWUf23QwiKucovjI/s1600/Snap+2014-05-06+at+09.36.46.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Menambah items lewat koding</td></tr>
</tbody></table>
<ul>
<li> Hasil dari kedua cara diatas.</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjxqhTd2Oa4AuIXv2oOwqKe05t47M_PQhFy04w5Vj71yRnuVRa7VUt_NZK57e8xG0mAC4_D46yTzUXBvNt6Z2Qntn6gem3ArQ5BzfogVa0jmeSSRSD9ZyRPA3CXAVo8OsFNiNeajF_7fSI/s1600/Snap+2014-05-06+at+09.35.01.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjxqhTd2Oa4AuIXv2oOwqKe05t47M_PQhFy04w5Vj71yRnuVRa7VUt_NZK57e8xG0mAC4_D46yTzUXBvNt6Z2Qntn6gem3ArQ5BzfogVa0jmeSSRSD9ZyRPA3CXAVo8OsFNiNeajF_7fSI/s1600/Snap+2014-05-06+at+09.35.01.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Items pada combobox</td></tr>
</tbody></table>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div>
<br /></div>

Cara Menambahkan Items kedalam ComboBox

Buat Form baru Saya Contohkan dengan tampilan seperti ini. Form combo_box Klik pada ComboBox, lalu lihat pada bagian properties an...

7:46 PM

Macam-Macam Pesan MsgBox Dalam VB.Net

<ul>
<li>Buat Projek baru</li>
<li>Desain Tampilan seperti ini:</li>
</ul>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRJy5Hlh4Q2JNtm8UPA85p9xgRUawECPTHWMT5sSP0uZPzrQ1MTXD6ENR3henv3A-N0iW9hYdyn4e-sEJlV_vW3qCepWdebopAxIeooa5pQctHRtRpsIUCRamPDKAX8gCnNngm4F8Oads/s1600/Snap+2014-05-06+at+09.11.46.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRJy5Hlh4Q2JNtm8UPA85p9xgRUawECPTHWMT5sSP0uZPzrQ1MTXD6ENR3henv3A-N0iW9hYdyn4e-sEJlV_vW3qCepWdebopAxIeooa5pQctHRtRpsIUCRamPDKAX8gCnNngm4F8Oads/s1600/Snap+2014-05-06+at+09.11.46.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Buat tampilan seperti pada gambar</td></tr>
</tbody></table>
<br />
<ul>
<li>Pada Tombol pesan 1 ketikan kode berikut.</li>
</ul>
<div>
<pre class="brush: java">MsgBox("Hanya Pesan Biasa")</pre>
</div>
<ul>
<li>Pada Tombol pesan 2 ketikan kode berikut.</li>
</ul>
<div>
<pre class="brush: java">MsgBox("Pesan Dengan Gambar", MsgBoxStyle.Question)</pre>
</div>
<ul>
<li>Pada Tombol pesan 3 ketikan kode berikut.</li>
</ul>
<div>
<pre class="brush: java">MsgBox("Pesan Dengan Gambar Serta Merubah Judul", MsgBoxStyle.Critical, "Dede Andri Wahyudin")</pre>
</div>
<ul>
<li>Kata yang yang diapit tanda perik, bisa diganti sesuai kebutuhan.</li>
<li>Jalankan dan berikut hasilnya.</li>
</ul>
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiI7zEcUm9Zb_jxdMtmVC4v-sUxsJCYfHeZuRbfv3Rb5YEw_LTbJxAsvF-ygf7s5bObHsxNoF54FV32JpmLxxoTl-k-fm-aq2G4R79k9-gS8HOckAZR8dz9Arvjf1EOETFRAnBsjgRHMsQ/s1600/Snap+2014-05-06+at+09.12.14.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiI7zEcUm9Zb_jxdMtmVC4v-sUxsJCYfHeZuRbfv3Rb5YEw_LTbJxAsvF-ygf7s5bObHsxNoF54FV32JpmLxxoTl-k-fm-aq2G4R79k9-gS8HOckAZR8dz9Arvjf1EOETFRAnBsjgRHMsQ/s1600/Snap+2014-05-06+at+09.12.14.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">pesan biasa (Pesan 1)</td></tr>
</tbody></table>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgpkXTA26GKHnqlVrSRuy3Ni9LAxcWSRrlNCQD_Mz5TQH5gEkkMJOzb9KUYoo4Ek_E3nXMbe-n3v_Owsgujv9MZrNPO7zYu9izwQxOYNwJeOKGv6E_Wa3YXeTnzPCYQOc43AoAxUp7YAA/s1600/Snap+2014-05-06+at+09.12.25.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgpkXTA26GKHnqlVrSRuy3Ni9LAxcWSRrlNCQD_Mz5TQH5gEkkMJOzb9KUYoo4Ek_E3nXMbe-n3v_Owsgujv9MZrNPO7zYu9izwQxOYNwJeOKGv6E_Wa3YXeTnzPCYQOc43AoAxUp7YAA/s1600/Snap+2014-05-06+at+09.12.25.png" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Pesan yang disertai dengan gambar (Pesan 2)</td></tr>
</tbody></table>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQiz3jyLszz6NISQi6AbOnScMBpnomEYwwKP0IHMxhMSIS0ks2SWbmybSd92uUWQPPQlJulPk3a3R8Rq8Ta0N3awmVzPjZLbB6IHA2xKXHN5ZrCTToT4P_EgRO5pBB_8IIS-jBRGicS94/s1600/Snap+2014-05-06+at+09.12.49.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="152" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQiz3jyLszz6NISQi6AbOnScMBpnomEYwwKP0IHMxhMSIS0ks2SWbmybSd92uUWQPPQlJulPk3a3R8Rq8Ta0N3awmVzPjZLbB6IHA2xKXHN5ZrCTToT4P_EgRO5pBB_8IIS-jBRGicS94/s1600/Snap+2014-05-06+at+09.12.49.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Pesan dengan gambar dan judul pesan (Pesan 3)</td></tr>
</tbody></table>
<div>
<br /></div>

Macam-Macam Pesan MsgBox Dalam VB.Net

Buat Projek baru Desain Tampilan seperti ini: Buat tampilan seperti pada gambar Pada Tombol pesan 1 ketikan kode berikut. MsgBo...

7:25 PM