Tugas Pemrograman Visual 3

Soal 1

Memodifikasi program if dan case pada tugas 2

Kali ini terdapat fitur tambahan, yaitu tombol Isi Data. Dimana saat program dijalankan seluruh fungsi kontrol tidak aktif kecuali tombol Isi Data dan Tutup. Dan apa bila tombol Isi Data di tekan, seluruh fungsi program aktif kecuali tombol Isi Data.

dan ini Codingnya ;


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            Control.Enabled = False
                btisidata.Enabled = True
                bttutup.Enabled = True
          
        Next
        cmbkode.Items.Add("SPT")
        cmbkode.Items.Add("SND")
        cmbkode.Items.Add("TST")
        cmbkode.Items.Add("TOP")
        cmbkode.Items.Add("TAS")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

        Dim kdbarang, namabarang As String
        Dim harga As Single


        kdbarang = cmbkode.Text


        Select Case kdbarang
            Case "SPT"
                namabarang = "Sepatu"
                harga = 200000
            Case "SND"
                namabarang = "Sandal"
                harga = 100000
            Case "TST"
                namabarang = "T-Shirt"
                harga = 150000
            Case "TOP"
                namabarang = "Topi"
                harga = 500000
            Case "TAS"
                namabarang = "Tas"
                harga = 130000
            Case Else
                namabarang = "-"
                harga = 0
        End Select

        txtnama.Text = namabarang
        txtharga.Text = harga



    End Sub

    Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

        txttotalharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
        txtbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub tunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunai.CheckedChanged
        txtdiskon.Text = Val(txttotalharga.Text) * 10 / 100
        txtbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub kredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kredit.CheckedChanged
        txtdiskon.Text = 0
        txtbayar.Text = Val(txttotalharga.Text) - Val(txtdiskon.Text)


    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        txtbayar.Clear()
        txtharga.Clear()
        txtdiskon.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotalharga.Clear()
        Me.tunai.Checked = False
        Me.kredit.Checked = False
        cmbkode.Text = ""
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            Control.Enabled = False
            btisidata.Enabled = True
            bttutup.Enabled = True
        Next

    End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        If MsgBox("Anda yakin akan keluar?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then Me.Close()
    End Sub

    Private Sub txtharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtharga.TextChanged
        txttotalharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)


    End Sub

    Private Sub ttlharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotalharga.TextChanged
        txttotalharga.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisidata.Click
        Dim Control As Windows.Forms.Control
        For Each Control In Me.Controls
            Control.Enabled = True
        Next
        For Each Control In Me.Controls
            btisidata.Enabled = False
        Next

    End Sub
End Class

Selesai dah....

Lanjut ke Soal 2 Puzzle sederhana

Tujuannya membuat Puzzle sederhana yang saat di jalankan puzzle sudah teracak, dan saat semua puzzle tersusun dengan benar, keluar pesan Congratulation Bro ^_^ .

Langkah-langkahnya adalah  buat design pada form seperti ini

