Задача 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