1. 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

    Комментарии (15) RSS

    • Напряжение по английски Voltage, а тут Current - ток
      Ответить
      • U=IR так что можно кастовать при постоянном сопротивлении.
        Ответить
    • >>strReading = считали напряжение из устройства

      O_o Что это за магия?!
      Ответить
      • Код писал Девид Блейн мира VB
        Ответить
      • Да походу там был какой-то код. Но ОП его убрал и заменил на этот псевдокоммент.
        Ответить
        • Э-эх, испортил уличную магию ;)
          Ответить
        • ты бы еще сказал что деда мороза нет
          Ответить
          • Деда Мороза нет.
            Ответить
            • ты бы еще сказал что отдашь мне все свои деньги
              Ответить
              • Ты отдашь мне все свои деньги.
                Ответить
                • Не могу.. Сопротивляться... Вот 10 рублей... Копил на пиво...
                  Ответить
                • Блин, тупанул. Надо было написать "отдашь мне все свои деньги". Тогда бы получился простой и понятный алгоритм:
                  s/ты бы еще сказал что//
                  Ответить
    • - Да ты весь горишь! Молодец, догулялся вчера. Марш в постель, живо.
      Ответить

    Добавить комментарий