Lập trình xử lý các phép toán về bộ nhớ MS, M+, MR, MC

Đây là những toán tử xử lý bộ nhớ (máy tính giả lập của ta chỉ có 1 bộ nhớ) : cất trị display vào bộ nhớ, cộng dồn trị display vào bộ nhớ, đọc lại trị bộ nhớ ra display và xóa bộ nhớ.

' Thủ tục cất nội dung dislay vào bộ nhớ Private Sub cmdMS_Click()

strMemValue = txtDisplay.Text cmdMemStatus.Caption = "M" blnStartData = True

End Sub

' Thủ tục cộng tích lũy nội dung dislay vào bộ nhớ Private Sub cmdMA_Click()

'Cong don du lieu vao trong bo nho If strMemValue <> "" Then

strMemValue = CStr(CDbl(strMemValue) + CDbl(txtDisplay.Text)) Else

strMemValue = txtDisplay.Text End If

'Tao lai trang thai nhap lieu tu dau cho viec nhap lieu ke tiep blnStartData = True

End Sub

' Thủ tục xóa bộ nhớ

Private Sub cmdMC_Click() strMemValue = ""

cmdMemStatus.Caption = "" End Sub

' Thủ tục đọc bộ nhớ ra display Private Sub cmdMR_Click() If strMemValue <> "" Then txtDisplay.Text = strMemValue blnStartData = True End If End Sub f. Lập trình xử lý các thao tác khác ' Thủ tục xóa display

Private Sub cmdCE_Click() 'Xoa man hinh

txtDisplay.Text = "0." blnStartData = True End Sub

' Thủ tục khởi động Calculator Private Sub cmdC_Click() blnStartData = True strMemValue = "" txtDisplay.Text = "0." strOldValue = "" bytOperatorId = IDC_EQUAL End Sub

' Thủ tục chạy 1 lần khi form được load Private Sub Form_Load()

Call cmdC_Click End Sub

' Thủ tục xóa ký tự của display Private Sub cmdBack_Click() If Not blnStartData Then

txtDisplay.Text = Left(txtDisplay.Text, Len(txtDisplay.Text) - 1) End If If txtDisplay.Text = "" Then txtDisplay.Text = "0." blnStartData = True End If End Sub ' Thủ tục xử lý phép %

Private Sub cmdPercent_Click() Op_Process (IDC_PERCENT) End Sub

BÀI THỰC HÀNH THÊM Ở NHÀ(Số 1) (Số 1)

Mục tiêu sinh viên cần đạt được:

 Thiết kế trực quan được các phần tử giao diện của chương trình dạng MDI.  Tạo được các thủ tục xử lý biến cố và viết code cho các thủ tục này.

 Code chương trình tập trung giải quyết các vấn đề lượng giác và hiển thị đồ họa.

 Chương trình thực hành : trình vẽ các tứ giác chạy trên nhiều cửa sổ đồng thời có giao diện MDI đề nghị như sau :

Chi tiết các menu như sau :

Qui trình thực hiện :