= 150 "Графік заряду на конденсаторі"
X0 = 400: Y0 = 3500 (X0, Y0) - (2500, Y0) (X0, Y0) - (X0, 400) (400, 400) - (340, 470) (400 , 400) - (460, 470) (2500, 3500) - (2440, 3430) (2500, 3500) - (2440, 3570) I = 1 To 10 (X0 + 210 * I, 3500) - (X0 + 210 * I, 400) II = 1 To 10 (X0, Y0 - 310 * I) - (2500, Y0 - 310 * I) I (X0 + T (1) * (2100/T (N)), Y0 - Q (1) * (3100/Q (N))) = 2I = 2 To N = X0 + T (I) * (2100/T (N)) = Y0 - Q (I) * 3100/Q (N) - (X, Y) I = 1 = 100: CurrentY = 450 "Q (t)" = 2570: CurrentY = 3300 "t" = 300: CurrentY = 3600 "0" = X0 + 210 * 4: CurrentY = 3600Format ( (T (N)/2), "Fixed") = X0 + 210 * 9: CurrentY = 3600Format (T (N), "Fixed") = X0 - 400: CurrentY = Y0 - (3100/10) * 4Format ((Q (N)/10) * 5, "Fixed") = X0 - 400: CurrentY = Y0 - (3100/10) * 8Format ((Q (N)/10) * 8, "Fixed" )
End Sub
Процедура обробки події Click на перемикачі Option2'форми Form4. Тут виконується висновок Графіка Тока
Sub Option2_Click () X As Single, Y As Single, Y0 As Single, X0 As Single, I As Integer = 1000 + 2700: CurrentY = 150 "Графік напруги" = 400 + 2700: Y0 = 3500 (X0, Y0) - (X0 + 2100, Y0) (X0, Y0) - (X0, 400) (X0, 400) - (X0 - 60, 470) (X0, 400) - (X0 + 60, 470 ) (X0 + 2100, Y0) - (X0 + 2040, Y0 - 70) (X0 + 2100, Y0) - (X0 + 2040, Y0 + 70) I = 1 To 10 (X0 + 210 * I, 3500) - (X0 + 210 * I, 400) II = 1 To 10 (X0, Y0 - 310 * I) - (X0 + 2100, Y0 - 310 * I) I (X0 + T (1) * (2100/T (N )), Y0 - Uс (1) * 3100/Uс (N)) = 2I = 2 To N = X0 + T (I) * (2100/T (N)) = Y0 - Uс (I) * 3100/Uс (N) - (X, Y) I = 1 = X0 - 450: CurrentY = 450 "Uc (t)" = X0 + 2200: CurrentY = Y0 - 150 "t" = X0 - 100: CurrentY = Y0 + 100 " ; 0 "= X0 + 210 * 4: CurrentY = Y0 + 100Format ((T (N)/2)," Fixed ") = X0 + 210 * 9: CurrentY = Y0 + 100Format (T (N)," Fixed ") = X0 - 500: CurrentY = Y0 - (3100/10) * 4Format ((Uс (N)/10) * 5," Fixed ") = X0 - 500: CurrentY = Y0 - (3100/10) * 8Format ((Uс (N)/10) * 8, "Fixed")
End Sub
Процедура обробки події Click на перемикачі Option3 форми Form4. Тут виконується висновок Графіка ЕРС самоіндукції
Private Sub Option3_Click ()
Dim X As Single, Y As Single, Y0 As Single, X0 As Single, I As Integer = 400 + 5400: Y0 = 3500 = X0 + 50: CurrentY = 150 "Графік струму" (X0 , Y0) - (X0 + 2100, Y0) (X0, Y0) - (X0, 400) (X0, 400) - (X0 - 60, 470) (X0, 400) - (X0 + 60, 470) (X0 + 2100, Y0) - (X0 + 2040, Y0 - 70) (X0 + 2100, Y0) - (X0 + 2040, Y0 + 70) I = 1 To 10 (X0 + 210 * I, 3500) - (X0 + 210 * I, 400) II = 1 To 10 (X0, Y0 - 310 * I) - (X0 + 2100, Y0 - 310 * I) I (X0 + T (1) * (2100/T (N)), Y0 - I с (1) * (3100/I с (1))) = 2I = 2 To N = X0 + T (I) * (2100/T (N)) = Y0 - I с (I) * (3100/I с (1)) - (X, Y) I = 1 = X0 - 450: CurrentY = 450 "Ic (t)" = X0 + 2200: CurrentY = Y0 - 150 "t" = X0 - 100: CurrentY = Y0 + 100 "0" = X0 + 210 * 4: CurrentY = Y0 + 100Format ((T (N)/10) * 5, "Fixed") = X0 + 210 * 9: CurrentY = Y0 + 100Format (T (N) , "Fixed") = X0 - 500: CurrentY = Y0 - (3100/10) * 4Format (Abs ((I с (N) - I с (1))/10) * 5, "Fixed") = X0 - 500: CurrentY = Y0 - (3100/10) * 8Format (Abs ((I с (N) - I с (1))/10) * 8, "Fixed") SubSub Command1_Click ()
Unload MeSub
Висновок: виконав по запропонованому варіанту завдання змістовну і формальну постановку задачі розрахунку перехідного процесу в нелінійній електричного кола, викликаного її включенням або відключенням;
Вивчив процедурні особливості заданого методу чисельного інтегрування звичайних диференціальних рівнянь;
Спроектував діалогову програму модульної структури для розрахунку перехідного процесу в заданій електричного кола і написав вихідні тексти програмних модулів на мові, що вивчається програмування;
Досліджував перехідні процеси в заданій електричного кола за допомогою налагодженої програми.
