Pertemuan 4

Class variable dan Exeption Handler

Hallo jumpa lagi di blog saya..

hari ini saya akan memposting materi vb.net dengan judul di atas...

Untuk yang pertama saya akan memberikan contoh tentang Class Variable
Class level variable adalah variable yang dapat dibaca disemua Sub (function). Contoh nya dibawah ini, variable intValue dapat di-access dari sub btnSetValue_Click dan btnShowValueClick.

Kemudian Untuk Exception handlernya saya membuat aplikasi seperti gambar di bawah

kemudian isikan coding untuk button ok seperti gambar di bawah ini

masukan nilai berapa saja dengan menggunakan angka contoh 1000, 2000 setelah itu coba masukan dengan huruf contoh seribu, dua ribu maka akan terjadi error seperti gambar di bawah ini

cara mengatasinya bisa dengan munggunakan try catch

rubah codingan yang error menjadi seperti dibawah ini

dengan coding di atas maka saat nanti mengisi dengan bukan angka maka label di bawah akan memberikan perignatan error dan harus memasukan nilai dengan angka

untuk selanjutnya saya akan memberikan contoh yang lain

saya membuat aplikasi seperti dibawah ini

masukan coding di atas untuk button calculate

Jika kita masukan angka pada textbox annualSalary dan payPeriod, maka aplikasi akan berjalan dengan baik.

 Sekrang kita coba masukan String kosong “” pada payPeriode, maka akan muncul Error. 

cara menghandlenya dengan cara memasukan dengan coding d bawah ini

Public Class Form3

    Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click

        Dim decAnnualSalary As Decimal

        Dim intPayPeriods As Integer

        Dim decSalary As Decimal

        Try

            decAnnualSalary = CDec(txtAnnualSalary.Text)

            intPayPeriods = CInt(txtPayPeriods.Text)

            decSalary = decAnnualSalary / intPayPeriods

            lblSalary.Text = decSalary.ToString("c")

        Catch ex As Exception

            lblStatus.Text = "be sure to Enter non-zero values & numeric values"

        End Try

    End Sub

End Class

dengan menggunakan coding di atas nanti akan memnuculkan error dulu

ada beberapa contoh lain dengan menggunakan try catch

yang pertama ada nested try-catch (bersarang)

Public Class Form3

    Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click

        Dim decAnnualSalary As Decimal

        Dim intPayPeriods As Integer

        Dim decSalary As Decimal

        Try

            decAnnualSalary = CDec(txtAnnualSalary.Text)

            Try

                intPayPeriods = CInt(txtPayPeriods.Text)

                Try

                    decSalary = decAnnualSalary / intPayPeriods

                    lblStatus.Text = decAnnualSalary / intPayPeriods

                    lblSalary.Text = decSalary.ToString("c")

                Catch ex As Exception

                    lblStatus.Text = "Pay Periods cannot be zero!!!"

                End Try

            Catch ex As Exception

                lblStatus.Text = "Pay periods must be an integer"

            End Try

        Catch ex As Exception

            lblStatus.Text = "Enter a numeric value for salary"

        End Try

    End Sub

End Class

atau dengan menampilkan eror yang spesiifik

Public Class Form3

    Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click

        Dim decAnnualSalary As Decimal

        Dim intPayPeriods As Integer

        Dim decSalary As Decimal

        Try

            decAnnualSalary = CDec(txtAnnualSalary.Text)

            intPayPeriods = CInt(txtPayPeriods.Text)

            decSalary = decAnnualSalary / intPayPeriods

            lblSalary.Text = decSalary.ToString("c")

        Catch ex As InvalidCastException

            lblStatus.Text = "Error... Input must be numeric"

        Catch ex As DivideByZeroException

            lblStatus.Text = "Error... Enter non-zero values"

        End Try

    End Sub

End Class

atau pesan error langsung dari sistem

Catch ex as Exception

    Private Sub btnCal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCal.Click

        Dim decAnnualSalary As Decimal

        Dim intPayPeriods As Integer

        Dim decSalary As Decimal

        Try

            decAnnualSalary = CDec(txtAnnualSalary.Text)

            intPayPeriods = CInt(txtPayPeriods.Text)

            decSalary = decAnnualSalary / intPayPeriods

            lblSalary.Text = decSalary.ToString("c")

        Catch ex As Exception

            lblStatus.Text = ex.Message

        End Try

    End Sub

End Class

SEKIAN DARI SAYA..
SAMPAI JUMPA LAGI...