Объектно - ориентированное программирование 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 = ax²+bx+c. Значения коэффициентов a, b,c и аргумента x вводятся через

соответствующие объекты TextBox.

Задание 2: Составить программу, при помощи которой можно вычислить значение данной функции при любом значении X (действительное число). В случае, если функция при данном значении X не определена, вывести ответ «функция не определена».

(1/(x²-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