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

    −104

    1. 1
    Dim KolvoZnakov As String = IIf(SqlUser = "Beschastnova" Or SqlUser = "Rodionova", "00000", "00")

    Для двух привередливых бухов выводим аж 4 знака после запятой.

    axel1000, 22 Марта 2012

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

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

    −108

    1. 1
    Replace(Replace(Replace(Replace(Replace(sht1.Cells(i, 4).Value, "(кратность 4 шт)", ""), "O.F.", ""), "D1ECO", ""), "DECO", ""), "SK", "")

    Удаляем из ячейки Excel одно из возможно встречающихся в ней слов.

    Говнокод или вполне нормальный трюк?

    valemak, 28 Февраля 2012

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

  3. VisualBasic / Говнокод #9440

    −90

    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
    L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
Label4.Caption = L

If L > 50 Then
MsgBox "Вы не ввели свой вариант, ввод варианта обязателен для корректной работы программы", vbExclamation, "Ошибка"
L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
Label4.Caption = L
End If
    If L > 50 Then
        MsgBox "Ошибка. Попробуйте запустить приложение снова и выполнить все действия", vbCritical, "Ошибка"
        End

End If

    Третий раз не спрашиваем...

    vovams, 16 Февраля 2012

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

  4. VisualBasic / Говнокод #9394

    −110

    1. 1
    2. 2
    If f <> "" Then Shell(Path, AppWinStyle.Hide)
        If f = "" Then Shell(Path)

    Угу, про Else тогда еще не слышали :)

    ipro, 12 Февраля 2012

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

  5. VisualBasic / Говнокод #9391

    −112

    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
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    'http://www.gotdotnet.ru/files/1003/
Public Class Form1
    Public massiv(50), massiv1(50) As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String
        a = " " + TextBox1.Text
        For i As Integer = 1 To a.Length - 1
            For j As Integer = 1 To 44
                If a.Substring(i, 1).ToLower = massiv(j) Then
                    TextBox2.Text = TextBox2.Text + massiv1(j)
                    Exit For
                End If
            Next
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        massiv(1) = "а"
        massiv(2) = "б"
        massiv(3) = "в"
        massiv(4) = "г"
        massiv(5) = "д"
        massiv(6) = "е"
        massiv(7) = "ё"
        massiv(8) = "ж"
        '...
        massiv(31) = "э"
        massiv(32) = "ю"
        massiv(33) = "я"
        massiv(34) = "1"
        massiv(35) = "2"
        massiv(36) = "3"
        massiv(37) = "4"
        massiv(38) = "5"
        massiv(39) = "6"
        massiv(40) = "7"
        massiv(41) = "8"
        massiv(42) = "9"
        massiv(43) = "0"
        massiv(44) = " "
        '  ////////////////////////////////////////////////////////////////////////////////////
        massiv1(1) = "1"
        massiv1(2) = "2"
        massiv1(3) = "3"
        massiv1(4) = "4"
        massiv1(5) = "5"
        massiv1(6) = "6"
        massiv1(7) = "7"
        massiv1(8) = "8"
        massiv1(9) = "9"
        massiv1(10) = "a"
        massiv1(11) = "b"
        massiv1(12) = "c"
        massiv1(13) = "d"
        '...
        massiv1(31) = "v"
        massiv1(32) = "w"
        massiv1(33) = "x"
        massiv1(34) = "<"
        massiv1(35) = ">"
        massiv1(36) = "!"
        massiv1(37) = "="
        massiv1(38) = "?"
        massiv1(39) = "/"
        massiv1(40) = "@"
        massiv1(41) = "~"
        massiv1(42) = "\"
        massiv1(43) = "-"
        massiv1(44) = "_"

    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim g As String
        g = " " + TextBox1.Text
        For i As Integer = 1 To g.Length - 1
            For j As Integer = 1 To 44
                If g.Substring(i, 1).ToLower = massiv1(j) Then
                    TextBox2.Text = TextBox2.Text + massiv(j)
                    Exit For
                End If
            Next
        Next
    End Sub
End Class

    dreesto, 11 Февраля 2012

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

  6. VisualBasic / Говнокод #9220

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    For I = nrow_Start To nrow_Stop
    Do
        If Nrow_Frm1 = I Then Exit Do
        If Nrow_Frm2 = I Then Exit Do
        If Nrow_Frm3 = I Then Exit Do
        If Nrow_Frm4 = I Then Exit Do
    
        Cells(I, ncol_Period).FormulaR1C1 = formula
    Loop While False
