Tutorial Koding

Mengurutkan Data di Listview dengan VB.NET

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdMTIxLysAbc0fzDgy02aslcV13ZjmFJiP1QU46DXoF181uMrmsyGXmqiOgUwlv9SfpojdW0XO05LLb-P5QwSO2KP3dTtXRcZJxYU3fgBUDr7i4sJiTkoYSVHqOS8L_h5Mq6hFkyjW2RSh/s1600/Mengurutkan+Data+di+Listview+dengan+VBNET+1.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img alt="Mengurutkan Data di Listview dengan VB.NET" border="0" height="186" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgdMTIxLysAbc0fzDgy02aslcV13ZjmFJiP1QU46DXoF181uMrmsyGXmqiOgUwlv9SfpojdW0XO05LLb-P5QwSO2KP3dTtXRcZJxYU3fgBUDr7i4sJiTkoYSVHqOS8L_h5Mq6hFkyjW2RSh/s1600/Mengurutkan+Data+di+Listview+dengan+VBNET+1.png" title="Mengurutkan Data di Listview dengan VB.NET" width="320" /></a></div>
Setelah beberapa hari yang lalu saya memposting tentang <a href="http://adf.ly/hPBEK">Write/Read File .ini dengan VB.NET</a>.<br />
Kali ini saya akan memposting tentang <a href="http://adf.ly/i2UPx">Mengurutkan Data di Listview dengan VB.NET</a>, apakah anda pernah menggunakan datagridview untuk menampilkan data? di datagridview memungkinkan kita untuk mengurutkan data ketika anda mengklik header column, jika anda mengklik salah satu header column pada datagridview maka data di dalam datagridview itu akan di urutkan secara descending, lalu ketika anda klik lagi column header yang sama maka data itu akan di urutkan secara descending.  Tidak hanya di datagridview tapi anda juga dapat melakukan hal yang sama di listview dengan memanfaatkan event column click.<br />
inilah beberapa screenshotnya<br />
<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/AVvXsEhqDkou92bt8PDNCoUtusM93J5KN1JWehSpzU-d-PqndR8lnSzTn8lBSNT8fuEsxRixMgD7MnCOi38pXUDt-uh8yqeCCWfSBiRdxmMquP-tNCi9HimM0f6LGk2n3cF2MRRk3dv_fhnqzBNZ/s1600/Mengurutkan+Data+di+Listview+dengan+VBNET+1.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="186" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhqDkou92bt8PDNCoUtusM93J5KN1JWehSpzU-d-PqndR8lnSzTn8lBSNT8fuEsxRixMgD7MnCOi38pXUDt-uh8yqeCCWfSBiRdxmMquP-tNCi9HimM0f6LGk2n3cF2MRRk3dv_fhnqzBNZ/s1600/Mengurutkan+Data+di+Listview+dengan+VBNET+1.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Mengurutkan data berdasartkan NIS secara ascending</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/AVvXsEi29XLLhWkO4895RnGSRMlvcwYzIF1A80V5hm_8vKjhxYkfNgbUWVKLbdwiSVtT7YIkxrfgFCJ0mR1DsFwj-XHV-pNRL-youkzr4t7Y8MV-kDgbQWLaBXhJyzfoYLvLDhSez5SFQ2N9Rsoy/s1600/Mengurutkan+Data+di+Listview+dengan+VBNET+2.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="186" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi29XLLhWkO4895RnGSRMlvcwYzIF1A80V5hm_8vKjhxYkfNgbUWVKLbdwiSVtT7YIkxrfgFCJ0mR1DsFwj-XHV-pNRL-youkzr4t7Y8MV-kDgbQWLaBXhJyzfoYLvLDhSez5SFQ2N9Rsoy/s1600/Mengurutkan+Data+di+Listview+dengan+VBNET+2.png" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Mengurutkan data berdasarkan NIS secara descending</td></tr>
</tbody></table>
<div style="text-align: center;">
Anda bisa mendownload source codenya <a href="http://adf.ly/iHPSL">disini</a></div>
<div style="text-align: center;">
dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div>
<br />
Sekian dari saya.<br />
Terima kasih atas kunjugannya semoga bermanfaat

Mengurutkan Data di Listview dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Write/Read File .ini dengan VB.NET. Kali ini saya akan memposting tentang Mengurutkan Data di Listview dengan VB.NET, apakah anda pernah menggunakan datagridview untuk menampilkan data? di datagridview memungkinkan kita untuk mengurutkan data …

30Mar2014

Write/Read File .ini Dengan VB.NET

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEis25nCmD-NDz5bwdJT0U85uej3D6k4HBuvJ-x-oYxtLwME3QEM5DVuQWd81fW9YNyvmrpldcTtgzmhIGbadzR4bcxLaRy5x1vnyQ4UzfFVl-XdMYoTfZQpD7zD0Qsdr9tXRTChDHSPGX4i/s1600/Write+Read+File+ini+Dengan+VBNET+2.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img alt="Write/Read File .ini Dengan VB.NET" border="0" height="212" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEis25nCmD-NDz5bwdJT0U85uej3D6k4HBuvJ-x-oYxtLwME3QEM5DVuQWd81fW9YNyvmrpldcTtgzmhIGbadzR4bcxLaRy5x1vnyQ4UzfFVl-XdMYoTfZQpD7zD0Qsdr9tXRTChDHSPGX4i/s1600/Write+Read+File+ini+Dengan+VBNET+2.png" title="Write/Read File .ini Dengan VB.NET" width="320" /></a></div>
Setelah beberapa hari yang lalu saya memposting tentang <a href="http://adf.ly/h9L2q">Menyimpan/Menampilkan Gambar Dari Database Dengan VB.NET</a>.<br />
Kali ini saya akan memposting tentang <a href="http://adf.ly/hPBEK">Write/Read File .ini Dengan VB.NET</a>, mungkin ada yang belum tahu tentang kegunaan dari file .ini, file .ini adalah sebuah file yang digunakan untuk menyimpan konfigurasi-konfigurasi yang dibutuhkan oleh program yang kita buat, seperti konfigurasi untuk koneksi database, konfigurasi untuk data perusahaan, toko atau sebagainya, dan juga masih banyak lagi.<br />
<br />
Langkah - langkah <a href="http://adf.ly/hPBEK">Write/Read File .ini Dengan VB.NET</a><br />
<br />
1. Buatlah project dengan visual studio<br />
<br />
2. Design form seperti gambar dibawah ini<br />
<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0in 5.4pt 0in 5.4pt; mso-yfti-tbllook: 1184;">
 <tbody>
<tr style="height: 22.0pt; mso-yfti-firstrow: yes; mso-yfti-irow: 0;">
  <td style="border: solid windowtext 1.0pt; height: 22.0pt; mso-border-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Object</div>
</td>
  <td style="border-left: none; border: solid windowtext 1.0pt; height: 22.0pt; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
 Property</div>
</td>
  <td style="border-left: none; border: solid windowtext 1.0pt; height: 22.0pt; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Value</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Textbox1</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Txt_nama</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Textbox2</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Txt_alamat</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Textbox3</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Txt_notelepon</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Textbox4</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Txt_website</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Button1</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Btn_read</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Text</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Read</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Button2</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Btn_write</div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Text</div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
write</div>
</td>
 </tr>
</tbody></table>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsJnvhBIONBVlw_RL5vtz0O0h3S1iUYJPqja_XcpaIlVTxiWSAr8CFcofnsqoz0xsHQhPiZD2wRJstsQf1QHZxh77_S5dDBYho4Z-FAOoqI4rQB1s5-06yWyPWwuDfq57UsuM6hxNLau0c/s1600/Write+Read+File+ini+Dengan+VBNET1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Write/Read File .ini Dengan VB.NET" border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsJnvhBIONBVlw_RL5vtz0O0h3S1iUYJPqja_XcpaIlVTxiWSAr8CFcofnsqoz0xsHQhPiZD2wRJstsQf1QHZxh77_S5dDBYho4Z-FAOoqI4rQB1s5-06yWyPWwuDfq57UsuM6hxNLau0c/s1600/Write+Read+File+ini+Dengan+VBNET1.png" title="Write/Read File .ini Dengan VB.NET" width="320" /></a></div>
<div>
<br /></div>
<div>
3. Buatlah sebuah function dan procedure untuk write file .ini dengan script dibawah ini</div>
<div>
<br /></div>
<div>
<pre class="brush:html">     'fungsi untuk write file .ini
    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpParamVal As String, ByVal lpFileName As String) As Int32

'procedure untuk write .ini
    Private Sub writeini(ByVal iniFilename As String, ByVal section As String, ByVal ParamName As String, ByVal ParamVal As String)
        'menanggil fungsi WritePrivateProfilString untuk write file .ini
        Dim result As Integer = WritePrivateProfileString(section, ParamName, ParamVal, iniFilename)
    End Sub</pre>
</div>
<div>
<br />
4. Buatlah sebuah function dan procedure untuk read file .ini dengan script dibawah ini<br />
<br />
<pre class="brush:html">    'function untuk read file .ini
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFilename As String) As Int32

'function untuk read file .ini
    Private Function readini(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
        Dim ParamVal As String = Space$(1024)
        Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), iniFileName)
        'mengembalikan nilai yang sudah didapatkan
        readini = Strings.Left(ParamVal, LenParamVal)
    End Function</pre>
<br />
5. Klik 2 kali pada tombol Write dan ketikan script dibawah ini<br />
<br />
<pre class="brush:html">        'menyiapkan string untuk menampung lokasi file .ini 
        Dim FilePath As String = Application.StartupPath & "\setting.ini"
        'memanggil procedure writeini untuk menyimpan data nama pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Nama", txt_nama.Text)
        'memanggil procedure writeini untuk menyimpan data alamat pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Alamat", txt_alamat.Text)
        'memanggil procedure writeini untuk menyimpan data no telepon pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "No. Telepon", txt_notelepon.Text)
        'memanggil procedure writeini untuk menyimpan data website pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Website", txt_website.Text)
        'menampilkan pesan konfigurasi berhasil disimpan
        MsgBox("Konfigurasi berhasil disimpan", MsgBoxStyle.Information, "Informasi")</pre>
<br />
6. Klik 2 kali pada tombol Read dan ketikan script dibawah ini<br />
<br />
<pre class="brush:html">        'menyiapkan string untuk menampung lokasi file .ini 
        Dim FilePath As String = Application.StartupPath & "\setting.ini"
        'memanggil function read ini untuk mengambil data nama dari file setting.ini
        txt_nama.Text = readini(FilePath, "Data Perusahaan", "Nama", "")
        'memanggil function read ini untuk mengambil data alamat dari file setting.ini
        txt_alamat.Text = readini(FilePath, "Data Perusahaan", "Alamat", "")
        'memanggil function read ini untuk mengambil data no. telepon dari file setting.ini
        txt_notelepon.Text = readini(FilePath, "Data Perusahaan", "No. Telepon", "")
        'memanggil function read ini untuk mengambil data website dari file setting.ini
        txt_website.Text = readini(FilePath, "Data Perusahaan", "Website", "")
        'Menampilkan pesan konfigurasi berhasil didapatkan
        MsgBox("Data konfigurasi berhasil di dapatkan", MsgBoxStyle.Information, "Informasi")
