1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As New Integer
a = Int(TextBox1.Text)
buf(0) = Int(TextBox2.Text)
If ComboBox1.SelectedItem = "Inputs" Then
res = dc.writeBytes(libnodave.daveInputs, 0, a, 1, buf) //exception ici
End If
If ComboBox1.SelectedItem = "Outputs" Then
res = dc.writeBytes(libnodave.daveOutputs, 0, a, 1, buf) // là
End If
If ComboBox1.SelectedItem = "Flags" Then
res = dc.writeBytes(libnodave.daveFlags, 0, a, 1, buf) //et là
End If
End Sub |
Partager