Bài tập lớn môn học: đường Định vị dẫn I)Nội dung: Mô hiển thị mục tiêu radar hình PC II)u cầu : Chương trình mơ radar sơ cấp xung ,chủ động ,qt khơng gian vịng tròn dùng cho cảnh giới Các tiêu kỹ thuật: +Cự ly làm việc đài radar :Dmax,Dmin +Tần số sóng mang +Cơng suất xạ +Đặc điểm xung:độ rộng xung,chu kỳ xung +Độ nhạy máy thu -Chương trình có tính cụ thể sau: +Hiển thị mục tiêu lúc,quét mục tiêu mục tiêu sáng ,để lại dấu vết quỹ đạo +Quét cánh sóng nhanh chậm Quét chiều ,ngược chiều kim đồng hồ +Tự động bám sát mục tiêu theo gúc phng v +Hin th bng cácthông s ca cỏc mục tiêu : *)Cự ly mục tiêu *)Góc phương vị *)Độ cao mục tiêu *)Vận tốc +Hiển thị thơng số kỹ thuật Radar +Màn hình khởi động +Màn hình thơng số qt + Màn hình liệu radar +Hiển thị 4màn hình : *)Trang hình hiển thị nhìn vịng *)Trang hình hiển thị cự ly D theo cách quét tia điện tư hình nhìn thẳng *)Trang hình hiển thị cự ly D theo cách quét tia điện tư hình vịng trịn *)Trang hình hiển thị cự ly D theo cách quét tia điện tư hình xoắn ốc +Có chế độ điều khiển tay hay tự động (VD:10s thay đổi trang hình lần) +Độ xác thay đổi theo trang hình III) Chương trình mơ radar: Chương trình mơ radar viết ngôn ngữ Visual Basic 6.0 IV/ Code chương trình Dim t As Integer Public i As Integer Public j As Integer Public xoan As Integer Public Lang As Integer Const pi = 3.14 Public huong As Integer Public muctieu As Integer Public ppquet As Integer Public z1 As Double Bài tập lớn môn học: đường Định vị dẫn Public z2 As Double Public z3 As Double Public z4 As Double Public z5 As Double Public z6 As Double Public somt1 As Double 'So muc tieu Public somt2 As Double Public somt3 As Double Public somt4 As Double Public somt5 As Double Public somt6 As Double Public Rmax As Double 'Ban kinh radar Public kc1 As Double 'Quan li khoang cach muc tieu va tia quet Public kc2 As Double Public kc3 As Double Public kc4 As Double Public kc5 As Double Public kc6 As Double Public k1 As Integer ' quan li thuoc tho Public k3 As Integer Public k4 As Integer Public k5 As Integer Public k6 As Integer Public k1tinh As Integer 'Quan li thuoc tho Public k2tinh As Integer Public k3tinh As Integer Public k4tinh As Integer Public k5tinh As Integer Public k6tinh As Integer Public delta1 As Integer 'Quan li goc giua muc tieu va quet Public quet1 As Integer ' quan li chieu quet Public quet2 As Integer Public quet3 As Integer Public quet4 As Integer Public quet5 As Integer Public quet6 As Integer 'Quan li goc giua MT va tia quet Public delta2 As Integer Public delta3 As Integer Public delta4 As Integer Public delta5 As Integer Public delta6 As Integer 'Qaun li hien thi muc tieu len thuoc tron Public T1 As Integer Public T2 As Integer Public T3 As Integer Public T4 As Integer Public T5 As Integer Public T6 As Integer Public T1tinh As Integer Public T2tinh As Integer Public T3tinh As Integer Bài tập lớn môn học: đường Định vị dẫn Public T4tinh As Integer Public T5tinh As Integer Public T6tinh As Integer 'Quan li MT hien thi tren thuoc nhieu vong tron Public Mu1tinh As Integer Public Mu2tinh As Integer Public Mu3tinh As Integer Public Mu4tinh As Integer Public Mu5tinh As Integer Public Mu6tinh As Integer Private Sub Circl_Click() ppquet = End Sub Private Sub Direct_Click() ppquet = End Sub Private Sub Display_Click() If Lang = Then If Display.Caption = "Tiếp tục" Then Timer1.Enabled = True Display.Caption = "Dừng" Else Display.Caption = "Tiếp tục" Timer1.Enabled = False End If End If If Lang = Then If Display.Caption = "Continue" Then Timer1.Enabled = True Display.Caption = "Pause" Else Display.Caption = "Continue" Timer1.Enabled = False End If End If End Sub Private Sub Exit1_Click() End End Sub Private Sub English_Click() English1 Lang = End Sub Private Sub FileExit_Click() End End Sub Bài tập lớn môn học: đường Định vị dẫn Private Sub FileNew_Click() Form2.Show End Sub Private Sub FileOpen_Click() 'On Error GoTo DialogError With CommonDialog1 ' CancelError = True Filter = "Executables (*.exe)|*.exe|Com Files (*.frm)|*.frm|Batch Files (*.vpb)|*.vpb" FilterIndex = DialogTitle = "Select a program to open" ShowOpen 'MsgBox "You selected " & FileName End With End Sub Private Sub Form_Load() Thuan.Value = True tatca.Value = True t=0 i = 'Quan li tia quet j = 'Quan li goc quet Lang = somt1 = somt2 = somt3 = somt4 = somt5 = somt6 = ' Cac tham so de quan li muc tieu tren cac loai thuoc thangtinh.Visible = False thangtho.Visible = False M2tho.Visible = False M2tinh.Visible = False M3tinh.Visible = False M3tho.Visible = False M4tho.Visible = False M4tinh.Visible = False M5tho.Visible = False M5tinh.Visible = False M6tho.Visible = False M6tinh.Visible = False Mu1.Visible = False Mu2.Visible = False Mu3.Visible = False Mu4.Visible = False Mu5.Visible = False Bài tập lớn môn học: đường Định vị dẫn Mu6.Visible = False End Sub Private Sub HelpMe_Click() MsgBox " Nguyem Khac Tinh Lpo DT7-K46 Khoa Dien Tu Vien Thong ", vbOKOnly, "About Me" End Sub Private Sub HelpPro_Click() MsgBox " Bai tap lon mon hoc Dinh Vi Dan Duong ", vbOKOnly, "About Pro" End Sub Private Sub Muctieu1_Click() muctieu = End Sub Private Sub Muctieu2_Click() muctieu = End Sub Private Sub Muctieu3_Click() muctieu = End Sub Private Sub Muctieu4_Click() muctieu = End Sub Private Sub Muctieu5_Click() muctieu = End Sub Private Sub Muctieu6_Click() muctieu = End Sub Private Sub MulCircle_Click() ppquet = End Sub Private Sub Nguoc_Click() huong = End Sub Private Sub Option4_Click() ppquet = End Sub Private Sub Setting_Click() Bài tập lớn môn học: đường Định vị dẫn Form2.Show End Sub Private Sub tatca_Click() muctieu = End Sub Private Sub Thuan_Click() huong = End Sub Private Sub Timer1_Timer() '////////////////////////// For xoan = To 1080 Form1.Line (8800 + xoan * Cos(pi * xoan / 180), 2700 + xoan * Sin(pi * xoan / 180))-(8800 + (xoan + 1) * Cos(pi * (xoan + 1) / 180), 2700 + (xoan + 1) * Sin((xoan + 1) * pi / 180)) Next '///////////////////////////////// Label100.Caption = Time Ngay.Caption = Date Rmax = 20 Label19.Caption = Rmax Dthmax.Caption = Rmax Dthmin.Caption = Rmax / 10 'Somuctieu.Caption = somt1 + somt2 + somt3 + somt4 + somt5 + somt6 Dim gocpv1 As Double 'Hien thi MT len man hinh radar MT1 MT2 MT3 MT4 MT5 MT6 'chuong trinh tinh goc lech de quet theo muc tieu delta1 = gocpv(M1.Left, M1.Top) - gocpv(Stic.x2, Stic.y2) delta2 = gocpv(M2.Left, M2.Top) - gocpv(Stic.x2, Stic.y2) delta3 = gocpv(M3.Left, M3.Top) - gocpv(Stic.x2, Stic.y2) delta4 = gocpv(M4.Left, M4.Top) - gocpv(Stic.x2, Stic.y2) delta5 = gocpv(M5.Left, M5.Top) - gocpv(Stic.x2, Stic.y2) delta6 = gocpv(M6.Left, M6.Top) - gocpv(Stic.x2, Stic.y2) If muctieu = Then tiaquet ' Hienthi du lieu len cac Edit Display1 Display2 Display3 Display4 Display5 Display6 Bài tập lớn môn học: đường Định vị dẫn 'Hien thi MT len thuoc 'Quet thang If ppquet = Then Quetthang TM1 TM2 TM3 TM4 TM5 TM6 End If 'NEU LA QUET TRON If ppquet = Then Quettron TrMT1 TrMT2 TrMT3 TrMT4 TrMT5 TrMT6 End If 'neu la qet nhieu vong If ppquet = Then Quetnhieu MulMT1 MulMT2 MulMT3 MulMT4 MulMT5 MulMT6 End If If ppquet = Then Form1.Frame5.Visible = False End If End If '/////////////////////////////////////////////// If muctieu = Then Display1 UnDisplay2 UnDisplay3 UnDisplay4 UnDisplay5 UnDisplay6 'Chon phuong phap quet If ppquet = Then Quetthang TM1 UnTM2 ' chuong trinh hien thi muc tieu len thuoc UnTM3 UnTM4 UnTM5 Bài tập lớn môn học: đường Định vị dẫn UnTM6 End If 'NEU LA QUET TRON If ppquet = Then Quettron TrMT1 UnTM2 ' chuong trinh hien thi muc tieu len thuoc UnTM3 UnTM4 UnTM5 UnTM6 End If If ppquet = Then Quetnhieu MulMT1 UnTM2 ' chuong trinh hien thi muc tieu len thuoc UnTM3 UnTM4 UnTM5 UnTM6 End If If ppquet = Then Form1.Frame5.Visible = False End If 'Chuong trinh bam muc tieu delta1 = gocpv(M1.Left, M1.Top) - gocpv(Stic.x2, Stic.y2) If (delta1 >= 6) Then quetthuan quet1 = End If If (delta1 1500 Then tatca.Value = True Muctieu1.Value = False End If If t > 360 Then Bài tập lớn môn học: đường Định vị dẫn t=0 End If 'Label16.Caption = delta1 End If '////////////////////////////////////////////////////// If muctieu = Then UnDisplay1 Display2 UnDisplay3 UnDisplay4 UnDisplay5 UnDisplay6 'Chon phuong phap quet If ppquet = Then Quetthang UnTM1 TM2 ' chuong trinh hien thi muc tieu len thuoc UnTM3 UnTM4 UnTM5 UnTM6 End If 'NEU LA QUET TRON If ppquet = Then Quettron TrMT2 UnTM1 ' chuong trinh hien thi muc tieu len thuoc UnTM3 UnTM4 UnTM5 UnTM6 End If If ppquet = Then Quetnhieu MulMT2 UnTM1 UnTM3 UnTM4 UnTM5 UnTM6 End If If ppquet = Then Form1.Frame5.Visible = False End If 'Chuong trinh bam muc tieu delta2 = gocpv(M2.Left, M2.Top) - gocpv(Stic.x2, Stic.y2) If (delta2 >= 6) Then quetthuan Bài tập lớn môn học: đường Định vị dẫn quet2 = End If If (delta2 1500 Then UnDisplay6 somt6 = M6tho.Visible = False M6tinh.Visible = False Mu6.Visible = False End If End Sub Public Sub quetMT1(p As Double) Stic.x1 = 1700 Stic.y1 = 1600 Stic.x2 = 1700 + 1500 * Cos(pi * (j - 90) / 180) Stic.y2 = 1600 + 1500 * Sin(pi * (j - 90) / 180) If p > Then j=j-1 End If If p < -5 Then j=j+1 End If End Sub Public Sub tiaquet() 'chuong trinh dieu khien quet If (huong = 0) Then quetthuan End If If (huong = 1) Then quetnguoc 26 Bài tập lớn môn học: đường Định vị dẫn End If If t > 360 Then t=0 End If End Sub Public Sub quetthuan() Stic.x1 = 1700 Stic.y1 = 1600 Stic.x2 = 1700 + 1500 * Cos(pi * (t - 90) / 180) Stic.y2 = 1600 + 1500 * Sin(pi * (t - 90) / 180) t=t+1 End Sub Public Sub quetnguoc() Stic.x1 = 1700 Stic.y1 = 1600 Stic.x2 = 1700 + 1500 * Cos(pi * (t - 90) / 180) Stic.y2 = 1600 + 1500 * Sin(pi * (t - 90) / 180) t=t-1 End Sub 'Chuong trinh hien thi MT len thuoc tron '///////////////////////////////////////////// Public Sub TrMT1() 'Hien thi len quet tron If D1.Text > Then T1 = * D1.Text \ Rmax T1tinh = 64 * (D1.Text - T1 * Rmax * 0.125) \ Rmax thangtho.Visible = True thangtinh.Visible = True thangtho.Left = 1600 + 1400 * Cos(45 * (T1 - 2) * pi / 180) thangtho.Top = 1600 + 1400 * Sin(45 * (T1 - 2) * pi / 180) thangtho.Width = 50 thangtho.Height = 50 thangtinh.Left = 1600 + 630 * Cos(45 * (T1tinh - 2) * pi / 180) thangtinh.Top = 1600 + 630 * Sin(45 * (T1tinh - 2) * pi / 180) thangtinh.Width = 50 thangtinh.Height = 50 End If End Sub Public Sub TrMT2() 'Hien thi len quet tron If D2.Text > Then T2 = * D2.Text \ Rmax T2tinh = 64 * (D2.Text - T2 * Rmax * 0.125) \ Rmax M2tho.Visible = True M2tinh.Visible = True M2tho.Left = 1600 + 1400 * Cos(45 * (T2 - 2) * pi / 180) M2tho.Top = 1600 + 1400 * Sin(45 * (T2 - 2) * pi / 180) M2tho.Width = 50 M2tho.Height = 50 M2tinh.Left = 1600 + 630 * Cos(45 * (T2tinh - 2) * pi / 180) M2tinh.Top = 1600 + 630 * Sin(45 * (T2tinh - 2) * pi / 180) M2tinh.Width = 50 M2tinh.Height = 50 27 Bài tập lớn môn học: đường Định vị dẫn End If End Sub Public Sub TrMT3() 'Hien thi len quet tron If D3.Text > Then T3 = * D3.Text \ Rmax 'Label16.Caption = T3tinh T3tinh = 64 * (D3.Text - T3 * Rmax * 0.125) \ Rmax 'Label16.Caption = T3tinh M3tho.Visible = True M3tinh.Visible = True M3tho.Left = 1600 + 1400 * Cos(45 * (T3 - 2) * pi / 180) M3tho.Top = 1600 + 1400 * Sin(45 * (T3 - 2) * pi / 180) M3tho.Width = 50 M3tho.Height = 50 M3tinh.Left = 1600 + 630 * Cos(45 * (T3tinh - 2) * pi / 180) M3tinh.Top = 1600 + 630 * Sin(45 * (T3tinh - 2) * pi / 180) M3tinh.Width = 50 M3tinh.Height = 50 End If End Sub Public Sub TrMT4() 'Hien thi len quet tron If D4.Text > Then T4 = * D4.Text \ Rmax T4tinh = 64 * (D4.Text - T4 * Rmax * 0.125) \ Rmax M4tho.Visible = True M4tinh.Visible = True M4tho.Left = 1600 + 1400 * Cos(45 * (T4 - 2) * pi / 180) M4tho.Top = 1600 + 1400 * Sin(45 * (T4 - 2) * pi / 180) M4tho.Width = 50 M4tho.Height = 50 M4tinh.Left = 1600 + 630 * Cos(45 * (T4tinh - 2) * pi / 180) M4tinh.Top = 1600 + 630 * Sin(45 * (T4tinh - 2) * pi / 180) M4tinh.Width = 50 M4tinh.Height = 50 End If End Sub Public Sub TrMT5() 'Hien thi len quet tron If D5.Text > Then T5 = * D5.Text \ Rmax T5tinh = 64 * (D5.Text - T5 * Rmax * 0.125) \ Rmax 'Label16.Caption = T5tinh - M5tho.Visible = True M5tinh.Visible = True M5tho.Left = 1600 + 1400 * Cos(45 * (T5 - 2) * pi / 180) M5tho.Top = 1600 + 1400 * Sin(45 * (T5 - 2) * pi / 180) M5tho.Width = 50 M5tho.Height = 50 M5tinh.Left = 1600 + 630 * Cos(45 * (T5tinh - 2) * pi / 180) M5tinh.Top = 1600 + 630 * Sin(45 * (T5tinh - 2) * pi / 180) M5tinh.Width = 50 M5tinh.Height = 50 End If 28 Bài tập lớn môn học: đường Định vị dẫn End Sub Public Sub TrMT6() 'Hien thi len quet tron If D6.Text > Then T6 = * D6.Text \ Rmax T6tinh = 64 * (D6.Text - T6 * Rmax * 0.125) \ Rmax M6tho.Visible = True M6tinh.Visible = True M6tho.Left = 1600 + 1400 * Cos(45 * (T6 - 2) * pi / 180) M6tho.Top = 1600 + 1400 * Sin(45 * T6 * pi / 180) M6tho.Width = 50 M6tho.Height = 50 M6tinh.Left = 1600 + 630 * Cos(45 * (T6tinh - 2) * pi / 180) M6tinh.Top = 1600 + 630 * Sin(45 * (T6tinh - 2) * pi / 180) M6tinh.Width = 50 M6tinh.Height = 50 End If End Sub '/////////////////////////////////////////////// Public Sub MulMT1() If D1.Text > Then T1 = * D1.Text \ Rmax Mu1tinh = 64 * (D1.Text - T1 * Rmax * 0.125) \ Rmax T1tinh = 512 * (D1.Text - T1 * Rmax * 0.125 - Rmax * Mu1tinh * 0.125 * 0.125) \ Rmax 'Label16.Caption = Mu1tinh thangtho.Visible = True thangtinh.Visible = True Mu1.Visible = True thangtho.Left = 1600 + 1400 * Cos(45 * (T1 - 2) * pi / 180) thangtho.Top = 1600 + 1400 * Sin(45 * (T1 - 2) * pi / 180) thangtho.Width = 50 thangtho.Height = 50 Mu1.Left = 1600 + 1000 * Cos(45 * (Mu1tinh - 2) * pi / 180) Mu1.Top = 1600 + 1000 * Sin(45 * (Mu1tinh - 2) * pi / 180) Mu1.Width = 50 Mu1.Height = 50 thangtinh.Left = 1600 + 630 * Cos(45 * (T1tinh - 2) * pi / 180) thangtinh.Top = 1600 + 630 * Sin(45 * (T1tinh - 2) * pi / 180) thangtinh.Width = 50 thangtinh.Height = 50 End If End Sub Public Sub MulMT2() If D2.Text > Then T2 = * D2.Text \ Rmax Mu2tinh = 64 * (D2.Text - T2 * Rmax * 0.125) \ Rmax T2tinh = 512 * (D2.Text - T2 * Rmax * 0.125 - Rmax * Mu2tinh * 0.125 * 0.125) \ Rmax 29 Bài tập lớn môn học: đường Định vị dẫn 'Label16.Caption = Mu1tinh M2tho.Visible = True M2tinh.Visible = True Mu2.Visible = True M2tho.Left = 1600 + 1400 * Cos(45 * (T2 - 2) * pi / 180) M2tho.Top = 1600 + 1400 * Sin(45 * (T2 - 2) * pi / 180) M2tho.Width = 50 M2tho.Height = 50 Mu2.Left = 1600 + 1000 * Cos(45 * (Mu2tinh - 2) * pi / 180) Mu2.Top = 1600 + 1000 * Sin(45 * (Mu2tinh - 2) * pi / 180) Mu2.Width = 50 Mu2.Height = 50 M2tinh.Left = 1600 + 630 * Cos(45 * (T2tinh - 2) * pi / 180) M2tinh.Top = 1600 + 630 * Sin(45 * (T2tinh - 2) * pi / 180) M2tinh.Width = 50 M2tinh.Height = 50 End If End Sub Public Sub MulMT3() If D3.Text > Then T3 = * D3.Text \ Rmax Mu3tinh = 64 * (D3.Text - T3 * Rmax * 0.125) \ Rmax T3tinh = 512 * (D3.Text - T3 * Rmax * 0.125 - Rmax * Mu3tinh * 0.125 * 0.125) \ Rmax 'Label16.Caption = Mu1tinh M3tho.Visible = True M3tinh.Visible = True Mu3.Visible = True M3tho.Left = 1600 + 1400 * Cos(45 * (T3 - 2) * pi / 180) M3tho.Top = 1600 + 1400 * Sin(45 * (T3 - 2) * pi / 180) M3tho.Width = 50 M3tho.Height = 50 Mu3.Left = 1600 + 1000 * Cos(45 * (Mu3tinh - 2) * pi / 180) Mu3.Top = 1600 + 1000 * Sin(45 * (Mu3tinh - 2) * pi / 180) Mu3.Width = 50 Mu3.Height = 50 M3tinh.Left = 1600 + 630 * Cos(45 * (T3tinh - 2) * pi / 180) M3tinh.Top = 1600 + 630 * Sin(45 * (T3tinh - 2) * pi / 180) M3tinh.Width = 50 M3tinh.Height = 50 End If End Sub Public Sub MulMT4() If D4.Text > Then T4 = * D4.Text \ Rmax 30 Bài tập lớn môn học: đường Định vị dẫn Mu4tinh = 64 * (D4.Text - T4 * Rmax * 0.125) \ Rmax T4tinh = 512 * (D4.Text - T4 * Rmax * 0.125 - Rmax * Mu4tinh * 0.125 * 0.125) \ Rmax 'Label16.Caption = Mu1tinh M4tho.Visible = True M4tinh.Visible = True Mu4.Visible = True M4tho.Left = 1600 + 1400 * Cos(45 * (T4 - 2) * pi / 180) M4tho.Top = 1600 + 1400 * Sin(45 * (T4 - 2) * pi / 180) M4tho.Width = 50 M4tho.Height = 50 Mu4.Left = 1600 + 1000 * Cos(45 * (Mu4tinh - 2) * pi / 180) Mu4.Top = 1600 + 1000 * Sin(45 * (Mu4tinh - 2) * pi / 180) Mu4.Width = 50 Mu4.Height = 50 M4tinh.Left = 1600 + 630 * Cos(45 * (T4tinh - 2) * pi / 180) M4tinh.Top = 1600 + 630 * Sin(45 * (T4tinh - 2) * pi / 180) M4tinh.Width = 50 M4tinh.Height = 50 End If End Sub Public Sub MulMT5() If D5.Text > Then T5 = * D5.Text \ Rmax Mu5tinh = 64 * (D5.Text - T5 * Rmax * 0.125) \ Rmax T5tinh = 512 * (D5.Text - T5 * Rmax * 0.125 - Rmax * Mu5tinh * 0.125 * 0.125) \ Rmax 'Label16.Caption = Mu1tinh M5tho.Visible = True M5tinh.Visible = True Mu5.Visible = True M5tho.Left = 1600 + 1400 * Cos(45 * (T5 - 2) * pi / 180) M5tho.Top = 1600 + 1400 * Sin(45 * (T5 - 2) * pi / 180) M5tho.Width = 50 M5tho.Height = 50 Mu5.Left = 1600 + 1000 * Cos(45 * (Mu5tinh - 2) * pi / 180) Mu5.Top = 1600 + 1000 * Sin(45 * (Mu5tinh - 2) * pi / 180) Mu5.Width = 50 Mu5.Height = 50 M5tinh.Left = 1600 + 630 * Cos(45 * (T5tinh - 2) * pi / 180) M5tinh.Top = 1600 + 630 * Sin(45 * (T5tinh - 2) * pi / 180) M5tinh.Width = 50 M5tinh.Height = 50 End If End Sub Public Sub MulMT6() If D6.Text > Then T6 = * D6.Text \ Rmax Mu6tinh = 64 * (D6.Text - T6 * Rmax * 0.125) \ Rmax T6tinh = 512 * (D6.Text - T6 * Rmax * 0.125 - Rmax * Mu6tinh * 0.125 * 0.125) \ Rmax 31 Bài tập lớn môn học: đường Định vị dẫn 'Label16.Caption = Mu1tinh M6tho.Visible = True M6tinh.Visible = True Mu6.Visible = True M6tho.Left = 1600 + 1400 * Cos(45 * (T6 - 2) * pi / 180) M6tho.Top = 1600 + 1400 * Sin(45 * (T6 - 2) * pi / 180) M6tho.Width = 50 M6tho.Height = 50 Mu6.Left = 1600 + 1000 * Cos(45 * (Mu6tinh - 2) * pi / 180) Mu6.Top = 1600 + 1000 * Sin(45 * (Mu6tinh - 2) * pi / 180) Mu6.Width = 50 Mu6.Height = 50 M6tinh.Left = 1600 + 630 * Cos(45 * (T6tinh - 2) * pi / 180) M6tinh.Top = 1600 + 630 * Sin(45 * (T6tinh - 2) * pi / 180) M6tinh.Width = 50 M6tinh.Height = 50 End If End Sub Public Sub VietNam1() Frame1.Caption = "Chọn phương pháp quét" Direct.Caption = "Phương pháp quét thẳng" Circl.Caption = "Phương pháp quét tròn" MulCircle.Caption = "Phương pháp quét nhiều vòng" Option4.Caption = "Phương pháp quét xoắn" Frame2.Caption = "Hướng quét Radar" Thuan.Caption = "Quét thuận " Nguoc.Caption = "Quét ngược" Frame3.Caption = "Chọn mục tiêu quét" Muctieu1.Caption = "Mục tiêu 1" Muctieu2.Caption = "Mục tiêu 2" Muctieu3.Caption = "Mục tiêu 3" Muctieu4.Caption = "Mục tiêu 4" Muctieu5.Caption = "Mục tiêu 5" Muctieu6.Caption = "Mục tiêu 6" tatca.Caption = "Tất cả" Frame6.Caption = "Thông số mục tiêu" Label1.Caption = "Mục tiêu 1" Label2.Caption = "Mục tiêu 2" Label3.Caption = "Mục tiêu 3" Label4.Caption = "Mục tiêu 4" Label5.Caption = "Mục tiêu 5" Label6.Caption = "Mục tiêu 6" Label10.Caption = "GãcP.V" Label11.Caption = "Góc Ng" Setting.Caption = "Thiết lập" Display.Caption = "Dừng" Exit1.Caption = "Thoát" 'Frame8.Caption = "Số mục tiêu" Frame7.Caption = " Thời gian" End Sub 32 Bài tập lớn môn học: đường Định vị dẫn Public Sub English1() Frame1.Caption = "Method of scan " Direct.Caption = "Directional scan" Circl.Caption = "Cicular scan " MulCircle.Caption = "Multi circle" Option4.Caption = "Helical" Frame2.Caption = "Select direction" Thuan.Caption = "Forward direction" Nguoc.Caption = "Opposite direction" Frame3.Caption = "Select target to scan" Muctieu1.Caption = "Target One" Muctieu2.Caption = "Target Two" Muctieu3.Caption = "Target Three" Muctieu4.Caption = "Target Four" Muctieu5.Caption = "Target Five" Muctieu6.Caption = "Target Six" tatca.Caption = "All" Frame6.Caption = "Information about target" Label1.Caption = "Target One" Label2.Caption = "Target Two" Label3.Caption = "Target Three" Label4.Caption = "Target Four" Label5.Caption = "Target Five" Label6.Caption = "Target Six" Label10.Caption = "Azimuth" Label11.Caption = "Elevation" Setting.Caption = "Setting" Display.Caption = "Pause" Exit1.Caption = "Exit" 'Frame8.Caption = "N.Target" Frame7.Caption = " Timer Curent" End Sub Private Sub Vn_Click() Lang = VietNam1 End Sub VI/ Kết chạy 1/Màn hình qt thẳng 33 Bài tập lớn mơn học: đường Định vị dẫn 2.Phương pháp quét tròn 34 Bài tập lớn mơn học: đường Định vị dẫn 3/Màn hình qt nhiều vịng 35 Bài tập lớn mơn học: đường nh v dn 4/ Mn hỡnh quýet Xóăn V)Kt lun: -Làm tập giúp em học tốt hiểu tốt môn học định vị dẫn đường -Bài tập mô radar giúp em hiểu biết thêm nguyên lý ,cách vận hành nh hoạt động đài rada thực tế - Bài tập làm radar cho em hình dung cách trực quan thực tế dài radar thật Tài liệu tham khảo : 36 ... "Mục tiêu 3" Muctieu4.Caption = "Mục tiêu 4" Muctieu5.Caption = "Mục tiêu 5" Muctieu6.Caption = "Mục tiêu 6" tatca.Caption = "Tất cả" Frame6.Caption = "Thông số mục tiêu" Label1.Caption = "Mục tiêu. .. = "Mục tiêu 1" Label2.Caption = "Mục tiêu 2" Label3.Caption = "Mục tiêu 3" Label4.Caption = "Mục tiêu 4" Label5.Caption = "Mục tiêu 5" Label6.Caption = "Mục tiêu 6" Label10.Caption = "GãcP.V"... Kết chạy 1 /Màn hình quét thẳng 33 Bài tập lớn môn học: đường Định vị dẫn 2.Phương pháp qt trịn 34 Bài tập lớn mơn học: đường Định vị dẫn 3 /Màn hình qt nhiều vịng 35 Bài tập lớn môn học: đường