Лабораторное задание по ИКТ в профессии (расчеты в среде редактора 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. Все верно.

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

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