Dim dResult As Double, dNalog As Double

Dim dKol As Double, dPrice As Double

dKol = CDbl(txtKol.Text)

dNalog = CDbl(txtNalog.Text)

dPrice = CDbl(txtPrice.Text)

dResult = dKol * dPrice * (1 + dNalog / 100)

txtResult.Text = CStr(Format(dResult, "Fixed")) + " ðóá."

End Sub

Private Sub spnNalog_Change()

txtNalog.Text = CStr(spnNalog.Value)

End Sub

Private Sub txtNalog_Change()

If Not IsNumeric(txtNalog.Text) Then Exit Sub

spnNalog.Value = CInt(txtNalog.Text)

End Sub

Private Sub srlKol_Change()

txtKol.Text = CStr(srlKol.Value)

End Sub

Private Sub txtKol_Change()

If Not IsNumeric(txtKol.Text) Then Exit Sub

srlKol.Value = CInt(txtKol.Text)

End Sub

В этом программном коде есть особенность. Последними четырьмя процедурами выполняется синхронизация работы текстовой строки ввода и соответствующего ей элемента управления. Работают эти процедуры следующим образом.

При изменении текстовой строки установленное значение преобразуется в целочисленный тип и передается как значение счетчика или полосы прокрутки, а любое изменение счетчика  или полосы прокрутки автоматически преобразуется в строковый тип данных и передается в текстовую строку.

Выполните следующие задания самостоятельно:

---

Дата добавления: 2019-09-13; просмотров: 180; Мы поможем в написании вашей работы!

Поделиться с друзьями:

---

---

Мы поможем в написании ваших работ!