Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'những bài thực hành visual basic .net căn bản part 6', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Bài 9. Chương trinh Calculator 191 End lí CalcField.Text Value Encl Sul Biến cố nhấp button c Cancel - húy bó toán tứ vừa thực hiện Reset chương trinh trớ lại trạng thái ban đẳu Protected Sub CalcCanClicklByVal sender As System.Object ByVal e As System.EventArgs Handles CalcCan.Click Reset Encl Sul Biến cố nháp button CE Cancel Entry - húy bó toán hạng vừa nhập Protected Sul CalcCE_Click ByVal sender As System.Object ByVai e As System.EventArgs Handles CalcCE.Click if ImLastlnput.Equalsloperation.Operand Then CalcField.Text 0. Elself ImLastlnput.EqualslOperation.Operator Then mOpFlag mOpPrev End It m Lastinput Operation.CE End Sub Bien co click button - thực hiện phép chìa Protected Sub CalcDiv_Click ByVal sender As System.Object ByVai e As System. Event Args Handles CalcDiv.Click CalcRes_Click sender e gọi thú tục xứ lý phép toán End Sub Biến cố click button thực hiện phép trừ Protected Sub CalcSub_Click ByVal sender As Sy stem. Object ByVai e As System. Event Args Handles CalcSub.Click 192 Nhũng bài thực hành VB.NET căn bản CalcRes_Click sender e End Sub Biến cố nhấp button thực hiện phép nhăn Protected Sub CalcMul_Click ByVal sender As System.Object ByVai e As System.EventArgs Handles CalcMul.Click CalcRes_Click sender e End Sub Biến cố nhấp button thục hiện phép cộng Protected Sub CalcPlus_Click ByVal sender As System.Object ByVai e As System.EventArgs Handles CalcPlus.Click CalcRes_Click sender e End Sub Thú tục xứ lý các phép toán rà khì nguời dùng nhấp button Protected Sub CalcRes Click ByVal sender As System.Object ByVai e As System. EventArgs Handles CalcRes.Click If CalcField.Text. Length 0 Then Return End If If mlastlnput.EqualsfOperation.operand Then mNumOps mNumOps 1 End If Select Case mNumOps Case 1 mOp1 Double.Parse CalcField.Text Case 2 mOp2 Double.ParsefCalcField.Text Bài 9. Chuông trình Calculator 193 Select Case mOpFlag Case mOpl mOpI mOp2 Case mOp1 - mOpI - mOp2 Case mOp mOp mOp2 Case 7 If mOp2 0 Then MessageBox.ShowC Can t divide by zero .
