Практическое руководство. GAMBAS. Основы программирования

ПРАКТИКУМ

1 часть

GAMBAS. Основы программирования

Лабораторно-практические  работы

Задания для самостоятельного выполнения

Подготовила:

преподаватель Информатики и ИКТ

Белева Л.Ф.

Сыктывкар,2017 г.

Практическая работа №1.

Технология создания проекта в системе программирования Gambas IDE

Цели:

Ввести понятие интегрированной среды Gambas, проекта, формы, элементов  управления. Познакомить со структурой интегрированной среды.

Для запуска программы выполните  команду:
КDE  –> Образование –> Разработка  –> Gambas IDE 

 Откроется стартовое окно Gambas II:

                 Выбрать - Новый проект…

 Шаг1:

Определение типа    проекта:

Выбираем Графическое приложение   как тип создаваемого проекта.

Шаг 2:

Выбираем место хранения  создаваемого проекта

/home/user/Desktop/9 класс

Шаг 3:

 Вносим информацию о проекте:

В идентификации задайте имя проекта Project1 и заголовок  Первый проект.

После данного сообщения открывается окно интегрированной среды разработки проекта – Integrated Development Environment (IDE)

Задания:

1. Измените цвет фона формы, метки, текстового поля  в поле Background на Листке свойств объекта .
2. В Палитре компонентов выберите кнопку,метку, текстовое поле и нарисуйте их на форме.
3. Измените, текст надписи на кнопке с полем Caption на Листке свойств объекта (кнопка должна быть выделена).
4. Измените фоновый цвет метки (поле Background).
5. Измените тип и размер шрифта (поле Font).
6. Изменяя размеры кнопки с помощью маркеров, посмотрите на изменения в полях Width и Height.
7. Переместите  объекты выше, ниже, левее, правее по форме и посмотрите на изменения в полях Left и Top.
8. Добавьте на форму текстовое поле и измените начальный текст (поле Text).
9. Сохраните изменения в проекте.

Практическая работа №2.

Цели: закрепление пройденного материала по созданию пользовательской формы; вставки надписей, полей, кнопок и картинки в пользовательскую форму; программирование кнопок пользовательской формы;  проверка работы пользовательской формы.

Задание  1.

Проект «Фотоальбом».

Создайте приложение, показывающее   картинки городов Европы.

Вид приложения представлен на рисунке_1.

Рисунок_1

    Код  для  2-х кнопок:

    PUBLIC SUB Button1_Click()

      picturebox1.visible = TRUE

      picturebox2.visible = FALSE     

      picturebox3.visible = FALSE

      picturebox4.visible = FALSE

      picturebox5.visible = FALSE

      Label2.caption = "ЛОНДОН"

      END

     PUBLIC SUB Button2_Click()

      picturebox1.visible = FALSE

      picturebox2.visible = TRUE

      picturebox3.visible = FALSE

      picturebox4.visible = FALSE 

      picturebox5.visible = FALSE

      Label2.caption = "ПАРИЖ"

       END

Самостоятельная работа.

Выполнить проект «Стихи о зиме». Вид приложения представлен на рисунке.

В данном проекте использовать функцию загрузки картинки: РictureBox1.picture=picture.load(“fet.jpg”)

Практическая работа № 3.

Цели: сформировать у обучающихся представление о средствах и возможностях среды IDE Gambas при решении задач. Изучить  встроенные функции( Rnd и Int.). 

Задание 1.  

Выполнить проект «Счастливая семерка». Вид приложения представлен на рисунке.

Программа выполняет три задачи: Скрывает столбик монет. Создает три случайных числа для вывода в окнах надписей. Показывает рисунок при появлении числа семь.

Picturebox1.visible = FALSE

TextLabel1.visible = FALSE

label2.text = Int(Rnd * 10)

label3.text = Int(Rnd * 10)

label4.text = Int(Rnd * 10)

IF (label2.caption = "7") OR (label3.caption = "7") OR (label4.caption = "7") THEN

TextLabel1.visible = TRUE

PictureBox1.Visible = TRUE

END IF

END

Самостоятельная работа.

Выполнить проект «Угадай-ка». Вид приложения представлен на рисунке.

Практическая работа №4.

Цели: закрепление пройденного материала по созданию пользовательской формы; вставки надписей, полей, кнопок и картинки в пользовательскую форму; программирование кнопок пользовательской формы; проверка работы пользовательской формы.

Задание 1.

Разработать проект-кроссворд.

 Расположите на форме объекты в соответствии с рисунком_1.

 Внимательно  проанализируйте представленный ниже программный  код,  

 а затем наберите его.

PUBLIC SUB Button1_Click()

DIM ball AS Single

DIM otv1, otv2, otv3, otv4, otv5 AS String

