TUTORIAL PROSEDUR TABEL PERPANGKATAN VISUAL BASIC 2010

Operator prosedur merupakan sekelompok statement yang terpisah tempatnya dari program utama dan apabila program utama membutuhkan kumpulan statement tersebut tinggal melakukan panggilan nama prosedur. Contoh aplikasinya adalah program untuk menentukan perpangkatan. Dalam program ini untuk memunculkan perpangkatan







Berikut cara membuat Program perpangkatan di atas menggunakan Visual Basic 2010:

1. Buka VB 2010, New Project > Windows Forms Aplication >OK 12.00
   Normal
   0
   false
   false
   false
   IN
   X-NONE
   X-NONE
   /* Style Definitions */
   table.MsoNormalTable
   {mso-style-name:”Table Normal”;
   mso-tstyle-rowband-size:0;
   mso-tstyle-colband-size:0;
   mso-style-noshow:yes;
   mso-style-priority:99;
   mso-style-qformat:yes;
   mso-style-parent:””;
   mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
   mso-para-margin-top:0cm;
   mso-para-margin-right:0cm;
   mso-para-margin-bottom:10.0pt;
   mso-para-margin-left:0cm;
   line-height:115%;
   mso-pagination:widow-orphan;
   font-size:11.0pt;
   font-family:”Calibri”,”sans-serif”;
   mso-ascii-font-family:Calibri;
   mso-ascii-theme-font:minor-latin;
   mso-hansi-font-family:Calibri;
   mso-hansi-theme-font:minor-latin;
   mso-bidi-font-family:”Times New Roman”;
   mso-bidi-theme-font:minor-bidi;
   mso-fareast-language:EN-US;}
   
   2.       Buat desain seperti gambar di bawah ini dengan memasukkan komponen dari toolbox ke dalam form design.
2. 3. ubah nama komponen pada form design dari bagian properties (di pojok kanan bawah VB 2010), yaitu dengan mengubah nama text .

1. Ubah nama komponen pada form design dari bagian properties (di pojok kanan bawah VB 2010), yaitu dengan mengubah nama text .

• Sehingga berubah menjadi seperti ini

1. Masukkan listing untuk komponen Button1, Button2, dan Button3. Caranya tekan F7 lalu masukkan listing berikut:

• Untuk button 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer = 1
Do
Call angka(x)
x = x + 1
Loop Until x = Int(TextBox1.Text)
End Sub

Sub angka(ByVal angka As Integer)
Dim hasil As Integer
hasil = (angka ^ Val(TextBox2.Text))
ListBox1.Items.Add(angka & “pangkat” & Val(TextBox2.Text) & “adalah” & hasil)
End Sub

• Untuk button 2

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub

• Untuk button 3

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = “”
TextBox2.Text = “”
ListBox1.Items.Clear()

Listing secara keseluruhan

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer = 1
Do
Call angka(x)
x = x + 1
Loop Until x = Int(TextBox1.Text)
End Sub


Sub angka(ByVal angka As Integer)
Dim hasil As Integer
hasil = (angka ^ Val(TextBox2.Text))
ListBox1.Items.Add(angka & “pangkat” & Val(TextBox2.Text) & “adalah” & hasil)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = “”
TextBox2.Text = “”
ListBox1.Items.Clear()

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

Maksud dari kode di atas:
Public Class Form1

• Public Class untuk mulai menjelaskan listing code pada Form1.
• Private Sub Button1 untuk menyatakan suatu event yang terjadi apabila Button1 diklik.
• Dim untuk mendeklarasikan variabel x sebagai bentuk bilangan bulat.
• Do untuk memulai melakukan suatu perulangan.
• Call untuk memanggil prosedur dengan nama ulang_cetak untuk variabel x, dan x selanjutnya adalah x + 1.
• Loop Until untuk melakukan perulangan sampai dengan nilai x >= dari bilangan bulat pada TextBox1.
• End Sub (pertama) untuk mengakhiri suatu event.
• Sub untuk memulai mendefinisikan prosedur
• If untuk memulai fungsi If.
• End If untuk mengakhiri fungsi If.
• End Sub (kedua) untuk mengakhiri pendefinisian prodedur ulang_cetak.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub

• Private Sub Button2 untuk menyatakan suatu event yang terjadi apabila Button2 diklik.
• Close sebagai listing untuk membuat perintah menutup aplikasi.
• End Sub untuk mengakhiri event.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.ResetText()
ListBox1.Items.Clear()
End Sub
End Class

• Private Sub Button3 untuk menyatakan suatu event yang terjadi apabila Button3 diklik.
• End Sub untuk mengakhiri event.
• End Class untuk mengakhiri listing pada Form1.

1. Tekan F5 untuk menjalankan Program perpangkatan. Jika terjadi error, mungkin ada kesalahan dalam memasukkan listing code. Jadi teliti kembali listingnya.

Selamat Mencoba sahabat Jie Two