Next I

    И такое встречается..

    hexman, 25 Января 2012

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

  7. VisualBasic / Говнокод #9200

    −107

    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
    GraphicsWindow.Width = 640
GraphicsWindow.Height = 480

GraphicsWindow.PenColor = "Yellow" 
For i = 0 To 250
  GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i )
EndFor

GraphicsWindow.PenColor = "Orange"
For i = 0 To 250 Step 10
  GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i)
EndFor

GraphicsWindow.BrushColor = "SteelBlue"
GraphicsWindow.FillRectangle (0,0, 640 , 230)
GraphicsWindow.BrushColor = "lightGreen"
GraphicsWindow.FillTriangle(0, 480, 0, 230, 250, 230)
GraphicsWindow.FillTriangle(640, 480, 640, 230, 390, 230)

GraphicsWindow.BrushColor = "Orange"
GraphicsWindow.FillEllipse (10, 30, 50, 50)  

GraphicsWindow.PenColor = "Yellow"
Turtle.Show()
y = 0
For i = 0 To 360 Step 30
Turtle.X =35
Turtle.Y = 55
Turtle.Angle = i
Turtle.PenUp()
Turtle.Move(25)
Turtle.PenDown()
If y = 1 Then
  Turtle.Move(10)
  y = 0
else  
  Turtle.Move(20)
  y = 1
endif
endfor

    KotoFey1ch, 23 Января 2012

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

  8. VisualBasic / Говнокод #9199

    −106

    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
    Turtle.Show()
Turtle.Move (200)
Turtle.TurnRight()
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnLeft()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.TurnRight()
Turtle.Move(200)

Turtle.PenUp()
Turtle.MoveTo(500, 0)
Turtle.MoveTo(500, 250)
Turtle.PenDown()
Turtle.Angle = 0
Turtle.Move(180)
Turtle.PenUp()
Turtle.Move(10)
Turtle.PenDown()
Turtle.Move(3)

    KotoFey1ch, 23 Января 2012

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

  9. VisualBasic / Говнокод #8538

    −94

    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
    ' ==== Пример №1 ====
strParentAsset = "Parent_Asset_OnetoOneRelationship_Child_NewEarlyStaged"
strChildAsset = "ChildAssetArray_NewEarlyStaged"
strArrAssetList = Split(strParentAsset & "," & strChildAsset, ",")

' ==== Пример №2 ====
strProjectNames="" & strTODO_Project & "1," & strTODO_Project & "2," & strTODO_Project & "3," & strTODO_Project & "4," & strTODO_Project & "5," & strTODO_Project & "6," & strTODO_Project & "7," & strTODO_Project & "8," & strTODO_Project & "9," & strTODO_Project & "10," & strTODO_Project & "11," & strTODO_Project & "12," & strTODO_Project & "13," & strTODO_Project & "14," & strTODO_Project & "15," & strTODO_Project & "16," & strTODO_Project & "17," & strTODO_Project & "18," & strTODO_Project & "19," & strTODO_Project & "20," & strTODO_Project & "21," & strATG_TODO_PROJECT22
strArrProjectNames= Split(strProjectNames,",")

' ==== Пример №3 ====
Dim strWeekday
...
ReDim strWeekday(7)
strWeekday(1)= "Sun":strWeekday(2)= "Mon":strWeekday(3)= "Tue":strWeekday(4)= "Wed":strWeekday(5)= "Thu":strWeekday(6)= "Fri":strWeekday(7)= "Sat"

    Примеры создания массивов из QTP-проекта, написанного индусами

    Lurker, 16 Ноября 2011

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

  10. VisualBasic / Говнокод #8534

    −93

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    ' Return the current date & time converted to GMT in string format
Public Function gf_GetGMTDateTimeString
	Dim strDateTime
	strDateTime=FormatDateTime(date(),vbgeneraldate) & " " & FormatDateTime(now(),vblongtime)
	strDateTime=DateAdd("h", -5, strDateTime)
	strDateTime=DateAdd("n", -30, strDateTime)
	gf_GetGMTDateTimeString=strDateTime
End Function

    Код из проекта на QTP, написанного индусами
    P.S. UTC+05:30 это Индия, для тех кто не понял

    Lurker, 16 Ноября 2011

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