- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
Dim dLoadCurrent As Double
Dim strReading As String = String.Empty
Dim strTempReading As String
strReading = Space(20)
strReading = считали напряжение из устройства
strTempReading = CStr(InStr(1, strReading, vbLf, CompareMethod.Binary))
dLoadCurrent = CDbl(Left(strReading, CShort(strTempReading)))
guest 29.07.2014 10:52 # +3
absolut 29.07.2014 14:29 # +2
WGH 29.07.2014 15:42 # +1
kegdan 29.07.2014 16:07 # 0
O_o Что это за магия?!
Cascader 31.07.2014 08:34 # 0
bormand 31.07.2014 08:49 # 0
TauSigma 31.07.2014 09:04 # 0
kegdan 31.07.2014 09:55 # −1
bormand 31.07.2014 10:06 # 0
kegdan 31.07.2014 10:14 # −1
bormand 31.07.2014 10:16 # +4
kegdan 31.07.2014 10:19 # 0
bormand 31.07.2014 10:30 # +1
3.14159265 02.08.2014 00:59 # 0
LHXzxZk 25.08.2021 05:45 # 0