Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Лабораторное задание по ИКТ в профессии (расчеты в среде редактора Visual Basic Excel)
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

Лабораторное задание по ИКТ в профессии (расчеты в среде редактора Visual Basic Excel)

библиотека
материалов

Задача 1. Определить общее сопротивление электрической цепи, напряжение и мощность каждого проводника на рис.1 при R1 = 10Ом, R2 = 25Ом, R3 = 15Ом и R4 = 14Ом. Напряжение источника напряжения U = 16В. Внутренним сопротивлением источника пренебречь.
Вы можете также посетить
 

Решение: Данная электрическая цепь является цепью с последовательно включенными проводниками. Общее спротивление тогда рассчитывается по формуле
R = R1 + R2 + R3 + R4. Получим R = 10 + 25 +15 +14 = 64 Ома. При последовательном включении ток одинаков во всей цепи и вычисляется как I = U:R. Имеем:
I = 16:64 = 0,25 Ампер. Тогда, согласно закона Ома для участка цепи напряжение на каждом из проводников составят: U1 = I*R1, U2 = I*R2, U3 = I*R3, U4 = I*R4.
Вычисляем: U1 = 0,25*10 = 2,5B; U2 = 0,25*25 = 6,25B; U3 = 0,25*15 = 3,75B; U4 = 0,25*14 = 3,5B. Проверяем: U = 2,5 + 6,25 + 3,75 + 3,5 = 16В. Мощность каждого
элемента рассчитывается по формуле P = U*I. Получим: Р1 = U1*I = 2,5*0,25 = 0,625Вт; Р2 = U2*I = 6,25*0,25 = 1,5625Вт; Р3 = U3*I =3,75*0,25 = 0,9375Вт;
Р4 = U4*I = 3,5*0,25 =0.875Вт.
Правильность решения можно проверить, рассчитав баланс системы. Должно выполниться условие: U1*I + U2*I + U3*I + U4*I = U*I. Проверяем:
0,625Вт + 1,5625Вт + 0,9375Вт + 0.875Вт = 64В*0,25А. Откуда 4 = 4. Все верно.
hello_html_m32255440.png



Создать форму для решение этой задачи средствами VBA EXCEL



hello_html_6e9486ed.png













UserForm1.Show

Запуск формы

UserForm1.Show 0

Запуск формы не модальное окно







Activate – событие возникает каждый раз, когда окно формы становится активным.

Click – происходит клик мышью по поверхности, не занятой элементами управления.

DblClick – аналог предыдущему событию, только тут происходит двойной клик по форме.

Deactivate – событие возникает каждый раз, как окно формы переходит в неактивное состояние.

Initialize – возникает как только происходит загрузка формы в память с помощью метода Show или оператора Load.

Resize – происходит изменение размеров формы

Terminate – событие происходит каждый раз, как только форма выгружается из памяти.









Sheets("Лист1").Select

Активировать лист 1

Range("A3").Select

Перейти на ячеку A3

ActiveCell.FormulaR1C1 = "1"

Записать в активную ячейку =1

Другой вариант

Worksheets("Лист1").Range("A1").Value = 3

Запись в ячейку А1 листа 1 =3

Другой вариант

ActiveWorkSheet.Range("a1").Value = 1

Запись в активный лист ячейку а1 =1

Другой вариант

ActiveSheet.Range(Cells(1, 1), Cells(2, 2)).Value = 777

Запись в активный лист

С ячейки А1 по B2 = 777



Операция с TextBox1

Сложение

I1 = Val(TextBox1.Value) + Val(TextBox2.Value)

Умножение

X= Val(TextBox1.Value) * Val(TextBox2.Value)



Private Sub CommandButton1_Click()



Worksheets("1").Range("A1").Value = "I"





I1 = Val(TextBox5.Value) / (Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value))



Worksheets("Лист1").Range("A2").Value = I1



