Program rysujący wykres wskazowy dla układu RL.

Obwód prądu przemiennego z szeregowo połączonymi rezystorem i cewką jest opisany poprzez
podanie podstawowych parametrów:



Napięcia,



Rezystancji R



Indukcyjności - L



częstotliwość – f

Narysuj wykres wskazowy napięć w tym obwodzie

W programie przyjeto że wartośc napięcia podawanego w układzie będzie przeliczana na jednostki
rysunkowe o stałych niezaleznych od aktualnego rozmiaru okienka wartosciach.

Program wykonuje obliczenia po naciśnięciu przycisku Oblicz:

Metoda obsługi zdarzeń dla przycisku Button1 jest następująca:

Private

Sub

Button1_Click(sender

As

Object

, e

As

EventArgs

)

Handles

Button1.Click

REM Deklaracje zmiennych

Dim

x, y, x0, y0, xk, yk

As

Single

Dim

f

As

Double

REM Przypisanie wartości pobranych z pól tekstowych

f = TextBox4.Text
R = TextBox1.Text
L = TextBox2.Text
U = TextBox3.Text

REM Obliczenie reaktancji dla cewki

XL = 2 *

Math

.PI * f * L

REM Obliczenie impedancji

Z =

Math

.Sqrt((R * R) + (XL * XL))

REM wyznaczenie wartości prądu w obwodzie

I = U / Z

REM wyznaczenie wartosci skutecznej napięć na rezystancji i

reaktancji

UR = I * R
UL = I * XL

REM Wektor napięcia

x0 = 200
y0 = 500
xk = 200
yk = 100

REM Wektor napięcia

g.DrawLine(p, x0, y0, xk, yk)

REM współczynnki skali

skala = (y0 - yk) / U

REM Wyznaczenie wartosci cos fi i sin fi

cosfi = R / Z
sinfi = XL / Z

REM Obliczenie zmiany współrzędnych końca wektora napięcia

na rezystancji

deltay = cosfi * UR * skala
deltax = sinfi * UR * skala

REM obliczenie współrzednych końca wektora

x = x0 + deltax
y = y0 - deltay

REM Wyniki obliczeń

Label6.Text =

" XL= "

& Format(XL,

"f"

) &

" cosfi = "

&

Format(cosfi,

"f"

) &

" sinfi = "

& Format(sinfi,

"f"

)

p.Color =

Color

.Red

g.DrawLine(p, x0, y0, x, y)

REM Rysowanie wektora napiecia na cewce

p.Color =

Color

.DarkGreen

g.DrawLine(p, x, y, xk, yk)

End

Sub

Wprowadź następujące modyfikacje programu:



Wprowadź zabezpieczenia w programie walidujące poprowadzone dane



Zmień program tak by można było rysować wykres dla szeregowo połączonego
układu RC



Zmień program tak by można było rysować wykres dla szeregowo połączonego
układu RLC



Zmień program tak aby skala napięcia dostosowana była do rozmiaru okienka

Pełen kod programu:

Public

Class

Form1

Dim

g

As

Graphics

Dim

R, L, U, XL, Z

As

Double

Dim

I, skala, cosfi, sinfi, deltax, deltay

As

Double

Dim

UR, UL

As

Double

Dim

p

As

New

Pen

(

Color

.Blue, 2)

Private

Sub

Button1_Click(sender

As

Object

, e

As

EventArgs

)

Handles

Button1.Click

REM Deklaracje zmiennych

Dim

x, y, x0, y0, xk, yk

As

Single

Dim

f

As

Double

REM Przypisanie wartości pobranych z pól tekstowych

f = TextBox4.Text
R = TextBox1.Text
L = TextBox2.Text
U = TextBox3.Text

REM Obliczenie reaktancji dla cewki

XL = 2 *

Math

.PI * f * L

REM Obliczenie impedancji

Z =

Math

.Sqrt((R * R) + (XL * XL))

REM wyznaczenie wartości prądu w obwodzie

I = U / Z

REM wyznaczenie wartosci skutecznej napięć na rezystancji i reaktancji

UR = I * R
UL = I * XL

REM Wektor napięcia

x0 = 200
y0 = 500
xk = 200
yk = 100

REM Wektor napięcia

g.DrawLine(p, x0, y0, xk, yk)

REM współczynnki skali

skala = (y0 - yk) / U

REM Wyznaczenie wartosci cos fi i sin fi

cosfi = R / Z
sinfi = XL / Z

REM Obliczenie zmiany współrzędnych końca wektora napięcia na rezystancji

deltay = cosfi * UR * skala
deltax = sinfi * UR * skala

REM obliczenie współrzednych końca wektora

x = x0 + deltax

y = y0 - deltay

REM Wyniki obliczeń

Label6.Text =

" XL= "

& Format(XL,

"f"

) &

" cosfi = "

& Format(cosfi,

"f"

) &

" sinfi = "

& Format(sinfi,

"f"

)

p.Color =

Color

.Red

g.DrawLine(p, x0, y0, x, y)

REM Rysowanie wektora napiecia na cewce

p.Color =

Color

.DarkGreen

g.DrawLine(p, x, y, xk, yk)

End

Sub

Private

Sub

Form1_Load(sender

As

Object

, e

As

EventArgs

)

Handles

MyBase

.Load

g =

Me

.CreateGraphics()

REM Tworzenie obiektu graficznego na formularzu

End

Sub

End

Class