Nghiên cứu hệ thống truyền dẫn quang tốc độ cao

tx Băng tần B, bước sóng, loại cáp (hệ số suy hao, hệ số tán sắc), chiều dài tuyến S Pin+suy hao >R Đ Cần khuếch đại: Tính số khuếch đại N Tính độ dài giới hạn tán sắc : Ldispersion S Ldispersion >L Đ Bù tán sắc Kết thúc 114 Hệ thống truyền dẫn quang tốc độ cao 7.2 Các chức phần mềm: - Thiết kế tuyến truyền dẫn quang với thông số đầu vào : công suất phát, chiều dài tuyến, độ suy hao tán sắc tuyến truyền dẫn, OSNR yêu cầu; kết số khuếch đại bù tán sắc cho hệ thống - Tính tốn thơng số cho tuyến như: độ suy hao, tán sắc, OSNR… - Mơ tốn chương cho hệ thống 10 Gb/s 40 Gb/s - Ngoài ra, chương trình cịn có sở liệu khuếch đại EDFA, loại sợi quang có thị trường 7.3 Các form phần mềm: 115 Hệ thống truyền dẫn quang tốc độ cao 116 Hệ thống truyền dẫn quang tốc độ cao 117 Hệ thống truyền dẫn quang tốc độ cao 118 Hệ thống truyền dẫn quang tốc độ cao 119 Hệ thống truyền dẫn quang tốc độ cao 7.4 Các hàm thiết kế chính: 7.4.1 Hàm nhập thiết bị EDFA: Private Sub cmdOK_Click() Dim str As String Dim str1 As String Dim str2 As String str = Trim(Form2.txtName.Text) str1 = Trim(Form2.txtGainMin.Text) str2 = Trim(Form2.txtGainMax.Text) Form2.Data1.Refresh Form2.Data1.Recordset.MoveFirst Do While Not Form2.Data1.Recordset.EOF If Form2.Data1.Recordset.Fields("Name") = str And Form2.Data1.Recordset.Fields("GainMin") = str1 And Form2.Data1.Recordset.Fields("GainMax") = str2 Then Exit Do Form2.Data1.Recordset.MoveNext Loop If Form2.Data1.Recordset.EOF And str "" Then Form2.Data1.Recordset.AddNew Form2.Data1.Recordset.Fields("Name") = str Form2.Data1.Recordset.Fields("GainMin") = Val(str1) Form2.Data1.Recordset.Fields("GainMax") = Val(str2) Form2.Data1.Recordset.Fields("WavelengthMin") = Val(Trim(Form2.txtWavelengthmin.Text)) Form2.Data1.Recordset.Fields("WavelengthMax") = Val(Trim(Form2.txtWavelengthMax.Text)) Form2.Data1.Recordset.Fields("InputSignalmin") = Trim(Form2.txtInputSignalMin.Text) Form2.Data1.Recordset.Fields("InputSignalmax") = Trim(Form2.txtInputSignalMax.Text) Form2.Data1.Recordset.Fields("Psat") = Trim(Form2.txtPsat.Text) Form2.Data1.Recordset.Fields("GainFlatness") = Trim(Form2.txtGainFlatness.Text) Form2.Data1.Recordset.Fields("OperatingTemperature") = Trim(Form2.txtT.Text) Form2.Data1.Recordset.Fields("Noisefigure") = Val(Trim(Form2.txtT.Text)) 120 Hệ thống truyền dẫn quang tốc độ cao Form2.Data1.Recordset.Fields("Conector") = Trim(Form2.txtConector.Text) Form2.Data1.Recordset.Fields("Dimension") = Trim(Form2.txtDimension.Text) Form2.Data1.Recordset.Update Form2.Data1.Refresh Else If str = "" Then Y = MsgBox("Input kind of Equipment", vbOKOnly, "Warning") Else Y = MsgBox("this Equipment existed", vbOKOnly, "Warning") End If End If Form2.txtName.Text = "" Form2.txtInputSignalMin.Text = "" Form2.txtInputSignalMax.Text = "" Form2.txtGainMin.Text = "" Form2.txtGainMax.Text = "" Form2.txtGainFlatness.Text = "" Form2.txtWavelengthmin.Text = "" Form2.txtWavelengthMax.Text = "" Form2.txtNF.Text = "" Form2.txtT.Text = "" Form2.txtPsat.Text = "" Form2.txtDimension.Text = "" Form2.txtWavelengthmin.Text = "" Form2.txtWavelengthMax.Text = "" Form2.txtConector.Text = "" End Sub 7.4.2 Hàm xoá thiết bị EDFA: Private Sub cmdDel_Click() If Not Form4.Data1.Recordset.EOF Then Form4.Data1.Recordset.Delete End If Form4.txtName.Text = "" Form4.txtInputSignalMin.Text = "" Form4.txtInputSignalMax.Text = "" 121 Hệ thống truyền dẫn quang tốc độ cao Form4.txtGainMin.Text = "" Form4.txtGainMax.Text = "" Form4.txtGainFlatness.Text = "" Form4.txtNF.Text = "" Form4.txtWavelengthmin.Text = "" Form4.txtWavelengthMax.Text = "" Form4.txtPsat.Text = "" Form4.txtT.Text = "" Form4.txtDimension.Text = "" Form4.txtConector.Text = "" End Sub 7.4.3 Hàm thiết kế tuyến: Private Sub cmd1_Click() Dim a1, a2, alpha, Ptx, M, NEP, r, Ba, donhay, f As Currency If frm_thietke.txtPphat.Text = "" Then MsgBox ("chua nhap cong suat phat") If frm_thietke.txtdaithong.Text = "" Then MsgBox ("chua nhap dai thong") If frm_thietke.txtdonhay.Text = "" Then MsgBox ("chua nhap nhay") If frm_thietke.txtbuocsong.Text = "" Then MsgBox ("chua nhap thong so buoc song") If frm_thietke.txtchieudai.Text = "" Then MsgBox ("chua nhap chieu dai tuyen") If frm_thietke.txtdaithong.Text = "" Then MsgBox ("chua nhap dai thong") If frm_thietke.txths_suyhao.Text = "" Then MsgBox ("chua nhap he so suy hao") f = Val(frm_thietke.txtbuocsong.Text) If frm_thietke.txtbuocsong.Text "" And frm_thietke.txtchieudai.Text "" And frm_thietke.txtdaithong.Text "" And frm_thietke.txths_suyhao.Text "" And frm_thietke.txtPphat.Text "" And frm_thietke.txtdaithong.Text "" And frm_thietke.txtdonhay.Text "" Then alpha = Val(frm_thietke.txths_suyhao.Text * frm_thietke.txtchieudai.Text) alpha = 10 ^ (-alpha / 10) If alpha = Then MsgBox (" gia tri nhap vuot qua gioi han tinh toan cua chuong trinh Co the chieu dai tuyen qua lon ") 122 Hệ thống truyền dẫn quang tốc độ cao Else NEP = M=1 r = 0.5 Ptx = Val(frm_thietke.txtPphat.Text) Ba = Val(frm_thietke.txtdaithong.Text) Ba = Ba * 10 ^ a1 = (alpha * r * M * Ptx) ^ a2 = (((NEP ^ 2) + * (1.6 * 10 ^ -19) * r * Ptx * alpha * (M ^ 2)) * Ba) If a1 = Or a2 = Then MsgBox (" gia tri nhap vuot qua gioi han tinh toan cua chuong trinh Co the chieu dai tuyen qua lon ") Unload frm_thietke Load Form1 Form1.Show Else SNR = ((alpha * r * M * Ptx) ^ 2) / (((NEP ^ 2) + * (1.6 * 10 ^ -19) * r * Ptx * alpha * (M ^ 2)) * Ba) donhay = Val(frm_thietke.txtdonhay.Text) donhay = 10 ^ (donhay / 10) If SNR > donhay Then MsgBox ("khong can su dung khuech dai ") Else MsgBox (" Can su dung khuech dai Hay nhap tham so cho bo khuech dai.") frm_thietke.Hide Load frmDisplay frmDisplay.Show End If End If End If End If End Sub 7.4.4 Hàm tính tốn thơng số hệ thống: Private Sub cmdOK_Click() 123 ... Hệ thống truyền dẫn quang tốc độ cao 116 Hệ thống truyền dẫn quang tốc độ cao 117 Hệ thống truyền dẫn quang tốc độ cao 118 Hệ thống truyền dẫn quang tốc độ cao 119 Hệ thống truyền dẫn quang tốc. . .Hệ thống truyền dẫn quang tốc độ cao 7.2 Các chức phần mềm: - Thiết kế tuyến truyền dẫn quang với thông số đầu vào : công suất phát, chiều dài tuyến, độ suy hao tán sắc tuyến truyền dẫn, ... cập đến thành phần hệ thống truyền dẫn quang tốc đô cao (như: sợi quang, phát, thu, khuếch đại quang) yếu tố ảnh hưởng đến hệ thống (tán sắc, phi tuyến, suy hao,…) Các hệ thống 40 Gb/s tiến