КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Практическая часть. Лабораторная работа №23. Работа с базами данных в VIsual Basic
Теоретическая часть ЛАБОРАТОРНАЯ РАБОТА №23. работа с базами данных в Visual Basic Практическая часть Теоретическая часть ЛАБОРАТОРНАЯ РАБОТА №22. Работа с компонентом Chart Практическая часть Теоретическая часть End Sub End If 'находим новое местоположение шариков x1 = x1 + dx1 x2 = x2 + dx2 'отправим эти значения в таблицу, чтобы изменилась диаграмма Cells(5, 2) = x1 Cells(5, 4) = x2 'Выполнить описанные команды, произвести перерасчет 'в соответствии с новыми данными, и перестроить диаграмму DoEvents 'завершим цикл Next i 19. Выйдите из среды Visual Basic. 20. Выйдите из режима конструктора. 21. Проверьте работоспособность приложения, щелкнув по кнопке «Старт». 22. Сохраните изменения в книге. 23. Задайте начальные значения: массы = 5, скорости равны 5 и -5. Должно получиться (при нажатии на кнопку «Старт») соударение двух одинаковых шариков с одинаковыми скоростями. 24. Выведите в какие-нибудь ячейки с помощью VBA значения скоростей шариков. 25. Сохраните работу и выйдите из MS Excel
ЛАБОРАТОРНАЯ РАБОТА №21. Создание сводных таблиц в VBA Цель работы: рассмотреть компоненты Animation, MMControl и их свойства; научиться создавать мультимедийные приложения с использованием компонента Animation и MMControl Задание 1. Создание проигрывателя WAV файлов В текстовом редакторе Word можно работать с несколькими документами одновременно и видеть каждый из них в своем окне. Все эти окна находятся внутри главного кона Word и являются по отношению к нему дочерними. В среде Visual Basic удобным средством для создания многооконного приложения служит так называемый многооконный интерфейс. Постановка задачи.
Цель работы: рассмотреть компоненты Animation, MMControl и их свойства; научиться создавать мультимедийные приложения с использованием компонента Animation и MMControl Задание 1. Создание проигрывателя WAV файлов В текстовом редакторе Word можно работать с несколькими документами одновременно и видеть каждый из них в своем окне. Все эти окна находятся внутри главного кона Word и являются по отношению к нему дочерними. В среде Visual Basic удобным средством для создания многооконного приложения служит так называемый многооконный интерфейс. Постановка задачи.
Цель работы: рассмотреть компоненты Animation, MMControl и их свойства; научиться создавать мультимедийные приложения с использованием компонента Animation и MMControl Задание 1. Создание проигрывателя WAV файлов В текстовом редакторе Word можно работать с несколькими документами одновременно и видеть каждый из них в своем окне. Все эти окна находятся внутри главного кона Word и являются по отношению к нему дочерними. В среде Visual Basic удобным средством для создания многооконного приложения служит так называемый многооконный интерфейс. Постановка задачи. Ранее Вы уже создавали различные приложения. Эти
Private Sub cmdРезультат_Click() Dim sr As Single sr = (Val(txtМатематика.Text) + Val(txtИнформатика.Text) + Val(txtРусский.Text) + Val(txtСрБаллАттестата.Text)) / 4 txtСрБалл.Text = Str(sr) If Val(txtСрБалл.Text) >= Val(Проходной.Text) Then txtРезультат.Text = "Зачислен (-а)" Else txtРезультат.Text = "Не зачислен (-а)" End If End Sub
Private Sub Form_Load() txtПроходной.Text = Str(4.5) End Sub
Private Sub lblФото_Change() txtМатематика.Text = "" txtИнформатика.Text = "" txtРусский.Text = "" txtСрБалл.Text = "" If lblФото.Caption <> "" Then Set imgФото.Picture = LoadPicture(App.Path & "\Pictures\" & frmЭкзамены.lblФото) txtРезультат.Text="" Else imgФото.Picture = LoadPicture() End If
End Sub
Data1.DatabaseName = App.Path + "\Экзамены.mdb" Data1.Refresh
Дата добавления: 2014-12-23; Просмотров: 803; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |