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

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