Keywords: electron, magnetic field, modeling, time interval, point charge, virtual 
laboratory, electronic textbook. 
KIRISH

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
|