ball = 0

otv1 = textbox1.text & textbox2.text &textbox3.text &  textbox4.text & textbox5.text &

textbox6.text & textbox7.text & textbox36.text

otv4 = textbox4.text & textbox8.text & textbox9.text & textbox10.text &

textbox11.text & textbox12.text & textbox13.text & textbox14.text & textbox15.text &  textbox16.text

otv2 = textbox20.text & textbox21.text & textbox19.text & textbox22.text & textbox23.text & textbox24.text

otv3 = textbox19.text & textbox18.text & textbox17.text & textbox11.text & textbox25.text & TextBox26.text & textbox27.text

otv5 = textbox29.text & textbox28.text & textbox26.text & textbox30.text & textbox31.text &

textbox32.text & textbox33.text & textbox34.text & textbox35.text 

IF otv1 = "дисковод" THEN 

ball = ball + 1

END IF

IF otv2 = "память" THEN 

ball = ball + 1

END IF

IF otv3 = "монитор" THEN 

ball = ball + 1

END IF

IF otv4 = "клавиатура" THEN 

ball = ball + 1

END IF

IF otv5 = "процессор" THEN 

ball = ball + 1

END IF

textbox37.text = Str(ball)

END

PUBLIC SUB Button2_Click()

ME.close

END

                                  Самостоятельная работа.

Разработать    проект - кроссворд, состоящий из 5-8 слов.

Практическая работа №5.

Цели:

1. Ознакомится   с этапами решения задачи на компьютере.

 2. Изучить встроенные функции.

Задание 1.

Найти площадь треугольника по формуле Герона.

1_ этап.

Постановка  задачи.

Определить периметр и площадь треугольникам по трем его сторонам.

Дано :A,B,C-значения сторон треугольника.

2_этап.

Математическая постановка задачи.

1.      Вычислить периметр треугольника по формуле P=A+B+С.

2.      Вычислить полупериметр треугольника  по формуле Pp=Р/2.

3.      Вычислить площадь треугольника по формуле Герона.

4.      Вывести результат: число Р - Периметр треугольника.

5.      Вывести результат: число S-площадь треугольника.                                                                            3_ этап.

          Разработка пользовательского интерфейса:  смотри  форму проекта(рисунок_1)

4_этап.

    Программирование.

Прежде чем   приступить к программированию, необходимо определить те события, для которых необходимо разработать алгоритмы и описать их на языке программирования.

 В нашем случае есть следующие события: щелчок по командной кнопки <вычислить> и  щелчок мышью по командной кнопке<завершить работу>.

Первое событие должно запустить программу вычисления периметра и площади треугольника, а второе – завершить работу программы.

Кроме этого, при загрузке формы должен загрузиться чертеж.                      

 Код:                     

PUBLIC SUB Button1_Click()

DIM a AS Integer

DIM b AS Integer

DIM c AS Integer

DIM p, pp AS Single

DIM s AS Single

a =TextBox1.text

b = textbox2.text

c = textbox3.text

p = a + b + c

IF (a + b > c) AND (b + c > a) AND (c + a > b) THEN

pp = p / 2

s = Sqr(pp * (pp - a) * (pp - b) * (pp - c))

textbox4.text = p

textbox5.text = s

ELSE

Message("ERROR!" & Chr(13) & "Сумма двух сторон треугольника должна быть больше третьей стороны" & " ERROR")

END IF

END

5_этап.

Отладка

Запустите программу на выполнение и введите значения сторон 3,4,5.

Проанализируйте результаты вычислений.

 Должны получиться следующие результаты:

Р=12,S=6. Получился иной?

Измените программный код : A=val(text1.text),B=val(text2.text) C=val(text3.text); text4.text=str(P), text5.text=str(P)                 

6_этап.

Анализ результатов.

Ваш проект практически готов. Вы можете новые вводить данные.

Рисунок_1

Самостоятельная работа.

Разработать проект  для вычисления площади трапеции .Расписать все этапы решения задачи. Внешний вид по усмотрению.

Практическая работа №6.

Цели:

1.Изучить оператор ветвления  : If  then  else

2.Изучить функции для ввода и вывода информации: Inputbox  и  Message.

Задание 1.

Создать проект, для решения квадратного уравнения.

Рисунок_1

Расположите на форме объекты в соответствии с рисунком_1. Внимательно  проанализируйте представленный ниже программный  код,    а затем наберите его.

 PUBLIC SUB Button1_Click()            

 DIM a, b, c AS Integer

 DIM d AS Single

 DIM x1, x2 AS Single

     a =Inputbox("Введите коэффициент a=")

     b =Inputbox("Введите коэффициент b=")

     c =Inputbox("Введите коэффициент c=")

     d = b * b - 4 * a * c

     label1.text = "a= " &  a

     label3.text = "c= " &  c

     label2.text = "b= " &  b                  

IF d < 0 THEN

Message("D= " & Str(d) & " " & " Уравнение не имеет корней", "ok")       

     ELSE

x1 = (- b + Sqr(d)) / (2 * a)

x2 = (- b - Sqr(d)) / (2 * a)

Message("D="&Str(d)&"Уравнение имеет такие корни"& "x1="&Str(x1)&"x2="&Str(x2), "ok")

   ENDIF

   END

PUBLIC SUB Button3_Click()

  ME.close

END

PUBLIC SUB Button2_Click()

form1.show

END

Самостоятельная работа.

Создать проект, в котором вводится любое число в диапазоне от 1 до 999 и определяется количество цифр в числе. Приложение  должно работать следующим образом. После запуска приложения и щелчка по кнопке <Пуск > появляется окно Inputbox для ввода числа.

После щелчка по кнопке <ok> результат появляется в окне Message.

Практическая работа №7.

Цели:

1.Изучить оператор Select Сase.

2.Изучить объект Combobox и его свойства.

Задание 1.

Создать приложение для вычисления электрического сопротивления.

Расположите на форме объекты в соответствии с рисунком_1.

 Внимательно  проанализируйте представленный ниже программный  код,

   а затем наберите его.

 PUBLIC SUB Button1_Click()

  x = Val(textbox1.text) / Val(textbox2.text)

  SELECT CASE ComboBox1.Index

  CASE 0

  r = 0.028 * x

  CASE 1

  r = 0.055 * x

  CASE 2                                           

  r = 0.1 * x

  CASE 3

  r = 0.017 * x

  CASE 4

  r = 0.1 * x

  CASE 5

    r = 0.96 * x

  CASE 6

    r = 0.21 * x

  CASE 7

    r = 0.016 * x

  CASE 8

    r = 0.15 * x

  CASE 9

    r = 0.06 * x

  CASE 10

    r = 0.5 * x

  CASE 11

    r = 0.4 * x

  CASE 12

  r = 0.45 * x

  CASE 13

  r = 1.1 * x

 END SELECT 

textbox3.text = r

END

PUBLIC SUB Button3_Click()

 ME.close

END

Самостоятельная работа.

Создать приложение «Телефонный справочник».

Работу приложения можно понять  из рисунка_2 .

Практическая работа №8.

Цели:

