Задача 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. Все верно. [pic]
Создать форму для решение этой задачи средствами VBA EXCEL
[pic]
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
