- Error inde x: Xác định lồi cùa một hiến cụ the Hong Variable hiiidiiii;
1. Phần mã lệnh trong giao diện Đo thông lượng kênh truyền của modul " Quản lí
thông lượng kênh truyền"
Private Dala As Long, SpeedCH As Long, HThi As Boolean
Private ChoNhap As Boolean, Datai As Long, LT As Integer Private GTCB As Single, A 1 ( 12) As Long, A2(12) As Long
Private B l(12) As Single, B2( 12) As Single, gtX As Long, gtY As Long Private Sub CapnhaiHSO
Graph 1 .ThisSel = 3 G raphl.Graph Data = B(l) Graphl.Graph Data = B(2) Graph l.GraphDala = B(3) Graph 1 .GrapliDala = B(4) Graph l.GraphDala = B(5) Graph 1.Graph Data = B(6) Graph 1 .GraphData = B(7)
G raphl. Graph Data = B(8)
Graph l.GraphData = B(9) Graph l.GraphData = B(10) Graph 1 .GraphDala = B( 11 )
Graph 1 .Graph Data = B( 12)
Graph 1 .Til is Sc I = 2
Graph 1 .GraphDala = Bl( 1 ) Graph 1.Graph Data = Bl(2) Graph l.GraphDala = Bl(3)
Graph 1.Graph Data = B l(4 )
G raphl. Graph Data = Bl(5) Graph 1 .GraphDala = Bl(6) Graph l.GraphDala = Bl(7) Graph l.GraphDala = Bl(8)
Graph 1.Graph Data = B l(9) Graph 1 .GrapliDala = HI (10) Graph I.Graph Data = Bl ( l 1)
Graph 1 .Graph Data = Hi ( 12)
Graph!.Til isSci = I
G raphl.Graph Data = B2(l)
G raphl.Graph Data = B2(2) Graph 1.Graph Dala = B2(3)
- 101 -
Graph 1 .Graph Data = B2(5) Graph 1 .Graph Data = B2(6) Graph 1 GraphDala = B2(7) Grapli 1 GraphDala = B2(8) Graph 1.Graph Data = B2(9) Graph 1 .GraphData = B2( 10) Graph 1 .GraphDala = B2( 11 ) Graph 1.Graph Data = B2(12)
Graph 1 .LabeiTcxi = TG( 1 ) Graph I .LabclTexl = TG(2) Graph I LabclTexl = TG(3) Graph 1 .LabclTexl = TG(4) Graph 1 .Label! ext = TG(5) Graph 1 .LabclTcxl = TG(6) Graph 1 .LabclTcxl = TCi(7) Graph 1 .LabelTexl = TG(X) Graph 1. Label! ext = TG(9) Graph I .Label!ext = TG(10) Graph 1 .LabelTcxl = TC( 1 i ) Graph 1 .Label'l ext = Tü( 12) Graph 1 .DrawMode = 2 End Sub
Private Sub CapnhatTLO Dim I As Integer
Graph I .ThiSvSel = 3
Graph I -GraphDala = A( I ) Graph 1.G r a p h Data = A(2) Graph I .GraphData = A(3) Graph 1 .Graph Data = A(4) Graph I .GraphData = A(5) Graph 1 .GraphDala = A(6) Graph 1 .GraphDala = A(7) Graph 1 .GraphData = A(8) Graph 1 .Graph Data = A(9) Graph 1 .Graph Data = A(10) Graph 1 .Graph Data = A( 11 ) Graph l.GraphDala = A(12) Graph 1 .ThisSel = 2
Graph 1 .Graph Data = A 1 ( 1 ) Graph 1 .Graph Data = A 1 (2) Graph 1 .Graph Data = A 1 (3) Graph 1 .GraphData = A ! (4)