analisis program prosedur ukuran kamar kelompok 19

24 Nov

Public Class Form1

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

(button1 mendeklarasikan peubah x sebagai byte dengan nilai 1. Button1 merupakan button yang akan mengulang prosedur yang dipanggil sebanyak x yang diinginkan user untuk diulang).

    Sub ukuran_kamar(ByVal ukuran As Integer)

(prosedur ukuran kamar memiliki peubah ukuran dengan tipe data integer.)

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

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

(jika ukuran kurang dari atau sama dengan 5 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Small Biasa”).

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

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

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 5 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Small Spesial”).

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

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

(jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Biasa”).

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

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

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Spesial”).

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

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

(jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Biasa”).

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

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

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Spesial”).

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

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

(jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 =0 bernilai TRUE, maka ListBox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Biasa”).

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

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

(jika tidak memenuhi kondisi di atas, maka jika ukuran kurang dari atau sama dengan 10 AND ukuran mod 2 = 1 bernilai TRUE maka Listbox1 akan diisi dengan kalimat “Kamar (ukuran) Medium Spesial”).

        ElseIf ukuran > 20 Then

MsgBox(“Kamar Tidak ada “)

End If

End Sub

(jika tidak memenuhi kondisi di atas, maka jika ukuran lebih dari 20 akan muncul message box “kamar Tidak ada”).

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

If MsgBox(“Keluar ya”) Then

Close()

End If

End Sub

End Class

(button2 merupakan button yang apabila diklik akan memunculkan message box “keluar dulu ya” kemudian menutup program yang ada).

 

 

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: