1. VisualBasic / Говнокод #5200

    −103

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    Dim tmpStr As String = ""

        If E >= 100 And E <= 109 Then tmpStr = "Жёлтый"
        If E >= 110 And E <= 119 Then tmpStr = "Оранжевый"
        If E >= 120 And E <= 129 Then tmpStr = "Красный"
        If E >= 130 And E <= 139 Then tmpStr = "Синий/Фиолетовый"
        If E >= 140 And E <= 149 Then tmpStr = "Зелёный"
        If E >= 150 And E <= 159 Then tmpStr = "Коричневый/Чёрный"
        If E >= 160 And E <= 199 Then tmpStr = "Другие"

        If E >= 200 And E <= 209 Then tmpStr = "Сорбат"
        If E >= 210 And E <= 219 Then tmpStr = "Бензоат"
        If E >= 220 And E <= 229 Then tmpStr = "Сульфит"
        If E >= 230 And E <= 239 Then tmpStr = "Фенол/Формиат(метаноат)"
        If E >= 240 And E <= 259 Then tmpStr = "Нитрат"
        If E >= 260 And E <= 269 Then tmpStr = "Ацетат (этаноат)"
        If E >= 270 And E <= 279 Then tmpStr = "Лактат"
        If E >= 280 And E <= 289 Then tmpStr = "Пропиноат (пропаноат)"
        If E >= 290 And E <= 299 Then tmpStr = "Другие"

        If E >= 300 And E <= 305 Then tmpStr = "Сорбат"
        If E >= 306 And E <= 309 Then tmpStr = "Бензоат"
        If E >= 310 And E <= 319 Then tmpStr = "Сульфит"
        If E >= 320 And E <= 329 Then tmpStr = "Фенол/Формиат(метаноат)"
        If E >= 330 And E <= 339 Then tmpStr = "Нитрат"
        If E >= 340 And E <= 349 Then tmpStr = "Ацетат (этаноат)"
        If E >= 350 And E <= 359 Then tmpStr = "Лактат"
        If E >= 360 And E <= 369 Then tmpStr = "Пропиноат (пропаноат)"
        If E >= 370 And E <= 399 Then tmpStr = "Другие"

        If E >= 400 And E <= 409 Then tmpStr = "Альгинат"
        If E >= 410 And E <= 419 Then tmpStr = "Камедь"
        If E >= 420 And E <= 429 Then tmpStr = "Природное вещество"
        If E >= 430 And E <= 439 Then tmpStr = "Соединение полиоксиэтилена"
        If E >= 440 And E <= 449 Then tmpStr = "Природный эмульгатор"
        If E >= 450 And E <= 459 Then tmpStr = "Фосфат"
        If E >= 460 And E <= 469 Then tmpStr = "Соединение целлюлозы"
        If E >= 470 And E <= 489 Then tmpStr = "Соединение жирных кислот"
        If E >= 490 And E <= 499 Then tmpStr = "Другие"

        If E >= 500 And E <= 509 Then tmpStr = "Неорганическая кислота/основание"
        If E >= 510 And E <= 519 Then tmpStr = "Хлорид/Сульфат"
        If E >= 520 And E <= 529 Then tmpStr = "Сульфат/Гидроксид"
        If E >= 530 And E <= 549 Then tmpStr = "Соединение щелочных металлов"
        If E >= 550 And E <= 559 Then tmpStr = "Силикат"
        If E >= 570 And E <= 579 Then tmpStr = "Стеарат/Глюконат"
        If E >= 580 And E <= 599 Then tmpStr = "Другие"

        If E >= 620 And E <= 629 Then tmpStr = "Глютамат"
        If E >= 630 And E <= 639 Then tmpStr = "Инозинат"
        If E >= 640 And E <= 649 Then tmpStr = "Другие"

        If E >= 900 And E <= 909 Then tmpStr = "Воск"
        If E >= 910 And E <= 919 Then tmpStr = "Глазирователь"
        If E >= 920 And E <= 929 Then tmpStr = "Вещество, улучшающее мучное изделие"
        If E >= 930 And E <= 949 Then tmpStr = "Газ для упаковки"
        If E >= 950 And E <= 969 Then tmpStr = "Подсластитель"
        If E >= 990 And E <= 999 Then tmpStr = "Пенообразователь"

    Мой очень древний высер - программка на определение пищевых добавок "Е". Похожих фрагментов есть ещё несколько. И не лень было печатать! Select Case сюда бы больше подошёл, но я о нём тогда не знал.

    Запостил: RaZeR, 10 Января 2011

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

    • ava Lure Of Chaos 10.01.2011 16:06 # −1

      - не знал
      - не хотел знать
      - говнооптимизатор
      Ответить

    • ava anmiles 10.01.2011 20:26 # 0

      у меня настойчивый порыв данные в количестве более одной единицы выносить хотя бы в xmlки, это паттерн, доктор?
      Ответить

      • ava anmiles 10.01.2011 20:26 # −3

        это была самоирония :)
        проверочный код 4126
        Ответить

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