Membuat Program Perhitungan Biaya Sewa Kamar Hotel

Diposting oleh Dhamar Arif Rahman | Label: , | Posted On Sabtu, 15 Oktober 2011 at 00.15




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 As System.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 As System.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 e As 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 As System.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 As System.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

Indonesia Borderline With Malaysia

Diposting oleh Dhamar Arif Rahman | Label: | Posted On Jumat, 14 Oktober 2011 at 19.57


Jakarta - Kunjungan kerja, Komisi I DPR menemukan Malaysia telah mencaplok wilayah RI di Camar Bulan dan di Tanjung Datu, Kalimantan Barat. Pencaplokan tersebut diduga karena batas wilayah yang tidak jelas antara kedua negara.

Menurut anggota Komisi I DPR Roy Suryo, Indonesia banyak wilayah di perbatasan yang tidak jelas batasnya dengan negara lain.

"Banyak batas wilayah kita dengan negara tetangga yang belum jelas. Ini yang sebenarnya mengkhawatirkan kita semua," ujar Roy saat berbincang dengan detikcom, minggu (9/10/2011).

Menurutnya perbatasan antara Indonesia dengan malaysia di Kalimantan Barat, khususnya di wilayah Camar Bulan dan di Tanjung Datu termasuk yang tidak jelas. Oleh karena itu, Komisi I DPR akan segera mencari data terkait perbatasan tersebut.

"Kita ingin pastikan dulu apakah batas sudah jelas atau belum di wilayah itu. Kita sedang meneliti traktat atau perjanjian mana yang digunakan dan sepakati kedua pihak untuk menentukan batas negara," terangnya.

Dalam waktu dekat, Komisi I akan memanggil Menteri Luar Negeri Marty Natalegawa untuk menjelaskan sengketa perbatasan di Kalimantan Barat ini.

"Kita akan mengadakan rapat internal dulu untuk memanggil Menlu. Yang jelas kalau memang itu milik kita, kita tidak boleh mundur sejengkal pun," imbuh politisi Demokrat ini.

Seperti diberitakan, dari hasil kunjungan kerja, Komisi I DPR menemukan Malaysia telah mencaplok wilayah RI di Kalimantan Barat. Di Camar Bulan, tanah RI hilang 1.400 Ha dan di Tanjung Datu pantai RI hilang 80.000 meter persegi.

Direktur Jenderal Hukum dan Perjanjian Internasional Kementerian Luar Negeri (Kemlu), Linggawati Hakim mengatakan, wilayah perbatasan laut RI-Malaysia di Tanjung Datu, Kalimantan Barat, memang belum jelas. Di bagian Laut Cina Selatan itu, antara RI-Malaysia baru ada perjanjian Landas Kontinen 1969. Belum ada perjanjian Laut Wilayah dan Zona Ekonomi Eksklusif (ZEE). Perundingan dengan Malaysia soal Laut Wilayah dan ZEE di Tanjung Datu baru akan dilaksanakan 16-18 Oktober mendatang.

(her/asp) 

Indonesia, is a large country. With land area about 1.919.440 km2  and sea area 3.257.483 km2 made Indonesia to be one of the largest country in the world. Remembering our country is one of the largest country in the world, Indonesia should firmly say where is the restriction of his nation. Diplomation is the only way, to tell the world where is Indonesia borderline. We need great diplomat's, who persistent to protect every inch of this country. i don’t agree with people opinion, who always want to make a war with our neighbour country, as long this problem can be discusses, why we need to war ? remember this, we are not barbarian who always resolve the problem with war. We are one clump with Malaysia, and majority people in Malaysia are muslim too, what happens if muslim make war with another muslim ? Remember this, every muslim in every country is brother.


I hope indonesia people could optimize the satellite technology , to oversee their area. just like the US do.
source : detik.com

Nutshell Review || Tucker And Dale vs Evil

Diposting oleh Dhamar Arif Rahman | Label: | Posted On Sabtu, 08 Oktober 2011 at 22.28


Nutshell review

Tucker And Dale vs Evil


Tidak banyak memang film, komedi horror yang dapat membuat saya tertawa, bahkan Zombieland yang booming baru-baru ini, hanya dapat membuat saya “nyengir”. Bagi saya sendiri, Zombieland masih jauh dari kata bagus, ketimbang film dengan genre yang sama yaitu Shaun of The Dead.

Oke kembali ke film ini, TuckerAnd Dale vs Evil adalah salah satu contoh film indie yang sukses dengan promosi dari mulut ke mulut, bahkan produksi film ini tanpa didukung oleh rumah produksi, dan iklan, seperti yang tertulis di Official Facebook mereka.







 Ini membuktikan, bahwa film yang bagus, tidak perlu sampai merogoh kocek yang terlalu dalam.
Alkisah, Tucker (Alan Tudyck) dan Dale (Tyler Labine) baru saja membeli rumah disebuah gunung untuk liburan mereka berdua. Namun, segala kesalah pahaman yang menjadi tema di film ini berawal, ketika mobil mereka berdua, berpapasan dengan mobil dari 9 orang anak muda yang sedang berlibur di tempat yang sama. Muda-mudi yang curigaan ini, langsung men-cap kalau Tucker dan Dale adalah orang jahat, bagaimana tidak ketika berpapasan Tucker dan Dale melihat mereka dengan sangat sinis. 




Mereka pun bertemu kembali di tempat pengisian bahan bakar, segalanya berubah makin memburuk ketika Dale mencoba mendekati Allison (Katrina Bowden), dale yang gugup ketika itu, mendekati Allison dengan celurit besar ditangannya, sontak saja Chad (Jesse Moss) langsung bertindak sok jagoan dengan menakut-nakuti Dale untuk segera menjauh dari Allison.





Disini Tyler dan Alan, berperan sebagai  “Hillbilly” yang yang baik hati, kampungan, dan lugu, jauh dari kesan hillbilly yang digambarkan film-film Hollywood kebanyakan, yang menempatkan hillbilly di posisi sebagai Psycho berdarah dingin. Namun kebalikan justru terjadi pada muda-mudi dari perkotaan ini, yang termakan oleh pikiran negatif mereka akan masyarakat pegunungan yang “jahat”. Ditambah lagi dengan aksi Chad yang “lebay”  dalam menceritakan kejadian yang menimpa orang tuanya, dan pada akhirnya SPOILER Chad sendiri adalah anak gunung.



Tampaknya film ini sangat sesuai dengan sebuah peribahasa  “don’t judge a book by its cover”, karena banyak yang menganggap remeh dengan film indie ini. Hal ini kemudian dipatahkan, dengan review positif dari para kritikus film, baik dari IMDB, memberikan bintang 7.6 dari 10 dan Rotten Tomatoes 86% dari 100%. Dengan segala kesalah pahaman yang konyol, dan dibalut dengan kesadisannya, maka film ini mampu membuat anda tertawa disaat anda seharusnya tidak tertawa, dengan bagaimana para mahasiswa ini mati satu persatu akibat kesalah pahaman yang konyol dan sebenarnya bisa diselesaikan dengan kepala dingin.


 Ini adalah debut yang indah, bagi Eli Craig, mengingat ini adalah film pertama  dimana ia bertindak sebagai sutradara. Menurut saya pribadi, film ini sudah melebihi apa yang diharapkan oleh pecinta horror komedi, dengan Eli Craig dan Morgan Jurgenson yang menulis cerita untuk film yang unik  dan berbeda bagi ukuran film-film slasher dan tampil dengan penuh adegan konyol sekaligus sadis, yang akan membuat anda terpingkal-terpingkal.