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