Scribd Logo
Upload

Welcome to Scribd!

  • 2 views

    LAB TASK 2 update

    Uploaded by

    2024266172
    LAB TASK

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd

    LAB TASK 2 update

    Uploaded by

    2024266172
    2 views2 pages
    LAB TASK

    Copyright

    © © All Rights Reserved

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    LAB TASK

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    2 views2 pages

    LAB TASK 2 update

    Uploaded by

    2024266172
    LAB TASK

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    You are on page 1of 2

    Public Class Form1

    Private Sub frmNAR_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles


    btnDisplay.Click
    Dim lblHour, lblCost, laborCost, totalPartsCost, totalCost As Double
    Dim lblCustName As String
    Const laborHourCost As Integer = 35
    Const tax As Double = 0.05

    If (IsNumeric(txtHour.Text) And IsNumeric(txtCost.Text) And txtName.Text <>


    "") Then
    lblHour = CDbl(txtHour.Text)
    lblCost = CDbl(txtCost.Text)
    lblCustName = txtName.Text

    laborCost = lblHour * laborHourCost


    totalPartsCost = lblCost + (lblCost * tax)
    totalCost = laborCost + totalPartsCost

    lstDisplay.Items.Add("Customer: " & lblCustName)


    lstDisplay.Items.Add("Labor Cost: RM " & laborCost)
    lstDisplay.Items.Add("Parts Cost: RM " & totalPartsCost)
    lstDisplay.Items.Add("Total Cost: RM " & totalCost)

    Else
    MsgBox("Please enter valid data")

    End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


    btnQuit.Click
    Me.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


    btnReset.Click
    txtName.Text = ""
    txtHour.Text = ""
    txtCost.Text = ""
    lstDisplay.Items.Clear()
    End Sub
    End Class

    Public Class Form1


    Private Sub btnoverflow_Click(ByVal sender As Object, ByVal e As EventArgs)
    Handles btnoverflow.Click
    Dim jaw As Short

    Try

    jaw = Val(txtnum1.Text) + Val(txtnum2.Text)


    MessageBox.Show(jaw)

    Catch When Err.Number

    MessageBox.Show(Err.Description)

    End Try
    End Sub

    Private Sub btnzero_Click(ByVal sender As Object, ByVal e As EventArgs) Handles


    btnzero.Click
    Try

    Dim a, b, c As Integer

    a = 3

    b = 0

    c = a Mod b

    Catch When Err.Number

    MessageBox.Show(Err.Description & "Try again", "ERROR")

    End Try
    End Sub
    End Class

    If Not IsNothing(Me.txtIC.Text) Then


    Me.EP1.SetError(Me.txtIC, "Please enter some values")
    Return
    Else
    MessageBox.Show("Accepted")
    End If

    You might also like