Объектно-ориентированное программирование 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

Операции и функции – смотрите документ

Алгоритмическая структура «Ветвление»

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 не определена, вывести ответ «функция не определена».

Весь материал - смотрите архив.

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

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

Операции:

Функции:

Алгоритмическая структура «Ветвление»

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) при х

Пример задани №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 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