Изучить объект Radiobutton(назначение которого  выбор единственного варианта из нескольких возможны.  Результат выбора хранится в свойстве value.

Задание 1.

Создать форму с названием «Обмен валюты » для  моделирования соответствующих операций  обменного пункта.

Вид приложения представлен на рисунке_1.

Внимательно  проанализируйте представленный ниже программный  код,  а затем наберите его.

Рисунок_1

PUBLIC SUB RadioButton1_Click()                                        

label3.caption = "<="                         

 END

PUBLIC SUB RadioButton2_Click()                                

label3.caption = "=>"

END

PUBLIC SUB Button1_Click()

  DIM kur1, kur2, c, d AS Integer

  kur1 = Val(textbox1.text)

  kur2 = Val(textbox2.text)

  c = Val(textbox3.text)

   IF radiobutton1.value = TRUE THEN

  d = c * kur1

  textbox4.text = CStr(d)

  ELSE

  d = c * kur2

  textbox4.text = CStr(d)

  END IF

END

Самостоятельная работа.

Разработать проект с помощью которого можно вычислить объем цилиндра или конуса,  в зависимости от выбора  радиокнопки.

Практическая работа  №9.

Цели:

1.Создание приложения с двумя пользовательскими формами.

2.Изучить методы   Hide и Show

Задание 1.

Создать программу «Тренажер устного счета». Программа должна работать в двух режимах:

сложение в пределах 10 и умножение. То, как должно работать приложение, можно понять из рисунков 1,2,3.

Формы 2,3  содержат кнопки «Меню», «Проверка» « Следующий пример».

Внимательно  проанализируйте представленный ниже программный  код,    а затем наберите его.

Рисунок _1

PUBLIC SUB Button1_Click()

form1.Hide

fmain.Show

END                                                                                                     

PUBLIC SUB Button3_Click()

IF Val(TextBox1.text) = Val(label1.text) + Val(label3.text) THEN

label5.text = " Молодец!!!!"

ELSE

label5.text = "Неверно.Попробуй еще раз!"

END IF

END

PUBLIC SUB Button2_Click()

label1.text = Int(Rnd * 10)

label3.text = Int(Rnd * 10)

END

Рисунок _2                                                                    Рисунок _3

Самостоятельная работа .

Разработать  приложение - тест на произвольную тематику.

Приложение должно состоять из 4-5 форм.

Практическая работа №10.

Цели:

изучить типы данных, встроенные функции.

Задание 1.

Разработать приложение  «Калькулятор», в котором предусмотреть кнопки для набора цифр, знаков арифметических действий, знак  «=» и т.д (смотри рисунок _1).

Расположите на форме объекты в соответствии с рисунком_1.

Рисунок_1.

Внимательно  проанализируйте представленный ниже программный  код,

   а затем наберите его.

PUBLIC a AS Single

PUBLIC b AS Single

PUBLIC c AS Single

PUBLIC d AS Integer

PUBLIC SUB Button1_Click()

    button13.enabled = FALSE

    textbox1.text = textbox1.text & "1"

    button11.enabled = TRUE

    button13.enabled = TRUE

  END

PUBLIC SUB Button2_Click()

    button13.enabled = FALSE

    textbox1.text = textbox1.text & "2"

    button11.enabled = TRUE

    button13.enabled = TRUE

 END

PUBLIC SUB Button3_Click()

  button13.enabled = FALSE

  textbox1.text = textbox1.text & "3"

  button11.enabled = TRUE

    button13.enabled = TRUE

  END

PUBLIC SUB Button4_Click()

 button13.enabled = FALSE

 textbox1.text = textbox1.text & "4"

 button11.enabled = TRUE

 button13.enabled = TRUE

 END

PUBLIC SUB Button5_Click()

 button13.enabled = FALSE

  textbox1.text = textbox1.text & "5"

  button11.enabled = TRUE

  button13.enabled = TRUE

  END

PUBLIC SUB Button6_Click()

 button13.enabled = FALSE

 textbox1.text = textbox1.text & "6"

 button11.enabled = TRUE

 button13.enabled = TRUE

 END

PUBLIC SUB Button7_Click()

 button13.enabled = FALSE

textbox1.text = textbox1.text & "7"

button11.enabled = TRUE

 button13.enabled = TRUE

 END

PUBLIC SUB Button8_Click()

 button13.enabled = FALSE

 textbox1.text = textbox1.text & "8"

 button11.enabled = TRUE

  button13.enabled = TRUE

END

PUBLIC SUB Button9_Click()

 button13.enabled = FALSE

  textbox1.text = textbox1.text & "9"

  button11.enabled = TRUE

  button13.enabled = TRUE

END

PUBLIC SUB Button10_Click()

 button13.enabled = FALSE

  textbox1.text = textbox1.text & "0"

  button11.enabled = TRUE

  button13.enabled = TRUE

END

PUBLIC SUB Button11_Click()

  button13.enabled = FALSE

  textbox1.text = textbox1.text & "," 

  button11.enabled = TRUE

  button13.enabled = TRUE

END

PUBLIC SUB Button12_Click()

    textbox1.text = textbox1.text & "."

END

PUBLIC SUB Button14_Click()

IF (textbox1.text = "") OR (textbox1.text = "Нажми ' Cброс'.Введ число !") THEN

   textbox1.text = "Нажми 'Сброс'.Введи число!"

   ELSE

    a = Val(textbox1.text)

    textbox1.text = ""

    d = 1

    button11.enabled = TRUE

    button13.enabled = TRUE

    ENDIF

END

PUBLIC SUB Button13_Click()

    a = Val(textbox1.text)

    textbox1.text = ""

    d = 2

    button11.enabled = TRUE

    button13.enabled = TRUE

   END

PUBLIC SUB Button15_Click()

   a = Val(textbox1.text)

    textbox1.text = ""

    d = 3

    button11.enabled = TRUE

    button13.enabled = TRUE

  END

PUBLIC SUB Button16_Click()

a = Val(textbox1.text)

    textbox1.text = ""

    d = 4

    button11.enabled = TRUE

    button13.enabled = TRUE

    END

PUBLIC SUB Button17_Click()

    b = Val(textbox1.text)

   IF d = 1 THEN

   c = a + b

   textbox1.text = Str(c)

END IF

   IF d = 2 THEN

    c = a - b

    textbox1.text = Str(c)

    ENDIF

    IF d = 3 THEN

    c = a * b

    textbox1.text = Str(c)

    ENDIF

   IF (d = 4) AND (b <> 0) THEN

    c = a / b

    textbox1.text = Str(c)

    END IF

  END

PUBLIC SUB Button18_Click()

     textbox1.text = ""

    button11.enabled = TRUE

    button13.enabled = TRUE

Зачетная работа.

 Задание 1.

Создать приложение, позволяющее проверить усвоение темы «База Данных». То как работает приложение, можно понять из рисунка. При желании тему  тестирования можно сменить, количество вопросов увеличить.