Использование стандартных элементов управления Кнопка, Метка и Текстовое поле. Многострочные текстовые поля. Пример использования

 

 

 

 

 

 

Пример ипользования показан на рисунке 1.5

 

 

 

 

 

 

 

 

 

 

Рисунок 1.5 – Использование элемента управления TextBox

Код программы:

Dim a As String

Dim b As String

Private Sub Command1_Click()

a = Text1.Text

b = StrReverse(a)

Text2.Text = b

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

 

 

4.  Многострочные текстовые поля

Многострочные текстовые  поля - это экранные области, в которые  пользователь может вводить текст. Значение true, если элемент управления является многострочным текстовым полем; в противном случае — значение false. По умолчанию — false.

Многострочное текстовое поле позволяет отображать в элементе управления более одной строки текста. Если для свойства MultiLine установлено значение true, текст, вводимый в многострочное текстовое поле, переносится в элементе управления на следующую строку. Если для свойства MultiLine установлено значение false, текст, вводимый в элемент управления "Многострочное текстовое поле", будет отображаться на текущей строке до тех пор, пока не будет введен знак перехода на новую строку.

Пример ипользования показан на рисунке 1.6

 

 

 

 

 

 

 

 

 

Рисунок 1.6 – Использование свойства MultiLine

Код программы:

Dim f As String

Dim b As String

Dim j As String

Private Sub Command1_Click()

f = " "

j = " "

l = Len(Text1.Text)

For i = 2 To l

a = Mid(Text1.Text, i - 1, 1)

b = Mid(Text1.Text, i, 1)

If (a = b And a = f) Or (b = "." And a = f) Or a = j Then

Else:

Text2 = Text2.Text + a

j = ""

End If

Next i

Text2 = Text2.Text + b

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

2 Основы программирования

2.1 Задание 1

 

Описать процедуру вычисления среднего значения для N первых элементов вещественного массива W.

Алгоритм решения задачи представлен в виде блок-схемы на рисунке 2.1

 

Блок-схема задачи                                                              Блок-схема процедуры

Рисунок 2.1 – Блок-схема к Заданию 1

Программа составленная на языке программировании Visual Basic 6.0., представлена в Приложении А

2.2 Задание 2

 

Напечатать самое длинное  слово из заданного текста.

Алгоритм решения задачи представлен в виде блок-схемы на рисунке 2.2

Рисунок 2.2 – Блок-схема к Заданию 2

Программа составленная на языке программировании Visual Basic 6.0., представлена в Приложении Б

2.3 Задание 3

 

Создать на МД файл, записи которого имеют следующую структуру:

          - виды оплаты;

- ИТР (руб);

          - рабочие (руб);

          - всего (руб).

 Вывести следующий  документ:

Ведомость начислений по зарплате

Виды  оплаты	ИТР (руб)	Рабочие (руб);	Всего (руб).
Основная зарплата Премия ...........	500.00 50.75	785.50 20.00	Ö Ö
Итого	Ö	Ö	Ö

Алгоритм решения задачи представлен в виде блок-схемы на рисунке 2.3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Создание файла

Рисунок 2.3 – Блок-схема к Заданию 3

 

 

 

 

 

 

 

 

 

 

 

Считывание с файла

Продолжение рисунка 2.3 – Блок-схема к Заданию 3

Программа составленная на языке программировании Visual Basic 6.0., представлена в Приложении В

3 Сортировка

3.1 Задание 1

Даны два числовых массива A(N) и B(M). Получить из них новый отсортированный массив, выбрав в него только те элементы, значение которых больше 0. Сортировка методом «пузырек».

Алгоритм решения задачи представлен в виде блок-схемы на рисунке 3.1

Рисунок 3.1 – Блок-схема к Заданию 1

Продолжение рисунка 3.1 – Блок-схема к Заданию 1

 

 

 

 

 

 

Продолжение рисунка 3.1 – Блок-схема к Заданию 1

Программа составленная на языке программировании Visual Basic 6.0., представлена в Приложении Г

3.2 Задание 2

Даны два числовых массива A(N) и B(M). Получить из них новый отсортированный массив, выбрав в него только те элементы, значение которых больше 0. Сортировка методом «вставками».

Алгоритм решения задачи представлен в виде блок-схемы  на рисунке 3.2

Рисунок 3.2 – Блок-схема к Заданию 2

Продолжение рисунка 3.2 – Блок-схема к Заданию 2

 

 

 

 

 

 

 

 

 

 

Продолжение рисунка 3.2 – Блок-схема к Заданию 2

Программа составленная на языке программировании Visual Basic 6.0., представлена в Приложении Д

Библиографические записи

 

1. Савельева Н.Г., Мирошниченко И.И., Гречкина В.Ю. Visual Basic: Практикум [текст] – Ростов н/Д., РГЭУ «РИНХ», 2006. – 66 с.
2. Савельева Н.Г., Мирошниченко И.И., Гречкина В.Ю. Варианты для выполнения индивидуального задания [текст] – Ростов н/Д., РГЭУ «РИНХ», 2006. – 13 с.
3. http://msdn.microsoft.com/ru-ru/library/system.windows.forms.textboxbase.multiline.aspx# - TextBox.MultiLine – Свойство.
4. http://www.askit.ru/custom/vba_office/m5/05_03_03_textbox_control.htm - Элемент управления TextBox (текстовое поле).
5. http://www.visual-basic.ru/page/znakomimsja-s-elementami-upravlenija#cut – Знакомимся с элементами управления.
6. http://bit.pirit.info/forum/viewtopic.php?t=220 – Стандартный элемент управления: Command Button.
7. http://froland2.narod.ru/vbguide/ch7.html - Использование стандартных элементов управления Visual Basic.
8. http://mini-soft.ru/soft/vba/r_14.php - Элементы управления в приложениях VB.
9. http://www.programmon.ru/VBA/7.html - Элементы управления и пользовательская форма.
10. http://msdn.microsoft.com/ru-ru/library/66817acc%28v=vs.90%29.aspx – Элемент управления Command Button для пользователей Visual Basic 6.0.

Приложения

(с. 27-42)

Приложение А

 

Программа к Заданию 2.1, составленная на языке программирования Visual Basic 6.0.

 

Рисунок А.1. – Результат работы Задание 2.1

 

Таблица А.1 – Установка свойств элементам управления

Эл. управления	Свойства	Значения
Форма	Name	Form1
	Caption	Form1
Командная кнопка	Name	Command1
	Caption	Введите массив
Командная кнопка	Name	Command2
	Caption	Найти среднее значение
Командная кнопка	Name	Command3
	Caption	Выход
Командная кнопка	Name	Command4
	Caption	Очистить
Текстовое поле	Name	Text1
	Text
Текстовое поле	Name	Text2
	Text

 

 

Продолжение приложения А

 

Программный код к Заданию 2.1:

 

Dim a() As Single

Dim i As Integer

Dim z As Integer

Dim S1 As Single

Dim R1 As Single

Sub SR(W() As Single, S As Single, R As Single)

S = 0

n = Val(InputBox("Êîëè÷åñòâî  ýëåìåíòîâ"))

For i = 1 To n

S = S + W(i)

Next i

R = S / n

End Sub

Private Sub Command1_Click()

z = Val(InputBox("Ââåäèòå  ðàçìåð ìàññèâà"))

Text1.Text = ""

ReDim a(z)

For i = 1 To z

a(i) = Val(InputBox("Ââåäèòå  ýëåìåíò ìàññèâà"))

Text1.Text = Text1.Text + Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Call SR(a(), S1, R1)

Text2.Text = Text2.Text + Str(R1)

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Продолжение приложения А

 

Text1.Text = ""

Text2.Text = ""

End Sub

Приложение Б

 

Программа к Заданию 2.2, составленная на языке программирования Visual Basic 6.0.

 

Рисунок Б.1. – Результат работы Задание 2.2

 

Таблица Б.1 – Установка свойств элементам управления

Эл. управления	Свойства	Значения
Форма	Name	Form1
	Caption	Form1
Командная кнопка	Name	Command1
	Caption	Найти самое длинное  слово
Командная кнопка	Name	Command2
	Caption	Очистить
Командная кнопка	Name	Command3
	Caption	Выход
Метка	Name	Label1
	Caption	Примечание: текст вводится в код

 

 

 

 

Продолжение приложения Б

 

Программный код к Заданию 2.2:

 

Private Sub Command1_Click()

Const Str = "Èíäèâèäóàëüíîå çàäàíèå ïî èíôîðìàòèêå."

Print Str;

Print

Dim i, j As Integer

Dim a() As String

Dim s As String

a = Split(Str, " ")

j = Len(a(0))

s = a(0)

For i = 1 To UBound(a)

If j < Len(a(i)) Then

j = Len(a(i))

s = a(i)

End If

Next i

Print "Ñàìîå äëèííîå ñëîâî- "; s

End Sub

Private Sub Command2_Click()

Form1.Cls

End Sub

Private Sub Command3_Click()

End

End Sub

Приложение В

 

Программа к Заданию 2.3, составленная на языке программирования Visual Basic 6.0.

 

 

Рисунок В.1. – Результат работы Задание 2.3

 

 

 

 

 

 

 

 

 

 

 

 

Продолжение приложения В

Таблица В.1 – Установка свойств элементам управления

Эл. управления	Свойства	Значения
Форма	Name	Form1
	Caption	Form1
Командная кнопка	Name	Command1
	Caption	Создание
Командная кнопка	Name	Command2
	Caption	Открытие
Командная кнопка	Name	Command3
	Caption	Добавление
Командная кнопка	Name	Command4
	Caption	Очистить
Командная кнопка	Name	Сommand5
	Caption	Выход

 

 

Программный код к  Заданию 2.3:

 

Dim Vid As String

Dim Itr As String

Dim Rab As String

Dim Vce As String

Private Sub Command1_Click()

b = FreeFile

Open "D:\2.txt" For Output As #b

Do While True

Vid = InputBox("Введите вид оплаты")

If Vid = "Конец" Then GoTo m

Itr = Val(InputBox("Введите ИТР"))

Rab = Val(InputBox("Введите рабочие"))

Write #b, Vid, Itr, Rab, Vce

Loop

m: Close #b

Продолжение приложения В

 

End Sub

Private Sub Command2_Click(Index As Integer)

b = FreeFile

Open "D:\2.txt" For Input As #b

Print

Print "___________________________________________________________________________"

Print Tab(2); "Виды оплаты         ИТР(руб.)      Рабочие (руб.)      Всего (руб.)"

Print "___________________________________________________________________________"

ITSum1 = 0

ITSum2 = 0

ITSum3 = 0

Do While Not (EOF(b))

Input #b, Vid, Itr, Rab, Vce

Sum = Val(Itr) + Val(Rab)

ITSum1 = ITSum1 + Itr

ITSum2 = ITSum2 + Rab

ITSum3 = ITSum3 + Sum

Print Tab(2); Vid; Tab(25); Itr; Tab(40); Rab; Tab(56); Sum

Loop

Close #b

Print "___________________________________________________________________________"

Print

Print Tab(2); "Итого"; Tab(25); ITSum1; Tab(40); ITSum2; Tab(56); ITSum3

Print "___________________________________________________________________________"

End Sub

Private Sub Command3_Click()

b = FreeFile

Open "D:\2.txt" For Append As #b

Do While True

Vid = InputBox("Введите вид оплаты")

If Vid = "Конец" Then GoTo m

Itr = Val(InputBox("Введите ИТР"))

Rab = Val(InputBox("Введите рабочие"))

Продолжение приложения В

 

Write #b, Vid, Itr, Rab, Vce

Loop

m: Close #b

End Sub

Private Sub Command4_Click()