VisualBasic — Говнокод.ру

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

−106

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
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)

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

−94

01
02
03
04
05
06
07
08
09
10
11
12
13
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)

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

−93

1
2
3
4
5
6
7
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)

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

−148

1
2

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

Брехем.

alexoy, 27 Октября 2011

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

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

−149

01
02
03
04
05
06
07
08
09
10
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)

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

−83

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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)

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

−97

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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

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

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

−138

1
2

10 PRINT "BUMP"
20 GOTO 10

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

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

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

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

−99

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
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)

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

−102

01
02
03
04
05
06
07
08
09
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)

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