- 1
- 2
If f <> "" Then Shell(Path, AppWinStyle.Hide)
If f = "" Then Shell(Path)
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−110
If f <> "" Then Shell(Path, AppWinStyle.Hide)
If f = "" Then Shell(Path)
Угу, про Else тогда еще не слышали :)
−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
−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
И такое встречается..
−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
−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)
−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-проекта, написанного индусами
−93
' Return the current date & time converted to GMT in string format
Public Function gf_GetGMTDateTimeString
Dim strDateTime
strDateTime=FormatDateTime(date(),vbgeneraldate) & " " & FormatDateTime(now(),vblongtime)
strDateTime=DateAdd("h", -5, strDateTime)
strDateTime=DateAdd("n", -30, strDateTime)
gf_GetGMTDateTimeString=strDateTime
End Function
Код из проекта на QTP, написанного индусами
P.S. UTC+05:30 это Индия, для тех кто не понял
−148
Begin Brahman
О чем молчат брахманы
Брехем.
−149
Dim a as Stack
Dim b as Stack
For n :=8 to 1:
a.Push 1
b.Push 1 xor n
if n xor 1 = 1 then
begin
a.push(b) b.push(a)
end
end
Мультивложенные стеки
Операции за О(1)
Вставка, забывчивость
О(1)
Извлечение в От (1)
От - О с чертой
Константа, короче говоря.
Настоящий стек.
−83
Sub Main()
Dim MyArray() As Integer
Dim start As Integer
Dim ends As Integer
Dim i As Integer
For i = 0 To 10
MyArray(i) = Console.ReadLine()
i = i + 1
Next
'start = Console.Read
Console.ReadKey()
End Sub
End Module
как присвоить элементы массива значение введенное с клавиатуры?