1. 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)
  2. 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)
  3. VisualBasic / Говнокод #8319

    −148

    1. 1
    2. 2
    Begin Brahman
    О чем молчат брахманы

    Брехем.

    alexoy, 27 Октября 2011

    Комментарии (5)
  4. VisualBasic / Говнокод #8248

    −149

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    Dim a as Stack
    Dim b as Stack
    
    For n :=8 to 1:
        a.Push 1
        b.Push 1 xor n
        if n xor 1 = 1 then
        begin
             a.push(b) b.push(a)
        end
    end

    Мультивложенные стеки
    Операции за О(1)
    Вставка, забывчивость
    О(1)
    Извлечение в От (1)
    От - О с чертой
    Константа, короче говоря.
    Настоящий стек.

    alexoy, 19 Октября 2011

    Комментарии (12)
  5. VisualBasic / Говнокод #8246

    −83

    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
    Sub Main()
            Dim MyArray() As Integer
            Dim start As Integer
            Dim ends As Integer
            Dim i As Integer
    
    
    
            For i = 0 To 10
    
    
    
                MyArray(i) = Console.ReadLine()
    
                i = i + 1
    
            Next
    
            'start = Console.Read
    
    
    
    
            Console.ReadKey()
        End Sub
    
    End Module

    как присвоить элементы массива значение введенное с клавиатуры?

    smitty, 19 Октября 2011

    Комментарии (12)
  6. VisualBasic / Говнокод #8157

    −97

    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
    Private Sub CommandButton1_Click() 'необходимо
        For q = 2 To 500
        For w = 25 To 34
        For e = 3 To 13
            If Лист1.Cells(q, 4) = "Затрачено [...]" Or Лист1.Cells(q, 4) = "Затрачено на [...]" Then
            If Лист1.Cells(q, 7) = Лист11.Cells(w, 1) Then
            If Лист1.Cells(q, 6) = Лист11.Cells(3, e) Then
                Лист11.Cells(w, e) = Лист11.Cells(w, e) + Лист1.Cells(q, 5)
                Rem Лист1.Cells(q, 11) = 151
            End If
            End If
            End If
        Next
        Next
        Next
    End Sub
    
    ...
    
    TextBox4.Value = CLng(cdop1 * (TextBox15.Value * Лист5.Cells(10, 11)) + cdop2 * (TextBox15.Value * Лист5.Cells(10, 11))) + CLng(TextBox53.Value)
    
    ...
    
    Лист1.Cells(a, 45) = TextBox32.Value ' отсрочка
    
    If IsDate(TextBox58.Value) And IsDate(TextBox62.Value) Then
    Лист1.Cells(a, 46) = CDate(TextBox62.Value) - CDate(TextBox58.Value) ' прошло дней
    End If
    Лист1.Cells(a, 47) = TextBox55.Value ' зарплата
    Лист1.Cells(a, 48) = TextBox63.Value ' штраф
    
    If CheckBox6.Value = True Then
    Лист1.Cells(a, 49) = 1 ' комплект
    Else
    Лист1.Cells(a, 49) = 0
    End If

    Ну и так далее.

    Беда, коль пироги начнёт печи сапожник, а макросы писать бухгалтер.

    lucidfox, 11 Октября 2011

    Комментарии (13)
  7. VisualBasic / Говнокод #7970

    −138

    1. 1
    2. 2
    10 PRINT "BUMP"
    20 GOTO 10

    0chan.ru/h[spoiler]Ссылка скоро может стать недействительной[/spoiler]

    ReallyBugMeNot, 24 Сентября 2011

    Комментарии (5)
  8. VisualBasic / Говнокод #6861

    −99

    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
    Dim byteOut(64) As Byte
            Dim i As Integer
            Try
                byteOut(0) = Len(outCName) + 5 'number bytes in output message
                byteOut(1) = &H0 'should be 0 for NXT
                byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
                byteOut(3) = &H9 'Send Bluetooth
                byteOut(4) = &H0 'Box Number - 1
                byteOut(5) = Len(outCName) + 1 'message size with null terminator
                For i = 1 To Len(outCName) 'copy bytes into output array
                    byteOut(i + 5) = Asc(Mid(outCName, i, 1))
                Next
                byteOut(Len(outCName) + 6) = &H0 'add null terminator
                SerialPort1.Write(byteOut, 0, Len(outCName) + 7) 'send message
    
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
            '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            Try
                byteOut(0) = Len(outWState) + 5 'number bytes in output message
                byteOut(1) = &H0 'should be 0 for NXT
                byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
                byteOut(3) = &H9 'Send Bluetooth
                byteOut(4) = &H1 'Box Number - 1
                byteOut(5) = Len(outWState) + 1 'message size with null terminator
                For i = 1 To Len(outWState) 'copy bytes into output array
                    byteOut(i + 5) = Asc(Mid(outWState, i, 1))
                Next
                byteOut(Len(outWState) + 6) = &H0 'add null terminator
                SerialPort1.Write(byteOut, 0, Len(outWState) + 7) 'send message
    
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
    
    <..ещё один раз..>
    
       '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            Try
                byteOut(0) = Len(outWindC) + 5 'number bytes in output message
                byteOut(1) = &H0 'should be 0 for NXT
                byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
                byteOut(3) = &H9 'Send Bluetooth
                byteOut(4) = &H3 'Box Number - 1
                byteOut(5) = Len(outWindC) + 1 'message size with null terminator
                For i = 1 To Len(outWindC) 'copy bytes into output array
                    byteOut(i + 5) = Asc(Mid(outWindC, i, 1))
                Next
                byteOut(Len(outWindC) + 6) = &H0 'add null terminator
                SerialPort1.Write(byteOut, 0, Len(outWindC) + 7) 'send message
    
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
    
            '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            Try
                byteOut(0) = Len(outHum) + 5 'number bytes in output message
                byteOut(1) = &H0 'should be 0 for NXT
                byteOut(2) = &H80 '&H0 = reply expected &H80 = no reply expected
                byteOut(3) = &H9 'Send Bluetooth
                byteOut(4) = &H4 'Box Number - 1
                byteOut(5) = Len(outHum) + 1 'message size with null terminator
                For i = 1 To Len(outHum) 'copy bytes into output array
                    byteOut(i + 5) = Asc(Mid(outHum, i, 1))
                Next
                byteOut(Len(outHum) + 6) = &H0 'add null terminator
                SerialPort1.Write(byteOut, 0, Len(outHum) + 7) 'send message
    
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try

    Говнокод почти трёхлетней давности. Понадобилось мне посмотреть, как я реализовывал "общение" по блютусу с Mindstorms NXT, и напоролся на вот это...

    RaZeR, 04 Июня 2011

    Комментарии (34)
  9. VisualBasic / Говнокод #6519

    −102

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    210 IF A$='1' THEN 2000
    220 IF A$='2' THEN 2010
    230 IF A$='3' THEN 2020
    240 IF A$='4' THEN 2030
    250 IF A$='5' THEN 2040
    260 IF A$='6' THEN 2060
    270 IF A$='7' THEN 2070
    280 IF A$='8' THEN 2080
    285 IF A$='9' THEN 4000
    290 IF A$='10' THEN 3000

    говнокод прямо с обложки книги по прикладному васику для ИТР

    bugmenot, 30 Апреля 2011

    Комментарии (78)
  10. VisualBasic / Говнокод #6455

    −99

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    If Not Me.Opacity > 1 Then 'полный провал
          Opacity = Opacity + 0.02
    Else
         Timer1.Enabled = False
    End If

    Часть кода из функции таймера

    undiscovered, 22 Апреля 2011

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