</pre>
<br />
7. Jalankan program tersebut dengan menekan CTRL+F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlkjWsRlonudpaA-D2XIYUnGOs0LMe8oVrAb4Vi2h-aTvxoCE3rCA6f3ryezpILbZzwoujWc5GL-LZ93-23MQu4M4hUVUPnKFajCKnSPQie9esFoF_gv_tbNkOOvRJQZFhemvEgkPJHSxe/s1600/Write+Read+File+ini+Dengan+VBNET+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Write/Read File .ini Dengan VB.NET" border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlkjWsRlonudpaA-D2XIYUnGOs0LMe8oVrAb4Vi2h-aTvxoCE3rCA6f3ryezpILbZzwoujWc5GL-LZ93-23MQu4M4hUVUPnKFajCKnSPQie9esFoF_gv_tbNkOOvRJQZFhemvEgkPJHSxe/s1600/Write+Read+File+ini+Dengan+VBNET+2.png" title="Write/Read File .ini Dengan VB.NET" width="320" /></a></div>
<div style="text-align: center;">
Anda bisa mendownload source codenya <a href="http://adf.ly/hQ8c3">disini</a></div>
<div style="text-align: center;">
dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div>
<div style="text-align: center;">
<br /></div>
</div>
<div>
Sekian dari saya.<br />
Terima kasih atas kunjugannya semoga bermanfaat</div>
<div>
<br /></div>

Write/Read File .ini Dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Menyimpan/Menampilkan Gambar Dari Database Dengan VB.NET. Kali ini saya akan memposting tentang Write/Read File .ini Dengan VB.NET, mungkin ada yang belum tahu tentang kegunaan dari file .ini, file .ini adalah sebuah file yang digunakan untuk …

25Mar2014

Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET

Setalah kemarin saya memposting tentang <a href="http://dwirandyherdinanto.blogspot.com/2014/03/membuat-combobox-auto-complete-di-vbnet.html">Membuat Combobox Auto Complete Di VB.NET</a>,<br />
Kali ini saya akan memposting tentang <a href="http://adf.ly/h9L2q">Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET</a>, terkadang kita perlu untuk menyiimpan gambar ke database seperti foto ataupun yang lainnya, oleh karena itu saya disini akan share <a href="http://adf.ly/h9L2q">Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET</a>,<br />
yah karena saya besok ada Ujian akhir sekolah jadi tidak sempat untuk membuat langkah - langkahnya, tapi saya akan share source codenya saja,<br />
dan jangan khawatir karena di dalam source code tersebut sudah saya berikan penjelsan-penjelasan tentang script yang digunakan, dan semoga saja penjelasan saya mudah untuk dimengerti<br />
<br />
Screenshot :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigVnwdpHhyphenhyphenfOM8iavj-N_RrQtNHwdM95SaDZ1fSN3DaCumdgVJ7lqDPkksThRomBiMJVVm32_SbvvWdTwxmLX1Xr6ppFSrMkaxY-7os6AbF7H1mEs9AHb9OAckhg6BdnX_TKkuRVWhwJbV/s1600/Menampilkan+Gambar+Dari+Database+Dengan+VB+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET" border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigVnwdpHhyphenhyphenfOM8iavj-N_RrQtNHwdM95SaDZ1fSN3DaCumdgVJ7lqDPkksThRomBiMJVVm32_SbvvWdTwxmLX1Xr6ppFSrMkaxY-7os6AbF7H1mEs9AHb9OAckhg6BdnX_TKkuRVWhwJbV/s1600/Menampilkan+Gambar+Dari+Database+Dengan+VB+2.png" title="Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipLY72uA7B7YCb94NXi_kM5QdcnofpsIMr9EhUeSSxVsBUnvKzozYWQCLaERmkNgJhqA_D3ymPhtVVXZ5qrw5YKpZpoSl1fc0Syp_nsZctOt0bN1hKAOoraqkG_Vb3Egz3opK0C5vJm1Dp/s1600/Menampilkan+Gambar+Dari+Database+Dengan+VB.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET" border="0" height="212" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipLY72uA7B7YCb94NXi_kM5QdcnofpsIMr9EhUeSSxVsBUnvKzozYWQCLaERmkNgJhqA_D3ymPhtVVXZ5qrw5YKpZpoSl1fc0Syp_nsZctOt0bN1hKAOoraqkG_Vb3Egz3opK0C5vJm1Dp/s1600/Menampilkan+Gambar+Dari+Database+Dengan+VB.png" title="Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET" width="320" /></a></div>
<div style="text-align: center;">
Anda bisa mendownload source codenya<a href="http://adf.ly/peuID"> disini</a></div>
<div style="text-align: center;">
dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: left;">
Sekian dari saya.</div>
<div style="text-align: left;">
Terima kasih atas kunjugannya semoga bermanfaat</div>

$Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET$ Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET

Setalah kemarin saya memposting tentang Membuat Combobox Auto Complete Di VB.NET, Kali ini saya akan memposting tentang Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET, terkadang kita perlu untuk menyiimpan gambar ke database seperti foto ataupun yang lainnya, oleh karena itu saya disini ak…

23Mar2014

Membuat Combobox Auto Complete Di VB.NET

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg87kRK3d6wd5qQOkthddFjq673vPS59vW0_8L3PCTeom8E3Z19lTNO57taKy2WY4hSCbQxP0sBdUbxbmTmMj3pYgoJ6h_zVKjO8L7CeP9AKZiqYCQthiWHHUZlUILmoyAPCGs1mcHdpyGS/s1600/Membuat+Combobox+Auto+Complete+Di+VB+2.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img alt="Membuat Combobox Auto Complete Di VB.NET" border="0" height="155" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg87kRK3d6wd5qQOkthddFjq673vPS59vW0_8L3PCTeom8E3Z19lTNO57taKy2WY4hSCbQxP0sBdUbxbmTmMj3pYgoJ6h_zVKjO8L7CeP9AKZiqYCQthiWHHUZlUILmoyAPCGs1mcHdpyGS/s1600/Membuat+Combobox+Auto+Complete+Di+VB+2.png" title="Membuat Combobox Auto Complete Di VB.NET" width="320" /></a></div>
Setelah beberapa hari yang lalu saya memposting tentang <a href="http://adf.ly/gMBt0">Membuat Textbox Auto Complete Di VB.NET</a>, Kali ini saya akan memposting tentang <a href="http://adf.ly/gz3B2">Membuat Combobox Auto Complete Di VB.NET</a>,<br />
sebenarnya caranya hampir sama seperti <a href="http://adf.ly/gMBt0">Membuat Textbox Auto Complete Di VB.NET</a> yang harus dilakukan yaitu melakukan query select untuk mendapatkan data dari database lalu meletakan data ke datatable setelah itu membinding data dari datatable ke combobox,<br />
<br />
Langkah - langkah <a href="http://adf.ly/gz3B2">Membuat Combobox Auto Complete Di VB.NET</a><br />
<br />
1, Buatlah sebuah database dengan nama latihan<br />
<br />
<div>
2. Buat sebuah table dengan script dibawah ini</div>
<div>
<br /></div>
<div>
<pre class="brush:html">create table siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat text not null
)</pre>
<br />
3. Buatlah sebuah project di visual studio<br />
<br />
4. Tambahkan sebuah combobox ke dalam form tersebut,dan atur tata letaknya seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguhrgqpNYewBxiQe1ZrzYjtIOLlJkczLy5RtzxP586C9fVKeBd9sMsPe2PZu9c-271qd4HWTPQNxLXY0VrbcXzCa4AYUasJ2jA-zJ3-RjJG-lgey3wo-mNBIcFn-S4bXf6UehXQD8oubwm/s1600/Membuat+Combobox+Auto+Complete+Di+VB+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Combobox Auto Complete Di VB.NET" border="0" height="153" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguhrgqpNYewBxiQe1ZrzYjtIOLlJkczLy5RtzxP586C9fVKeBd9sMsPe2PZu9c-271qd4HWTPQNxLXY0VrbcXzCa4AYUasJ2jA-zJ3-RjJG-lgey3wo-mNBIcFn-S4bXf6UehXQD8oubwm/s1600/Membuat+Combobox+Auto+Complete+Di+VB+1.png" title="Membuat Combobox Auto Complete Di VB.NET" width="320" /></a></div>
<br />
5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient<br />
<br />
6. Pada event Form_Load ketikan script dibawah ini<br />
<br />
<pre class="brush:html"> 'mendeklarasikan variable
        Dim cmd As SqlCommand
        Dim adapter As SqlDataAdapter

'menyiapkan koneksi database
        Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123")
            'menyiapkan sqlcommand
            cmd = New SqlCommand("select nama from siswa order by nama asc", conn)
            'menyiapkan data adapter
            adapter = New SqlDataAdapter(cmd)
            'mendeklarasikan dt sebagai datatable
            Dim dt As New DataTable
            'mengisi data dari sqldataadapter ke datatable
            adapter.Fill(dt)

'binding data ke combobox
            ComboBox1.DataSource = dt
            ComboBox1.DisplayMember = "nama"
            ComboBox1.ValueMember = "nama"
            'set property autocompletemode menjadi suggest append
            ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            'set property autocompletesource menjadi listitems
            ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
        End Using</pre>
<br />
7. Jalankan program tersebut dengan menekan F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWbY50sny1jIUwbX8QVW4QyPGMXik89tsekINYxs8Z44BC5P7ozYvsbJZutiAcTKsmGpR5Xb3-yCmm6YxvDQLBtze1O2YloEyOFBqR8Anz5YkVEqxMbLhDxo7H302HOKZobe0CZQAuuObp/s1600/Membuat+Combobox+Auto+Complete+Di+VB+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Combobox Auto Complete Di VB.NET" border="0" height="155" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWbY50sny1jIUwbX8QVW4QyPGMXik89tsekINYxs8Z44BC5P7ozYvsbJZutiAcTKsmGpR5Xb3-yCmm6YxvDQLBtze1O2YloEyOFBqR8Anz5YkVEqxMbLhDxo7H302HOKZobe0CZQAuuObp/s1600/Membuat+Combobox+Auto+Complete+Di+VB+2.png" title="Membuat Combobox Auto Complete Di VB.NET" width="320" /></a></div>
<div style="text-align: center;">
Anda bisa mendownload source codenya <a href="http://adf.ly/gzAYf">disini</a></div>
<div style="text-align: center;">
dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div>
<div style="text-align: left;">
<br /></div>
Sekian dari saya.<br />
Terima kasih atas kunjugannya semoga bermanfaat</div>

Membuat Combobox Auto Complete Di VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Membuat Textbox Auto Complete Di VB.NET, Kali ini saya akan memposting tentang Membuat Combobox Auto Complete Di VB.NET, sebenarnya caranya hampir sama seperti Membuat Textbox Auto Complete Di VB.NET yang harus dilakukan yaitu melakukan query …

22Mar2014

Membuat Textbox Auto Complete Di VB.NET

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8WNSSOF6NFPU6ZbYBMLbAZs2mtof1MELN7S6lPXaK7GXg6q3gpghvgSY0HVcK8UbB9JOMjyVyKXIKM8Km5e4L5rUyOT4bz_jc1RPcCvPJ1cgq_KgmvQeBvop_oVGAfED9Xvm3zojIqwMP/s1600/Membuat+Textbox+Auto+Complete+Di+VB+2.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img alt="Membuat Textbox Auto Complete Di VB.NET" border="0" height="145" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8WNSSOF6NFPU6ZbYBMLbAZs2mtof1MELN7S6lPXaK7GXg6q3gpghvgSY0HVcK8UbB9JOMjyVyKXIKM8Km5e4L5rUyOT4bz_jc1RPcCvPJ1cgq_KgmvQeBvop_oVGAfED9Xvm3zojIqwMP/s1600/Membuat+Textbox+Auto+Complete+Di+VB+2.png" title="Membuat Textbox Auto Complete Di VB.NET" width="320" /></a></div>
Setelah beberapa hari yang lalu saya memposting tentang <a href="http://adf.ly/g4C5u">Membuat Chainned Combobox Dengan VB.NET</a>,<br />
kali ini saya akan memposting tentang <a href="http://adf.ly/gMBt0">Membuat Textbox Auto Complete Di VB.NET</a>, seperti halnya ketika kita menggunakan pencarian google, ketika kita mengetik beberapa kata lalu muncul saran dalam pencarian itu yang dapat memudahkan kita dalam melakukan pencarian. oleh karena itu saya membahas <a href="http://adf.ly/gMBt0">Membuat Textbox Auto Complete Di VB.NET</a>,<br />
<div>
<br /></div>
<div>
Langkah - langkah <a href="http://adf.ly/gMBt0">Membuat Textbox Auto Complete Di VB.NET</a></div>
<div>
<br /></div>
<div>
1. Buat sebuah database dengan nama latihan</div>
<div>
<br /></div>
<div>
2. Buat sebuah table dengan script dibawah ini</div>
<div>
<br /></div>
<div>
<pre class="brush:html">create table siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat text not null
)</pre>
<br />
3. Buatlah sebuah project di visual studio<br />
<br />
4. Tambahkan textbox dan label, lalu design form seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHuIT_BhgbPBTEU7pWMCcJih3Cud-WtUzLhc0tMn_-8sJK8aDkTfvBKogIPKsh3QYPjDBrVimiSHC4XFppjCY9_UemOmIWFoHkcBWybWTtZTMAPmljrji6uSCulgKOqoQv8ahsau3LuF9o/s1600/Membuat+Textbox+Auto+Complete+Di+VB+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Textbox Auto Complete Di VB.NET" border="0" height="145" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHuIT_BhgbPBTEU7pWMCcJih3Cud-WtUzLhc0tMn_-8sJK8aDkTfvBKogIPKsh3QYPjDBrVimiSHC4XFppjCY9_UemOmIWFoHkcBWybWTtZTMAPmljrji6uSCulgKOqoQv8ahsau3LuF9o/s1600/Membuat+Textbox+Auto+Complete+Di+VB+1.png" title="Membuat Textbox Auto Complete Di VB.NET" width="320" /></a></div>
<br />
5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient<br />
<br />
6. Ketikan script dibawah ini diatas Form_load<br />
<br />
<pre class="brush:html"> 'Mendeklarasikan variable
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private dt As DataTable
    Private adapter As SqlDataAdapter</pre>
<br />
<br />
6. Pada event Form_load ketikan script dibawah ini<br />
<br />
<pre class="brush:html">        'Menyiapkan koneksi
        Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa;Password=root123")
            'menyiapkan query
            cmd = New SqlCommand("select nama from siswa", conn)
            'menyiapkan adapter
            adapter = New SqlDataAdapter(cmd)
            'menyiapkan datatable
            dt = New DataTable

'membuka koneksi database
            conn.Open()
            'membinding data adapter ke datatable
            adapter.Fill(dt)

Dim col As New AutoCompleteStringCollection
            'Melakukan perulangan untuk mengisi col sebanyak data dari datatable
            For i As Integer = 0 To dt.Rows.Count - 1
                col.Add(dt.Rows(i)("nama"))
            Next

TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
            TextBox1.AutoCompleteCustomSource = col
            TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
        End Using</pre>
<br />
7. Jalankan program tersebut dengan menekan F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiYGBIglJNyxFqbpsrdNyx9Y0xidXOxfBUJH_Yk-RcF5HcD-YMZCkaqwkuCab36gqVp16ydqzoOnt2hGrPira0-RHtpIuneYSRJDUYnYsBIY7oh0R7-nJVWmzFIYOZ23HNUDrD4QoRnx3z8/s1600/Membuat+Textbox+Auto+Complete+Di+VB+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Textbox Auto Complete Di VB.NET" border="0" height="145" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiYGBIglJNyxFqbpsrdNyx9Y0xidXOxfBUJH_Yk-RcF5HcD-YMZCkaqwkuCab36gqVp16ydqzoOnt2hGrPira0-RHtpIuneYSRJDUYnYsBIY7oh0R7-nJVWmzFIYOZ23HNUDrD4QoRnx3z8/s1600/Membuat+Textbox+Auto+Complete+Di+VB+2.png" title="Membuat Textbox Auto Complete Di VB.NET" width="320" /></a></div>
<div style="text-align: center;">
Anda bisa mendownload source codenya <a href="http://adf.ly/gMN43">disini</a></div>
<div style="text-align: center;">
dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div>
<div style="text-align: center;">
<br /></div>
Sekian dari saya.<br />
Terima kasih atas kunjugannya semoga bermanfaat</div>

Membuat Textbox Auto Complete Di VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Membuat Chainned Combobox Dengan VB.NET, kali ini saya akan memposting tentang Membuat Textbox Auto Complete Di VB.NET, seperti halnya ketika kita menggunakan pencarian google, ketika kita mengetik beberapa kata lalu muncul saran dalam pencari…

22Mar2014

Membuat Chained Combobox Dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang <a href="http://adf.ly/f35Rd">Menampilkan Data Ke Combobox Di VB.NET</a><br />
kali ini saya akan memposting tentang <a href="http://adf.ly/g4C5u">Membuat Chained Combobox Dengan VB.NET</a> atau bisa juga disebut dengan Combobox Bertingkat, jadi kita akan membuat beberapa combobox yang saling berhubungan<br />
misal ada 4 buah combobox yaitu provinsi, kabupaten, kecamtan, kelurahan ketika kita memilih salah 1 provinsi maka combobox kabupaten akan terisi sesuai dengan data kabupaten yang berada di provinsi yang kita pilih tersebut<br />
<br />
Langkah - langkah <a href="http://adf.ly/g4C5u">Membuat Chained Combobox Dengan VB.NET</a><br />
<br />
1. Persiapkan sebuah database dengan nama lokasi, anda bisa mendownload database yang sudah saya siapkan <a href="http://adf.ly/g4qLr">disini</a>, untuk cara Attach database sql server klik <a href="http://adf.ly/fGyTg">disini</a><br />
<br />
2. Design sebuah form seperti gambar dibawah ini<br />
<table border="1" cellpadding="0" cellspacing="0" class="MsoTableGrid" style="border-collapse: collapse; border: none; mso-border-alt: solid windowtext .5pt; mso-padding-alt: 0in 5.4pt 0in 5.4pt; mso-yfti-tbllook: 1184;">
 <tbody>
<tr style="height: 17.5pt; mso-yfti-firstrow: yes; mso-yfti-irow: 0;">
  <td style="border: solid windowtext 1.0pt; height: 17.5pt; mso-border-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Object<o:p></o:p></div>
</td>
  <td style="border-left: none; border: solid windowtext 1.0pt; height: 17.5pt; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Properties<o:p></o:p></div>
</td>
  <td style="border-left: none; border: solid windowtext 1.0pt; height: 17.5pt; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Value<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Combobox1<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Cbo_provinsi<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownStyle<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownList<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Combobox2<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Cbo_kabupaten<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownStyle<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownList<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Combobox3<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Cbo_kelurahan<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownStyle<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownList<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Combobox4<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Name<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
Cbo_kecamatan<o:p></o:p></div>
</td>
 </tr>
<tr>
  <td style="border-top: none; border: solid windowtext 1.0pt; mso-border-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.8pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
<br /></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownStyle<o:p></o:p></div>
</td>
  <td style="border-bottom: solid windowtext 1.0pt; border-left: none; border-right: solid windowtext 1.0pt; border-top: none; mso-border-alt: solid windowtext .5pt; mso-border-left-alt: solid windowtext .5pt; mso-border-top-alt: solid windowtext .5pt; padding: 0in 5.4pt 0in 5.4pt; width: 155.85pt;" valign="top" width="208"><div class="MsoNormal" style="margin-bottom: 0.0001pt;">
DropDownList<a href="https://www.blogger.com/blogger.g?blogID=5897341273723840270" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="" /></a></div>
</td></tr>
</tbody></table>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaItekhMiW1lXtWddr4ORfRygmma83uvwyf1eQUOnAweoN5hAmzYR9oe3vB1NRd0yojevKvAF0xhlbeOgg0radljuXoN95iemYiLKFxafKkpf2sOprlr2OKUxl0ig5yQjmKXzyt_ubfwR2/s1600/Membuat+Chained+Combobox+Dengan+VB+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Chained Combobox Dengan VB.NET" border="0" height="160" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaItekhMiW1lXtWddr4ORfRygmma83uvwyf1eQUOnAweoN5hAmzYR9oe3vB1NRd0yojevKvAF0xhlbeOgg0radljuXoN95iemYiLKFxafKkpf2sOprlr2OKUxl0ig5yQjmKXzyt_ubfwR2/s1600/Membuat+Chained+Combobox+Dengan+VB+1.png" title="Membuat Chained Combobox Dengan VB.NET" width="320" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: left;">
3. Imports namespace System.Data.SqlClient dan ketikan script dibawah ini</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<pre class="brush:html">    'Membuat String koneksi ke database
    Private strconn As String = "Data Source=.;Initial Catalog=dblokasi;Persist Security Info=True;User ID=sa; Password=root123"
    'Mendeklarasikan variable
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private adapter As SqlDataAdapter
    Private dt As DataTable
</pre>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
4. Pada event Form_load ketikan script dibawah ini</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<pre class="brush:html">'Mengisi data provinsi
        'Menyiapkan sqlconnection
        Using conn As New SqlConnection(strconn)
            'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_provinsi
            cmd = New SqlCommand("select lokasi_nama,lokasi_provinsi from lokasi where lokasi_kabupatenkota=0 and lokasi_kecamatan=0 and lokasi_kelurahan=0 order by lokasi_nama asc", conn)
            'Menyiapkan adapter
            adapter = New SqlDataAdapter(cmd)
            'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
            dt = New DataTable
            'Membinding data dari adapter ke datatable
            adapter.Fill(dt)
            'Mengisi combobox provinsi
            cbo_provinsi.DisplayMember = "lokasi_nama"
            cbo_provinsi.ValueMember = "lokasi_provinsi"
            cbo_provinsi.DataSource = dt
        End Using</pre>
<div class="separator" style="clear: both; text-align: left;">
5. Klik 2 kali pada combobbox provinsi dan ketikan script dibawah ini</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<pre class="brush:html">If Not IsNothing(cbo_provinsi.SelectedValue) Then
            'menyiapkan id dari combobox provinsi
            Dim id As Integer = cbo_provinsi.SelectedValue
            'Menyiapkan sqlconnection
            Using conn As New SqlConnection(strconn)
                'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_kabupatenkota
                cmd = New SqlCommand("select lokasi_nama,lokasi_kabupatenkota from lokasi where lokasi_provinsi='" & id & "' and lokasi_kabupatenkota <> 0 and lokasi_kecamatan=0 and lokasi_kelurahan=0 order by lokasi_nama asc", conn)
                'Menyiapkan adapter
                adapter = New SqlDataAdapter(cmd)
                'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
                dt = New DataTable
                'Membinding data dari adapter ke datatable
                adapter.Fill(dt)

'Mengisi combobox kabupaten
                cbo_kabupaten.DisplayMember = "lokasi_nama"
                cbo_kabupaten.ValueMember = "lokasi_kabupatenkota"
                cbo_kabupaten.DataSource = dt
            End Using
        End If</pre>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
6. Klik 2 kali pada combobox kabupaten dan ketikan script dibawah ini</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<pre class="brush:html">'jika nilai dari combobox kabupaten yang terpilih tidak kosong
        If Not IsNothing(cbo_kabupaten.SelectedValue) Then
            'menyiapkan id dari combobox provinsi
            Dim idprovinsi As Integer = cbo_provinsi.SelectedValue
            'menyiapkan id dari combobox kabupaten
            Dim idkabupaten As Integer = cbo_kabupaten.SelectedValue
            'Menyiapkan sqlconnection
            Using conn As New SqlConnection(strconn)
                'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_kecamatan
                cmd = New SqlCommand("select lokasi_nama,lokasi_kecamatan from lokasi where lokasi_provinsi='" & idprovinsi & "' and lokasi_kabupatenkota='" & idkabupaten & "' and lokasi_kecamatan <> 0 and lokasi_kelurahan=0 order by lokasi_nama asc", conn)
                'Menyiapkan adapter
                adapter = New SqlDataAdapter(cmd)
                'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
                dt = New DataTable
                'Membinding data dari adapter ke datatable
                adapter.Fill(dt)

'mengisi combobox kecamatan
                cbo_kecamatan.DisplayMember = "lokasi_nama"
                cbo_kecamatan.ValueMember = "lokasi_kecamatan"
                cbo_kecamatan.DataSource = dt
            End Using
        End If</pre>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
7. Klik 2 kali pada combobox dan ketikan script dibawah ini</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<pre class="brush:html"> 'jika nilai dari combobox kecamatan yang terpilih tidak kosong
        If Not IsNothing(cbo_kecamatan.SelectedValue) Then
            'menyiapkan id dari combobox provinsi
            Dim idprovinsin As Integer = cbo_provinsi.SelectedValue
            'menyiapkan id dari combobox kabupaten
            Dim idkabupaten As Integer = cbo_kabupaten.SelectedValue
            'menyiapkan id dari combobox kecamatan
            Dim idkecamatan As Integer = cbo_kecamatan.SelectedValue
            'Menyiapkan sqlconnection
            Using conn As New SqlConnection(strconn)
                'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_kelurahan
                cmd = New SqlCommand("select lokasi_nama,lokasi_kelurahan from lokasi where lokasi_provinsi='" & idprovinsin & "' and lokasi_kabupatenkota='" & idkabupaten & "' and lokasi_kecamatan='" & idkecamatan & "' and lokasi_kelurahan <> 0 order by lokasi_nama asc", conn)
                'Menyiapkan adapter
                adapter = New SqlDataAdapter(cmd)
                'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
                dt = New DataTable
                'Membinding data dari adapter ke datatable
                adapter.Fill(dt)

'mengisi combobox kelurahan
                cbo_kelurahan.DisplayMember = "lokasi_nama"
                cbo_kelurahan.ValueMember = "lokasi_kelurahan"
                cbo_kelurahan.DataSource = dt
            End Using
        End If</pre>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
8. Jalankan program tersebut dengan menekan F5 </div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEje3eS6jgMpfdx1dY5-CDfz8IUpSwVXi-WOOKOAFtiL9W4HIq3PiciGGnR-JV_Wm0fL42K2EPasnTYslfREW9ElsQ3csfCXJvQ2qzfmAwIu4kbAtGHXRedL9TXIQ53zcV1D6R26PLQDVUu7/s1600/Membuat+Chained+Combobox+Dengan+VB+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Chained Combobox Dengan VB.NET" border="0" height="160" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEje3eS6jgMpfdx1dY5-CDfz8IUpSwVXi-WOOKOAFtiL9W4HIq3PiciGGnR-JV_Wm0fL42K2EPasnTYslfREW9ElsQ3csfCXJvQ2qzfmAwIu4kbAtGHXRedL9TXIQ53zcV1D6R26PLQDVUu7/s1600/Membuat+Chained+Combobox+Dengan+VB+2.png" title="Membuat Chained Combobox Dengan VB.NET" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
Anda bisa mendownload source codenya <a href="http://adf.ly/g5KED">disini</a></div>
<div class="separator" style="clear: both; text-align: center;">
dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
Sekian dari saya</div>
<div class="separator" style="clear: both; text-align: left;">
Semoga bermanfaat, terima kasih atas kunjungannya</div>

Membuat Chained Combobox Dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Menampilkan Data Ke Combobox Di VB.NET kali ini saya akan memposting tentang Membuat Chained Combobox Dengan VB.NET atau bisa juga disebut dengan Combobox Bertingkat, jadi kita akan membuat beberapa combobox yang saling berhubungan misal ada 4 …

15Mar2014

Menampilkan Data Ke Combobox Di VB.NET

Setelah beberapa minggu yang lalu saya memposting <a href="http://adf.ly/cxwzG">Encryption dan Decryption String Dengan VB.NET</a><br />
Kali ini saya akan memposting tentang <a href="http://adf.ly/f35Rd">Menampilkan Data ke Combobox Di VB.NET.</a> Terkadang dalam membuat sebuah program kita perlu untuk <a href="http://adf.ly/f35Rd">Menampilkan Data ke Combobox Di VB.NET</a> misalnya saja untuk menampilkan data kategori barang, satuan barang ataupun yang lainnya.<br />
<br />
Langkah - langkah <a href="http://adf.ly/f35Rd">Menampilkan Data ke Combobox Di VB.NET</a><br />
<br />
1. Buat sebuah database dengan nama latihan<br />
<br />
2. Buat sebuah table di dalam database latihan dengan script dibawah ini<br />
<br />
<pre class="brush:html">CREATE TABLE siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat varchar(100) not null
)</pre>
<br />
3. Tambah data pada table siswa dengan script dibawah ini<br />
<br />
<pre class="brush:html">INSERT INTO	siswa (nis,nama,alamat) 
values ('334','Dwi Randy Herdinanto','Bandar Lampung'),
('335','Budi','Bandar Lampung'),
('336','Ita','Bandar Lampung')</pre>
<blockquote class="tr_bq">
Anda juga dapat mempelajari tentang Syntak Dasar SQL <a href="http://adf.ly/cvcGa">disini</a></blockquote>
4. Buat sebuah project dengan nama database combobox<br />
<br />
5. Tambahkan sebuah combobox ganti namenya dengan cbo_nis dan DropDownStylenya pilih DropDownList sehingga tampilan pada form tersebut seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNX59qE1HVL-ZLESLLuP2nar-Iu4MYpVdBGjh55XlQmdg3ARf8f52rM_OuvAOTenZm3ntDeAWSeMbGkyo5-_OEeWoujlhs-gRa76O3zZ5xZamHXUH4fKVDxiBmyHHKS7IVBXeXcoioG7R5/s1600/Menampilkan+Data+Ke+Combobox+Di+VB.NET+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Menampilkan Data Ke Combobox Di VB.NET" border="0" height="158" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNX59qE1HVL-ZLESLLuP2nar-Iu4MYpVdBGjh55XlQmdg3ARf8f52rM_OuvAOTenZm3ntDeAWSeMbGkyo5-_OEeWoujlhs-gRa76O3zZ5xZamHXUH4fKVDxiBmyHHKS7IVBXeXcoioG7R5/s1600/Menampilkan+Data+Ke+Combobox+Di+VB.NET+1.png" title="Menampilkan Data Ke Combobox Di VB.NET" width="320" /></a></div>
<br />
6. Double click form tersebut lalu ketikan Imports System.Data.SqlClient<br />
<br />
7. Pada Event Form_Load ketikan script dibawah ini<br />
<br />
<pre class="brush:html">  'Membuat string koneksi ke database
        Dim sconn As String = "Data Source=.;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123"
        'Menyiapkan koneksi database
        Dim conn As New SqlConnection(sconn)
        'Menyiapkan perintah query
        Dim cmd As New SqlCommand("select nis,nama from siswa", conn)
        'Menyiapkan data adapter
        Dim adapter As New SqlDataAdapter(cmd)
        'Menyiapkan datatable untuk menampung data dari table siswa
        Dim dt As New DataTable
        'Menggunakan try agar ketika ada error maka akan melakukan statement yang ada di dalam block Catch ex As Exception
        Try
            'Binding data ke datatable
            adapter.Fill(dt)
            'Binding data dar datatable ke combobox
            cbo_nis.DataSource = dt
            'Menentukan nilai dari setiap pilihan di combobox
            cbo_nis.ValueMember = "nis"
            'Menentukan data yang akan di tampilkan di setiap pilihan combobox
            cbo_nis.DisplayMember = "nama"
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error") 'Menampilkan pesan error
        End Try</pre>
<br />
8. Jalankan program tersebut dengan menekan CTRL+F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheU0TOM7zbG4l_UGmWG8pG2fOnQFIFx4OnEiK8udlaBR4Z_YIIBgdoivI9CBUe6ReJe9Oenye0mofTP8sHTOIUiddEdqguUeZ3wjbXyEIWb0sq2TNYbP4DOedqTvwVjEbYxOO0tBgRURKs/s1600/Menampilkan+Data+Ke+Combobox+Di+VB.NET+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="162" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheU0TOM7zbG4l_UGmWG8pG2fOnQFIFx4OnEiK8udlaBR4Z_YIIBgdoivI9CBUe6ReJe9Oenye0mofTP8sHTOIUiddEdqguUeZ3wjbXyEIWb0sq2TNYbP4DOedqTvwVjEbYxOO0tBgRURKs/s1600/Menampilkan+Data+Ke+Combobox+Di+VB.NET+2.png" width="320" /></a></div>
<br />
<div style="text-align: center;">
Anda bisa mendownload source codenya <a href="http://adf.ly/fH1Jz">di sini</a></div>
<div style="text-align: center;">
dan untuk passwordnya <a href="http://adf.ly/fHCDH">disini</a></div>
<div style="text-align: center;">
<br /></div>
Sekian dari saya<br />
Terima kasih sudah mengunjungi blog saya,,dan jangan lupa berikan komentar untuk artikel ini

Menampilkan Data Ke Combobox Di VB.NET

Setelah beberapa minggu yang lalu saya memposting Encryption dan Decryption String Dengan VB.NET Kali ini saya akan memposting tentang Menampilkan Data ke Combobox Di VB.NET. Terkadang dalam membuat sebuah program kita perlu untuk Menampilkan Data ke Combobox Di VB.NET misalnya saja untuk menampilka…

10Mar2014

Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal

Kali ini saya akan memposting tentang <a href="http://adf.ly/ejBrx" target="_blank">Membuat Piramida Bintang Dengan Perulangan di Turbo Pasca<u>l</u> </a><br />
<div>
Karena untuk <a href="http://adf.ly/ejBrx" target="_blank">Membuat Piramida Bintang Dengan Perulangan di Turbo Pasca<u>l</u> </a> kita perlu menggunakan perulangan ada baiknya anda membaca postingan saya sebelumnya yaitu<a href="http://adf.ly/eG12z" target="_blank"> Perulangan For Do di Turbo Pascal </a></div>
<div>
<br /></div>
<div>
Langkah-langkah <a href="http://adf.ly/ejBrx" target="_blank">Membuat Piramida Bintang Dengan Perulangan di Turbo Pasca<u>l</u> </a></div>
<div>
<br /></div>
<div>
1. Buka program turbo pascal yang anda punya</div>
<div>
<br /></div>
<div>
2. Ketikan script dibawah ini</div>
<div>
<br /></div>
<div>
<pre class="brush:html">program priamid;
var
 i,j,k,bil:integer;
begin
 clrscr;</pre>
<pre class="brush:html">        writeln('===============');</pre>
<pre class="brush:html">        writeln('Tutorial Koding');</pre>
<pre class="brush:html">        writeln('===============');</pre>
<pre class="brush:html"> write('Masukan Tinggi Piramida : ');readln(bil);
 for i:=1 to bil do {Perulangan dari 1 sampai tinggi piramida}
 begin
  for j:=bil down to i do {Perulangan untuk membuat jarak/spasi}
  begin
   write(' ');
  end;

for k:=1 to i+i-1 do {Perulangan untuk menampilkan bintang}
  begin
   write('*');
  end;
 writeln;
 end;
 readln;
end;</pre>
</div>
<div>
<br /></div>
<div>
3. Jalankan program tersebut dengan menekan CTRL+F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUIgbUIWso7qSfVWjJXOiFg6TzDuH5VV-miXm0E05-u9cr144wNloppqGyeDTbzguV55YOhkeTQ2h6PuRGFL11exSJd1gWgHlLrbweYeTQiQ6UvLpaJpVO7m5SViOx0aM6DJhgDLAcpagh/s1600/Membuat+Piramida+Bintang+Dengan+Perulangan+di+Turbo+Pascal.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUIgbUIWso7qSfVWjJXOiFg6TzDuH5VV-miXm0E05-u9cr144wNloppqGyeDTbzguV55YOhkeTQ2h6PuRGFL11exSJd1gWgHlLrbweYeTQiQ6UvLpaJpVO7m5SViOx0aM6DJhgDLAcpagh/s1600/Membuat+Piramida+Bintang+Dengan+Perulangan+di+Turbo+Pascal.png" width="320" /></a></div>
<br />
Semoga bermanfaat, terima kasih atas kunjungannya<br />
<br /></div>

Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal

Kali ini saya akan memposting tentang Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal Karena untuk Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal kita perlu menggunakan perulangan ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For Do di Turbo Pascal Lan…

07Mar2014

Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

Setelah beberapa hari yang lalu saya sempat memposting tentang Konversi Suhu di Turbo Pascal<br />
kali ini saya akan memposting tentang Konversi Hari ke Tahun Bulan Hari di Turbo Pascal<br />
<br />
jadi misalkan kita menginputkan 390 hari maka akan muncul text bertuliskan 1 tahun  1 bulan 10 hari<br />
oke langsung saja<br />
<br />
Langkah - langkah Konversi Hari ke Tahun Bulan Hari di Turbo Pascal<br />
<br />
1. Buka program turbo pascal yang anda punya<br />
<br />
2. Ketikan Script dibawah ini<br />
<br />
<pre class="brush:html">program konversihari;
uses crt;
var
 hari,jhari,jbulan,jtahun,sisa:integer;
begin
 clrscr;
 writeln('======================');
 writeln('Tutorial Koding');
 writeln('=====================');
 writeln('');
 write('Masukan Jumlah Hari : ');readln(hari);
 jtahun:=hari div 365;
 sisa:=hari div 365;
 jbulan:=sisa div 31;
 jhari:=sisa mod 31;
 if (jhari=0) then
 begin
  jhari:=sisa;
 end;
 writeln('Hasil Konversi : ',jtahun,' Tahun ',jbulan,' Bulan ',jhari,' Hari ');
 readln;
end.
 </pre>
3. Jalankan program tersebut dengan menekan CTRL+F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjuuZPH0tPpSHCh3Jq39utsGQWazQ6hKlPM4E7pL9cXz51zB-Kz8aCXXnNkhyHys23KXVE_e12SXN9twuMLue_9RNcKumeTdzHUIIn0ijxkQEmkYCgnh6raBMlMaO5f6g8nM3aLULZZRnAw/s1600/Konversi+Hari+ke+Tahun+Bulan+Hari+di+Turbo+Pascal.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Konversi Hari ke Tahun Bulan Hari di Turbo Pascal" border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjuuZPH0tPpSHCh3Jq39utsGQWazQ6hKlPM4E7pL9cXz51zB-Kz8aCXXnNkhyHys23KXVE_e12SXN9twuMLue_9RNcKumeTdzHUIIn0ijxkQEmkYCgnh6raBMlMaO5f6g8nM3aLULZZRnAw/s1600/Konversi+Hari+ke+Tahun+Bulan+Hari+di+Turbo+Pascal.png" title="Konversi Hari ke Tahun Bulan Hari di Turbo Pascal" width="320" /></a></div>
<br />
Sekian dari saya, semoga bermanfaat<br />
<br />

Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

Setelah beberapa hari yang lalu saya sempat memposting tentang Konversi Suhu di Turbo Pascal kali ini saya akan memposting tentang Konversi Hari ke Tahun Bulan Hari di Turbo Pascal jadi misalkan kita menginputkan 390 hari maka akan muncul text bertuliskan 1 tahun 1 bulan 10 hari oke langsung saja L…

07Mar2014

Membuat Function di Turbo Pascal

Setelah beberapa hari yang lalu saya membahas tentang Membuat Procedure di Turbo Pascal<br />
kali ini saya akan melanjutkan dengan <a href="http://adf.ly/edER1" target="_blank">Membuat Function di Turbo Pascal</a><br />
<br />
Apa itu function ?<br />
Function hampir sama dengan Procedure yaitu suatu modul program yang terpisah dari program utama yang diletakan dalam blok tersendiri yang berfungsi sebagai bagian dari program, tapi function memiliki perbedaan dengan procedure yaitu, jika function memberikan nilai balik (return) namun jika procedure tidak<br />
<br />
Langakah - langkah <a href="http://adf.ly/edER1" target="_blank">Membuat Function di Turbo Pascal</a><br />
<br />
1. Buka program turbo pascal yang anda punya<br />
<br />
2.. Ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program fungsi;
uses crt;

var
 pj,lb:integer;
begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 
 write('Masukan Panjang Persegi Panjang : ');readln(pj);
 write('Masukan Lebar Persegi Panjang : ');readln(lb);

writeln('Luas Persegi Panjang : ',hitungluas(pj,lb)); {Memanggil fungsi hitungluas serta mengirimkan parameter berupa pj dan lb}
 readln;
end.

</pre>
3. Jalankan program tersebut dengan menekan CTRL+F9<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhu0QDypfgoPNarhrUCIbUcq2oNljRYaxnM1g-oH61ibKwYcgsV0M9X9XAnG_GTmrDrwCthzLF8H9PG1oWUPlcwQRcHRbHEqIqrY5u8oUlmg2JJjVMlhaYkNyu57PKHHf19KLgsTckoliL/s1600/Membuat+Function+di+Turbo+Pascal.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Function di Turbo Pascal" border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhu0QDypfgoPNarhrUCIbUcq2oNljRYaxnM1g-oH61ibKwYcgsV0M9X9XAnG_GTmrDrwCthzLF8H9PG1oWUPlcwQRcHRbHEqIqrY5u8oUlmg2JJjVMlhaYkNyu57PKHHf19KLgsTckoliL/s1600/Membuat+Function+di+Turbo+Pascal.png" title="Membuat Function di Turbo Pascal" width="320" /></a></div>
<br />
Sekian dari saya, semoga bermanfaat

Membuat Function di Turbo Pascal

Setelah beberapa hari yang lalu saya membahas tentang Membuat Procedure di Turbo Pascal kali ini saya akan melanjutkan dengan Membuat Function di Turbo Pascal Apa itu function ? Function hampir sama dengan Procedure yaitu suatu modul program yang terpisah dari program utama yang diletakan dalam blok…

07Mar2014

Konversi Suhu Dengan Turbo Pascal

Kali ini saya akan memposting tentang <a href="http://adf.ly/eU29g" target="_blank">Konversi Suhu Dengan Turbo Pascal</a><br />
<ul>
<li>Konversi Celcius ke Fahrenhuit dan Reamur</li>
</ul>
1. Buka Turbo Pascal yang anda punya<br />
<br />
2. Ketikan Script dibawah ini<br />
<br />
<pre class="brush:html">program cel;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('===============');
	writeln('Tutorial Koding');
	writeln('===============');
	write('Masukan suhu dalam celcius : ');readln(celcius);</pre>
<pre class="brush:html">	fahrenheit:=9/5*celcius+32 {Mengkonversi celcius ke fahrenheit}
	reamur:=4/5*celcius;	{Mengkonversi celcius ke reamur}
</pre>
<pre class="brush:html">	writeln('Konversi suhu ke fahrenheit :',fahrenheit:0:1);
	writeln('Konversi suhu ke reamur :',reamur:0:1);
	readln;
