1. Список говнокодов пользователя kempendyi

    Всего: 1

  2. VisualBasic / Говнокод #16439

    −125

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 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)))

    Супер каст.

    kempendyi, 29 Июля 2014

    Комментарии (14)