- •Выполнил: преподаватель Агафонов а. В.
- •Оглавление
- •19. Задания 55
- •22. Задания 59
- •1. Введение
- •2. Переменные
- •Символьные переменные.
- •Числовые переменные
- •3. Операторы присвоения, печати, ввода и ремарки Оператор присвоения
- •Оператор печати
- •Оператор ввода
- •Оператор ремарки
- •4. Арифметические действия.
- •Логический оператор and
- •Верное Верное Верное
- •Логический оператор or
- •Логический оператор not
- •Другие логические операторы xor, eqv, imp
- •7. Оператор условного перехода
- •Оператор if.(условие)..Then.(оператор)..Else..(оператор).
- •Оператор select
- •8. Задания
- •9. Оператор цикла Принудительное прерывание программы
- •Цикл do……loop
- •Цикл for...Next
- •Оператор goto
- •10. Задания
- •Задачи на вычисление сумм.
- •11. Функции
- •Математические функции
- •Символьные функции.
- •Вспомогательные функции
- •Выработка случайных величин.
- •12. Задания
- •13. Операторы графики.
- •Изображение линий и прямоугольников
- •Изображение кругов и эллипсов
- •Раскрашивание
- •Оператор draw
- •14. Задания
- •15. Функция пользователя
- •16. Процедуры
- •Оператор gosub..Return
- •Оператор sub...End sub
- •17. Задания
- •18. Массивы
- •Многомерные массивы
- •Операторы data, read, restore
- •19. Задания
- •20. Работа с файлами.
- •Запись в файл
- •Функция eof принимает значение 1, если конец файла и 0 – в противном случае. Аргументом функции является порядковый номер файла.
- •22. Задания
- •23. Создание функции пользователя в Excel с помощью Visual Basic
Оператор draw
Рассмотрим следующую программу:
SCREEN 12 DRAW "U100 L200 D100 R200" |
С помощью оператора DRAW можно двигать невидимый карандаш в разных направлениях. В этом примере двигаем его на 100 единиц вверх (U100 -UP), затем на 200 единиц влево (L200 -LEFT), затем на 100 единиц вниз (D100 - DOWN) и на 200 единиц вправо (R200 -RIGHT).
Нарисовав 4 прямоугольника, получаем окно:
SCREEN 12 DRAW "U100 L200 D100 R200" DRAW "D100 L200 U100 R200" DRAW "D100 R200 U100 L200" DRAW "U100 R200 D100 L200" |
Эта же программа может быть записана по-другому.
SCREEN 12 DRAW "U100L200D100R200D100L200U100R200D100" DRAW "R200U100L200U100R200D100L200" |
Следующая программа рисует треугольник.
SCREEN 12 DRAW "U100 TA120 U100 TA60 D100" |
Здесь ТА120 меняет угол рисунка на 120 градусов. (TURN ANGLE)
Таким образом, у экранного курсора есть не только местоположение, но и угол, который может менятся от –360 градусов до 360. Вначале рисуем под углом 0 градусов.
По умолчанию единицей измерения является 1 пиксел. Но его можно изменять.
Оператор DRAW имеет следующий общий вид:
DRAW text$ где text$ есть текстовая переменная, состоящая из следующих элементов:
Dnr |
Смещает графический курсор на nr единиц вниз (без задания nr – на 1 единицу вниз (down). |
|
Unr |
Смещает графический курсор на nr единиц вниз (без задания nr – на 1 единицу вверх (up). |
|
Rnr |
Смещает графический курсор на nr единиц вниз (без задания nr – на 1 единицу вправо (right) |
|
Lnr |
Смещает графический курсор на nr единиц вниз (без задания nr – на 1 единицу влево (left) |
|
Enr |
Смещает графический курсор на nr единиц по диагонали вверх и направо |
|
Fnr |
Смещает графический курсор на nr единиц по диагонали вниз и направо |
|
Gnr |
Смещает графический курсор на nr единиц по диагонали вниз и налево |
|
Hnr |
Смещает графический курсор на nr единиц по диагонали вверх и налево |
|
Mx,y |
Смещает графический курсор на точку с координатами х ,y . Если перед ними стоит знак +,- учитывается местоположение курсора. |
|
B |
Движется, не рисуя |
|
N |
Рисует линию, оставляя курсор невидимым в том же месте. |
|
Anr |
Делает поворот на nr * 90°. nr может быть 0, 1, 2 или 3 |
|
Cnr |
Устанавливает цвет |
|
Pjoonv,taustv |
Закрашивает изображение. Первый параметр указывает цвет закраски, второй- границу окраски. |
|
Snr |
Устанавливает масштаб , по умолчанию nr=4, т.е. 1:1. nr может быть целое число от 1.до .255. |
|
TAkraad |
Устанавливает угол рисунка в градусах от -360..до 360. По умолчанию =0. |
|
Пример программы рисунка:
SCREEN 12 PRINT "Нажми на стрелку." PRINT "Для окончания нажми ESC" DO klahv$ = INKEY$ SELECT CASE klahv$ CASE CHR$(0) + "H" 'стрелка вверх DRAW "U10" CASE CHR$(0) + "P" 'стрелка вниз DRAW "D10" CASE CHR$(0) + "K" 'стрелка влево DRAW "L10" CASE CHR$(0) + "M" 'стрелка вправо DRAW "R10" CASE CHR$(27) 'клавиша ESC END END SELECT LOOP |
|
|