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

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

−110

1
2

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

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

ipro, 12 Февраля 2012

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

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

−112

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
74
75
76
77
78
79
80
81
82
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)

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

−98

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

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

−107

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

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)

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

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

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

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

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

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

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

−148

1
2

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

Брехем.

alexoy, 27 Октября 2011

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

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

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

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

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

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