PROGRAM HOTEL

PROGRAM HOTEL

Variabel:

·         Nama pengunjung

·         Nomor kamar

·         Check in for

·         Hours or days

·         New guest

·         Check in

·         Exit

·         Harga

Listing:

1.      Nama pengunjung

Textbox yang berisi nama pengunjung hotel.

2.      Nomor kamar

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

        Dim i As Integer = TextBox1.SelectionStart

        TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.ProperCase)

        TextBox1.SelectionStart = i

        kelas = Microsoft.VisualBasic.Left(TextBox1.Text, 1)

        tower = Microsoft.VisualBasic.Mid(TextBox1.Text, 2, 1)

        lantai = Microsoft.VisualBasic.Mid(TextBox1.Text, 3, 1)

        ruang = Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)

        If kelas = "A" Then

            PictureBox2.Visible = True

            Label6.Text = "Suite"

        ElseIf kelas = "B" Then

            PictureBox5.Visible = True

            Label6.Text = "Executive"

        ElseIf kelas = "C" Then

            PictureBox6.Visible = True

            Label6.Text = "Deluxe"

        ElseIf kelas = "D" Then

            PictureBox7.Visible = True

            Label6.Text = "Meeting Room"

        End If

        If tower = "1" Then

            PictureBox1.Visible = True

            Label7.Text = "Tower 1"

        ElseIf tower = "2" Then

            PictureBox3.Visible = True

            Label7.Text = "Tower 2"

        ElseIf tower = "3" Then

            PictureBox4.Visible = True

            Label7.Text = "Tower 3"

        End If

        If lantai = "1" Then

            Label8.Text = "1"

        ElseIf lantai = "2" Then

            Label8.Text = "2"

        ElseIf lantai = "3" Then

            Label8.Text = "3"

        ElseIf lantai = "4" Then

            Label8.Text = "4"

        ElseIf lantai = "5" Then

            Label8.Text = "5"

        ElseIf lantai = "6" Then

            Label8.Text = "6"

        ElseIf lantai = "7" Then

            Label8.Text = "7"

        ElseIf lantai = "8" Then

            Label8.Text = "8"

        ElseIf lantai = "9" Then

            Label8.Text = "9"

        End If

        Label12.Text = ruang

        If TextBox1.Text = "" Then

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox7.Visible = False

            PictureBox6.Visible = False

            Label6.Text = ""

            Label7.Text = ""

            Label8.Text = ""

            Label12.Text = ""

        End If

        If kelas = "A" Then

            Label14.Text = "1200000"

        ElseIf kelas = "B" Then

            Label14.Text = "1000000"

        ElseIf kelas = "C" Then

            Label14.Text = "800000"

        ElseIf kelas = "D" Then

            Label14.Text = "750000"

        End If

    End Sub

Digunakan untuk masukkan nomor kamar yang selanjutnya keluar output berupa keterangan kelas, harga, tower, lantai, dan gambar kamar dan gedung.

3.      Check in for

Textbox yang berisi lamanya hari atau jam menginap.

4.      Hours or days

Combobox yang berisi pilihan penyewaan ruangan  hari atau jam

5.      Chek in

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

        Me.Hide()

        Form2.Show()

        Dim NAMA As String = TextBox3.Text

        Dim ROOM_NUMBER As String = TextBox1.Text

        Dim KELAS As String = Label6.Text

        Dim TOWER As String = Label7.Text

        Dim FLOOR As String = Label8.Text

        Dim NUMBER As String = Label12.Text

        Dim HARGA As String = Label14.Text

        Dim CHECKIN As String = TextBox2.Text

        Dim KETERANGAN As String = ComboBox1.SelectedItem

        Form2.DataGridView1.Rows.Add(NAMA, ROOM_NUMBER, KELAS, TOWER, FLOOR, NUMBER, HARGA, CHECKIN, KETERANGAN)

    End Sub

Digunakan untuk menghentikan proses penyimpanan data dari hasil input form 1 ke data grid pada form Hasil Acak Angka

6.      New Guest

    Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click

        TextBox1.Text = ""

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox7.Visible = False

        PictureBox6.Visible = False

        Label6.Text = ""

        Label7.Text = ""

        Label8.Text = ""

        Label12.Text = ""

        Label14.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = ""

    End Sub

Digunakan bila ada pengunjung lainnya.

7.      Exit

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

        End

    End Sub

Digunakan untuk mengakhiri program hotel.

FLOWCHART PROGRAM HOTEL

Read More

PROGRAM GAME YOUR LUCKY NUMBER

PROGRAM GAME YOUR LUCKY NUMBER

Variabel:

·         Modal Awal

·         Masuk Form Permainan

·         Bet

·         Start

·         Stop

·         Hasil Acak angka

·         Uang yang diperoleh

·         New Game

·         Keluar

Listing:

1.      Modal awal

Textbox yang berisi uang modal awal untuk melakukan permainan.

2.      Masuk Form Permainan

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

If TextBox1.Text = Nothing Then

MsgBox("PUT YOUR MONEY PLEASE !!")

Else

Form1.Show()

Me.Hide()

End If

End Sub

End Class

Digunakan untuk masuk ke form selanjutnya untuk memulai permainan. Jika Textbox 1 belum terisi modal awal maka akan muncul message box “Put Your Money Please !!”.

3.      Bet

