tyomitch » 16.06.2006 (Пт) 10:07
sub mysorter {
my ($key,$next)=@_;
sub { my($a,$b)=@_; (($a->{$key})<=>($b->{$key})) || &$next($a,$b); }
}
$tail = sub {0};
sub mysort {
my $key, $sorter=$tail;
for $key (@_) {$sorter=mysorter($key, $sorter)};
qsort ($sorter, @array);
}
Ramzes » 16.06.2006 (Пт) 10:28
Public Class mp3File
#Region "Private Shared Fields"
Private Shared _filesCount As Integer = 0
Friend Shared _files As New ArrayList
#End Region
#Region "Private Fields"
Private _index As Integer
Private _fileName As String
Private _path As String
Private _FullPath As String
Private _folder As System.IO.DirectoryInfo
Private _extension As String
Private _PathToMove As System.IO.DirectoryInfo
Private _lenght As Double
Private _checked As Boolean
Private _artist As String
Private _title As String
Private _album As String
Private _year As String
Private _Genre As String
Private _Comment As String
Private _SongLenght As Integer
Private _ChanelMode As ChannelModeEnum
Private _BitRate As Integer
Private _Copyright As Boolean
Private _SamplingRateFrequency As Integer
#End Region
Public Sub New(ByVal FilePath As String, Optional ByVal Checked As Boolean = True)
'Код упущен
End Sub
Public Sub New()
'Код упущен
End Sub
Public Shared ReadOnly Property Files(ByVal Index As Integer) As mp3File
'Код упущен
End property
Public Shared ReadOnly Property FilesCount() As Integer
'Код упущен
End property
#Region "Public Properties"
Public ReadOnly Property Index() As Integer
End Property
Public ReadOnly Property FileName() As String
End Property
Public ReadOnly Property Path() As String
End Property
Public ReadOnly Property FullPath() As String
End Property
Public ReadOnly Property Folder() As System.IO.DirectoryInfo
End Property
Public ReadOnly Property Extention() As String
End Property
Public Property PathToMove() As System.IO.DirectoryInfo
End Property
Public ReadOnly Property Lenght() As Double
End Property
Public Property FileChecked() As Boolean
End Property
Public Property Artist() As String
End Property
Public Property Title() As String
End Property
Public Property Album() As String
End Property
Public Property Year() As String
End Property
Public ReadOnly Property SongLenght() As Integer
End Property
Public Property Genre() As String
End Property
Public ReadOnly Property ChanelMode() As ChannelModeEnum
End Property
Public ReadOnly Property Bitrate() As Integer
End Property
Public ReadOnly Property Copyright() As Boolean
End Property
Public Property Comment() As String
End Property
Public ReadOnly Property SamplingRateFrequency() As Integer
End Property
#End Region
#Region "Public Methods"
Public Function ToListViewItem(Optional ByVal Checked As Boolean = True) As ListViewItem
End Function
Public Sub DeleteFromCollection()
End Sub
Public Sub Move()
End Sub
Public Sub Copy(ByVal PathToCopy As String)
End Sub
Public Sub Delete()
End Sub
Public Sub UpdateTags()
End Sub
Public Overrides Function ToString() As String
End Function
Public Shadows Function Equals(ByVal File As mp3File) As Boolean
End Function
#End Region
#Region "Private Methods"
Private Sub FillFields(ByVal File As String, ByVal PathToMove As String)
End Sub
Private Sub ReadTegs(ByVal FullPath As String)
End Sub
Private Function KBToMB(ByVal KB As Double, ByVal lenght As Integer) As Double
End Function
#End Region
End Class
tyomitch » 16.06.2006 (Пт) 10:37
Ramzes писал(а):Не мальнький клас, учитывая то, что код всех его членов упущен...Как предлагаешь работать с ним в функциональном языке?
Я согласен, можно...но очень сложно
Ramzes » 16.06.2006 (Пт) 11:36
tyomitch » 16.06.2006 (Пт) 12:37
sub new {
my($a,$b)=@_; {
add => sub { $a+$b; },
sub => sub { $a-$b; },
a => sub { @_? $a=shift: $a },
b => sub { @_? $b=shift: $b }
}}
#использование:
$obj =new(1,2);
print &{$obj->{add}};
print &{$obj->{a}};
$obj->{b}->(4);
print &{$obj->{sub}};
FaKk2 » 16.06.2006 (Пт) 22:05
tyomitch » 16.06.2006 (Пт) 22:32
tyomitch » 17.06.2006 (Сб) 0:35
tyomitch » 27.06.2006 (Вт) 15:41
Ramzes » 27.06.2006 (Вт) 18:33
tyomitch писал(а):Неа, неа, так некрасиво.
Я на вопросы FAKK2 отвечал. А ты все мои пропустил.
tyomitch » 27.06.2006 (Вт) 18:48
Ramzes писал(а):Вот я и не отвечаю, тем более, что спорить надоело, для меня ООП остается самым удобным, для решения моих задач.
Twister » 27.06.2006 (Вт) 19:18
Вот-вот. Особенно можно пронаблюдать выгоду ООП (читать: наследования) на примере Делфей. Сделаем пустую програмку с одним окошком и глянем на размер...tyomitch писал(а):Чем отличаются операции над классом от операций над сборищем функций в модуле?
А именно, в чём различие между вызовами MyObject->MyMethod() и MyMethod(MyObject), где во втором случае MyObject -- обычная структура?
Особенно если учитывать, что компилируются они одинаково
От чего так? Нафиг нужно таскать с собой кучу не нужного мусора, типа классов TPersistent, TObject, TControl, TCustomForm. Они конечно нужны - это предки TForm, но... Короче говоря, особого преимущества ООП над процедурным (не ошибся в терминологии?) программированием я не вижу, скорее наоборот. ИМХО.
AlexBlack » 27.06.2006 (Вт) 22:45
Денис Победря » 28.06.2006 (Ср) 15:51
Twister » 30.06.2006 (Пт) 20:01
Раскажите пожайлуста, как правильно...
От себя добавлю: а что, используя ООП игры не пишут? Или на процедурных языках не пишут для приложения для Винды?tyomitch писал(а):Про "ФП -- это для математиков" могу возразить: по-вашему, C# 3.0 пишется для математиков с семи пядями во лбу?
Хакер » 02.07.2006 (Вс) 0:03
ANDLL » 18.08.2007 (Сб) 22:47
Точно, мне только вчера приснилось то же самое; другие то же верят в нерушимость Вашего Слова, поэтому совершенно не нужно аргументировать свои речи.В виндоуз удобнее всего программить на таких языках как Си без плюсов или ПауерБейсик. На си++, используя только Вин апи - извращение, иначе таскаем кучу библиотек.
Линукс наоборот - писался для ООП концепции
HKEY_SUPER_MASHINE » 07.07.2008 (Пн) 10:59
Александр Дмитриев » 08.07.2008 (Вт) 4:19
Герберт Шилдт в своей книге "Самоучитель C++" под заголовком "Что такое объектно-ориентированное программирование?" так описывает преимущества ООП:Twister писал(а):Короче говоря, особого преимущества ООП над процедурным (не ошибся в терминологии?) программированием я не вижу, скорее наоборот. ИМХО.
Но здесь отмечены преимущества ООП над структурным программированием, но ничего не сказано про функциональное. Мне кажется, ООП и ФП - это две стрелы, пущенные в разных направлениях. Вполне возможно, что траектории этих стрел кое-где пересекаются (Тёмыч приводил пример того, как класс реализовать на ФП) (конечно, здесь стрелы должны уметь проходить друг сквозь друга, чтобы продолжать движение). Мне кажется, эти две концепции должны сосуществовать вместе в одном языке. Кстати, а такой язык есть?Герберт Шилдт писал(а):Объектно-ориентированное программирование — это новый подход к созданию программ. По мере развития вычислительной техники возникали разные методики программирования. На каждом этапе создавался новый подход, который помогал программистам справляться с растущим усложнением программ. Первые программы создавались посредством ключевых переключателей на передней панели компьютера. Очевидно, что такой способ подходит только для очень небольших программ. Затем был изобретен язык ассемблера, который позволял писать более длинные программы. Следующий шаг был сделан в 1950 году, когда был создан первый язык высокого уровня Фортран.
Используя язык высокого уровня, программисты могли писать программы до нескольких тысяч строк длиной. Для того времени указанный подход к программированию был наиболее перспективным. Однако язык программирования, легко понимаемый в коротких программах, когда дело касалось больших программ, становился нечитабельным (и неуправляемым). Избавление от таких неструктурированных программ пришло после изобретения в 1960 году языков структурного программирования (structured programming language). К ним относятся языки Алгол, Паскаль и С. Структурное программирование подразумевает точно обозначенные управляющие структуры, программные блоки, отсутствие (или, по крайней мере, минимальное использование) инструкций GOTO, автономные подпрограммы, в которых поддерживается рекурсия и локальные переменные. Сутью структурного программирования является возможность разбиения программы на составляющие ее элементы. Используя структурное программирование, средний программист может создавать и поддерживать программы свыше 50 000 строк длиной.
Хотя структурное программирование, при его использовании для написания умеренно сложных программ, принесло выдающиеся результаты, даже оно оказывалось несостоятельным тогда, когда программа достигала определенной длины. Чтобы написать более сложную программу, необходим был новый подход к программированию. В итоге были разработаны принципы объектно-ориентированного программирования. OOP аккумулирует лучшие идеи, воплощенные в структурном программировании, и сочетает их с мощными новыми концепциями, которые позволяют оптимально организовывать ваши программы. Объектно-ориентированное программирование позволяет вам разложить проблему на составные части. Каждая составляющая становится самостоятельным объектом, содержащим свои собственные коды и данные, которые относятся к этому объекту. В этом случае вся процедура в целом упрощается, и программист получает возможность оперировать с гораздо большими по объему программами.
Все языки OOP, включая C++, основаны на трех основополагающих концепциях, называемых инкапсуляцией, полиморфизмом и наследованием.
Вернуться в Holy Wars@VBStreets
Сейчас этот форум просматривают: Google-бот и гости: 7
