Инфоурок / Информатика / Другие методич. материалы / Лабораторное задание по ИКТ в профессии (расчеты в среде редактора Visual Basic Excel)

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



Московские документы для аттестации!

124 курса профессиональной переподготовки от 4 795 руб.
274 курса повышения квалификации от 1 225 руб.

Для выбора курса воспользуйтесь поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВА).

ДИПЛОМ от Столичного учебного центра: KURSY.ORG


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

Задача 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











Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG


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

Программирование на 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. Все верно.


Общая информация

Номер материала: ДБ-076496

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

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>