Говнокод #14127 — VisualBasic

VisualBasic / Говнокод #14127

−132
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
```
1.TextWindow.WriteLine ("Напиши число от 0 до 9 и я переведу его на английский")

2.Число = TextWindow.ReadNumber()

3.If Число = "0" Then

4.TextWindow.WriteLine ("Zero")

5.ElseIf Число = "1" Then

6.TextWindow.WriteLine ("One")

7.ElseIf Число = "2" Then

8.TextWindow.WriteLine ("Two")

9.ElseIf Число = "3" Then

10.TextWindow.WriteLine ("Three")

11.ElseIf Число = "4" Then

12.TextWindow.WriteLine ("Four")

13.ElseIf Число = "5" Then

14.TextWindow.WriteLine ("Five")

15.ElseIf Число = "6" Then

16.TextWindow.WriteLine ("Six")

17.ElseIf Число = "7" Then

18.TextWindow.WriteLine ("Seven")

19.ElseIf Число = "8" Then

20.TextWindow.WriteLine ("Eight")

21.ElseIf Число = "9" Then

22.TextWindow.WriteLine ("Nine")

23.Else

24.TextWindow.WriteLine ("Не знаю таких больших цифр")

25.EndIf
```
elseif число=10 then
msgbox "программа бо-бо"
else
msgbox "программа бо-бо"

http://vbbook.ru/small-basic/ysloviya--primeru-small-basic/

Запостил: Stertor, 23 Ноября 2013

Tweet
Комментарии (40) RSS
- bormand 23.11.2013 18:34 # +3
  
  Этот пример больше бы к case или switch подошел (не знаю как он называтся в этом вашем VB)...
  
  P.S. Номера строк напоминают мне о древних бейсиках, в которых еще не было структурного программирования, и код на 50% состоял из goto...
  Ответить
  - kegdan 23.11.2013 21:28 # +2
    
    Привет всем, братцы, что горело то? Всмысле че это мой уютненький падал?
    
    Зови их JMP - им приятнее)
    Ответить
    - 1024-- 23.11.2013 21:54 # +1
      
      > что горело то
      доменопроблемы
      см. https://twitter.com/mr_The/statuses/393305882014265344
      и да, надо обязательно отметиться в http://govnokod.ru/14073
      Ответить
      
      kegdan 24.11.2013 07:46 # −1
      
      хитрая подстава)
      Ответить
    - Stertor 23.11.2013 22:06 # −3
      
      Где тебя пингвины носили?
      Ответить
      
      kegdan 24.11.2013 07:59 # −1
      
      не поверишь - сдавал администрирование под юниксы) Ну и еще F# учил, писал стихи, лапал дев, посещал психотерапевта... А как твоя никчемная жизнь?)
      Ответить
      
      bormand 24.11.2013 09:40 # +4
      
      > сдавал администрирование под юниксы
      После консолечки ничего не болит? :)
      
      > лапал дев
      А козерогов и водолеев?
      Ответить
      
      kegdan 24.11.2013 10:46 # 0
      
      >После консолечки ничего не болит? :)
      
      да нет, я привычный)
      
      >А козерогов и водолеев?
      
      и тех и других. И всяких раков в planetside 2
      Ответить
      
      Stertor 24.11.2013 12:03 # −3
      
      ааа, то есть уже все свободно входит-выходит, входит выходит?
      Ответить
      
      Stertor 24.11.2013 11:57 # −3
      
      Он сам козерог
      с уважением, Ваш кэп.
      
      Ответить
      
      kegdan 24.11.2013 12:23 # +3
      
      я телец а ты петросян-тян
      Ответить
      
      Stertor 24.11.2013 12:58 # −3
      
      Давай бодаться, тогда. Солженицына читал - "Бодался теленок с дубом" ?
      Ответить
      
      kegdan 24.11.2013 13:52 # 0
      
      не раньше чем ты смешно пошутишь
      Ответить
      
      Stertor 24.11.2013 14:20 # −3
      
      Не раньше, чем ты перестанешь быть сухарем.
      Ответить
      
      Stertor 24.11.2013 11:59 # −1
      
      Ничего не никчемная. Я живу насыщенной жизнью: пишу коммерческие проги, учил многопоточное программирование на делфи, писал в прозе и лапал парней.
      Ответить
  - guest 21.02.2014 21:02 # 0
    
    А в Vb.NET до сих пор оператор Goto имеется.
    Ответить
- Stertor 23.11.2013 22:07 # −2
  
  Пост не читал, плюсанул.
  Ответить
