[На главную]

Задача 4. Создать строковый калькулятор (Информатика и ИКТ. Практикум/ Н.Д. Угринович, Л.Л. Босова, Н.И. Михайлова. 2010).

Особенности:
1. При конкатенации вместо знака "+" в программном коде ставить знак "&".
2. Чтобы строковые функции в Gambas работали с текстом и на русском языке, нужно перед названием функции поставить string (String.Mid$; String.Len...). В практикуме не рассматривается строковая функция Mid$, здесь она добавлена.
3. Функция Asc не работает для русских букв, поэтому вносим корректировку в условие задачи (вместо кнопки с надписью Asc создаём кнопку с надписью Code). Gambas по умолчанию работает с кодовой таблицей Unicode (UTF-8), которая на сегодняшний день фактически стала стандартом. Чтобы корректно определялся код символа русской кодировки, используйте функцию Code класса String.

Применена конкатенация

Применена строковая функция Mid$

Применена строковая функция Left$

Применена строковая функция Right$

Применена строковая функция Len

Применена строковая функция Code

Программный код:
PUBLIC SUB Button1_Click()
Label1.Text = TextBox1.Text & TextBox2.Text
END

PUBLIC SUB Button2_Click()
Label1.Text = String.Mid$(TextBox1.Text, Val(TextBox3.Text), Val(TextBox4.Text))
END

PUBLIC SUB Button3_Click()
Label1.Text = String.Left$(TextBox1.Text, Val(TextBox5.Text))
END

PUBLIC SUB Button4_Click()
Label1.Text = String.Right$(TextBox1.Text, Val(TextBox6.Text))
END

PUBLIC SUB Button5_Click()
Label1.Text = String.Len(TextBox1.Text)
END

PUBLIC SUB Button6_Click()
Label1.Text = String.Code(TextBox1.Text)
END

[Вверх]

Сайт управляется системой uCoz