TUTORIAL PROSEDUR TABEL PERPANGKATAN VISUAL BASIC 2010

TUTORIAL APLIKASI OPERATOR PROSEDUR (PROGRAM PERPANGKATAN)

PADA 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.
  2. File > Save All, untuk menyimpan program secara keseluruhan.

Berikut adalah link untuk contoh program prosedur visual basic 2010:

http://www.mediafire.com/?xaw2t53tchclek6

Selamat mencoba

About these ads

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s