- Xom94ok 23.11.2013 23:16 # +6
  
  >>msgbox "программа бо-бо"
  До нынешнего момента я не знал, каким текстом сопровождать отловленные исключения неизвестного типа и выводил сухое "unknown error"... Теперь знаю :)
  Ответить
- Elvenfighter 24.11.2013 00:44 # −1
  Число = TextWindow.ReadNumber()
  
  А какой диссонанс начнётся, когда кто-то введёт -1. Оно ведь умеет отрицательные числа?
  Ответить
  - kegdan 24.11.2013 07:48 # −1
    
    "Не знаю таких больших цифр" начнется
    Ответить
    - Elvenfighter 24.11.2013 15:02 # −1
      
      > "Не знаю таких больших цифр" начнется
      > -1
      
      Я про это и говорил. Диссонанс и философия.
      Ответить
      
      1024-- 24.11.2013 15:15 # 0
      
      С точки зрения преобразования к целому (по крайней мере, в C), -1 - достаточно большое число, которое не грех не знать :)
      Ответить
  - bormand 24.11.2013 09:42 # +3
    
    А надо то всего лишь поправить пару строк:
    TextWindow.WriteLine ("Напиши цифру и я переведу ее на английский") TextWindow.WriteLine ("Не знаю я такой цифры")
    И тогда все претензии к коду будут сняты ;)
    Ответить
    - kegdan 24.11.2013 09:48 # −1
      
      А как же притензии к тому, что можно было массив запилить, а не лопатить ифы?
      Ответить
      
      bormand 24.11.2013 10:26 # 0
      
      > можно было массив запилить
      Массивы в примере, показывающем как юзать ифы? :) Лолшто.
      
      http://vbbook.ru/small-basic/ysloviya--primeru-small-basic/
      Ответить
      
      kegdan 24.11.2013 10:47 # 0
      
      Эва как все запущено - учить программированию через анус^W VB. Уж лучше сразу C# что бы синтаксис не препеучивать
      Ответить
      
      Stertor 24.11.2013 12:01 # −3
      
      Еще один проповёдник от c# выискался... Кроме тебя сишка-за-решеткой и нах никому не сдалась. Будь пацаном, выучи делфи, бум вместе дельфинить.
      Ответить
      
      anonimb84a2f6fd141 24.11.2013 12:13 # −1
      
      >Кроме тебя сишка-за-решеткой и нах никому не сдалась.
      Спорное утверждение. Сперморешетка и есть новый делфи, без сегфолтов и утечек :) Заточеная под гуй программирование.
      Ответить
      
      Stertor 24.11.2013 12:16 # −3
      
      От тебя не ожидал. А еще друг называется...
      Ответить
      
      anonimb84a2f6fd141 24.11.2013 15:25 # −2
      
      Лол. Чего ты от меня не ожидал? Я вроде писал, что без сборки мусора нормально работать не умею. Да и насчет друга...
      Ответить
      
      Stertor 24.11.2013 15:28 # −4
      
      Ты мне прямо скажи: ты мне друг или нет?
      Ответить
      
      anonimb84a2f6fd141 24.11.2013 16:39 # −2
      
      Я тебе такой же друг, как и все остальные мне или тебе друзья.
      Ответить
      
      Stertor 24.11.2013 16:59 # −4
      
      все ясно с тобой.
      Ответить
      
      kegdan 24.11.2013 18:15 # −1
      
      Никто тебя не любит. Ня ня ня!
      Ответить
      
      Stertor 24.11.2013 18:18 # −4
      
      меня не выбирают - я выбираю.
      Ответить
      
      kegdan 24.11.2013 18:21 # −1
      
      И что ты выбираешь? Анальный секс?
      Ответить
      
      Stertor 24.11.2013 18:22 # −4
      
      Отнюдь. И тебе не советую - велик риск подхватить восходящую инфекцию, которая оставит ебущего без почек.
      Ответить
      
      roman-kashitsyn 24.11.2013 11:30 # 0
      
      примеры нужно показывать уместные, а не ифы ради ифов
      Ответить
      
      kegdan 24.11.2013 11:46 # 0
      
      Нет, тут как раз нужно обьяснить что есть иф - поэтому ифы ради ифов и написаны
      Ответить
      
      roman-kashitsyn 24.11.2013 12:02 # 0
      
      Ну так я о чём - не нужно говорить "есть иф" и использовать его неуместно. Нужно показывать его на адекватных примерах, где иф действительно подходит.
      Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Помни, guest, за тобой могут следить!

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

Говнокод: по колено в коде.

VisualBasic / Говнокод #14127

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

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