Visual basic vers visual C#
Bonjour à tous,
J'aimerai savoir si un driver DRIVER.h et une librairie library.lib peut être utilisé en c# ou me faut il une .dll (je ne fais pas trop la différence)
Ensuite peut on changer ce code en C# etant en Basic:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
| Private Sub cmdRead_Click ()
Dim ErrCde As Long ' Error code
Dim szErrMsg As String * 80' Error string
Dim DriverHandle As Long Dim AiConfig As PT_AIConfig
Dim AiVoltageIn As PT_AIVoltageIn
Dim voltage As Single
'Step 1: open device
ErrCde = DRV_DeviceOpen (0, DriverHandle)' Make sure device number = 0
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde,szErrMsg
Response = MsgBox (szErrMsg, vbOKOnly, "Error!!")
Exit Sub
End If
'Step 2: configure input range
AiConfig.DasChan = 0 ' channel: 0
AiConfig.DasGain = 0 ' gain code: 0
ErrCde = DRV_AIConfig (DriverHandle, AiConfig)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde,szErrMsg
Response = MsgBox (szErrMsg, vbOKOnly, "Error!!")
Exit Sub
End If
'Step 3: read value
AiVoltageIn.chan = AiConfig.DasChan
AiVoltageIn.gain = AiConfig.DasGain
AiVoltageIn.TrigMode = 0
AiVoltageIn.voltage = DRV_GetAddress (voltage)
ErrCde = DRV_AIVoltageIn (DriverHandle, AiVoltageIn)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox (szErrMsg, vbOKOnly, "Error!!")
Exit Sub
End If
'Step 4: display value
txtAIValue.Text = Format (voltage, "####0.00")
'Step 5: close device
ErrCde = DRV_DeviceClose (DriverHandle)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde,szErrMsg
Response = MsgBox (szErrMsg, vbOKOnly, "Error!!")
End If
End Sub |
Merci d'avance pour vos réponses et pour le temps que vous me consacrer (qui je sais est très précieux)
