Belajar Ngoding bersama Catatan Koe ...: Membuat Program “Tampil Karakter” Menggunakan “Procedure” pada Microsoft Visual Studio 2010

1. Buka aplikasi Microsoft Visual Studio 2010 anda, kemudian klik “New Project” untuk memulai pekerjaan baru !

2. Kemudian akan muncul sebuah perintah untuk memasukkan “Name : (nama program yang akan kita buat), location : (didrive/folder mana akan diletakkan pekerjaan), dan Solution name : (samakan dgn name)”. Setelah itu klik “Oke” !

3. Kemudian akan muncul form baru, form berfungsi sebagai penempatan komponen yang akan kita gunakan seperti textbox, radiobutton, dll. Disebelah kiri form ada toolbox, kita bisa mencari komponen yang dibutuhkan disana.

4. Letakkan 3 buah komponen textbox, 4 buah komponen button, dan 3 buah komponen label, jika ingin lebih rapi tambahkan juga groupbox pada form [design].

5. Kemudian tambahkan kontrol ke form dan atur propertiesnya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Form Tampil Karakter
Label1	Text	Karakter yang ingin ditampilkan (misal : * atau #)
Label2	Text	Jumlah baris karakter yang ingin ditampilkan
Label3	Text	Tampilan dalam bentuk :
Button1	Name Text Backcolor	Button1 SEGITIGA System > AppWorkspace
Button2	Name Text Backcolor	Button2 PERSEGI System > AppWorkspace
Button3	Name Text Backcolor	Button3 SEGITIGA TERBALIK System > AppWorkspace
Button3	Name Text Backcolor	Button3 CLOSE System > AppWorkspace
Textbox1	Name	Textbox1
Textbox2	Name	Textbox2
Textbox3	Name Textbox Tasks ScrollBars	Textbox3 Multiline Vertical
Groupbox1	Text	Input
Groupbox2	Text	Output

6. Klik ganda pada button1 [SEGITIGA], kemudian anda akan dibawa ke tempat orek-orek coding Hee.. Coding udah saya siapkan, tinggal copas aja klo teman-teman males ngetik (hati-hati kalo copas, jangan sampai salah penempatan)!

Diatas code Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click buatlah function segitiga, persegi, dan segitiga terbalik seperti dibawah ini :

Public Class Form

Sub segitiga(ByVal a As String, ByVal b As Integer)

Dim i, j As Integer

Dim hasil As String

hasil = ""

For i = 1 To b

For j = 1 To i

hasil = hasil + a

hasil = hasil + vbCrLf

TextBox3.Text = TextBox3.Text + hasil

End Sub

Sub kotak(ByVal a As String, ByVal b As Integer)

Dim i, j As Integer

Dim hasil As String

hasil = ""

For i = 1 To b

For j = 1 To b

hasil = hasil + a

hasil = hasil + vbCrLf

TextBox3.Text = TextBox3.Text + hasil

End Sub

Sub terbalik(ByVal a As String, ByVal b As Integer)

Dim i, j As Integer

Dim hasil As String

hasil = ""

For i = 1 To b

For j = b To i Step -1

hasil = hasil + a

hasil = hasil + vbCrLf

TextBox3.Text = TextBox3.Text + hasil

End Sub

7. Setelah membuat function, sekarang kita panggil function tersebut dengan menuliskan code :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

segitiga(TextBox1.Text, TextBox2.Text)

End Sub

---Code ini merupakan pemanggil procedure segitiga---

8. Klik ganda pada button “PERSEGI” kemudian masukkan code:

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

kotak(TextBox1.Text, TextBox2.Text)

End Sub

---Code ini merupakan pemanggil procedure kotak (persegi)---

9. Klik ganda pada button “SEGITIGA TERBALIK” kemudian masukkan code:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

terbalik(TextBox1.Text, TextBox2.Text)

End Sub

---Code ini merupakan pemanggil procedure segitiga terbalik---

10. Klik ganda pada button “CLOSE” kemudian masukkan code:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Close()

End Sub

End Class

11. Setelah semua seperti contoh diatas, coba dijalankan programnya !

12. Pada textbox1 silakan masukkan karakter yang ingin ditampilkan misalnya : * atau #. Ditextbox2 isikan jumlah baris yang anda mau, misalnya anda ingin 10 baris maka ketik angka 10 pada texbox2. Selanjutnya tekan salah satu komponen button “SEGITIGA/PERSEGI/SEGITGA TERBALIK”. Jika semua sesuai seperti contoh diatas, maka hasilnya akan tampil pada textbox3 seperti gambar dibawah ini !