TUGAS2 Pert2 Variable Constanta Type Data Dan IF Case

TUGAS2

 Variable Constanta Type Data

 Kali ini saya akan menjelaskan beberapa masalah dalam program tersebut. sebelumnya diatas ini adalah penampakannya.

Apa yang menyebabkan program error pada btalamat1_click baris program alamat= “kuningan??

Yang menyebabkan program error pada button alamat1 adalah kurangnya pemesanan variabel dengan mendeklarasi variabel berupa perintah “DIM” pada :

Alamat = “kuningan”

Dalam kasus ini pemesanan variabel alamat tidak bisa dipanggil oleh buttonalamat1 karena tidak dideklarasikan terlebih dahulu, maka Harus dilakukan pemesanan variabel terlebih dahulu dengan  perintah

DIM alamat = “kuningan”

Maka baru buttonalamat1 dapat melakukan proses pemanggilan variabel dan menampilkannya di textbox alamat.

Kenapa saat ditekan tombol nama1 dan nama2 nama yang ditampilkan pada textbox nama berbeda sedangkan saat ditekan tombol alamat1 dan alamat2 alamat yang ditampilkan pada textbox alamat sama??

Perbedaan ini Dikarenakan pada button nama1 variabel nama sudah dideklarasikan terlebih dahulu pada Sub program atau ruang button nama dengan pemesanan

Dim nama As String

Dengan nama berisikan “nandang”

Maka saat button 1 ditekan nama yang diproses adalah variabel yang ada sub program diruang tersebut dahulu sebelum mencari di ruang sub program lain(form1) setelah ditemukan  yaitu “nandang” maka ditampilkan di textbook nama.

Sedangkan pada button nama2 variabel yang dipanggil tidak dideklarasikan di sub program ruang button nama2 tersebut, maka button nama2 tersebut memanggil variabel yang berada pada form lain yang tersedia melalui modul ke code :

Public Const nama As String = “nandang hermanto”

Pada  tombol alamat1 dan alamat2, alamat 1 sudah di deklarasikan variabel seperti pada nama1 yaitu variabel dipesan didalam ruangan alamat1 maka saat tombol alamat1 ditekan, proses dilakukan didalam ruang tersebut dahulu setelah ditemukan nama ditampilkan di textbox alamat,

sedangkan pada alamat2 tidak dideklarasikan variabel di ruang alamat2 tersebut tapi di deklarasikan didalam form1 dengan pemesanan :

Const alamat = “kuningan”

Maka proses akan mencari variabel yang terdekat setelah ditemkan baru di tampilkan

Kenapa saat ditekan tombol tambah_umur1 umur selalu keluar angka1 sedangkan saat ditekan tombol tambah umur 2 umur selalu bertambah 1 dari umur sebelumnya??

Pada button umur1 saat ditekan umur hanya tampil 1 saja dikarenakan type variabel yang dipesan berupa “DIM”, dalam kasus ini “dim” hanya bersifat tetap(nilai), jadi berapa kalipun ditekan jika variabelnya adalah tetap maka jumlah yang ditampilkan adalah tetap =1 saja dengan menghapus nilai sebelumnya.

Umur1  : Dim umur As Integer

Sedangkan pada tombol umur2 pemesanan variabel nya adalah statis yang berarti jumlah dari variabel yang disimpan dan ditampilkan dapat berubah2 nilainya, jadi jika nilai yang sudah disimpan atau ditampilkan di tambahkan lagi dengan +=1 maka nilainya akan terus ditambahkan. Itulah alasannya kenapa umur1 dan umur2 berbeda jika di operasikan.

Umur2 : Static umur As Integer

Berikan Analisa untuk Form2

Pada form2 operasi dilakukan dengan memanggil langsung  variabel yang berada di module1 dikarenakan didalam form tersebut tidak lakukan pemesanan variabel dan langsung dibuatkan modul,

form ini berada pada keadaan posisi Option Explicit off dengan maksud bahwa  compiler tidak mengharuskan semua variabel dideklarasikan secara eksplisit sebelum digunakan dalam program. Jika mode Option Explicit OFF program secara otomatis membuat variabel setiap kali melihat variabel tanpa deklarasi jadi tidak akan error jika tak dideklarasikan pun, tapi kelemahan dari mode ini adalah tidak adanya kepastian variabel mana yang digunakan untuk variabel lainnya. atau tidak dideklarasikan secara permanen untuk suatu variabel.

Selanjutnya Tentang :

IF dan Case

Sebelum saya menjelaskan, Dibawah ini adalah penampakan untuk tugas3 dengan Barang berupa Topi dengan harga total bayar berbeda

TOPI Pembelian 2 buah

Jadi kelemahan program ini adalah :
Untuk if else perlu ditambahkan pada Case Else  sebuah kode dimana jika pilihan adalah selain dari “SPT,SND,TST,TOP” maka Hasil adalah “Tas” dengan berisikan  namabarang = “TAS” dan harga barang = 300000(atau lainnya), pilihan case else ini diberikan isi tersebut dikarenakan “Tas” sudah dimasukkan kedalam pilihan combobox, jadi jika kode ini tidak ditambahkan maka untuk pilihan Tas hasilnya akan tetap 0 dikarenakan tidak adanya hasil yang dipanggil gambar 3.1.

gambar 3.1

Pada :

Private Sub txtbayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbayar.TextChanged
        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)
    End Sub

saya memindahkan :  

txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

keposisi paling bawah dikarenakan agar sebelum kita memilih radiobutton tunai atau kredit diskon dan harga bayar tidak ditampilkan terlebih dahulu sebelum kondisi ini terpenuhi gambar 3.3.

gmbar 3.3

pada :

Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click

        txtharga.Clear()
        txtjumlah.Clear()
        txtnama.Clear()
        txttotal.Clear()
        Me.radiotunai.Checked = False
        Me.radiokredit.Checked = False
        cmbkode.Text = ""
        txtbayar.Clear()
        txtdiskon.Clear()
    End Sub

saya memindahkan : 

txtbayar.Clear() 

txtdiskon.Clear()

supaya begitu di clear hanya terdapat nilai 0 pada total bayar gmbar 3.2. 

gambar 3.2

dalam program ini juga saya juga mengganti beberapa textbox dibawah ini menjadi readonly(baca saja) :

nama barang

harga barang

total harga

diskon

total bayar

supaya nilainya tidak dapat dirubah2, dan mencegah penyalahgunaan user.