Lalu isikan Codingnya seperti di bawah ini

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim acak As Integer
        acak = Rnd() * 10
        bt1.Text = acak
        bt2.Text = acak - 2
        bt3.Text = acak - 5
        bt4.Text = acak - 3
        bt5.Text = acak + 1
        bt6.Text = acak - 1
        bt7.Text = acak - 6
        bt8.Text = acak - 4
    End Sub

    Private Sub pesan()
        If bt1.Text = "1" And bt2.Text = "2" And bt3.Text = "3" And bt4.Text = "4" And bt5.Text = "5" And _
            bt6.Text = "6" And bt7.Text = "7" And bt8.Text = "8" Then
            MsgBox("Congratulation Bro ^_^")
        End If
    End Sub

    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
        If bt4.Visible = False Then
            bt1.Visible = False
            bt4.Visible = True
            bt4.Text = bt1.Text
        ElseIf bt2.Visible = False Then
            bt1.Visible = False
            bt2.Visible = True
            bt2.Text = bt1.Text
        End If
        pesan()

    End Sub

    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click
        If bt1.Visible = False Then
            bt2.Visible = False
            bt1.Visible = True
            bt1.Text = bt2.Text
        ElseIf bt5.Visible = False Then
            bt2.Visible = False
            bt5.Visible = True
            bt5.Text = bt2.Text
        ElseIf bt3.Visible = False Then
            bt2.Visible = False
            bt3.Visible = True
            bt3.Text = bt2.Text
        End If
        pesan()

    End Sub

    Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click
        If bt6.Visible = False Then
            bt3.Visible = False
            bt6.Visible = True
            bt6.Text = bt3.Text
        ElseIf bt2.Visible = False Then
            bt3.Visible = False
            bt2.Visible = True
            bt2.Text = bt3.Text
        End If
        pesan()

    End Sub

    Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click
        If bt1.Visible = False Then
            bt4.Visible = False
            bt1.Visible = True
            bt1.Text = bt4.Text
        ElseIf bt7.Visible = False Then
            bt4.Visible = False
            bt7.Visible = True
            bt7.Text = bt4.Text
        ElseIf bt5.Visible = False Then
            bt4.Visible = False
            bt5.Visible = True
            bt5.Text = bt4.Text
        End If
        pesan()

    End Sub

    Private Sub bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click
        If bt2.Visible = False Then
            bt5.Visible = False
            bt2.Visible = True
            bt2.Text = bt5.Text
        ElseIf bt4.Visible = False Then
            bt5.Visible = False
            bt4.Visible = True
            bt4.Text = bt5.Text
        ElseIf bt6.Visible = False Then
            bt5.Visible = False
            bt6.Visible = True
            bt6.Text = bt5.Text
        ElseIf bt8.Visible = False Then
            bt5.Visible = False
            bt8.Visible = True
            bt8.Text = bt5.Text
        End If
        pesan()

    End Sub

    Private Sub bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click
        If bt3.Visible = False Then
            bt6.Visible = False
            bt3.Visible = True
            bt3.Text = bt6.Text
        ElseIf bt.Visible = False Then
            bt6.Visible = False
            bt.Visible = True
            bt.Text = bt6.Text
        ElseIf bt5.Visible = False Then
            bt6.Visible = False
            bt5.Visible = True
            bt5.Text = bt6.Text
        End If
        pesan()

    End Sub

    Private Sub bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt7.Click
        If bt4.Visible = False Then
            bt7.Visible = False
            bt4.Visible = True
            bt4.Text = bt7.Text
        ElseIf bt8.Visible = False Then
            bt7.Visible = False
            bt8.Visible = True
            bt8.Text = bt7.Text
        End If
        pesan()

    End Sub

    Private Sub bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt8.Click
        If bt.Visible = False Then
            bt8.Visible = False
            bt.Visible = True
            bt.Text = bt8.Text
        ElseIf bt7.Visible = False Then
            bt8.Visible = False
            bt7.Visible = True
            bt7.Text = bt8.Text
        ElseIf bt5.Visible = False Then
            bt8.Visible = False
            bt5.Visible = True
            bt5.Text = bt8.Text
        End If
        pesan()

    End Sub

    Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt.Click
        If bt6.Visible = False Then
            bt.Visible = False
            bt6.Visible = True
            bt6.Text = bt.Text
        ElseIf bt8.Visible = False Then
            bt.Visible = False
            bt8.Visible = True
            bt8.Text = bt.Text
        End If
        pesan()

    End Sub
End Class

Nah,,,, setelah di jalankan maka akan terjadi hal-hal menakjubkan seperti ini...

Kemudian mainkan puzzlenya seperti ini...

Dan seperti ini...

jika sudah berhasil menyusunnya ... keajaiban pun terjadi seperti ini...

Selamat Mencoba ^_^

TUGAS PEMROGRAMAN VISUAL KE -2

TUGAS PEMROGRAMAN VISUAL KE -2 

Program di atas apabila di jalankan akan terjadi kesalahan pada btalamat1_Click baris program alamat="Kuningan " karena sudah terdapat konstanta yang terletak di Public Class frmsatu yaitu Const alamat="Kuningan", kemudian tidak dideklarasikan variabel Dim di dalam btalamat1_Click.

Private Sub btalamat1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btalamat1.Click

        Dim alamat As String

        alamat = "kuningan"

        txtalamat.Text = alamat

    End Sub

atau kita juga bisa merubah Const alamat = "kuningan" menjadi Public alamat = "kuningan"
hal ini bisa di lakukan karena Public lebih mencakup secara luas.

Kemudian, jika Tombol Nama1 dan Nama2 jika ditekan hasilnya berbeda saat ditampilkan pada textbox nama karena pada btnama1_Click telah digunakan variabel Dim yang hanya dapat dikenal ditempat variabel tersebut dipesan. Sedangkan pada btnama2_Click hanya mencantumkan baris program txtnama.Text=nama karena variabel nilainya diambil dari Module1 yaitu Public Const nama As String = "Nandang Hermanto". Kemudian saat menekan tombol Alamat1 dan Alamat2 alamat yang ditampilkan alamatnya sama, disebabkan karena di Public Class frmsatu terdapat Const alamat="Kuningan". Dan apabila konstanta dihilangkan dan pada btalamat1_Click diberi variabel Dim. Jika programnya dijalankan, textbox alamat akan menampilkan hasil yang berbeda apabila menekan tombol Alamat1 dan Alamat2.

 