end.</pre>
<br />
3. Jalankan program tersebut dengan menekan CTRL+F9<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhC3x0CpCU8_0z8XF3j4pEbdHBOZIGYGyWCKZX2tW95FxjYfpk83W2MCA_-7oE2zLEi3tz1o0CGjzZwybov3qyoW-BA_Gc4fhkcjCv5PPDR_i222UPrxNuSUrHXmFl0hvu9_bqxFm6LnFIP/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhC3x0CpCU8_0z8XF3j4pEbdHBOZIGYGyWCKZX2tW95FxjYfpk83W2MCA_-7oE2zLEi3tz1o0CGjzZwybov3qyoW-BA_Gc4fhkcjCv5PPDR_i222UPrxNuSUrHXmFl0hvu9_bqxFm6LnFIP/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+1.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<br />
<ul>
<li>Konversi Fahrenheit ke celcius dan reamur</li>
</ul>
<br />
1. Buka Turbo Pascal yang anda punya<br />
<br />
2. Ketikan Script dibawah ini<br />
<div>
<br /></div>
<div>
<pre class="brush:html">program fah;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam fahrenheit : ');readln(fahrenheit);
	
	celcius:=5/9*(fahrenheit-32); {Konversi fahrenheit ke celcius}
	reamur:=4/9*(fahrenheit-32); {Konversi fahrenheit ke reamur}

writeln('Konversi suhu celcius : ',celcius:0:1);
	writeln('Konversi suhu reamur : ',reamur:0:1);

readln;
end.</pre>
</div>
<div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRCdJaAgZKNNwzafNdHk75LL-idBXwklwJQJhxVmFrZ23H1toPRG_vvwq4R949M_W0NJtd-Hg6ms7lVrz4fpKJ8Y15oY22r-F6dFjo7UTubTnvYIFm8X1QdRx8kVY8hGACPtAlG3G7k3sT/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRCdJaAgZKNNwzafNdHk75LL-idBXwklwJQJhxVmFrZ23H1toPRG_vvwq4R949M_W0NJtd-Hg6ms7lVrz4fpKJ8Y15oY22r-F6dFjo7UTubTnvYIFm8X1QdRx8kVY8hGACPtAlG3G7k3sT/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+3.png" width="320" /></a></div>
<div>
3. Jalankan program tersebut dengan menekan CTRL+F9<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4wBWmTfAZC-D2uLmpQGDj78XZfxOuEuczLxMCXb7OE_40qOSIszjvunEa1GtQO-US7auous0GlgvmhAukxzdk3zOiuaCEoCP51OmL_CW2e6cKTGzvsqwYbySFQSML-b7S9vF2Hj5L3iNM/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+2+.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="214" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4wBWmTfAZC-D2uLmpQGDj78XZfxOuEuczLxMCXb7OE_40qOSIszjvunEa1GtQO-US7auous0GlgvmhAukxzdk3zOiuaCEoCP51OmL_CW2e6cKTGzvsqwYbySFQSML-b7S9vF2Hj5L3iNM/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+2+.png" width="320" /></a></div>
<br />
<br />
<br />
<ul>
<li>Konversi Reamur ke Celcius dan Reamur</li>
</ul>
<br />
<br />
1. Buka Turbo Pascal yang anda punya<br />
<br />
2. Ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program ream;
uses crt;
var
	reamur,celcius,fahrenheit:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam reamur : ');readln(reamur);

celcius:=4/5*reamur;
	fahrenheit:=9/4*(reamur+32);

writeln('Konversi ke celcius : ',celcius:0:1);
	writeln('Konversi ke fahrenheit : ',fahrenheit:0:1);

readln;
end.</pre>
<br />
3. Jalankan program tersebut dengan menekan CTRL+F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRCdJaAgZKNNwzafNdHk75LL-idBXwklwJQJhxVmFrZ23H1toPRG_vvwq4R949M_W0NJtd-Hg6ms7lVrz4fpKJ8Y15oY22r-F6dFjo7UTubTnvYIFm8X1QdRx8kVY8hGACPtAlG3G7k3sT/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRCdJaAgZKNNwzafNdHk75LL-idBXwklwJQJhxVmFrZ23H1toPRG_vvwq4R949M_W0NJtd-Hg6ms7lVrz4fpKJ8Y15oY22r-F6dFjo7UTubTnvYIFm8X1QdRx8kVY8hGACPtAlG3G7k3sT/s1600/Konversi+Suhu+Dengan+Turbo+Pascal+3.png" width="320" /></a></div>
<br />
<br />
Sekian dari saya<br />
semoga bermanfaat</div>

Konversi Suhu Dengan Turbo Pascal

Kali ini saya akan memposting tentang Konversi Suhu Dengan Turbo Pascal Konversi Celcius ke Fahrenhuit dan Reamur 1. Buka Turbo Pascal yang anda punya 2. Ketikan Script dibawah ini program cel; uses crt; var celcius,fahrenheit,reamur:real; begin clrscr; writeln('==============='); writeln('Tutor…

06Mar2014

Membuat Procedure di Turbo Pascal

Setelah beberapa siang tadi saya memposting tentang <a href="http://adf.ly/eLeQl" target="_blank">Menggunakan Const di Turbo Pascal</a><br />
kali ini saya akan memposting tentang <a href="http://adf.ly/eOytH" target="_blank">Membuat Procedure di Turbo Pascal</a><br />
<br />
Terkadang ketika kita membuat sebuah program yang sudah sampai ratusan bahkan ribuan baris, kita akan kesulitan dalam memahami jalannya program itu secara keseluruhan, maka ada baiknya program yang kita buat tersebut kita pecah menjadi beberapa bagian, agar kita lebih mudah dalam memahami jalannya program tersebut,oleh karena itu membuat procedure sangat lah dianjurkan dalam membuat program, selain memudahkan kita dalam memahami jalannya program kita juga tidak perlu menuliskan procdure yang sama berulang - ulang kita cukup memanggil procedure yang kita buat saja<br />
<br />
Berikut cara membuat <a href="http://adf.ly/eOytH" target="_blank">Membuat Procedure di Turbo Pasca</a>l<br />
<br />
1. Buka program Turbo Pascal yang anda miliki<br />
<br />
2. Ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program prosedur;
uses crt;
var
 p,l,luas:integer; {Mendekarasikan variable}

procedure hitung; {Membuat procedure hitung untuk menghitung luas persegi panjang}
begin
 luas:=p*l; {Menghitung luas persegi panjang}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan luas persegi panjang}
end;

begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung; {Memanggil procedure hitung tanpa parameter}
 readln;
end.

</pre>
3. Jalnkan program tersebut dengan menekan CTRL+F9<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUSX00ijg8vJljwj32xNURvd3VvW5aoR_7-B5h6GoHMewGqtrfqZiZ9eMHRN2MiK6egkffN0jZDDdnzjbPE-8qtKWC0TfOmw1mO-rHtURxAXQeBA4718VYDPyvxw7stpvFEDKpmv7Ol2Qf/s1600/Membuat+Procedure+di+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUSX00ijg8vJljwj32xNURvd3VvW5aoR_7-B5h6GoHMewGqtrfqZiZ9eMHRN2MiK6egkffN0jZDDdnzjbPE-8qtKWC0TfOmw1mO-rHtURxAXQeBA4718VYDPyvxw7stpvFEDKpmv7Ol2Qf/s1600/Membuat+Procedure+di+Turbo+Pascal+1.png" width="320" /></a></div>
<br />
<br />
Membuat Procedure dengan parameter<br />
<br />
Apa itu Parameter ?<br />
Secara sederhana parameter merupakan variable yang dituliskan di dalam kurung. Dalam pembuatan program biasanya diperlukan pertukaran informasi antara procedure atau function, serta pada blok program utama dimana nama procedure atau function tersebut dipanggil<br />
<br />
1. Buka program Turbo Pascal yang anda miliki<br />
<br />
2. Ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program prosedur_param;
uses crt;
var
 p,l,luas:integer; {Mendeklarasikan variable}

procedure hitung(p,l:integer); {Membuat procedure dengan parameter}
begin
 luas:=p*l; {Menghitung luas persegi panjang dimana nilai p dan l didapat dari parameter procedure hitung}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan Luas Persegi}
end;

begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung(l,p); {Memanggil procedure hitung serta mengirim nilai dari p dan l}
 readln;
end;</pre>
<br />
3. Jalnkan program tersebut dengan menekan CTRL+F9<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUSX00ijg8vJljwj32xNURvd3VvW5aoR_7-B5h6GoHMewGqtrfqZiZ9eMHRN2MiK6egkffN0jZDDdnzjbPE-8qtKWC0TfOmw1mO-rHtURxAXQeBA4718VYDPyvxw7stpvFEDKpmv7Ol2Qf/s1600/Membuat+Procedure+di+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUSX00ijg8vJljwj32xNURvd3VvW5aoR_7-B5h6GoHMewGqtrfqZiZ9eMHRN2MiK6egkffN0jZDDdnzjbPE-8qtKWC0TfOmw1mO-rHtURxAXQeBA4718VYDPyvxw7stpvFEDKpmv7Ol2Qf/s1600/Membuat+Procedure+di+Turbo+Pascal+1.png" width="320" /></a></div>
<br />
Semoga berhasil<br />
Terima kasih atas kunjungannya

Membuat Procedure di Turbo Pascal

Setelah beberapa siang tadi saya memposting tentang Menggunakan Const di Turbo Pascal kali ini saya akan memposting tentang Membuat Procedure di Turbo Pascal Terkadang ketika kita membuat sebuah program yang sudah sampai ratusan bahkan ribuan baris, kita akan kesulitan dalam memahami jalannya progra…

05Mar2014

Menggunakan Const di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang <a href="http://adf.ly/eKwvb" target="_blank">Membuat Kalkulator Dengan Turbo Pascal</a><br />
kali ini saya akan memposting <a href="http://adf.ly/eLeQl" target="_blank">Menggunakan Const di Turbo Pascal</a><br />
<br />
Apa itu Const ?<br />
Const adalah indentifier terkait nilai yang biasanya tidak dapat diubah selama program itu berjalan<br />
<br />
Contoh Penggunaan Const di Turbo pascal<br />
<br />
1. Buka program turbo pascal yang anda miliki<br />
<br />
2. Ketikan Script dibawah ini<br />
<br />
<pre class="brush:html">program konstanta;
uses crt;
const
	phi:real=3.14;
var
	jari,luas,keliling:real;
begin
	clrscr;
	writeln('=====================');
	writeln('Tutorial Koding');
	writeln('=====================');
	write('Masukan Jari-Jari Lingkaran : ');readln(jari);

luas:=phi*sqr(jari); {Menghitung Luas Lingkaran}
	keliling:=2*phi*jari; {Menghitung Keliling Lingkaran}

writeln('Luas Lingkaran : ',luas:0:1);
	writeln('Keliling Lingkaran : ',keliling:0:1);
	readln;
