Зачетная работа по теме «Ветвление»
Создать приложение «Калькулятор». Эта программа должна выполнять элементарные арифметические действия (сложение, умножение, вычитание и деление).
Для операции умножения нужно предусмотреть размер элемента для вывода результата, чтобы в нем помещались большие числа. Если умножить 999999 на 999999 (самые большие шестизначные числа), получится 999998000001.
VisualBasic знает три (!) различных типа деления:
Деление чисел с плавающей запятой,
Деление нацело (результат всегда целое число);
Деление по модулю (Mod) (результат тоже целое число);
Кроме того, необходимо предусмотреть возможность деления на ноль. Ограничьте число знаков после запятой. Расширь возможности своего калькулятора – добавь еще какую-нибудь функцию, например вычисление Sin(x) или вычисление квадратного корня или что-то свое. !!! Предусмотреть десятичную точку при вводе.
Задача «Стили шрифта» Создайте приложение, которое обеспечивает возможность вводить фрагмент текста и выбирать стиль шрифта – жирный, курсив или оба этих начертания.
P rivate Sub chkжирный_Click()
If chkжирный.Value = 1 Then
txtтекст.FontBold = True
Else
txtтекст.FontBold = False
End If
End Sub
Private Sub chkкурсив_Click()
If chkкурсив.Value = 1 Then
txtтекст.FontItalic = True
Else
txtтекст.FontItalic = False
End If
End Sub
Private Sub cmdвыход_Click()
End
ёEnd Sub
=======================================================================
Создай новый проект, назови его frmBall и придумай заголовок, например «Игра в мяч»
Мяч можно нарисовать иструментом Shape. Закрась мяч и задай ему одинаковые размеры по ширине и высоте. Задай для свойства Left (левая координата) элемента Shape значение 2000.
=======================================================================
Dim xValue As InTeger
D Привожу свой вариант программы. Мяч движется по полю по диагонали и, достигнув края формы, летит обратно. Поэтому необходимо вводить опросы столкновений (как в любой компьютерной игре).
PrivaTe SuB cmdSTarT_Click()
TmrTimer.EnaBled = True
End SuB
PrivaTe SuB cmdSTop_Click()
TmrTimer.EnaBled = False
End SuB
PrivaTe SuB Form_Load()
xValue = 90 'зависит от быстродействия компьютера
yValue = 75
End SuB
PrivaTe SuB TmrTimer_Timer()
shpBall.LefT = shpBall.LefT + xValue
shpBall.Top = shpBall.Top + yValue
If shpBall.Top <= 0 Then yValue = -yValue
If shpBall.LefT <= 0 Then xValue = -xValue
If (shpBall.Top + shpBall.HeighT) >= ScaleHeighT Then yValue = -yValue
If (shpBall.LefT + shpBall.WidTh) >= ScaleWidTh Then xValue = -xValue
E nd SuB
Задание:
В нашем задании мяч начинает двигаться вниз и направо. Измени программу так, чтобы он начал двигаться налево и вверх.
На панели инструментов найди инструмент Линия (Line). Нарисуй прямую линию и заставь мяч отскакивать от нее.
- У правляющие элементы и их свойства Элементы CheckBox и OptionBatton
- Элементы ScrollBars (полосы прокрутки)
- Создание Windows-приложения
- Пример создания Windows –приложения.
- Объявление переменной
- Функции в языке Visual Basic
- Программирование ветвлений
- Зачетная работа по теме «Ветвление»
- Программирование повторений
- Массивы