Elektronning elektr va magnit maydonlaridagi harakatini modellashtirish

Keywords:
electron, magnetic field, modeling, time interval, point charge, virtual 
laboratory, electronic textbook. 
KIRISH 
Hozirgi ta’lim jarayonini texnologiyalar va axborotlarsiz tasavvur qilib bo’lmaydi. Shuning 
uchun ham ayni vaqtda respublikamiz ijtimoiy hayotiga shiddatli tezlikda axborotlar oqimi kirib 
kelmoqda. Bu axborotlarni tez su’ratlarda qabul qilib olish, ularni tahlil etish, qayta ishlash va 
umumlashtirish hamda o’quvchiga yetkazib berishni yo’lgan qo’yish ta’lim tizimi oldida turgan 
dolzarb muammolardan biri hisoblanadi. Ta’lim muassasalarida axborot ta’lim muhitini tashkil 
etishni maqsadi tayyorlanayotgan mutaxxasisga bo’lajak o’qituvchi shaxsiga qo’yiladigan talablar 
bilan bevosita bog’liq holda ishlab chiqiladi. Bevosita axborot texnologiyalaridan foydalangan 
holda sinf darsliklari labaratoriyalarini virtual jarayonlar asosida tasavvur etishimiz va 
qo’llashimiz mumkin.
TADQIQOT MATERIALLARI VA METODOLOGIYASI 
Ushbu maqolada biz fizika dasrligidagi mavzularga asoslangan holda elektronning elektr 
va magnit maydonlaridagi harakatini modellashtirish uchun quyidagicha dastur tuzamiz: 
Private Sub Command1_Click() 

---

UIF-2022: 8.2
SCIENCE AND INNOVATION
ISSN: 2181-3337
INTERNATIONAL SCIENTIFIC JOURNAL

2022 
№4
27 
‘ Bir jinsli elektr maydonidagi harakat 
P1.Cls 
‘ elektronning zaryadi, massasi, tezligi va elektr maydon kuchlanganligi 
q = 1.6E-19: m = 9.1E-31: E = 100000#: v0 = 10000000#: l = 0.02 
a = q * E / m: tm = 1.7 * l / v0: dt = tm / 50 ‘
elektron tezlanishi va vaqt intervali 
kx = 200000: ky = 20000 
RTF.FileName = "Elektrr.rtf" 
‘faylni yuklash 
P1.Print 
P1.Print "Bir jinsli elektr maydonidagi harakat" 
P1.Print "E="; E / 1000; "(kV/m)Vo="; v0 / 1000000#; "(Mm/s)" 
P1.Line (3000, 1300)-(3000, 1800), QBColor(3) 
‘ kondensatorni chizish 
P1.PSet (3100, 1400), vbCyan: P1.Print "-" 
P1.Line (1000, 1800)-(5000, 1800), QBColor(3) 
P1.Line (1000, 3600)-(5000, 3600), QBColor(3) 
P1.Line (3000, 3600)-(3000, 4100), QBColor(3) 
P1.PSet (3100, 3900), vbCyan: P1.Print "+" 
t = 0 x = 0 y = 0111 x = x + v0 * dt ‘
koordinatalar 
y = a * x ^ 2 / (2 * v0 ^ 2) 
P1.Circle (x * kx + 500, y * ky + 2000), 20, QBColor(4) ‘
Grafik chizish 
For j = 1 To 2000000: Next j 
P1.Circle (x * kx + 500, y * ky + 2000), 20, QBColor(10) ‘
Grafik chizish 
For j = 1 To 2000000: Next j t = t + dt 
If t < tm Then GoTo 111 End Sub 
Private Sub Command2_Click() ‘
Davriy elektr maydonidagi harakat 
P1.Cls 
q = 1.6E-19: m = 9.1E-31: E0 = 100000#: v0 = 10000000#: l = 0.02 
tm = 1.7 * l / v0: dt = tm / 50: w = 1E+15 kx = 200000: ky = 20000 
RTF.FileName = "Davr.rtf" ‘
faylni yuklash 
For iw = 1 To 4 P1.Cls 
P1.Print 
P1.Print "Davriy elektr maydonidagi harakat" 
P1.Print "Eo="; E0 / 1000; "(kV/m)Vo="; v0 / 1000000#; "(Mm/s)" 
w = 1E+15 * 10 ^ iw 
P1.Print "w="; w; "(Gs)" P1.Line (3000, 1300)-(3000, 1800), QBColor(3) 
P1.Line (1000, 1800)-(5000, 1800), QBColor(3) 
P1.Line (1000, 3600)-(5000, 3600), QBColor(3) 
P1.Line (3000, 3600)-(3000, 4100), QBColor(3) 
t = 0: x = 0: y = 0 
111 x = x + v0 * dt E = E0 * Cos(w * dt) a = q * E / m 
y = a * x ^ 2 / (2 * v0 ^ 2) 
P1.Circle (x * kx + 1000, y * ky + 3000), 20, QBColor(4) For j = 1 To 2000000: Next j 
P1.Circle (x * kx + 1000, y * ky + 3000), 20, QBColor(10) 
For j = 1 To 2000000: Next j t = t+ dt 
If t < tm Then GoTo 111 Next iw 
End Sub 
Private Sub Command3_Click() 
‘Nuqtaviy zaryad maydonidagi harakat 
P1.Cls 

---

UIF-2022: 8.2
SCIENCE AND INNOVATION
ISSN: 2181-3337
INTERNATIONAL SCIENTIFIC JOURNAL