Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−89
MdlСимметричность.Командная(СтИстБи, ФлагСим, КвоРабЧис)
If ФлагСим = True Then ' тут мы сохраним столб истинности линейной функции и количество рабочих чисел
ФлагСим1 = True 'покажем, что хоть одна функция симметрична
СохранимНужнуюФункцию(СчетСим, КвоРабЧисЖмин, КвоРабЧис, СтИстБи, СтИстБиИскомыйСим)
End IfКак, пример, как нельзя называть и обзывать переменные и имена функций. Взято отсюда: http://www.sql.ru/forum/actualthread.aspx?tid=934300
Ciana,
23 Апреля 2012
−104
Dim KolvoZnakov As String = IIf(SqlUser = "Beschastnova" Or SqlUser = "Rodionova", "00000", "00")Для двух привередливых бухов выводим аж 4 знака после запятой.
axel1000,
22 Марта 2012
−108
Replace(Replace(Replace(Replace(Replace(sht1.Cells(i, 4).Value, "(кратность 4 шт)", ""), "O.F.", ""), "D1ECO", ""), "DECO", ""), "SK", "")
Удаляем из ячейки Excel одно из возможно встречающихся в ней слов.
Говнокод или вполне нормальный трюк?
valemak,
28 Февраля 2012
−90
L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
Label4.Caption = L
If L > 50 Then
MsgBox "Вы не ввели свой вариант, ввод варианта обязателен для корректной работы программы", vbExclamation, "Ошибка"
L = InputBox("Введите номер вашего варианта", "Лабораторная работа №2")
Label4.Caption = L
End If
If L > 50 Then
MsgBox "Ошибка. Попробуйте запустить приложение снова и выполнить все действия", vbCritical, "Ошибка"
End
End IfТретий раз не спрашиваем...
vovams,
16 Февраля 2012
−110
If f <> "" Then Shell(Path, AppWinStyle.Hide)
If f = "" Then Shell(Path)Угу, про Else тогда еще не слышали :)
ipro,
12 Февраля 2012
−112
'http://www.gotdotnet.ru/files/1003/
Public Class Form1
Public massiv(50), massiv1(50) As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String
a = " " + TextBox1.Text
For i As Integer = 1 To a.Length - 1
For j As Integer = 1 To 44
If a.Substring(i, 1).ToLower = massiv(j) Then
TextBox2.Text = TextBox2.Text + massiv1(j)
Exit For
End If
Next
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
massiv(1) = "а"
massiv(2) = "б"
massiv(3) = "в"
massiv(4) = "г"
massiv(5) = "д"
massiv(6) = "е"
massiv(7) = "ё"
massiv(8) = "ж"
'...
massiv(31) = "э"
massiv(32) = "ю"
massiv(33) = "я"
massiv(34) = "1"
massiv(35) = "2"
massiv(36) = "3"
massiv(37) = "4"
massiv(38) = "5"
massiv(39) = "6"
massiv(40) = "7"
massiv(41) = "8"
massiv(42) = "9"
massiv(43) = "0"
massiv(44) = " "
' ////////////////////////////////////////////////////////////////////////////////////
massiv1(1) = "1"
massiv1(2) = "2"
massiv1(3) = "3"
massiv1(4) = "4"
massiv1(5) = "5"
massiv1(6) = "6"
massiv1(7) = "7"
massiv1(8) = "8"
massiv1(9) = "9"
massiv1(10) = "a"
massiv1(11) = "b"
massiv1(12) = "c"
massiv1(13) = "d"
'...
massiv1(31) = "v"
massiv1(32) = "w"
massiv1(33) = "x"
massiv1(34) = "<"
massiv1(35) = ">"
massiv1(36) = "!"
massiv1(37) = "="
massiv1(38) = "?"
massiv1(39) = "/"
massiv1(40) = "@"
massiv1(41) = "~"
massiv1(42) = "\"
massiv1(43) = "-"
massiv1(44) = "_"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim g As String
g = " " + TextBox1.Text
For i As Integer = 1 To g.Length - 1
For j As Integer = 1 To 44
If g.Substring(i, 1).ToLower = massiv1(j) Then
TextBox2.Text = TextBox2.Text + massiv(j)
Exit For
End If
Next
Next
End Sub
End Class
dreesto,
11 Февраля 2012
−98
For I = nrow_Start To nrow_Stop
Do
If Nrow_Frm1 = I Then Exit Do
If Nrow_Frm2 = I Then Exit Do
If Nrow_Frm3 = I Then Exit Do
If Nrow_Frm4 = I Then Exit Do
Cells(I, ncol_Period).FormulaR1C1 = formula
Loop While False
Next IИ такое встречается..
hexman,
25 Января 2012
−107
GraphicsWindow.Width = 640
GraphicsWindow.Height = 480
GraphicsWindow.PenColor = "Yellow"
For i = 0 To 250
GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i )
EndFor
GraphicsWindow.PenColor = "Orange"
For i = 0 To 250 Step 10
GraphicsWindow.DrawLine(0 + i, 480 - i, 640 - i, 480 - i)
EndFor
GraphicsWindow.BrushColor = "SteelBlue"
GraphicsWindow.FillRectangle (0,0, 640 , 230)
GraphicsWindow.BrushColor = "lightGreen"
GraphicsWindow.FillTriangle(0, 480, 0, 230, 250, 230)
GraphicsWindow.FillTriangle(640, 480, 640, 230, 390, 230)
GraphicsWindow.BrushColor = "Orange"
GraphicsWindow.FillEllipse (10, 30, 50, 50)
GraphicsWindow.PenColor = "Yellow"
Turtle.Show()
y = 0
For i = 0 To 360 Step 30
Turtle.X =35
Turtle.Y = 55
Turtle.Angle = i
Turtle.PenUp()
Turtle.Move(25)
Turtle.PenDown()
If y = 1 Then
Turtle.Move(10)
y = 0
else
Turtle.Move(20)
y = 1
endif
endfor
KotoFey1ch,
23 Января 2012
−106
Turtle.Show()
Turtle.Move (200)
Turtle.TurnRight()
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnLeft()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.Move(100)
Turtle.TurnRight()
Turtle.TurnRight()
Turtle.Move(200)
Turtle.PenUp()
Turtle.MoveTo(500, 0)
Turtle.MoveTo(500, 250)
Turtle.PenDown()
Turtle.Angle = 0
Turtle.Move(180)
Turtle.PenUp()
Turtle.Move(10)
Turtle.PenDown()
Turtle.Move(3)
KotoFey1ch,
23 Января 2012
−94
' ==== Пример №1 ====
strParentAsset = "Parent_Asset_OnetoOneRelationship_Child_NewEarlyStaged"
strChildAsset = "ChildAssetArray_NewEarlyStaged"
strArrAssetList = Split(strParentAsset & "," & strChildAsset, ",")
' ==== Пример №2 ====
strProjectNames="" & strTODO_Project & "1," & strTODO_Project & "2," & strTODO_Project & "3," & strTODO_Project & "4," & strTODO_Project & "5," & strTODO_Project & "6," & strTODO_Project & "7," & strTODO_Project & "8," & strTODO_Project & "9," & strTODO_Project & "10," & strTODO_Project & "11," & strTODO_Project & "12," & strTODO_Project & "13," & strTODO_Project & "14," & strTODO_Project & "15," & strTODO_Project & "16," & strTODO_Project & "17," & strTODO_Project & "18," & strTODO_Project & "19," & strTODO_Project & "20," & strTODO_Project & "21," & strATG_TODO_PROJECT22
strArrProjectNames= Split(strProjectNames,",")
' ==== Пример №3 ====
Dim strWeekday
...
ReDim strWeekday(7)
strWeekday(1)= "Sun":strWeekday(2)= "Mon":strWeekday(3)= "Tue":strWeekday(4)= "Wed":strWeekday(5)= "Thu":strWeekday(6)= "Fri":strWeekday(7)= "Sat"Примеры создания массивов из QTP-проекта, написанного индусами
Lurker,
16 Ноября 2011
Follow us!