Saat tombol Tambah umur 1 ditekan angka yang selalu keluar adalah satu karena tombol tersebut menggunakan variabel Dim, Sehingga pada saat tombol "tambah umur 1" kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu.
Berbeda dengan varabel umur pada tombol Tambah umur 2 yang menggunakan tipe Static, nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya.

 

Form2  hanya bisa di jalankan setelah form satu dijalankan  dan dapat di panggil melalui tombol show form 2 yang ada di form1.
pada form 2 tidak perlu mendeklarasikan variable karena menggunakan option explicit off, sedangkan data yang diambil baik itu nama, alamat dan umur mengabil dari data yang tersedia di dalam modul1.

 

Oyeahh,,, tugas diatas sudah selesai....

lanjut ke pembahasan berikutnya yaitu latihan 2 If dan Case.

 

Pada Program If & Case selain memiliki kegagalan karena terdapat fungsi yang tak berjalan, juga memiliki tampilan yang kurang menarik, untuk itu saya disini berusaha menjelaskan kekurangan-kekurangan yang terdapat pada program ini.

 

Pertama ketika kita memilih kode "TAS" pada ComboBox Kode Barang, hasil yang keluar adalah 0 atau fungsi tak berjalan, hal ini di karenakan listing program masih kurang untuk kode "TAS".

Jadi programnya harus di perbaiki seperti ini... 

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 1500000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "Tas"

                harga = 130000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

jadi tampilan programnya akan seperti ini ...

Demikian yang saya coba perbaiki dari program dan tugas-tugas yang telah di berikan,, semoga memberikan kepuasan bagi para penilai yang terhormat :D .. terimakasih

Membuat Aplikasi Perhotelan

MEMBUAT APLIKASI SEDERHANA PERHOTELAN MELALUI VB 2010.NET

               Posting kali ini saya akan menampilkan hasil Program sederhana yang saya buat setelah mendapatkan tugas untuk membuat sebuah program sederhana menggunakan Visual Basic 2010Net  dari Dosen. Untuk Listing programnya ada di bawah ini :

