Рабочая программа элективного предмета «Исследование информационных моделей»

Проект «Слово-перевертыш» на языке Visual Basic Проект «Слово-перевертыш». На языке Visual Basic создать проект «Слово-перевертыш», который изменяет прямую последовательность символов в слове (слева направо) на обратную последовательность (справа налево).   Проект «Слово-перевертыш» 1 На форме разместить кнопку cmd1 и создать для нее событийную процедуру преобразования введенного слова в слово с обратной последовательностью следования составляющих его символов. Ввод слова производится с помощью функции ввода MsgBox и ее значение присваивается переменной strA. В цикле со счетчиком, количество выполнения которого равно количеству символов в слове, последовательно вырезаются в прямой последовательности (слева направо) символы из введенного слова и в обратной последовательности (справа налево) присваиваются переменной strX, значением которой после завершения цикла будет слово перевертыш: Dim strA, strB, strX As String, bytI, bytN As Byte Private Sub cmd1_Click() strA = InputBox("Введите слово", "Ввод слова") Print "Введенное слово: "; strA strX = " " bytN = 1 Do While bytN <= Len(strA) strB = Mid$(strA, bytN, 1) strX = strB + strX bytN = bytN + 1 Loop Print "Слово перевертыш: "; strX End Sub 2 Запустить проект на выполнение. Щелкнуть по кнопке Пуск и на появившейся диалоговой панели ввести слово. На форме будут напечатаны как исходное слово, так и полученное слово-перевертыш.   Проект «Графический редактор» на языке Visual Basic На форме или в графическом поле можно рисовать различные графические примитивы с использованием графических методов: Scale – позволяет задать систему координат и масштаб для формы или графического окна: object.Scale (X1,Y1) - (X2,Y2) Pset – установка точки с заданными координатами и цветом: object.Pset (X,Y) [,color] Line – рисование линии, прямоугольника или закрашенного прямоугольника заданного цвета: object.Line (X1,Y1) - (X2,Y2) [,color][,B][F] Circle – рисование окружности, овала или дуги с заданными координатами центра, радиусом, цветом, начальным и конечным углом дуги и коэффициентом сжатия: object.Circle (X,Y),radius [,color, start, end, aspect]   Задание 1.13. Проект «Графический редактор». Создать проект «Графический редактор», который позволяет нарисовать в графическом поле все графические примитивы (точку, линию, прямоугольник, закрашенный прямоугольник, окружность).   Проект «Графический редактор» 1 Поместить на форму четыре текстовых поля для ввода координат: txtX1, txtY1, txtX2 и txtY2. Присвоить свойству Text значение 0. 2 Поместить на форму четыре текстовых поля для ввода числовых кодов цвета: txtС, txtR, txtG и txtB. Присвоить свойству Text значение 0. 3 Поместить на форму четыре текстовых поля для ввода параметров рисования окружности: txtRad (радиус), txtAng1 и txtAng2 (начальный и конечный угол дуги) и txtAsp (степень сжатия).  Присвоить свойству Text окна txtAng2 значение 6,28, а поля txtAsp – значение 1. 4 Поместить на форму двенадцать меток для обозначения текстовых полей. Объявить переменные и создать событийную процедуру задания масштаба текстового поля: Dim bytX1, bytX2, bytY1, bytY2, bytC, bytR, bytG, bytB, bytRad As Byte, sngA1, sngA2, sngAsp As Single, lngC As Long Private Sub cmdScale_Click() picPaint.Scale (0, 100)-(100, 0) End Sub 5 Ввести событийные процедуры рисования примитивов так, чтобы параметры считывались из текстовых окон. Предусмотреть с помощью оператора условного перехода возможность выбора использования функции QBColor или функции RGB для задания цвета. Событийная процедура рисования точки запишется следующим образом:   Private Sub cmdPoint_Click() bytX1 = Val(txtX1) bytY1 = Val(txtY1) If Val(txtC.Text) > 0 _ Then lngC = QBColor(Val(txtC)) _ Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB) picPaint.PSet (bytX1, bytY1), lngC End Sub   Событийная процедура рисования линии запишется следующим образом:   Private Sub cmdLine_Click() bytX1 = Val(txtX1) bytY1 = Val(txtY1) bytX2 = Val(txtX2) bytY2 = Val(txtY2) If Val(txtC.Text) > 0 _ Then lngC = QBColor(Val(txtC)) _ Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB) picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), lngC End Sub   Событийная процедура рисования прямоугольника запишется следующим образом:   Private Sub cmdLineB_Click() bytX1 = Val(txtX1) bytY1 = Val(txtY1) bytX2 = Val(txtX2) bytY2 = Val(txtY2) If Val(txtC.Text) > 0 _ Then lngC = QBColor(Val(txtC)) _ Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB) picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), lngC, B End Sub   Событийная процедура рисования закрашенного прямоугольника запишется следующим образом:   Private Sub cmdLineBF_Click() bytX1 = Val(txtX1) bytY1 = Val(txtY1) bytX2 = Val(txtX2) bytY2 = Val(txtY2) If Val(txtC.Text) > 0 _ Then lngC = QBColor(Val(txtC)) _ Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB) picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), lngC, BF End Sub   Событийная процедура рисования окружности запишется следующим образом:   Private Sub cmdCircle_Click() bytX1 = Val(txtX1) bytY1 = Val(txtY1) bytRad = Val(txtRad) sngA1 = Val(txtAng1) sngA2 = Val(txtAng2) sngAsp = Val(txtAsp) If Val(txtC.Text) > 0 _ Then lngC = QBColor(Val(txtC)) _ Else: bytR = Val(txtR): bytG = Val(txtG): bytB = Val(txtB): lngC = RGB(bytR, bytG, bytB) picPaint.Circle (bytX1, bytY1), bytRad, lngC, sngA1, sngA2, sngAsp End Sub 6 Поместить на форму кнопку txtCls и создать событийную процедуру очистки графического поля: Private Sub txtCls_Click() picPaint.Cls End Sub 7 Запустить проект.  Ввести в поля числовые значения (значения углов измеряются в радианах и должны находиться в интервале от –2*pi до 2*pi). Щелкнуть по кнопкам, в графическом поле будут нарисованы графические примитивы.