Textbox yang berisi uang taruhan yang akan digunakan dalam game acak angka.

4.      Start

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

 If TextBox1.Text = Nothing Then

MsgBox("PUT YOUR BET PLEASE")

Else

Button2.Visible = True

Button4.Visible = True

Timer1.Enabled = True

Label1.Text = ""

Label2.Text = ""

Label3.Text = "”

End If

End Sub

Digunakan untuk memulai game acak angka. Jika Textbox 1 tidak terisi maka akan muncul message box “Put Your Bet Pet”.

5.      Stop

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

        Timer1.Enabled = False

        Label5.Text = Label1.Text & Label2.Text & Label3.Text

        If Label5.Text = 123 Then

            MsgBox("CONGRATULATION")

            hadiah = 10 * Val(Form4.TextBox1.Text)

            Label7.Text = Val(Label7.Text) + hadiah

Else

            MsgBox("TRY AGAIN")

            Label7.Text = Val(Label7.Text) - Val(TextBox1.Text)

        End If

        If (Val(Label7.Text) - Val(TextBox1.Text)) < 0 Then

            Label7.Text = ""

            MsgBox("SORRY YOUR MONEY IS NOT ENOUGH")

            Button1.Visible = False

        End If

        End Sub

Digunakan untuk menghentikan proses acak angka yang dilakukan sehingga keluar output berupa tiga digit angka, apabila tiga digit angka yang keluar merupakan rangkaian angka 123, 456, 111, 222, atau 777 maka akan muncul message box “Congratulation” tetapi jika tiga digit angka yang keluar tidak termasuk dalam lima rangkaian tersebut maka akan muncul message box “Try Again”. Jika uang yang diperoleh kurang atau sama dengan 0 maka akan muncul message box “Sorry Your Money is Not Enough”.

6.      Hasil Acak Angka

Merupakan output dari game acak angka yang berupa tiga digit angka.

7.      Uang yang diperoleh

Label7.Text = Val(Label7.Text) + hadiah

Label7.Text = Val(Label7.Text) - Val(TextBox1.Text)

If (Val(Label7.Text) - Val(TextBox1.Text)) < 0 Then

Label7.Text = ""

MsgBox("SORRY YOUR MONEY IS NOT ENOUGH")

Label7.Text = Val(Form4.TextBox1.Text)

Merupakan uang yang didapat setelah mengisi uang taruhan dalam game acak angka. Angka bias berkurang atau bertambah tergantung dari output game acak angka.

8.      New Game

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

Button2.Visible = False

Button4.Visible = False

Label1.Text = ""

Label2.Text = ""

Label3.Text = ""

Label5.Text = ""

Timer1.Enabled = False

TextBox1.Text = ""

Form4.Show()

 Me.Hide()

Form4.TextBox1.Text = ""

End Sub

Digunakan untuk memulai permainan baru lagi.

9.      Keluar

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

End

End Sub

Digunakan untuk mengakhiri program game acak angka.

FLOWCHART PROGRAM GAME YOUR LUCKY NUMBER

Read More

PROGRAM PENERAPAN PROCEDURE DAN FUNCTION

PROGRAM PENERAPAN PROCEDURE DAN FUNCTION

Variabel:

·         Panjang

·         Lebar

·         Luas

·         Keliling

·         Preview

·         Kembalikan

·         Hitung

·         Refresh

·         Keluar

Listing:

1.      Panjang

PictureBox1.Width = TextBox1.Text

Dapat diisikan berapa panjang yang diinginkan.

2.      Lebar

PictureBox1.Height = TextBox2.Text

Dapat diisikan berapa lebar yang diinginkan.

3.      Luas

'sintax Function

Function luas(ByVal panjang, ByVal lebar)

luas = (panjang * lebar)

End Function

Luas merupakan hasil dari perhitungan dari rumus luas persegi panjang setelah panjang dan lebar terisi.

4.      Keliling

Function keliling(ByVal panjang, ByVal lebar)

keliling = (2 * panjang + 2 * lebar)

End Function

Keliling merupakan hasil perhitungan dari rumus keliling persegi panjang setelah panjang dan lebar terisi.

5. Preview

Sub preview()

PictureBox1.Width = TextBox1.Text

PictureBox1.Height = TextBox2.Text

End Sub

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

Call preview()

End Sub

Setelah mengklik button Preview maka akan muncul gambar persegi panjang yang sesuai keinginan pengguna baik lebar maupun panjangnya sesuai dengan yang diisikan.

6. Kembalikan

Sub kembalikan()

PictureBox1.Height = 50

PictureBox1.Width = 100

End Sub

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

       Call kembalikan()

       End Sub

End Class

Setelah mengklik button Kembalikan maka gambar persegi panjang akan kembali seperti awal semula.

7. Hitung

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

TextBox3.Text = luas(TextBox1.Text, TextBox2.Text)

TextBox4.Text = keliling(TextBox1.Text, TextBox2.Text)

End Sub

Hitung merupakan output perhitungan dari luas dan keliling persegi panjang.

8. Refresh

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

       Call bersih()

End Sub

Refresh digunakan untuk pengguna yang ingin menggunakan lagi program penerapan procedure dan fuction.

9. Keluar

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

Close()

End Sub

Tombol tersebut digunakan untuk mengakhiri program penerapan procedure dan function.

 FLOWCHART PROGRAM PROCEDURE AND FUNCTION

Read More