This awesome blogger theme comes under a Creative Commons license. They are free of charge to use as a theme for your blog and you can make changes to the templates to suit your needs.
RSS

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

1 komentar:

Unknown mengatakan...

pas masukin script yg form ny kok eroor yah??

Posting Komentar