Worksheets("Лист1").Range("E1").Value = "Сила Тока"





Worksheets("Страница1").Range("A3").Value = "U1"

Worksheets("Лист1").Range("B3").Value = "U2"

Worksheets("Лист1").Range("C3").Value = "U3"

Worksheets("Лист1").Range("D3").Value = "U4"





u1 = I1 * Val(TextBox1.Value)

u2 = I1 * Val(TextBox2.Value)

u3 = I1 * Val(TextBox3.Value)

u4 = I1 * Val(TextBox4.Value)







Worksheets("Лист1").Range("E3").Value = "Напрежение"

Worksheets("Лист1").Range("A4").Value = u1

Worksheets("Лист1").Range("B4").Value = u2

Worksheets("Лист1").Range("C4").Value = u3

Worksheets("Лист1").Range("D4").Value = u4

Worksheets("Лист1").Range("A5").Value = "p1"

Worksheets("Лист1").Range("B5").Value = "p2"

Worksheets("Лист1").Range("C5").Value = "p3"

Worksheets("Лист1").Range("D5").Value = "p4"

Worksheets("Лист1").Range("E5").Value = "Мощность"

p1 = I1 * u1

p2 = I1 * u2

p3 = I1 * u3

p4 = I1 * u4

Worksheets("Лист1").Range("A6").Value = p1

Worksheets("Лист1").Range("B6").Value = p2

Worksheets("Лист1").Range("C6").Value = p3

Worksheets("Лист1").Range("D6").Value = p4





Worksheets("Лист1").Range("A7").Value = "Общая Мощность"

Worksheets("Лист1").Range("A8").Value = (p1 + p2 + p3 + p4)

End Sub

Private Sub UserForm_Activate()

TextBox1.Value = 10

TextBox2.Value = 25

TextBox3.Value = 15

TextBox4.Value = 14

TextBox5.Value = 16

End Sub











Краткое описание документа:

Программирование на VBA в MS Excel

Задача 1. Определить общее сопротивление электрической цепи, напряжение и мощность каждого проводника на рис.1 при R1 = 10Ом, R2 = 25Ом, R3 = 15Ом и R4 = 14Ом. Напряжение источника напряжения U = 16В. Внутренним сопротивлением источника пренебречь.
Вы можете также посетить

Решение: Данная электрическая цепь является цепью с последовательно включенными проводниками. Общее спротивление тогда рассчитывается по формуле
R = R1 + R2 + R3 + R4. Получим R = 10 + 25 +15 +14 = 64 Ома. При последовательном включении ток одинаков во всей цепи и вычисляется как I = U:R. Имеем:
I = 16:64 = 0,25 Ампер. Тогда, согласно закона Ома для участка цепи напряжение на каждом из проводников составят: U1 = I*R1, U2 = I*R2, U3 = I*R3, U4 = I*R4.
Вычисляем: U1 = 0,25*10 = 2,5B; U2 = 0,25*25 = 6,25B; U3 = 0,25*15 = 3,75B; U4 = 0,25*14 = 3,5B. Проверяем: U = 2,5 + 6,25 + 3,75 + 3,5 = 16В. Мощность каждого
элемента рассчитывается по формуле P = U*I. Получим: Р1 = U1*I = 2,5*0,25 = 0,625Вт; Р2 = U2*I = 6,25*0,25 = 1,5625Вт; Р3 = U3*I =3,75*0,25 = 0,9375Вт;
Р4 = U4*I = 3,5*0,25 =0.875Вт.
Правильность решения можно проверить, рассчитав баланс системы. Должно выполниться условие: U1*I + U2*I + U3*I + U4*I = U*I. Проверяем:
0,625Вт + 1,5625Вт + 0,9375Вт + 0.875Вт = 64В*0,25А. Откуда 4 = 4. Все верно.


Автор
Дата добавления 11.05.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров533
Номер материала ДБ-076496
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх