Я привык писать так, чтобы выносить особоважные куски своего кода в модуль. С применением "Sub...", "Function..." и т.д. и т.п. Хочу писать это всё грамотно в классах, чтобы в последующем создавать подключаемые dll. Но научиться одно, а вот многолетненакопленные результаты труда в старом (практически процедурном) стиле переиначить на новые рельсы классов хочется с минимальными потерями и переделками. Для меня раздробление конструкций заключённых в мои "Sub..." и "Function..." почти равноценно утере. Хотя может быть у страха глаза велики).
Вот пример моей неудачной попытки создания примитивного мат.класса.
Знаю, что по синтаксису не правильно пишу. Хочу, чтобы все функции и процедуры из моей библиотеки были доступны из других проектов.
В нём недопустимо слияние конструкций заключённых в "Sub..." и "Function...", как это мне уже советовали форумчане. Это принципиальный пример моего подхода.
Подскажите или помогите пожалуйста, как это модифицировать в классе? Во всей их красе! Заранее спасибо!
- Код: Выделить всё
Public Class All
Public a() As Double
Public d() As Double
Public c As Double
Public Shared Sub AddNum(ByVal a() As Double, ByVal d() As Double, ByRef c As Double)
Dim ff As Double
d_q(d, ff)
c = a_q(a) + ff
End Sub
Public Shared Function a_q(ByVal a() As Double) As Double
Dim i As Integer
a_q = 0
For i = 1 To a(0)
a_q = a_q + a(i)
Next i
'Return a_q
End Function
Public Shared Sub d_q(ByRef d() As Double, ByVal ff As Double)
Dim i As Integer
ff = 0
For i = 1 To d(0)
ff = ff + d(i)
Next i
End Sub
End Class
