 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Пример описания объекта
Dim m_steps As Long
Dim m_size As Single
Dim m_system As Integer
Const METRIC = 1
Const USE = 2
Public Property Get Steps() As Integer
Steps = m_steps
End Property
Public Property Let Steps(ByVal vNewSteps As Integer)
If IsNumeric(vNewSteps) Then
If vNewSteps > -1 Then
m_steps = vNewSteps
Else
Err.Raise 5, "Pedometer Object: Steps property", "Value must be 0 or greater"
End If
Else
Err.Raise 5, "Pedometer Object: Steps property", "Non-numeric value"
End If
End Property
Public Property Get Size() As Variant
Size = m_size
End Property
Public Property Let Size(ByVal vNewValue As Variant)
If Not (IsNumeric(vNewValue)) Then
Err.Raise 5, "Pedometer Object: Size property", "Non-numeric value"
Exit Property
End If
m_size = vNewValue
End Property
Public Property Get System() As Variant
System = m_system
End Property
Public Property Let System(ByVal vNewSystem As Variant)
If vNewSystem <> METRIC And vNewSystem <> USE Then
Err.Raise 5, "Pedometer Object: System property", "Invalid value"
Exit Property
End If
m_system = vNewSystem
End Property
Public Function CalculateDistance() As Single
If m_system = USE Then
CalculateDistance = ((m_steps * m_size) * 3) / 1760
Else
CalculateDistance = (m_steps * m_size) / 1000
End If
End Function
Пример использования объекта
Option Base 1
Option Explicit
Public Sub obekty()
' описание нового объекта Pedometr класса izmeritel
Dim Pedometr As izmeritel
Set Pedometr = New izmeritel
Dim Nsteps As Integer
Dim Nsteps1 As Integer
Dim Step_Size As Single
Dim Lentgh As Single
Nsteps = 10: Step_Size = 0.75
Pedometr.System = 1
Pedometr.Size = Step_Size
Pedometr.Steps = Nsteps
Lentgh = Pedometr.CalculateDistance
Nsteps1 = Pedometr.Steps
Debug.Print Lentgh, Nsteps1
End Sub
Модуль II: «Принципы разработки программ пользователя»
1. Иванова Г.С. Технология программирования: Учебник для вузов. – М,: Изд-во МГТУ им.Н.Э.Баумана, 2003. –320 с. (681 И20)
2. Экономическая информатика. Учебник для вузов / Под ред. д. э. н., проф. В.В.Евдокимова. – СПб.: Питер, 1997. –592 с.
Создание программной системы – весьма трудоемкая задача, особенно в наше время, когда обычный объем программного обеспечения превышает сотни тысяч операторов. Будущий специалист в области разработки программного обеспечения должен иметь представление о методах анализа, проектирования, реализации и тестирования программных систем, а также ориентироваться в существующих подходах и технологиях.
Лекция №7 Этапы развития технологии создания программ
(ТЕХНОЛОГИЯ ПРОГРАММИРОВАНИЯ. ОСНОВНЫЕ ПОНЯТИЯ И ПОДХОДЫ)
Поиск по сайту: