Membuat program sederhana menggunakan VB 2008

Membuat program sederhana menggunakan VB 2008

Bagi anda yang sudah expert di dunia pemrograman, pasti sudah sangat mengenal Visual Basic 2008, pemrograman berbasis object ini, adalah salah satu bahasa pemrograman yang paling diminati oleh programmer expert, atau programmer newbie seperti saya. Visual Basic adalah bahasa pemrograman keluaran Microsoft Corp , relative mudah dipelajari untuk mereka yang baru mengenal bahasa pemrograman .

Kali ini saya akan berbagi ilmu mengenai VB 2008, yaitu bagaiman membuat program perhitungan biaya hotel J

1.       Yang pertama kali anda lakukan adalah klik shortcut VB 2008.

2.       Lalu setelah muncul, program VB 2008, pilih “New Project”

3.        

Pilih windows forms application, dan klik OK

4.       Anda akan dibawa menuju form, dimana anda bisa mendesain user interface dari program anda

Atur desain form anda sesuai dengan gambar diatas, disini saya menggunakan

·         2 buah groupbox

·         6 buah label

·         5 buah textbox

·         2 buah button

·         Dan 1 buah timer

6.       Lalu rubah properties dari object diatas,

·         groupbox1; text = Hotel ,

·         groupbox2; text = Command,

·         label1; text = Lama Menginap

·         label2; text =  Harga Sewa Perhari

·         label3; text = Biaya Sewa Kamar

·         label4; text = Jumlah Bayar

·         label5; text = kembali

·         label6; name = lblCreated, text = Created By : (isi terserah anda) , Font : Monotype Corsiva, 16pt, style=Italic

·         textbox1 ; name = txtLama

·         textbox2; name = txtHarga

·         textbox3; name = txtBiaya

·         textbox4; name = txtBayar

·         textbox5; name = txtKembali

·         button1; text = New, name = btnNew

·         button2; text = Close, name = btnClose

7.       Tampilan dari form tadi akan berubah menjadi seperti gambar dibawah ini

                

8.       Klik pada form, dan ketikkan koding berikut

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'HotelDataSet.Hotel' table. You can move, or remove it, as needed.

        Me.HotelTableAdapter.Fill(Me.HotelDataSet.Hotel)

        Me.Text = "Menghitung Biaya Sewa Kamar Sebuah Hotel"

        Me.StartPosition = FormStartPosition.CenterScreen

        Me.txtBiaya.Enabled = False

        Me.txtKembali.Enabled = False

    End Sub

9.       Lalu, klik pada txtHarga, dan ketikkan koding berikut

Private Sub Harga_sewa_perhariTextBox_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles txtHarga.TextChanged

        Dim lama, harga, biaya, bayar, kembali As New Long

        lama = Val(Me.txtLama.Text)

        harga = Val(Me.txtHarga.Text)

        biaya = Val(Me.txtBiaya.Text)

        bayar = Val(Me.txtBayar.Text)

        kembali = Val(Me.txtKembali.Text)

        biaya = lama * harga

        kembali = bayar - biaya

        Me.txtBiaya.Text = Format(biaya, "RP###,###")

        Me.txtKembali.Text = Format(kembali, "RP###,###")

    End Sub

10.   Setelah itu klik dua kali pada txtBayar, dan masukkan koding berikut

               Private Sub txtBayar_TextChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles txtBayar.TextChanged

        Dim lama, harga, biaya, bayar, kembali As New Long

        lama = Val(Me.txtLama.Text)

        harga = Val(Me.txtHarga.Text)

        biaya = Val(Me.txtBiaya.Text)

        bayar = Val(Me.txtBayar.Text)

        kembali = Val(Me.txtKembali.Text)

        biaya = lama * harga

        kembali = bayar - biaya

        Me.txtBiaya.Text = Format(biaya, "RP###,###")

        Me.txtKembali.Text = Format(kembali, "RP###,###")

    End Sub

11.   Lalu, pada btnNew masukkan koding berikut

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

Dim answer = MsgBox("Apakah anda ingin memasukkan input baru, dan menghapus data yang baru di input ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

        Me.txtBayar.Clear()

        Me.txtBiaya.Clear()

        Me.txtHarga.Clear()

        Me.txtKembali.Clear()

        Me.txtLama.Clear()

End if

    End Sub

End Class

12.   Pada btnClose masukkan koding berikut

Dim answer = MsgBox("Apakah anda ingin keluar ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

            End

        End If

13.   Dan terakhir pada timer1, masukkan koding berikut

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick

        If Me.lblCreated.Visible = True Then

            Me.lblCreated.Visible = False

        Else

            Me.lblCreated.Visible = True

        End If

    End Sub

Save dan, coba anda run. Selamat anda sudah berhasil membuat program penghitungan biaya sewa kamar !!! :D


Sumber

Diposting oleh Heni Juwita Dewi di 08.43