1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Public function CCresult()
Dim a(6), b(6) As Char
a = ComboBox9.SelectedItem
b = ComboBox11.SelectedItem
s0(0) = App.Bus.GetSignal(c, b + "C1_All_CCResult_" + a + d, "DU1_CC")
s0(1) = App.Bus.GetSignal(c, b + "C1_All_CCResult_" + a + d, "DU1_Database_CC")
s0(2) = App.Bus.GetSignal(c, b + "C1_All_CCResult_" + a + d, "DU1_Download_CC")
s0(3) = App.Bus.GetSignal(c, b + "C1_All_CCResult_" + a + d, "DU2_CC")
s0(4) = App.Bus.GetSignal(c, b + "C1_All_CCResult_" + a + d, "DU2_Database_CC")
s0(5) = App.Bus.GetSignal(c, b + "C1_All_CCResult_" + a + d, "DU1_Download_CC")
TextBox13.Text = s0(0).Value
TextBox1.Text = s0(3).Value
TextBox2.Text = s0(1).Value
TextBox3.Text = s0(4).Value
TextBox4.Text = s0(2).Value
TextBox9.Text = s0(5).Value
End function |
Partager