end.</pre>
<br />
3. Jalankan program tersebut dengan menekan CTRL+F5<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTpddVdOOJqXENBjoIiTJY63PhTzbbgebR7MRRwyfCY6CzEAmTlWKVS5CDuoxKsUGwR-AvrDzet_SUT5liY4Be5RsCpyy0y8D80cYfk3HwxTZs7cIDeHWfbpzGclR2J_IzxfliqLulN8XS/s1600/Menggunakan+Const+di+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="214" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTpddVdOOJqXENBjoIiTJY63PhTzbbgebR7MRRwyfCY6CzEAmTlWKVS5CDuoxKsUGwR-AvrDzet_SUT5liY4Be5RsCpyy0y8D80cYfk3HwxTZs7cIDeHWfbpzGclR2J_IzxfliqLulN8XS/s1600/Menggunakan+Const+di+Turbo+Pascal+1.png" width="320" /></a></div>
<br />
<br />
Sekian dari saya<br />
Semoga bermanfaat, terima kasih atas kunjungannya

Menggunakan Const di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Membuat Kalkulator Dengan Turbo Pascal kali ini saya akan memposting Menggunakan Const di Turbo Pascal Apa itu Const ? Const adalah indentifier terkait nilai yang biasanya tidak dapat diubah selama program itu berjalan Contoh Penggunaan Const di…

05Mar2014

Membuat Kalkulator Dengan Turbo Pascal

Pada postingan kali ini saya akan membahas tentang <a href="http://membuat%20kalkulator%20dengan%20turbo%20pascal/" target="_blank">Membuat Kalkulator Dengan Turbo Pascal</a><br />
sebenarnya ada beberapa cara untuk <a href="http://membuat%20kalkulator%20dengan%20turbo%20pascal/" target="_blank">Membuat Kalkulator Dengan Turbo Pascal</a> namun kali ini saya akan menggunakan IF dan Case untuk memilih operasi apa yang dijalankan,apakah operasi tambah, pengurangan, pembagian atau perkalian<br />
<br />
Sebelum memulainya ada baiknya anda membaca postingan saya sebelumnya yaitu <a href="http://dwirandyherdinanto.blogspot.com/2014/02/statement-case-di-turbo-pascal.html" target="_blank">Statement IF di Turbo Pascal</a> dan <a href="http://dwirandyherdinanto.blogspot.com/2014/02/statement-case-di-turbo-pascal.html" target="_blank">Statement Case di Turbo Pascal</a><br />
<br />
Jika anda sudah mengerti cara penggunaan  <a href="http://dwirandyherdinanto.blogspot.com/2014/02/statement-case-di-turbo-pascal.html" target="_blank">Statement IF di Turbo Pascal</a> dan <a href="http://dwirandyherdinanto.blogspot.com/2014/02/statement-case-di-turbo-pascal.html" target="_blank">Statement Case di Turbo Pascal</a> maka langsung saja<br />
<br />
Cara pertama<br />
Membuat Kalkulator Dengan Turbo Pascal dengan Statement IF<br />
<br />
1. Buka turbo pascal yang anda miliki<br />
<br />
2. ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;

writeln('Hasil : ',jumlah:0:1);

readln;
end.</pre>
<br />
3. Jalnkan program tersebut dengan menekan CTRL + F9<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhATRQFgCptiy-68tNxH5xmqSqGJdxzKK5Ipa6G-awnPCERYRrlJZkn7u5pTiAGNSO-cU2-Z8nxJEdrMz5beFmhHz4JBuAxpnfWyp9rBuZgMUyjEnrcuZfDhFtSOXBNP2kH7OFqDe5DV_Id/s1600/Membuat+Kalkulator+Dengan+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Membuat Kalkulator Dengan Turbo Pascal" border="0" height="215" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhATRQFgCptiy-68tNxH5xmqSqGJdxzKK5Ipa6G-awnPCERYRrlJZkn7u5pTiAGNSO-cU2-Z8nxJEdrMz5beFmhHz4JBuAxpnfWyp9rBuZgMUyjEnrcuZfDhFtSOXBNP2kH7OFqDe5DV_Id/s1600/Membuat+Kalkulator+Dengan+Turbo+Pascal+1.png" title="Membuat Kalkulator Dengan Turbo Pascal" width="320" /></a></div>
<br />
Penjelasan :<br />
<br />
<pre class="brush:html">write('Masukan Bilangan Pertama : ');readln(bil1);
write('Masukan Bilangan Kedua : ');readln(bil2);
write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);</pre>
Mengisi variable bil1, bil2, dan op sesuai dengan yang kita inputkan<br />
<br />
<pre class="brush:html">if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;</pre>
Melakukan pemilihan operasi hitung, jika + maka akan melakukan operasi penjumlahan, jika - maka akan melakukan operasi pengurangan jika * maka akan melakukan opearasi pengurangan, jika / maka akan melakukan operasi pembagian jika tidka diantara ke empat itu maka akan muncul text bertuliskan tidak termasuk dalam operasi perhitungan<br />
<br />
Cara kedua<br />
Membuat Kalkulator Dengan Turbo Pascal dengan Statement Case<br />
<br />
1. Buka program turbo pascal yang anda miliki<br />
<br />
2, Ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

case op of
  '+':
  begin
   jumlah:=bil1+bil2;
  end;

'-':
  begin
   jumlah:=bil1-bil2;
  end;

'*':
  begin
   jumlah:=bil1*bil2;
  end;

'/':
  begin
   jumlah:=bil1/bil2;
  end;

else
  begin
   writeln(op,' tidak termasuk dalam operais perhitungan');
  end;
 end;

writeln('Hasil : ',jumlah:0:1);

Membuat Kalkulator Dengan Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Membuat Kalkulator Dengan Turbo Pascal sebenarnya ada beberapa cara untuk Membuat Kalkulator Dengan Turbo Pascal namun kali ini saya akan menggunakan IF dan Case untuk memilih operasi apa yang dijalankan,apakah operasi tambah, pengurangan, pembagian…

04Mar2014

Perulangan Repeat Until di Turbo Pascal

Pada postingan kali ini saya akan membahas <a href="http://adf.ly/eKm8a" target="_blank">Perulangan Repeat Until di Turbo Pascal</a><br />
Sebenarnya perulangan ini hampir sama dengan <a href="http://dwirandyherdinanto.blogspot.com/2014/03/perulangan-while-do-di-turbo-pascal.html" target="_blank">Perulangan While do di Turbo Pascal</a> namun ada beberapa perbedaan antara repeat dan while,jika repeat iya akan menjalankan perintah yang akan diulang lalu mengeceknya, jika nilainya benar/true maka perulangan tersebut akan berhenti,namun jika masih salah/false maka akan terus melakukan perulangan sampai nilai itu benar/true<br />
<br />
Contoh <a href="http://adf.ly/eKm8a" target="_blank">Perulangan Repeat Until di Turbo Pascal</a><br />
<br />
1. Buka turbo  pascal yang anda punya<br />
<br />
2. Ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program repeat_until;
uses crt;
var
 i,jumlah:integer;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');

i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;
 
 readln;
end.</pre>
<br />
Jika dijalankan maka akan seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNzsjA8t2IxppVN4pcQPjP85Kv6AbGHDyf1oAKa558KsWTKBgcV7LGMA7qTPJfw_G_h9gK9h73NP15GwJX06uF53PbggKw2TexA8Vw_yaXAMvZwh1F8ysg6G1k3dh58bIHXC2no2Wzv-p-/s1600/Perulangan+Repeat+Until+di+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNzsjA8t2IxppVN4pcQPjP85Kv6AbGHDyf1oAKa558KsWTKBgcV7LGMA7qTPJfw_G_h9gK9h73NP15GwJX06uF53PbggKw2TexA8Vw_yaXAMvZwh1F8ysg6G1k3dh58bIHXC2no2Wzv-p-/s1600/Perulangan+Repeat+Until+di+Turbo+Pascal+1.png" width="320" /></a></div>
<br />
Penjelasan :<br />
<br />
<pre class="brush:html">var
 i,jumlah:integer;</pre>
Mendeklarasikan variable i dan jumlah sebagai integer<br />
<br />
<pre class="brush:html">i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;</pre>
Mengisi variable i dengan 1, lalu mengisi variable jumlah sesuai dengan jumlah yang kita inputkan<br />
lalu melakukan perulangan sampai isi dari variable i lebih dari variable jumlah<br />
<br />
Itulah penjelasan singkat dari saya<br />
semoga berhasil

Perulangan Repeat Until di Turbo Pascal

Pada postingan kali ini saya akan membahas Perulangan Repeat Until di Turbo Pascal Sebenarnya perulangan ini hampir sama dengan Perulangan While do di Turbo Pascal namun ada beberapa perbedaan antara repeat dan while,jika repeat iya akan menjalankan perintah yang akan diulang lalu mengeceknya, jika …

04Mar2014

Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

Pada postingan kali ini saya akan membahas tentang <a href="http://adf.ly/eJVWx" target="_blank">Menghitung Jumlah Nilai Dengan Array di Turbo Pascal</a><br />
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu <a href="http://adf.ly/eG12z" target="_blank">Perulangan For do di Turbo Pascal</a><br />
<br />
Apa itu Array ?<br />
Array adalah sekumpulan variable yang memiliki tipe data yang sama  dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan index integer untuk menentukan urutan elemen-elemennya dimana elemen pertama di mulai dari nol (0)<br />
<br />
Setelah anda mengetahui apa itu array sekarang saya akan langsung memberi tahu cara <a href="http://adf.ly/eJVWx" target="_blank">Menghitung Jumlah Nilai Dengan Array di Turbo Pascal</a><br />
<br />
1. Buka program Turbo Pascal yang anda punya\<br />
<br />
2. Masukan script dibawah ini<br />
<br />
script<br />
<br />
<pre class="brush:html">program jumlah_array;
uses crt;
var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;
begin
 clrscr;
 writeln('===================');
 writeln('Tutorial Koding');
 writeln('===================');
 writeln('');
 write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;
 
 for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;
 
 writeln('Jumlah Seluruh Nilai :',jumlah);
 readln;
end.</pre>
<br />
Maka jika dijalankan akan seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMlERRwXCepbUoPg9bPHNZ6amZPMJSGGIfbTP0tH77iCGaY6j-tGm__RJ-Dc0st3NGfzan9jro_-ffeImTET4aV82dXbvrRkzTAjDoKBLI99enYnfitZU2Zfeu5NDKVB78eOXFPTg393b7/s1600/Menghitung+Jumlah+Nilai+Dengan+Array+di+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="214" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMlERRwXCepbUoPg9bPHNZ6amZPMJSGGIfbTP0tH77iCGaY6j-tGm__RJ-Dc0st3NGfzan9jro_-ffeImTET4aV82dXbvrRkzTAjDoKBLI99enYnfitZU2Zfeu5NDKVB78eOXFPTg393b7/s1600/Menghitung+Jumlah+Nilai+Dengan+Array+di+Turbo+Pascal+1.png" width="320" /></a></div>
<br />
Penjelasan :<br />
<br />
<pre class="brush:html">var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;</pre>
Digunakan untuk mendekarasikan Variable<br />
<br />
<pre class="brush:html">write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;</pre>
Digunakan untuk menampung banyak data yang diinputkan<br />
<br />
<pre class="brush:html">for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;</pre>
Melakukan perulangan sebanyak jumlah data yang diinputkan<br />
lalu mengisi variable jumlah dengan penjumlahan dari data nilai yang diinputkan<br />
<br />
<br />
Semoga berhasil<br />
Semoga bermanfaat dan jangan lupa berikan komentar untuk postingan ini.<br />
<br />

Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Menghitung Jumlah Nilai Dengan Array di Turbo Pascal sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal Apa itu Array ? Array adalah sekumpulan variable yang memiliki tipe data yang sama dan d…