Похожие:

	Элективный курс «Исследование информационных моделей» в старшей школе Пояснительная записка В новом образовательном стандарте на третьей ступени общего образования, т е в старшей школе (10 – 11 классы), предусмотрено изучение...		Факультет информационных технологий Создание и исследование моделей является неотъемлемым элементом любой целенаправленной деятельности. У термина «модель» существует...
	Исследование моделей корпоративной социальной Рассматриваются вопросы формирования моделей корпоративной социальной ответственности, используемых в мировой практике (европейской,...		Программа для студентов специальности 010503. 65 «Математическое... Целью изучения курса «Математическая экономика» является приобретение умений построения математических моделей и навыков алгоритмизации...
	Рабочая программа элективного курса по биологии «экология человека» Программа элективного курса содержит новые понятия и материалы, не содержащиеся в изучении предмета экология. Программа включает...		Высшего профессионального образования Целью изучения курса «Эконометрика» является приобретение умений анализа статистических данных и построения эконометрических моделей,...
	Рабочая программа элективного учебного предмета «Уравнения и неравенства.... Рабочая программа по элективному учебному предмету составлена на основе авторской программы элективного учебного предмета «Уравнения...		Рабочая программа элективного предмета «Человек и его здоровье» Рабочая программа составлена на основе программы элективного курса «Человек и его здоровье», составленного группой авторов Л. В....
	Диплом разработка и исследование информационных моделей шифратора и дешифратора Во многих устройствах, в том числе и в электронно-вычислительных машинах (эвм), используются кодированные сигналы или коды. Кодом...		Рабочая программа Элективного учебного предмета «Социология» в 11 классе «Социология», преподаваемого в 10 классе социально-экономического профиля, и включает в себя: пояснительную записку, основное содержание...
	Информационное обеспечение систем управления Целью изучения дисциплины является обучение студентов основам современных информационных технологий в части разработки логических...		Рабочая программа элективного предмета по биологии «Молекулярные... «Рассмотрено на заседании мо учителей естественно-математического цикла и рекомендовано к утверждению»
	Лабораторная работа №5 тема: “Исследование корпоративных информационных... Исследование корпоративных информационных систем на реализацию функции расчёта реальной себестоимости”		Решение кафедры Информационные технологии в реализации информационных и информационно-деятельностных моделей в обучении
	Паспорт рабочей программы элективного курса стр. 4 Структура и содержание элективного курса Рабочая программа элективного курса Введение в профессию является частью образовательной программы спо, входящей в состав укрупненной...		Рабочая программа дисциплины технологии разработки информационных... Программа разработана доцентом каф. СаиТ, Свиридовым А. С., ассистентом каф. СаиТ, Кучеровым С. А