Розробка практичного завдання з програмування мовою GAMBAS (VisualBasic)-2 робота
Програмування мовою GAMBAS з розгалуженням
 |
Завдання: Скласти програму для знаходження індексу успішності за балом введеним з клавіатури
|
Індекс успішності |
Бали |
Назва малюнка для форми |
|
А |
91-100 |
Image5 |
|
В |
81-90 |
Image4 |
|
С |
71-80 |
Image3 |
|
D |
61-70 |
Image2 |
|
F |
0-60 |
Image1 |
Вигляд форм після виконання має бути наступним
Елементи форми
|
Назва |
Об’єкт форми |
|
Індекс успішності |
Label1 |
|
Введіть бал для перевірки… |
Label2 |
|
Поле для введення балу |
Text1 |
|
Поле для виведення індексу |
Text2 |
|
Кнопка «Отримати індекс» |
Index |
|
Кнопка «Очистити» |
Clear |
|
Кнопка «Вихід» |
Out |
|
Картинки |
Image1, Image 2, Image 3, Image 4, Image 5 |
Програмний код для кнопки Index
Dim S As Integer
S = Val(Text1.Text)
If S >= 90 Then
Text2.Text = "A"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
Else If S >= 80 Then
Text2.Text = "B"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Else If S >= 70 Then Text2.Text = "C"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
Image5.Visible = False
Else If S >= 60 Then Text2.Text = "D"
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Else
Text2.Text = "F"
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End If
Програмний код для кнопки Out
Public Sub Out_Click()
Quit
End
Програмний код для кнопки Clear
Public Sub Clear_Click()
Text2.Text = ""
Text1.Text = ""
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End
Картинки до графічних ресурсів у програмі
1.jpg
2.jpg
3.jpg
4.jpg
5.jpg
про публікацію авторської розробки
Додати розробку