1. VisualBasic / Говнокод #9761

    −78

    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
    For Each elem In dicGroup.Keys
    	prbCurrent.Value = 0
    	prbCurrent.Maximum = dicGroup(elem).Quantit
    	For nS = 0 To dicGroup(elem).Quantit - 1
    		For nQ = 0 To QCount - 1
    			Dim colPL As New List(Of Integer)
    			For nA = 0 To ACount(nQ)
    				colPL.Add(Weight(nQ, nA))
    				For Each elem1 In colRules
    					With elem1
    						If .IsApplayable(elem) Then
    							Dim nEffect As Integer = .CanAffect(QIndexToQkey(nQ))
    							If nEffect > -1 Then colPL(colPL.Count - 1) = CInt(colPL.Last * .Effect(nEffect).GetWeight(.Effect(nEffect).Designator, AIndexToAKey(nQ, nA)) / 100)
    						End If
    					End With
    				Next
    			Next
    			mtxData(elem)(nS)(nQ) = RSelection(colPL)
    			If prbCurrent.Value < prbCurrent.Maximum Then prbCurrent.Value += 1
    			If prbTotal.Value < prbTotal.Maximum Then prbTotal.Value += 1
    			Application.DoEvents()
    		Next
    	Next
    Next

    Попадась на допил (в интерфейс парочку кнопок втыкнуть) и тестирование прога, с праздного любопытства заглянул в ядро, все оно из таких вот "портянок", в сумме почти 10К строчек, коментарии отсутствуют вообще, на весь код нету даже ни одной пустой строчки.

    Что самое странное, работает идеально. Поле допила итерфейса тестируем уже вторую неделю, повесить не получилось ни у кого, частично свалили (прервали обработку даных, а прога, впрочем, работала далее, восстановив 2/3 потеряного) тоько на ходу выдерув флешку с даными которые анализировались...

    С одной стороны - индусятина, но как хороша!

    Запостил: DPNET, 26 Марта 2012

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

    Добавить комментарий