03Mar2014

Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal

<div class="separator" style="clear: both; text-align: center;">
</div>
Pada postingan kali ini saya akan membahasa tentang cara <a href="http://adf.ly/eIyhl" target="_blank">Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal</a><br />
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu <a href="http://dwirandyherdinanto.blogspot.com/2014/02/statement-if-di-turbo-pascal.html" target="_blank">Statemetn IF di Turbo Pascal</a> dan <a href="http://dwirandyherdinanto.blogspot.com/2014/03/perulangan-for-do-di-turbo-pascal.html" target="_blank">Perulangan For do di Turbo Pasca</a> karna untuk menghitung huruf vocal dan kosonan dengan turbo pascal kita memerlukan 2 statement itu<br />
<br />
<br />
1. Buka program turbo pascal yang anda miliki<br />
<br />
2. Ketikan script dibawah ini<br />
<br />
<pre class="brush:html">program vokal_konsonan;
uses crt;
var
 vokal,konsonan,len,i:integer;
 kata:string;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 write('Masukan Nama Anda : ');readln(kata);
 len:=length(kata);
 konsonan:=0;
 vokal:=0;

for i:=1 to len do
 begin
  if (kata[i]='a') or (kata[i]='A') or (kata[i]='i') or (kata[i]='I') or (kata[i]='e') or (kata[i]='E')
  or (kata[i]='u') or (kata[i]='U') or (kata[i]='o') or (kata[i]='O') then
  begin
   vokal:=vokal+1;
  end
  else
  begin
   konsonan:=konsonan+1;
  end;
 end;
 
 writeln('Jumlah Huruf Vokal : ',vokal);
 writeln('Jumlah Huruf Konsonan : ',konsonan);
 readln;
end.</pre>
<br />
Jika dijalankan akan seperti gambar di bawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikMTcwC7VIEha_8YWzzVWJn1QJPH4bNOXeWj6c1fDN5JCpt9qm7C4mdDQiPCLxMxWFDVaZFCytoZX8P102NCrvEpeBkZb2R4iFwslsc3SrxL7-2iEue8agFbiQjZOSXytld-uWLWP95o13/s1600/Menghitung+Huruf+Vokal+dan+Konsonan+dengan+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal" border="0" height="214" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEikMTcwC7VIEha_8YWzzVWJn1QJPH4bNOXeWj6c1fDN5JCpt9qm7C4mdDQiPCLxMxWFDVaZFCytoZX8P102NCrvEpeBkZb2R4iFwslsc3SrxL7-2iEue8agFbiQjZOSXytld-uWLWP95o13/s1600/Menghitung+Huruf+Vokal+dan+Konsonan+dengan+Turbo+Pascal+1.png" title="Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal" width="320" /></a></div>
<br />
Penjelasan :<br />
<br />
<pre class="brush:html">var
 vokal,konsonan,len,i:integer;
 kata:string;</pre>
Digunakan untuk mendeklarasikan variable<br />
<br />
<pre class="brush:html">write('Masukan Nama Anda : ');readln(kata);
 len:=length(kata);
 konsonan:=0;
 vokal:=0;</pre>
Digunakan untuk mengisi variable kata dengan kata yang kita inputkan<br />
length digunakan untuk mengetahui panjang karakter dari kata yang kita inputkan<br />
konsonan:=0 dan vokal:=0 digunakan untuk mengisi variabel dengan 0<br />
<br />
<pre class="brush:html">for i:=1 to len do
 begin
  if (kata[i]='a') or (kata[i]='A') or (kata[i]='i') or (kata[i]='I') or (kata[i]='e') or (kata[i]='E')
  or (kata[i]='u') or (kata[i]='U') or (kata[i]='o') or (kata[i]='O') then
  begin
   vokal:=vokal+1;
  end
  else
  begin
   konsonan:=konsonan+1;
  end;
 end;</pre>
Melakukan perulangan untuk mendapatkan jumlah huruf vokal dan konsonan<br />
<br />
<pre class="brush:html">writeln('Jumlah Huruf Vokal : ',vokal);
writeln('Jumlah Huruf Konsonan : ',konsonan);</pre>
Digunakan untuk menampilkan jumlah huruf vokal dan konsonan yang ditemukan<br />
<br />
Semoga berhasil<br />
Semoga bermanfaat dan jangan lupa untuk memberikan komentar pada postingan ini.

Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal

Pada postingan kali ini saya akan membahasa tentang cara Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Statemetn IF di Turbo Pascal dan Perulangan For do di Turbo Pasca karna untuk menghitung huruf vocal dan kosonan …

03Mar2014

Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang <a href="http://dwirandyherdinanto.blogspot.com/2014/03/perulangan-while-do-di-turbo-pascal.html" target="_blank">Perulangan While do di Turbo Pascal</a><br />
kali ini saya akan memposting tentang <a href="http://adf.ly/eH7j4" target="_blank">Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal</a><br />
Sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu <span id="goog_2020493900"></span><a href="http://dwirandyherdinanto.blogspot.com/2014/03/perulangan-for-do-di-turbo-pascal.html" target="_blank">Perulangan For do di Turbo <span id="goog_2020493901"></span>Pascal</a> karena untuk mencari bilangan genap ganjil dan prima ini saya akan menggunakan perulangan For<br />
<br />
Oke langsung saja yang pertama<br />
<br />
Mencari Bilangan Genap di Turbo Pascal<br />
<br />
<pre class="brush:html">program bil_genap;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);

write('Bilangan Genap Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 0) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.</pre>
<br />
Maka jika dijalankan akan seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDrYRY0ZW2TKzcz-jrj-omVhkKgPyRHtQq0dqHNLTRpznws1dnQb0MuYs8w6AmuivxJOKLfuCr-qDS1Xxh7fMFl9tZdt9SmoZaUwWY1KVcZ6dia9oT5WQN4054su8cyhY9j_9moLaWCX7J/s1600/Mencari+Bilangan+Genap+Ganjil+dan+Prima+di+Turbo+Pascal+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal" border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDrYRY0ZW2TKzcz-jrj-omVhkKgPyRHtQq0dqHNLTRpznws1dnQb0MuYs8w6AmuivxJOKLfuCr-qDS1Xxh7fMFl9tZdt9SmoZaUwWY1KVcZ6dia9oT5WQN4054su8cyhY9j_9moLaWCX7J/s1600/Mencari+Bilangan+Genap+Ganjil+dan+Prima+di+Turbo+Pascal+1.png" title="Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal" width="320" /></a></div>
<blockquote class="tr_bq">
Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 0 maka akan dimunculkan sebagai bilangan genap</blockquote>
<br />
Mencari Bilangan Ganjil di Turbo Pascal<br />
<br />
<pre class="brush:html">program bil_ganjil;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 
 write('Bilangan Ganjil Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 1) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.</pre>
<br />
Maka jika dijalankan akan seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHpxsKUBkoqG_n-ds35E7ie0tUdR6PiZc_xjdj7z-2lMTn2RP0KnwVQZZYvvMc5vkzojPUbzpB5uTQCzZaRGIXaWvdw2ubITlQCHYIMfV5d3gDe6uhWI_2TkELTp824ImE3WtgF_d08U_L/s1600/Mencari+Bilangan+Genap+Ganjil+dan+Prima+di+Turbo+Pascal+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal" border="0" height="214" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhHpxsKUBkoqG_n-ds35E7ie0tUdR6PiZc_xjdj7z-2lMTn2RP0KnwVQZZYvvMc5vkzojPUbzpB5uTQCzZaRGIXaWvdw2ubITlQCHYIMfV5d3gDe6uhWI_2TkELTp824ImE3WtgF_d08U_L/s1600/Mencari+Bilangan+Genap+Ganjil+dan+Prima+di+Turbo+Pascal+2.png" title="Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal" width="320" /></a></div>
<blockquote class="tr_bq">
Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 1 maka akan dimunculkan sebagai bilangan ganjil</blockquote>
<br />
Mencari Bilangan Prima di Turbo Pascal<br />
<br />
<pre class="brush:html">program bil_prima;
uses crt;
var
 bil1,bil2,a,b:integer;
begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Bilangan Pertama : ');
 write('Masukan Bilangan Kedua : ');
 
 write('Bilangan Prima Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  a:=0;
  for b:=1 to bil1 do
  begin
   if (bil1 mod b = 0) then
   begin
    a:=1+1;
   end;
  end;
 if (a=2) then
 begin
  write(bil1,' ');
 end;
 end;

readln;
end.</pre>
<br />
Jika dijalankan maka akan seperti gambar dibawah ini<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5LVnl1ETSUoeBgsR2ZlmBv6gQWwjZdDmxs1pVEtHdhQN_Me7GPDZj3GJLtp_q9YOva6xYtj1SbO9ZPq4GgFbfQZXmV9qLMp5lihyOs5nIP98_NXpLeltQ0Z3ISiIXR0s7F7cA6KThSW8o/s1600/Mencari+Bilangan+Genap+Ganjil+dan+Prima+di+Turbo+Pascal+3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal" border="0" height="213" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5LVnl1ETSUoeBgsR2ZlmBv6gQWwjZdDmxs1pVEtHdhQN_Me7GPDZj3GJLtp_q9YOva6xYtj1SbO9ZPq4GgFbfQZXmV9qLMp5lihyOs5nIP98_NXpLeltQ0Z3ISiIXR0s7F7cA6KThSW8o/s1600/Mencari+Bilangan+Genap+Ganjil+dan+Prima+di+Turbo+Pascal+3.png" title="Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal" width="320" /></a></div>
<br />
Semoga Berhasil<br />
Semoga bermanfaat, jangan lupa berikan komentar pada postingan ini.<br />
<br />

Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Perulangan While do di Turbo Pascal kali ini saya akan memposting tentang Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal Sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal karena u…

02Mar2014

Tutorial Koding

Mengurutkan Data di Listview dengan VB.NET

Write/Read File .ini Dengan VB.NET

Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET

Membuat Combobox Auto Complete Di VB.NET

Membuat Textbox Auto Complete Di VB.NET

Membuat Chained Combobox Dengan VB.NET

Menampilkan Data Ke Combobox Di VB.NET

Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal

Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

Membuat Function di Turbo Pascal

Konversi Suhu Dengan Turbo Pascal

Membuat Procedure di Turbo Pascal

Menggunakan Const di Turbo Pascal

Membuat Kalkulator Dengan Turbo Pascal

Perulangan Repeat Until di Turbo Pascal

Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal

Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal

Popular Posts

Random

Recent Comment