- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
Sub GetNumbers(arr As Integer(,), direction As Direction, clockwise As ClockwiseDirection)
Dim x, y As Integer
x = (Math.Sqrt(arr.Length) - 1) / 2
y = x
Console.Write(arr(y, x) & " ")
Dim coefficient As Integer = 1
Do
For i = 1 To coefficient
Select Case direction
Case ConsoleApplication6.Direction.UP
y -= 1
Case ConsoleApplication6.Direction.DOWN
y += 1
Case ConsoleApplication6.Direction.LEFT
x -= 1
Case ConsoleApplication6.Direction.RIGHT
x += 1
End Select
Console.Write(arr(y, x) & " ")
Select Case direction
Case ConsoleApplication6.Direction.UP
Select Case clockwise
Case ClockwiseDirection.ToLeft
If (x = Math.Sqrt(arr.Length) - 1) And (y = 0) Then
Exit Do
End If
Case ClockwiseDirection.ToRight
If (x = 0) And (y = 0) Then
Exit Do
End If
End Select
Case ConsoleApplication6.Direction.DOWN
Select Case clockwise
Case ClockwiseDirection.ToLeft
If (x = 0) And (y = Math.Sqrt(arr.Length) - 1) Then
Exit Do
End If
Case ClockwiseDirection.ToRight
If (x = Math.Sqrt(arr.Length) - 1) And (y = Math.Sqrt(arr.Length) - 1) Then
Exit Do
End If
End Select
Case ConsoleApplication6.Direction.LEFT
Select Case clockwise
Case ClockwiseDirection.ToLeft
If (x = 0) And (y = 0) Then
Exit Do
End If
Case ClockwiseDirection.ToRight
If (x = 0) And (y = Math.Sqrt(arr.Length) - 1) Then
Exit Do
End If
End Select
Case ConsoleApplication6.Direction.RIGHT
Select Case clockwise
Case ClockwiseDirection.ToLeft
If (x = Math.Sqrt(arr.Length) - 1) And (y = Math.Sqrt(arr.Length) - 1) Then
Exit Do
End If
Case ClockwiseDirection.ToRight
If (x = Math.Sqrt(arr.Length) - 1) And (y = 0) Then
Exit Do
End If
End Select
End Select
Next
For i = 1 To coefficient
Select Case direction
Case ConsoleApplication6.Direction.UP
Select Case clockwise
Case ClockwiseDirection.ToLeft
x -= 1
Case ClockwiseDirection.ToRight
x += 1
End Select
Case ConsoleApplication6.Direction.DOWN
Select Case clockwise
Case ClockwiseDirection.ToLeft
x += 1
Case ClockwiseDirection.ToRight
x -= 1
End Select
Case ConsoleApplication6.Direction.LEFT
Select Case clockwise
Case ClockwiseDirection.ToLeft
y += 1
Case ClockwiseDirection.ToRight
y -= 1
End Select
Case ConsoleApplication6.Direction.RIGHT
Select Case clockwise
Case ClockwiseDirection.ToLeft
y -= 1
Case ClockwiseDirection.ToRight
y += 1
End Select
End Select
Console.Write(arr(y, x) & " ")
Next
coefficient += 1
gost 07.05.2016 13:57 # +1
> GOVNECO
Так точно.
inkanus-gray 07.05.2016 14:41 # 0
gost 07.05.2016 15:09 # +2
Кстати, последней версии VB сегодня исполнилось ровно 18 лет. Поздравим дедушку!
Vasiliy 07.05.2016 16:00 # 0
guest 07.05.2016 16:07 # 0
Спольски кучу статей написал про то, как парвильно писать на VBS (asp)
и все они крайне хуевые, кстати
Вообще спольски феерически пустой пиздабол
guest 07.05.2016 16:08 # +2
Если выбирать между WinProc (C), MFC (C++) и VB, то накидать формочку на вб явно было проше
Правда лучше уж было сделать это на дельфи
kegdan 07.05.2016 16:33 # +1
guest 07.05.2016 16:09 # 0
я только clr знаю
gost 07.05.2016 22:44 # +1
guest 07.05.2016 22:45 # +2
inkanus-gray 07.05.2016 22:47 # 0
kegdan 07.05.2016 23:11 # +1
kerman 08.05.2016 01:08 # 0
guesto 08.05.2016 01:09 # 0
kegdan 07.05.2016 16:26 # +2
Блин, я 10 минут смеялся. Это как нужно упороться, что бы такое написать?
ClockwiseDirection.ToLeft
это как по часовой, только против часовой
VladislavSavvateev 07.05.2016 17:57 # 0
kegdan 07.05.2016 18:12 # 0
CHayT 07.05.2016 18:24 # 0
bormand 07.05.2016 19:55 # +1
kegdan 07.05.2016 19:59 # +1
guest 07.05.2016 18:23 # 0
guest 07.05.2016 20:05 # +1
Это говно занимает весь экран, зочем так много строк