1. Список говнокодов пользователя adler

    Всего: 2

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

    −457

    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
    Public Function CheckForError(ByVal sRes1 As String, ByVal sRes2 As String, Optional ByVal sRes3 As String = "", Optional ByVal sRes4 As String = "", Optional ByVal sRes5 As String = "", Optional ByVal sRes6 As String = "", Optional ByVal sRes7 As String = "", Optional ByVal sRes8 As String = "", Optional ByVal sRes9 As String = "", Optional ByVal sRes10 As String = "", Optional ByVal sRes11 As String = "") As Boolean
            Dim bRes As Boolean = True
            If Not CheckForError(sRes1) Then
                If Not CheckForError(sRes2) Then
                    If Not CheckForError(sRes3) Then
                        If Not CheckForError(sRes4) Then
                            If Not CheckForError(sRes5) Then
                                If Not CheckForError(sRes6) Then
                                    If Not CheckForError(sRes7) Then
                                        If Not CheckForError(sRes8) Then
                                            If Not CheckForError(sRes9) Then
                                                If Not CheckForError(sRes10) Then
                                                    If Not CheckForError(sRes11) Then
                                                        bRes = False
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If

            Return bRes
        End Function

    Птицы летят на юг!

    adler, 24 Января 2011

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

  3. SQL / Говнокод #4667

    −856

    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
    create   Function [dbo].[BuildString](	@a char(1),
			       	@b char(1),
			       	@c char(2),
			       	@d char(2),
			       	@e char(1),
				@f char(1),
			       	@g char(1),
			       	@h char(2),
			       	@i char(2),
			       	@j char(1),
				@k char(2),
			       	@l char(1),
				@m char(2),
			       	@n char(1),
				@o char(1),
			       	@p char(1),
			       	@q char(2),
			       	@r char(2),
				@s char(1),
			       	@t char(1),
				@u char(1),
			       	@v char(1),
			       	@w char(2),
			       	@x char(2),
			       	@y char(2),
			       	@z char(1),
				@a0 char(1),
			       	@a1 char(1),
			       	@a2 char(2),
			       	@a3 char(2),
				@a4 char(4))
returns char(47)
as
begin

declare @text char(47)

set @text = @a+@b+@c+@d+@e+@f+@g+
		@h+@i+@j+@k+@l+@m+@n+
		@o+@p+@q+@r+@s+@t+@u +
		@v+@w+@x+@y+@z+
		@a0+@a1+@a2+@a3+@a4

return @text

    Автор наверное что-то хотел этим сказать. Я так и не понял :)

    adler, 17 Ноября 2010

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