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)