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

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

−125.2

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

Sub Макрос2()
    Dim pos0, pos1, pos2, pos3, pos4, pos5, pos6, pos7, pos8, pos9, digitPos As Integer

    For Counter = 2 To 999999
        digitPos = 1000
    
        Set curCell = Worksheets("Лист1").Cells(Counter, 5)
        Set primCell = Worksheets("Лист1").Cells(Counter, 6)
    
        pos0 = InStr(1, primCell.Value, "0")
        pos1 = InStr(1, primCell.Value, "1")
        pos2 = InStr(1, primCell.Value, "2")
        pos3 = InStr(1, primCell.Value, "3")
        pos4 = InStr(1, primCell.Value, "4")
        pos5 = InStr(1, primCell.Value, "5")
        pos6 = InStr(1, primCell.Value, "6")
        pos7 = InStr(1, primCell.Value, "7")
        pos8 = InStr(1, primCell.Value, "8")
        pos9 = InStr(1, primCell.Value, "9")
        
        If pos0 > 0 And pos0 < digitPos Then
            digitPos = pos0
        End If
        
        If pos1 > 0 And pos1 < digitPos Then
            digitPos = pos1
        End If
        
        If pos2 > 0 And pos2 < digitPos Then
            digitPos = pos2
        End If
        
        If pos3 > 0 And pos3 < digitPos Then
            digitPos = pos3
        End If
        
        If pos4 > 0 And pos4 < digitPos Then
            digitPos = pos4
        End If
        
        If pos5 > 0 And pos5 < digitPos Then
            digitPos = pos5
        End If
        
        If pos6 > 0 And pos6 < digitPos Then
            digitPos = pos6
        End If
        
        If pos7 > 0 And pos7 < digitPos Then
            digitPos = pos7
        End If
        
        If pos8 > 0 And pos8 < digitPos Then
            digitPos = pos8
        End If
        
        If pos9 > 0 And pos9 < digitPos Then
            digitPos = pos9
        End If
        
        'MsgBox Left(primCell.Value, digitPos - 1)
        
        curCell.Value = Trim(Left(primCell.Value, digitPos - 1))
    Next Counter
End Sub

Я идиот и не умею программировать в excel!!
Мне надо было отрезать текст до первой цифры в одной ячейке и засунуть его в другую.
Наверное, надо было почитать про массивы в VB

striker, 12 Апреля 2010

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

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

−132.6

1
2
3
4

If objRow.IsQuestion_SpecialismNull Then
            '--- ASK DEAN
            Return True
End If

Dean - наш тим лид

6istik, 05 Апреля 2010

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

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

−130.4

1
2
3
4

Private Sub Form_AfterInsert() ' событие после вставки новой записи в таблицу table
  runSQL ("UPDATE table set TYPE= 9 where ID = (select max(p.ID) from table p )")
  Me.Form.Requery
End Sub

Событие на форме в Access
А достаточно было просто повесить на форму поле с источником данных TYPE и дефолтовым значением 9.

vie, 01 Марта 2010

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

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

−122.2

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

Private Sub Form_Load()
'загрузка изображения
Dim xx(), yy(), zz()
Dim i As Integer
Dim maxx As Integer
Dim maxy As Integer
Dim minx As Integer
Dim miny As Integer
xx = Array(0#, 1#, 1#, 11#, 11#, 6#, 11#, 1#, 1#, 11#, 11#)
yy = Array(0#, 11#, 1#, 1#, 6#, 11#, 11#, 11#, 1#, 1#, 11#)
zz = Array(0#, 11#, 11#, 11#, 11#, 11#, 6#, 1#, 1#, 1#, 1#)
For i = 1 To 10
 x(i) = xx(i) * 1.5
 y(i) = yy(i) * 1.5
 z(i) = zz(i) * 1.5
 x0(i) = xx(i)
 y0(i) = yy(i)
 z0(i) = zz(i)
Next
maxx = 20
minx = -20
maxy = 20
miny = -20
Picture1.ScaleMode = 0
Picture1.Scale (minx, maxy)-(maxx, miny)
Call Angle(210, 30)
Call Cube(x(), y(), z())
sd = False
End Sub

Вот такая вот куча малопонятного говна

flash, 21 Января 2010

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

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

−124.3

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

'...
        Dim l0 As New List(Of Integer)
        Dim num = Convert.ToInt32(Console.ReadLine)
        For i = 1 To num Step 1
            Dim nn, nm As Double
            nn = num / i
            nm = Convert.ToInt32(num / i)
            If nn = nm Then
                l0.Add(i)
            End If
        Next
        If l0.Count = 2 Then
            Console.WriteLine("Number {0} is simply.", num)
        Else
            Console.WriteLine("Number {0} is not simply.", num)
        End If
        Console.ReadKey()
'...

Эх, детство, детство... Когда-то нужно было написать программу проверки числа на простоту.

psina-from-ua, 19 Января 2010

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

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

−135.9

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

Module Module1

    Private Const VK_ENTER As UInt32 = &HD
    Private Const KEYEVENTF_KEYUP As UInt32 = &H2
    Declare Auto Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Declare Auto Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
    Declare Auto Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


    Sub Main()
        Console.Title = "AntiPornoAd"
        Console.Write("Подключение к серверу для загрузки списка запрещенных сайтов.")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.Write(".")
        Sleep(500)
        Console.WriteLine("")
        Console.Title = "Попытка сбора данных об ошибке..."
        Console.WriteLine("По неизвестной причине произошла ошибка в программе")
        Console.WriteLine("Начался сбор данных об ошибке")
        Console.WriteLine("Пожалуйста не закрывайте программу до завершения")
        Dim key As Integer
        Do While True
            key = GetAsyncKeyState(2)
            If key <> 0 Then
                Sleep(90)
                keybd_event(VK_ENTER, 0, 0, 0)
                keybd_event(VK_ENTER, 0, KEYEVENTF_KEYUP, 0)
                Sleep(50)
            End If

        Loop
    End Sub
End Module

Попробуйте запустить на компе подруги - масса эмоций гарантирована
(не будет работать правая кнопка мыши :))

x0wl, 16 Декабря 2009

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

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

−124.6

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

Function DosToKoi ( TextBlock )
	FOR TXB = 1 TO LEN( TextBlock )
		Select Case Asc( Mid( TextBlock, TXB, 1 ) )
			Case 192 DosToKoi = DosToKoi & Chr(225)
			Case 193 DosToKoi = DosToKoi & Chr(226)
			Case 194 DosToKoi = DosToKoi & Chr(247)
			Case 195 DosToKoi = DosToKoi & Chr(231)
			Case 196 DosToKoi = DosToKoi & Chr(228)
			Case 197 DosToKoi = DosToKoi & Chr(229)
			Case 168 DosToKoi = DosToKoi & Chr(179)
			Case 198 DosToKoi = DosToKoi & Chr(246)
			Case 199 DosToKoi = DosToKoi & Chr(250)
			Case 200 DosToKoi = DosToKoi & Chr(233)
			Case 201 DosToKoi = DosToKoi & Chr(234)
			Case 202 DosToKoi = DosToKoi & Chr(235)
			Case 203 DosToKoi = DosToKoi & Chr(236)
			Case 204 DosToKoi = DosToKoi & Chr(237)
			Case 205 DosToKoi = DosToKoi & Chr(238)
			Case 206 DosToKoi = DosToKoi & Chr(239)
			Case 207 DosToKoi = DosToKoi & Chr(240)
			Case 208 DosToKoi = DosToKoi & Chr(242)
			Case 209 DosToKoi = DosToKoi & Chr(243)
			Case 210 DosToKoi = DosToKoi & Chr(244)
			Case 211 DosToKoi = DosToKoi & Chr(245)
			Case 212 DosToKoi = DosToKoi & Chr(230)
			Case 213 DosToKoi = DosToKoi & Chr(232)
			Case 214 DosToKoi = DosToKoi & Chr(227)
			Case 215 DosToKoi = DosToKoi & Chr(254)
			Case 216 DosToKoi = DosToKoi & Chr(251)
			Case 217 DosToKoi = DosToKoi & Chr(253)
			Case 220 DosToKoi = DosToKoi & Chr(248)
			Case 219 DosToKoi = DosToKoi & Chr(249)
			Case 218 DosToKoi = DosToKoi & Chr(255)
			Case 221 DosToKoi = DosToKoi & Chr(252)
			Case 222 DosToKoi = DosToKoi & Chr(224)
			Case 223 DosToKoi = DosToKoi & Chr(241)
			Case 224 DosToKoi = DosToKoi & Chr(193)
			Case 225 DosToKoi = DosToKoi & Chr(194)
			Case 226 DosToKoi = DosToKoi & Chr(215)
			Case 227 DosToKoi = DosToKoi & Chr(199)
			Case 228 DosToKoi = DosToKoi & Chr(196)
			Case 229 DosToKoi = DosToKoi & Chr(197)
			Case 184 DosToKoi = DosToKoi & Chr(163)
			Case 230 DosToKoi = DosToKoi & Chr(214)
			Case 231 DosToKoi = DosToKoi & Chr(218)
			Case 232 DosToKoi = DosToKoi & Chr(201)
			Case 233 DosToKoi = DosToKoi & Chr(202)
			Case 234 DosToKoi = DosToKoi & Chr(203)
			Case 235 DosToKoi = DosToKoi & Chr(204)
			Case 236 DosToKoi = DosToKoi & Chr(205)
			Case 237 DosToKoi = DosToKoi & Chr(206)
			Case 238 DosToKoi = DosToKoi & Chr(207)
			Case 239 DosToKoi = DosToKoi & Chr(208)
			Case 240 DosToKoi = DosToKoi & Chr(210)
			Case 241 DosToKoi = DosToKoi & Chr(211)
			Case 242 DosToKoi = DosToKoi & Chr(212)
			Case 243 DosToKoi = DosToKoi & Chr(213)
			Case 244 DosToKoi = DosToKoi & Chr(198)
			Case 245 DosToKoi = DosToKoi & Chr(200)
			Case 246 DosToKoi = DosToKoi & Chr(195)
			Case 247 DosToKoi = DosToKoi & Chr(222)
			Case 248 DosToKoi = DosToKoi & Chr(219)
			Case 249 DosToKoi = DosToKoi & Chr(221)
			Case 252 DosToKoi = DosToKoi & Chr(216)
			Case 251 DosToKoi = DosToKoi & Chr(217)
			Case 250 DosToKoi = DosToKoi & Chr(223)
			Case 253 DosToKoi = DosToKoi & Chr(220)
			Case 254 DosToKoi = DosToKoi & Chr(192)
			Case 255 DosToKoi = DosToKoi & Chr(209)
			Case Else DosToKoi = DosToKoi & Mid( TextBlock, TXB, 1 )
		End Select
	NEXT
End Function

mephist, 27 Ноября 2009

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

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

−366.8

1
2
3
4
5
6
7
8

Public Overrides Function DataChanged() As Boolean
        Const CONST_PROC_NAME = "DataChanged"
        Try
            Return False
        Catch objExcp As Exception
            Me.DisplayMessageBox("Unexpected Exception in " & CONST_CLASS_NAME & "." & CONST_PROC_NAME & " : " & objExcp.Message.ToString, MessageBoxIcon.Error)
        End Try
    End Function

По суровому закону нашего проекта каждая функция должна быть обернута ловлей эксепшиона. Каждая. Всегда.

6istik, 24 Ноября 2009

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

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

−129.8

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

For intAtts As Integer = 5 To strParams.Length - 1
            Select Case (intAtts + 1) Mod 3
                Case 0
                    '--- Set where to find the attachments
                    Select Case strParams(intAtts).ToUpper
                        Case "TASKVIEW"
                            strAttach = CType(Me.Parent, ctlTaskViewTemplate).ctlDocNavigator.ContainerID.ToString & ","
                        Case "WORKITEM"
                            strAttach = WorkItem.WorkItemContainer.ToString & ","
                        Case "CASE"
                            strAttach = BFECase.CaseContainerID.ToString & ","
                    End Select
                Case 1
                    '--- Set the relative path of where to find the attachments
                    strAttach = strAttach & strParams(intAtts) & ","
                Case 2
                    '--- Set the type of document used to find the attachments
                    strAttach = strAttach & strParams(intAtts)
                    arrAttachments.Add(strAttach)
                    strAttach = ""
            End Select
        Next intAtts

вот и попробуй пойми что в этих массивах по какому принципу лежит

6istik, 22 Октября 2009