Требуемыми процедурами являются процедуры vvodDbl1() и
ViodDbl1() ввода и вывода данных типа Double в текстовые поля, процедуры vvodSng3() и vivodSng3() ввода и вывода данных типа Single в текстовые поля и процедуры vvodInt4() и vivodInt4() ввода и вывода данных типа Integer в текстовые поля.
Процедуры vvodDbl1(), vivodDbl1(), vvodSng3() и vivodSng3() приведены в Теме 4.4.3, а процедуры vvodInt4() и vivodInt4() представлены на рис. 4.4.2-1 и 4.4.2-2.
'процедура-Function ввода данных типа Integer 'из текстового поля TextBox Function vvodInt4(ByVal T As TextBox) As Integer Return CInt(T.Text) End Function |
Рис. 4.4.2-1. Процедура ввода данных типа Integer из поля TextBox
'Процедура-Sub вывода данных типа Integer в TextBox Sub vivodInt4(ByVal Z As Integer, ByVal T As TextBox) T.Text = CStr(Z) End Sub |
Рис. 4.4.2-2. Процедура вывода данных типа Integer в TextBox