Ngôn ngữ lập trình visua basic 4

08:33:02 BÀI 4: CÁC HÀM TỐN HỌC Chương trình máy tính đơn giản ScriptControl Bài 1 09:56:11 Chương trình máy tính đơn giản Giao diện thiết kế: Bài 2 Chèn ký hiệu √: - Mở app Character Map Windows - Chọn ký hiệu, Copy sau dán vào VB.NET 09:56:11 Bài 3 09:56:11 Private Sub bttNo0_Click(sender As Object, e As EventArgs) Handles bttNo0.Click If lblResult.Text "0" Then lblResult.Text += "0" End If End Sub Private Sub bttNo1_Click(sender As Object, e As EventArgs) Handles bttNo1.Click If lblResult.Text "0" Then lblResult.Text += "1" Else lblResult.Text = "1" End If End Sub lblResult.Text Click lblResult.Text lblResult.Text Click lblResult.Text Bài 4 09:56:11 Private Sub bttDot_Click(sender As Object, e As EventArgs) Handles bttDot.Click If lblResult.Text.IndexOf(".") = -1 Then lblResult.Text += "." End If End Sub lblResult.Text Click lblResult.Text lblResult.Text Click lblResult.Text (khơng làm cả) Bài 5 09:56:11 Private Sub bttInverse_Click(sender As Object, e As EventArgs) Handles bttInverse.Click If lblResult.Text.IndexOf("-") = -1 Then lblResult.Text = "-" + lblResult.Text Else lblResult.Text = lblResult.Text.Substring(1) End If End Sub lblResult.Text Click lblResult.Text (thêm dấu -) lblResult.Text Click lblResult.Text (xóa dấu -) lblResult.Text.Substring(1) : lấy chuỗi từ vị trí đến cuối chuỗi (khơng lấy vị trí 0) Bài 6 09:56:11 Khai báo biến sử dụng chương trình: Public Class frmCalc Dim Operation As String Dim Num1 As Double Dim Num2 As Double Nút +: Private Sub bttAdd_Click(sender As Object, e As EventArgs) Handles bttAdd.Click Num1 = CDbl(lblResult.Text) Operation = "+" lblResult.Text = "0" End Sub Bài 7 Nút =: 09:56:11 Private Sub bttEqual_Click(sender As Object, e As EventArgs) Handles bttEqual.Click Num2 = CDbl(lblResult.Text) Select Case Operation Case "+" lblResult.Text = (Num1 + Num2).ToString Case "-" lblResult.Text = (Num1 - Num2).ToString Case "*" lblResult.Text = (Num1 * Num2).ToString Case "/" If Num2 Then lblResult.Text = (Num1 - Num2).ToString Else lblResult.Text = "Chia cho 0" End If End Select End Sub Bài 8 09:56:11 Các nút sin, cos, tan: Private Sub bttSin_Click(sender As Object, e As EventArgs) Handles bttSin.Click lblResult.Text = Math.Sin(CDbl(lblResult.Text)).ToString End Sub Private Sub bttCos_Click(sender As Object, e As EventArgs) Handles bttCos.Click lblResult.Text = Math.Cos(CDbl(lblResult.Text)).ToString End Sub Private Sub bttTan_Click(sender As Object, e As EventArgs) Handles bttTan.Click lblResult.Text = Math.Tan(CDbl(lblResult.Text)).ToString End Sub Bài 9 Các nút log, exp, sqrt: 09:56:11 Private Sub bttLog_Click(sender As Object, e As EventArgs) Handles bttLog.Click If CDbl(lblResult.Text) > Then lblResult.Text = Math.Log(CDbl(lblResult.Text)).ToString Else MessageBox.Show("Error!") End If End Sub Private Sub bttExp_Click(sender As Object, e As EventArgs) Handles bttExp.Click lblResult.Text = Math.Exp(CDbl(lblResult.Text)).ToString End Sub Private Sub bttSqrt_Click(sender As Object, e As EventArgs) Handles bttSqrt.Click If CDbl(lblResult.Text) >= Then lblResult.Text = Math.Sqrt(CDbl(lblResult.Text)).ToString Else MessageBox.Show("Error!") End If Bài 10 End Sub 10 09:56:11 Các nút C, AC: Private Sub bttC_Click(sender As Object, e As EventArgs) Handles bttC.Click lblResult.Text = "0" End Sub Private Sub bttAC_Click(sender As Object, e As EventArgs) Handles bttAC.Click lblResult.Text = "0" Operation = Nothing End Sub Bài 11 11 09:56:11 Dùng ScriptControl Click chuột phải vào cửa sổ Toolbox, chọn Choose Items Bài 12 12 09:56:11 ScriptControl Kéo điều khiển ScriptControl Object vào cửa sổ thiết kế Bổ sung label lblFormula để hiển thị chuỗi công thức Bài 13 13 09:56:11 Sửa lại mã lệnh cho nút +, -, *, / Private Sub bttAdd_Click(sender As Object, e As EventArgs) Handles bttAdd.Click If Formula = "0" Then Formula = lblResult.Text + "+" Else Formula += lblResult.Text + "+" End If lblFormula.Text = Formula lblResult.Text = "0" End Sub Formula lblResult.Text Formula Click lblResult.Text Formula lblResult.Text Formula Click Bài lblResult.Text 14 14 09:56:11 Private Sub bttEqual_Click(sender As Object, e As EventArgs) Handles bttEqual.Click Formula += lblResult.Text lblFormula.Text = Formula + "=" lblResult.Text = CalcString(Formula).ToString Formula = "0" End Sub Private Function CalcString(Formula As String) As Double SC.Language = "VBSCRIPT" Return Convert.ToDouble(SC.Eval(Formula)) End Function Formula lblResult.Text Formula: 52-12*4+25 Click Dùng ScriptControl để chuyển biểu thức dạng String thành giá trị lblResult.Text Convert.ToDouble(SC.Eval(Formula)) Bài Formula 15 15 Các hàm toán học lớp System.Math Abs Acos Asin Atan Atan2 BigMul Ceiling Cos Cosh DivRem Exp Floor 09:56:11 Giá trị tuyệt đối Tính arcos Tính arsin Tính artan Tính artan với ngõ vào tọa độ mặt phẳng Cartesian Tính phép nhân cho số nguyên 32 bit Làm tròn đến số nguyên nhỏ lớn hay số làm trịn Tính cos Tính cos hyperbolic Tính thương số dư số ngun 32 bit Tính e^x Làm trịn đến số nguyên lớn nhỏ hay số làm tròn Bài 16 16 Các hàm toán học lớp System.Math 09:56:11 Log Tính log theo số định trước, khơng số tính ln Log10 Tính log số 10 Max Tính max Min Tính Pow Tính lũy thừa Round Làm trịn Sign Xác định dấu Sin Tính sin Sinh Tính sin hyperbolic Sqrt Tính bậc hai Tan Tính tang Tanh Tính tang hyperbolic Truncate Tính phần nguyên Bài 17 17 09:56:11 Bổ sung thêm menu để thoát chương trình Bổ sung thêm phần tính tốn số phức: - Thêm Checkbox chkComplex để chọn tính tốn số phức hay tính thơng thường - Khi chọn chế độ tính số phức, bổ sung nút ra, b để nhập phần thực phần ảo Bài 18 18 09:56:11 Bổ sung thêm Reference Numerics để tính tốn số phức: - Chọn menu Project > Add Reference - Trong vùng Search, gõ vào numerics, sau click chọn System.Numerics Bài 19 19 Các phương thức System.Numerics 09:56:11 Abs(Complex): tính argument số phức Acos(Complex): tính arcos số phức Add(Complex, Complex): cộng số phức Asin(Complex): tính arsin số phức Atan(Complex): tính artag số phức Conjugate(Complex): tính liên hiệp phức Cos(Complex): tính cos số phức Cosh(Complex): tính cos hyperbolic số phức Divide(Complex, Complex): chia số phức Exp(Complex): tính ex FromPolarCoordinates(Double, Double): tạo số phức từ tọa độ cực Bài 20 20 10 09:56:11 Log(Complex): tính ln số phức Sin(Complex): tính sin Log(Complex, Double): tính log số phức, số Double Sinh(Complex):tính sin hyperbolic Log10(Complex): tính log10 số phức Sqrt(Complex): tính bậc hai số phức Multiply(Complex, Complex): nhân số phức Subtract(Complex, Complex): trừ hai số phức Negate(Complex): đổi dấu số phức Tan(Complex): tính tang số phức Pow(Complex, Double): tính mũ Tanh(Complex): tính tang hyperbolic số phức Pow(Complex, Complex): tính mũ phức Reciprocal(Complex): nghịch đảo số phức Bài 21 21 09:56:11 Xử lý số phức dùng System.Numerics - Khai báo không gian tên System.Numerics đầu chương trình: Imports System.Numerics - Khai báo biến phức: Dim NumComplex1 As Complex = Nothing Dim NumComplex2 As Complex = Nothing - Gán giá trị cho biến: NumComplex1 = New Complex(a, b) ' Gán NumComplex1 = a + ib - Cộng hai số phức: NumComplex2 = Complex.Add(NumComplex1, New Complex(1, 2)) Bài 22 22 11 09:56:11 Xây dựng ứng dụng tính tốn số phức: Bài 23 23 12