Tizimli yondoshuv tamoyili

‘ Gaz animatsiyasini tasbirlovchi dastur
RTF1.FileName = "Ideal gaz.rtf"
dt = 0.1
n = 30
Randomize Timer 'Tasodifiy koordinata va tezliklarni tanlash
For i = 1 To n
m(i) = 2
x(i) = P5.Width / 10 * Rnd(1) + 10 ‘Boshlang’ich koordinatalar
y(i) = P5.Height / 10 * Rnd(1) + 10
vy(i) = 30 * Rnd(1) ‘Boshlang’ich tezliklar
vx(i) = 30 * Rnd(1)
Next i
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
P5.Cls
For i = 1 To n
fx(i) = 0: fy(i) = 0
Next i
For i = 1 To n
For J = 1 To n
If J = i Then GoTo 1
L = Sqr((x(i) - x(J)) * (x(i) - x(J)) + (y(i) - y(J)) * (y(i) - y(J))) ‘molekulalar
orasidagi masofa
If L < 2 Then L = 2
F = -50000 * m(i) * m(J) / (L * L) ‘o’zaro ta’sir kuchi
fx(i) = fx(i) + F * (x(i) - x(J)) / L ‘kuch proyeksiyalari
fy(i) = fy(i) + F * (y(i) - y(J)) / L + m(i) * 10
1 Next J
Next i
For i = 1 To n
AX = fx(i) / m(i): AY = fy(i) / m(i) ' Tezlanishlar
vx(i) = vx(i) + AX * dt: vy(i) = vy(i) + AY * dt ‘tezliklar
x(i) = x(i) + vx(i) * dt: y(i) = y(i) + vy(i) * dt ‘koordinatalar
If x(i) < 0 Then ‘chap devordan qaytish
vx(i) = -vx(i)
x(i) = 0
End If
If x(i) > P5.Width Then ‘o’ng devordan qaytish
vx(i) = -vx(i)
x(i) = P5.Width
End If
If y(i) < 0 Then ‘yuqori devordan qaytish
vy(i) = -vy(i)
y(i) = 0
End If
If y(i) > P5.Height Then ‘past devordan qaytish
vy(i) = -vy(i)
y(i) = P5.Height
End If
P5.Circle (x(i), y(i)), 20, vbRed
Next i
End Sub
Dastur ishga tushirilganda ekran quyidagi ko‘rinishni oladi:

Dastur beshta oynalardan iborat bo‘lib, birinchi uchtasi izojarayonlar grafiklarini uch xil o‘qlarda tasvirlash uchun mo‘ljallangan. To‘rtinchi oyna
izojarayonlar haqida ma’lumotlar berish uchun hizmat qiladi. Beshinchi oynada muayyan izojarayonning animatsiyasi tasvirlanadi. Ekranda shuningdek hohlagan
izojarayonni tanlash tugmalari o‘rnatilgan.
Agar ixtiyoriy izojarayon tugmasi tanlansa, shu jarayonga tegishli ma’lumotlar beriladi, ularning rangli grafiklari chiziladi va toblanib turadi hamda shu jarayonga oid tajribaning animatsiyasi tasvirlanadi. Masalan, “Adiabatik
jarayon” tugmasi tanlansa, birinchi uchta oynalarda ((p, V), (p,T) va (V,T) o‘qlarda) adiabatik jarayon grafiklari (adiabatalar) namoyish etiladi. To‘rtinchi oynada adiabatik jarayon haqida ma’lumot beriladi. Beshinchi oynada gaz molekulalarining harakati namoyish etiladi.