- 1
- 2
- 3
- 4
If objRow.IsQuestion_SpecialismNull Then
'--- ASK DEAN
Return True
End If
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−132.6
If objRow.IsQuestion_SpecialismNull Then
'--- ASK DEAN
Return True
End If
Dean - наш тим лид
−130.4
Private Sub Form_AfterInsert() ' событие после вставки новой записи в таблицу table
runSQL ("UPDATE table set TYPE= 9 where ID = (select max(p.ID) from table p )")
Me.Form.Requery
End Sub
Событие на форме в Access
А достаточно было просто повесить на форму поле с источником данных TYPE и дефолтовым значением 9.
−122.2
Private Sub Form_Load()
'загрузка изображения
Dim xx(), yy(), zz()
Dim i As Integer
Dim maxx As Integer
Dim maxy As Integer
Dim minx As Integer
Dim miny As Integer
xx = Array(0#, 1#, 1#, 11#, 11#, 6#, 11#, 1#, 1#, 11#, 11#)
yy = Array(0#, 11#, 1#, 1#, 6#, 11#, 11#, 11#, 1#, 1#, 11#)
zz = Array(0#, 11#, 11#, 11#, 11#, 11#, 6#, 1#, 1#, 1#, 1#)
For i = 1 To 10
x(i) = xx(i) * 1.5
y(i) = yy(i) * 1.5
z(i) = zz(i) * 1.5
x0(i) = xx(i)
y0(i) = yy(i)
z0(i) = zz(i)
Next
maxx = 20
minx = -20
maxy = 20
miny = -20
Picture1.ScaleMode = 0
Picture1.Scale (minx, maxy)-(maxx, miny)
Call Angle(210, 30)
Call Cube(x(), y(), z())
sd = False
End Sub
Вот такая вот куча малопонятного говна
−124.3
'...
Dim l0 As New List(Of Integer)
Dim num = Convert.ToInt32(Console.ReadLine)
For i = 1 To num Step 1
Dim nn, nm As Double
nn = num / i
nm = Convert.ToInt32(num / i)
If nn = nm Then
l0.Add(i)
End If
Next
If l0.Count = 2 Then
Console.WriteLine("Number {0} is simply.", num)
Else
Console.WriteLine("Number {0} is not simply.", num)
End If
Console.ReadKey()
'...
Эх, детство, детство... Когда-то нужно было написать программу проверки числа на простоту.
−135.9
Module Module1
Private Const VK_ENTER As UInt32 = &HD
Private Const KEYEVENTF_KEYUP As UInt32 = &H2
Declare Auto Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Auto Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Declare Auto Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Sub Main()
Console.Title = "AntiPornoAd"
Console.Write("Подключение к серверу для загрузки списка запрещенных сайтов.")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.WriteLine("")
Console.Title = "Попытка сбора данных об ошибке..."
Console.WriteLine("По неизвестной причине произошла ошибка в программе")
Console.WriteLine("Начался сбор данных об ошибке")
Console.WriteLine("Пожалуйста не закрывайте программу до завершения")
Dim key As Integer
Do While True
key = GetAsyncKeyState(2)
If key <> 0 Then
Sleep(90)
keybd_event(VK_ENTER, 0, 0, 0)
keybd_event(VK_ENTER, 0, KEYEVENTF_KEYUP, 0)
Sleep(50)
End If
Loop
End Sub
End Module
Попробуйте запустить на компе подруги - масса эмоций гарантирована
(не будет работать правая кнопка мыши :))
−124.6
Function DosToKoi ( TextBlock )
FOR TXB = 1 TO LEN( TextBlock )
Select Case Asc( Mid( TextBlock, TXB, 1 ) )
Case 192 DosToKoi = DosToKoi & Chr(225)
Case 193 DosToKoi = DosToKoi & Chr(226)
Case 194 DosToKoi = DosToKoi & Chr(247)
Case 195 DosToKoi = DosToKoi & Chr(231)
Case 196 DosToKoi = DosToKoi & Chr(228)
Case 197 DosToKoi = DosToKoi & Chr(229)
Case 168 DosToKoi = DosToKoi & Chr(179)
Case 198 DosToKoi = DosToKoi & Chr(246)
Case 199 DosToKoi = DosToKoi & Chr(250)
Case 200 DosToKoi = DosToKoi & Chr(233)
Case 201 DosToKoi = DosToKoi & Chr(234)
Case 202 DosToKoi = DosToKoi & Chr(235)
Case 203 DosToKoi = DosToKoi & Chr(236)
Case 204 DosToKoi = DosToKoi & Chr(237)
Case 205 DosToKoi = DosToKoi & Chr(238)
Case 206 DosToKoi = DosToKoi & Chr(239)
Case 207 DosToKoi = DosToKoi & Chr(240)
Case 208 DosToKoi = DosToKoi & Chr(242)
Case 209 DosToKoi = DosToKoi & Chr(243)
Case 210 DosToKoi = DosToKoi & Chr(244)
Case 211 DosToKoi = DosToKoi & Chr(245)
Case 212 DosToKoi = DosToKoi & Chr(230)
Case 213 DosToKoi = DosToKoi & Chr(232)
Case 214 DosToKoi = DosToKoi & Chr(227)
Case 215 DosToKoi = DosToKoi & Chr(254)
Case 216 DosToKoi = DosToKoi & Chr(251)
Case 217 DosToKoi = DosToKoi & Chr(253)
Case 220 DosToKoi = DosToKoi & Chr(248)
Case 219 DosToKoi = DosToKoi & Chr(249)
Case 218 DosToKoi = DosToKoi & Chr(255)
Case 221 DosToKoi = DosToKoi & Chr(252)
Case 222 DosToKoi = DosToKoi & Chr(224)
Case 223 DosToKoi = DosToKoi & Chr(241)
Case 224 DosToKoi = DosToKoi & Chr(193)
Case 225 DosToKoi = DosToKoi & Chr(194)
Case 226 DosToKoi = DosToKoi & Chr(215)
Case 227 DosToKoi = DosToKoi & Chr(199)
Case 228 DosToKoi = DosToKoi & Chr(196)
Case 229 DosToKoi = DosToKoi & Chr(197)
Case 184 DosToKoi = DosToKoi & Chr(163)
Case 230 DosToKoi = DosToKoi & Chr(214)
Case 231 DosToKoi = DosToKoi & Chr(218)
Case 232 DosToKoi = DosToKoi & Chr(201)
Case 233 DosToKoi = DosToKoi & Chr(202)
Case 234 DosToKoi = DosToKoi & Chr(203)
Case 235 DosToKoi = DosToKoi & Chr(204)
Case 236 DosToKoi = DosToKoi & Chr(205)
Case 237 DosToKoi = DosToKoi & Chr(206)
Case 238 DosToKoi = DosToKoi & Chr(207)
Case 239 DosToKoi = DosToKoi & Chr(208)
Case 240 DosToKoi = DosToKoi & Chr(210)
Case 241 DosToKoi = DosToKoi & Chr(211)
Case 242 DosToKoi = DosToKoi & Chr(212)
Case 243 DosToKoi = DosToKoi & Chr(213)
Case 244 DosToKoi = DosToKoi & Chr(198)
Case 245 DosToKoi = DosToKoi & Chr(200)
Case 246 DosToKoi = DosToKoi & Chr(195)
Case 247 DosToKoi = DosToKoi & Chr(222)
Case 248 DosToKoi = DosToKoi & Chr(219)
Case 249 DosToKoi = DosToKoi & Chr(221)
Case 252 DosToKoi = DosToKoi & Chr(216)
Case 251 DosToKoi = DosToKoi & Chr(217)
Case 250 DosToKoi = DosToKoi & Chr(223)
Case 253 DosToKoi = DosToKoi & Chr(220)
Case 254 DosToKoi = DosToKoi & Chr(192)
Case 255 DosToKoi = DosToKoi & Chr(209)
Case Else DosToKoi = DosToKoi & Mid( TextBlock, TXB, 1 )
End Select
NEXT
End Function
−366.8
Public Overrides Function DataChanged() As Boolean
Const CONST_PROC_NAME = "DataChanged"
Try
Return False
Catch objExcp As Exception
Me.DisplayMessageBox("Unexpected Exception in " & CONST_CLASS_NAME & "." & CONST_PROC_NAME & " : " & objExcp.Message.ToString, MessageBoxIcon.Error)
End Try
End Function
По суровому закону нашего проекта каждая функция должна быть обернута ловлей эксепшиона. Каждая. Всегда.
−129.8
For intAtts As Integer = 5 To strParams.Length - 1
Select Case (intAtts + 1) Mod 3
Case 0
'--- Set where to find the attachments
Select Case strParams(intAtts).ToUpper
Case "TASKVIEW"
strAttach = CType(Me.Parent, ctlTaskViewTemplate).ctlDocNavigator.ContainerID.ToString & ","
Case "WORKITEM"
strAttach = WorkItem.WorkItemContainer.ToString & ","
Case "CASE"
strAttach = BFECase.CaseContainerID.ToString & ","
End Select
Case 1
'--- Set the relative path of where to find the attachments
strAttach = strAttach & strParams(intAtts) & ","
Case 2
'--- Set the type of document used to find the attachments
strAttach = strAttach & strParams(intAtts)
arrAttachments.Add(strAttach)
strAttach = ""
End Select
Next intAtts
вот и попробуй пойми что в этих массивах по какому принципу лежит
−129
Dim datestart As DateTime = New DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.Now.Day)
очередная индусятина
−124.6
''' <summary>
''' Представляет обект RSS-новость
''' </summary>
''' <remarks></remarks>
Public Class NewsItems
...
Public Property AgencyTitle() As String
Get
Return Me._agencyTitle
End Get
Set(ByVal value As String)
Me._agencyTitle = value
End Set
End Property
...
''' <summary>
''' Вставка региональной новости в БД
''' </summary>
''' <param name="Lang">язык</param>
''' <param name="DateFormat">формат даты в рассылке</param>
''' <param name="region">ID региона</param>
''' <remarks></remarks>
Public Sub AddNewRegion(ByVal Lang As String, ByVal DateFormat As String, ByVal region As Integer)
If AgencyTitle.StartsWith("зБЪЕФБ.Ru") Then
Exit Sub
End If
...
End Sub
...
End Class
заставили разбираца с проектом на ВБ...
и вот шо я там нашол.
...ну конешно... я бы тоже испугался новостного агенства с таким названием )))