Объектно — ориентированное программирование GAMBAS

Объектно - ориентированное программирование
GAMBAS

Объекты:
Form1 - Форма(поверхность на которой находятся
др. объекты)
Label1 - надпись (окно для вывода текста)
Textbox1 - Окно для ввода текста
Button1 - Кнопка
Listbox1 - Окно для вывода списка строк

Свойства:
Name - имя объекта
Text - значение надписи на объекте
Background - цвет фона окошка
Font – шрифт
Методы:
Text – надпись на объекте
Backcolor – цвет объекта
Hide – скрыть объект (сделать невидимым)
Show – показать (сделать видимым)
Delete – удалить
Setfocus – установить фокус
Label1.Backcolor=65280
Label1.Text = "Summa"
Label1.hide ()

События:
По умолчанию для кнопки:
Button1_click()
Один щелчок левой кнопки мыши
Переменные:
BYTE (от 0 до 255)-1байт памяти
SHORT (-32768 32767)-2 байта
INTEGER (-2147483648 2147483643)- 4 байта
- только для целых чисел

FLOAT (целые, дробные, иррациональные)- 8 байт
VARIANT - 8 байт (переводит числа из текстовой формы в числовую, и обратно)

BOOLEAN - 2 байта (TRUE - истина, FALSE - ложь), логический тип
DATE - 8 байт (дата, время)
STRING - по 2 байта на каждый символ, для хранения строки символов

DIM a AS BYTE DIM a AS BYTE
DIM b as byte b as byte


Операции:
+
сложение
And
Логическое И

-
вычитание
Eqv
Эквивалентность

*
умножение
Imp
Импликация

/
деление
Or
ИЛИ

^
возведение в степень
Xor
Исключающее ИЛИ

\
деление нацело
Not
отрицание

Mod
деление по модулю
&
Соединение символов


Функции:
SIN
Синус
RND
Случайное число

COS
Косинус
ABS
Абсолютное число

TAN
Тангенс
SGN
Знак числа

ATN
Арктангенс
INT
Округление

LOG
Логарифм натуральный
Pi
Число «пи»

SQR
Корень
STR
Преобразование числа в строку

FIX
Отсечение дроби
VAL
Преобразование стоки в число


Алгоритмическая структура «Ветвление»
If - если IF условие Then
Then - то Серия 1
Else - иначе [Else Серия 2]
End if - конец если End if

Алгоритмическая структура «Выбор»
Select Case - выбор варианта Select Case Выражение
Case - вариант Case
·Условие 1
Case Else - вариант иначе Серия 1
End Select - конец выбора Case Условие 2
Серия 2
[ Case Else Серия]
End Select

Алгоритмическая структура «Цикл»
For - для For счетчик = Начзнач to Конзнач
To - до [Step шаг]
Step - шаг Тело цикла
Next - конец цикла Next [Счетчик]

Контрольная работа

Задание 1: Составьте программу для нахождения значения функции
.y = ax2+bx+c. Значения коэффициентов a, b,c и аргумента x вводятся через
соответствующие объекты TextBox.


Задание 2: Составить программу, при помощи которой можно вычислить значение данной функции при любом значении X (действительное число). В случае, если функция при данном значении X не определена, вывести ответ «функция не определена».
(1/(x2-16)) *x при х> -5
y =
sin (x) при х<= -7







Пример задани №1:
Программа-перевод курса валют

' Gambas class file

PUBLIC SUB Button2_Click()
ME.Close
END

PUBLIC SUB Button1_Click()
DIM a AS Float
DIM b AS Float
a = Val(TextBox1.text)
b = Val(TextBox2.text)
Label3.text = "Итого= " & Str(a * b)
END
Пример задания №2:
Составить программу, при помощи которой можно вычислить значение данной функции при любом значении X (действительное число). В случае, если функция при данном значении X не определена, вывести ответ «функция не определена».

' Gambas class file

PUBLIC SUB Button2_Click()
ME.Close
END

PUBLIC SUB Button1_Click()
DIM X AS Float = Val(TextBox1.Text)
DIM Y AS Float
IF X <= 10 AND X <> 5 THEN
Y = 1 / (X - 5)
Label2.Text = "Y=" & Str(Y)
ELSE
IF X > 15 THEN
Y = Cos(X)
Label2.Text = "Y=" & Str(Y)
ELSE
Label2.Text = "функция не определена"
END IF
END IF
END
Заголовок 415