TUTORIAL CARA MEMBUAT PERULANGAN SEDERHANA PADA VISUAL BASIC 2010

24 Nov

Visual Basic 2010 biasa digunakan para programmer untuk membuat suatu aplikasi yang dapat memudahkan untuk memecahkan suatu masalah. Dan kali ini kami akan membahas cara-cara membuat perulangan sederhana dengan menggunakan Visual Basic 2010.

  1. Buka VB 2010 >> New Project >> Windows Forms Application >> OK.
  2. Buat desain seperti gambar dengan memasukkan komponen dari toolbox ke dalam form design.

3. Ubah nama komponen yang telah dibuat dari bagian properties (di kotak yang ada di pinggir kanan)

Toolbox Component

Nama

Label1

Jumlah Perulangan

Button1

Proses

Button2

Keluar

4. Klik 2 kali pada form, lalu masukkan listing code untuk masing-masing komponen, yaitu komponen Button, TextBox dan button. Berikut listing codenya:

  • Form1

Public Class Form1

  • Button1

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

Dim x As Byte = 1

Do

Call ukuran_kamar(x)

x = x + 1

Loop Until x > Int(TextBox1.Text)

End Sub

Sub ukuran_kamar(ByVal ukuran As Integer)

If ukuran <= 5 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Small Biasa “)

ElseIf ukuran <= 5 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Small Spesial “)

ElseIf ukuran <= 10 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Medium Biasa “)

ElseIf ukuran <= 10 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Medium Spesial “)

ElseIf ukuran <= 15 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Large Biasa “)

ElseIf ukuran <= 15 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Large Spesial “)

ElseIf ukuran <= 20 And ukuran Mod 2 = 0 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Xtra Large Biasa “)

ElseIf ukuran <= 20 And ukuran Mod 2 = 1 Then

ListBox1.Items.Add(” Kamar ” & ukuran & ” Xtra Large Spesial “)

ElseIf ukuran > 20 Then

MsgBox(“Kamar Tidak ada “)

End If

End Sub

  • Button2

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

If MsgBox(“Keluar ya”) Then

Close()

End If

End Sub

End Class

5. Berikut ini adalah bentuk akhir dari prosedur sederhana yang telah dibuat:

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

%d bloggers like this: