Студопедия

КАТЕГОРИИ:


Архитектура-(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; Просмотров: 759; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.016 сек.