Public Class Tugas1



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

    End Sub
    Private Sub txtlama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlama.TextChanged
        Dim lama As Integer
        Try
            lama = Integer.Parse(txtlama.Text)
        Catch ex As Exception

        End Try

    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim harga As Double
        Dim lama As Integer
        If ComboBox1.Text = "President" Then
            txthargakamar.Text = "5500000"

            Try
                harga = Double.Parse(txthargakamar.Text)
            Catch ex As Exception

            End Try
            Try
                lama = Integer.Parse(txtlama.Text)
            Catch ex As Exception

            End Try

        ElseIf ComboBox1.Text = "Eksekutif" Then
            txthargakamar.Text = "4000000"
            Try
                harga = Double.Parse(txthargakamar.Text)
            Catch ex As Exception

            End Try
            Try
                lama = Integer.Parse(txtlama.Text)
            Catch ex As Exception

            End Try

        ElseIf ComboBox1.Text = "Suit" Then
            txthargakamar.Text = "2000000"
            Try
                harga = Double.Parse(txthargakamar.Text)
            Catch ex As Exception

            End Try
            Try
                lama = Integer.Parse(txtlama.Text)
            Catch ex As Exception

            End Try
        End If
        txtttlhargakmr.Text = harga * lama
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tampilkan.Click
        MsgBox("Nama                    = " & txtnama.Text & vbNewLine &
               "Lama Menginap           = " & txtlama.Text & vbNewLine &
               "Tipe Kamar              = " & ComboBox1.Text & vbNewLine &
               "Harga kamar             = " & txthargakamar.Text & vbNewLine &
               "Total harga paket       = " & txtttlhrgpaket.Text & vbNewLine &
               "Total harga Keseluruhan = " & txttotalharga.Text & vbNewLine)

    End Sub

    Private Sub txtttlhrgpaket_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtttlhrgpaket.TextChanged

    End Sub


    Private Sub Radio1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radio1.CheckedChanged
        txthrgpaket.Text = "500000"
    End Sub

    Private Sub Radio2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radio2.CheckedChanged
        txthrgpaket.Text = "250000"
    End Sub

    Private Sub Radio3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radio3.CheckedChanged
        txthrgpaket.Text = "100000"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim totalhargakamar As Double
        Dim totalhargapaket As Double
        Try
            totalhargakamar = Double.Parse(txtttlhargakmr.Text)

        Catch ex As Exception

        End Try
        Try
            totalhargapaket = Double.Parse(txtttlhrgpaket.Text)


        Catch ex As Exception

        End Try
        txttotalharga.Text = totalhargakamar + totalhargapaket

    End Sub

    Private Sub Jmlpaket_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jmlpaket.TextChanged
        Dim hargapaket As Integer
        Dim jumlah As Integer

        Try
            hargapaket = Integer.Parse(txthrgpaket.Text)

        Catch ex As Exception

        End Try

        Try
            jumlah = Integer.Parse(Jmlpaket.Text)
        Catch ex As Exception

        End Try
        txtttlhrgpaket.Text = hargapaket * jumlah

    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersihkan.Click
        txtnama.Text = ""
        txthargakamar.Text = ""
        txtttlhargakmr.Text = ""
        txtttlhrgpaket.Text = ""
        txthrgpaket.Text = ""
        txttotalharga.Text = ""
        txtlama.Text = ""
        Jmlpaket.Text = ""


    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        If MsgBox("Anda yakin akan keluar?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then Me.Close()

    End Sub
End Class

Nah,,, Demikian Saudara-saudara, Program yang telah saya buat semoga dapat membantu anda memahami lebih dalam fungsi-fungsi dan logic yang ada dalam Vb 2010, atau mungkin Program yang saya buat dapat sedikit membantu anda.

         

Jika Anda ingin mencoba Program yang saya buat, silahkan Download di  http://www.4shared.com/get/37Sp-P28/Imam_Cunda_Bagus_T_11112384.html jangan lupa extract dulu filenya dan dunakan VB 2010.net untuk membukanya, 

Sekian terimakasih

INTEL LUNCURKAN HASWELL SEBAGAI PROSESSOR GENERASI KE -4 TAHUN DEPAN

             Transformation Begins Now! itulah slogan intel untuk menunjukkan kemajuan teknologinya yang berhasil di capai sejak peluncuran intel generasi pertama hingga tahun depan akan di rilis generasi ke empat. Seperti yang telah disampaikan oleh Executive vice president and general manager of Intel Corporation's Mobility Group, David Perlmutter dalam acara Intel Developer Forum di San Fransisco, Selasa 11 September 2012 Intel Generasi Ke empat yang super hemat daya ini di namai Haswell.

 Seri Haswell ini adalah generasi yang di luncurkan untuk menyempurnakan transformasi teknologi 22nm pada Intel Ivy Bridge yang hemat daya dan responsif.

Chip Ivy Bride saat ini digunakan pada laptop tipis dan ringan seperti MacBook Air dan Hewlett-Packard Envy Spectre XT, mengkonsumsi 17 watt.
Sementara chip yang baru keluar pada paruh kedua 2013 hanya akan mengkonsumsi 10 watt saja, akan memangkas konsumsi listrik sekitar 41%. CHip ini nantinya bakal menjadi hemat daya.
Biasanya, semakin rendah watt maka produk tersebut bisa saja menjadi semakin tipis. Misalnya saja pada tablet berbasis ARM bisa memiliki ketebalan 0,3 inci dan memiliki berat kurang dari 450 gram. Konsumsi daya pada chip ARM biasanya berada di bawah 2 watt.

Perbandingan penghematan daya antara Ivy Bridge dengan Haswell dapat di gambarkan seperti contoh, salah satu versi Haswell mengkonsumsi daya sebesar 10 watt, tapi kinerjanya sebanding dengan Ivy Bridge yang membutuhkan daya sebesar 17 watt.

Intel akan membuat dua versi Haswell, satu versi dengan daya 10 watt, dan yang satu lagi akan memakan daya 15 watt. Keduanya lebih hemat daya 52 persen dan 29 persen dibandingkan processor generasi saat ini.
Di samping itu, Intel juga menerapkan peningkatan lain pada Haswell berupa kapabilitas pemrosesan grafis yang dua kali lebih baik dibandingkan pada Ivy Bridge.

Seperti yang telah di ungkapkan oleh Perlmutter, "Keluarga prosesor Intel Core generasi ke-4 dan jajaran baru prosesor hemat daya kami akan mengantarkan dunia menuju era inovasi komputasi mobile yang belum pernah terjadi sebelumnya".
"Fokus kami untuk mewujudkan prosesor dengan daya yang lebih rendah sementara tetap memiliki performa yang luar biasa sebagaimana prosesor kami dikenal merupakan dasar yang penting seiring pergeseran fokus dari sekedar kecepatan prosesor semata-mata pada tahun 2001. Sebagai hasilnya, Anda akan melihat pelanggan kami dapat menampilkan desain convertible yang lebih ramping dan trendi, serta menyajikan pengalaman radikal lintas spektrum varian perangkat mobile. "

Jelas sudah Intel berhasil menjawab tuntutan pasar yang menginginkan Teknologi yang bersifat mobile, Style dan energi yang hemat dan tahan lama. Teknologi Haswell yang hemat daya ini akan sering kita jumpai pada Gadget Mobile dan Ultrabook.

Namun bagi anda pecinta teknologi Intel, yang tertarik akan keluaran terbaru Intel Generasi ke -4 Haswell ini harus bersabar, karena belum ada waktu yang pasti akan peluncuran produk ini.