Bài 0501: Tính từ thơng gây bởi một từ trường đều Br
(B 0, 02 = T) qua một hình phẳng có chu vi là hình vng cạnh a=10cm. Véctơ pháp tuyến của hình phẳng hợp với Br
một gócα=450.
1. Bài giải bài 0501
Từ thơng qua hình phẳng: Φ =B S. .cosα= 2.10 ( )−4 N
2. Viết code cho bài 0501
Đối với bài này khi viết code cần phải lưu ý:
- Sử dụng hàm FontName = "Symbol" để chuyển ký tự “a” thành ký tự “α”
và ký tự “F” thành ký tự “Φ”.
- Quy đổi giá trị của “α” từ độ sang rad, giá trị của “a” từ cm sang m.
- Giá trị của các biến số phải dương, riêng αphải lớn hơn 0 và phải nhỏ hơn 90.
- Chương trình phải có thơng báo u cầu người sử dụng nhập đủ các dữ kiện mới bắt đầu tính tốn.
Trước tiên ta khai báo cho các dữ kiện: Biến 1 là “B”; Biến 2 là “a”; Biến 3 là “α”; Đơn vị Biến 1 là (T); Đơn vị Biến 2 là (cm); Đơn vị Biến 3 là (0); Ẩn 1 là “Φ”; Đơn vị Ẩn 1 (Wb). Các dữ kiện này được chọn Visible = False để xuất hiện trên giao diện của chương trình.
Code viết cho command(Bài Tập)
If taptin_4 = "0501.jpg" Then Bien_3.FontName = "Symbol" An_1.FontName = "Symbol" Bien_1.FontName = "VNI-Times" donvi_bien_1.FontName = "VNI-Times" Bien_2.FontName = "VNI-Times" donvi_bien_2.FontName = "VNI-Times" donvi_bien_3.FontName = "VNI-Times" donvi_an_1.FontName = "VNI-Times" Bien_1.Visible = True GTbien_1.Visible = True donvi_bien_1.Visible = True Bien_2.Visible = True GTBien_2.Visible = True donvi_bien_2.Visible = True Bien_3.Visible = True GTBien_3.Visible = True donvi_bien_3.Visible = True An_1.Visible = True GTAn_1.Visible = False donvi_an_1.Visible = True Bien_1.Text = "B =" Bien_2.Text = "a =" Bien_3.Text = "a =" An_1.Text = "F =" donvi_bien_1.Text = "(T)" donvi_bien_2.Text = "(cm)"
donvi_bien_3.Text = "(0)" donvi_an_1.Text = "(Wb)" End If
Code viết cho command(Giải)
If taptin_4 = "0501.jpg" Then
If GTbien_1.Text = "" Or GTBien_2.Text = "" Or GTBien_3.Text = "" Then Dim tb_501 As Boolean
tb_501 = MsgBox("hay nhap du cac gia tri vao cac o so lieu", vbOKOnly, " Thong Bao ")
Exit Sub End If
If a_1 <= 0 Or a_2 <= 0 Or a_3 <= 0 Or a_3 >= 90 Then Dim thongbao_501 As Boolean
thongbao_501 = MsgBox("hay nhap: B > 0 ; a > 0 ; 0 < anpha < 90", vbCritical, " Thong Bao ")
Exit Sub End If
b_1 = a_1 * (a_2 * 10 ^ -2) ^ 2 * Cos(a_3 * 3.14159 / 180) GTAn_1.Text = Val(b_1)
GTAn_1.Visible = True tieptuc.Visible = True End If
Sau khi viết code hồn thành, thì khi chạy chương trình để soạn thảo bài 0501 thì chương trình có dạng như sau:
Hình 2: Giao diện của chương trình khi soạn thảo bài 0501