الكود البرمجي

Private Function spaceget(ByVal accel As Long, stime As Long, fspeed As Long) As Long
'دالة حساب المسافة الكلية
spaceget = (accel * 0.5) * stime ^ 2 fspeed * stime
End Function


Private Function lspeed(ByVal accel As Long, stime As Long, fspeed As Long) As Long
'دالة حساب السرعة النهائية
lspeed = (accel * stime) fspeed
End Function


Private Function accele(stime As Long, fspeed As Long, lspeed As Long) As Long
'دالة حساب التسارع
accele = (lspeed - fspeed) / stime
End Function


Private Function stime(lspeed As Long, fspeed As Long, tasaro As Long) As Long
'دالة حساب الزمن
stime = (lspeed - fspeed) / tasaro
End Function

Private Function fspeed(accel As Long, stime As Long, lspeed As Long) As Long
'دالة حساب سرعة الصفر
fspeed = (accel * stime) - lspeed
End Function


Private Function acc2(lspeed As Double,fspeed As Double, spaceget As Double) As Double
'دالة حساب التسارع بدون الزمن
acc2= ((lspeed ^ 2) - (fspeed ^ 2)) / (2 * spaceget )
End Function

و في الزر يمكن لصق أحد أو جميع الأسطر :

private sub command1_click()
' طريقة حساب التسارع
Text1.Text = accele(Text2.Text, Text3.Text, Text4.Text)

' طريقة حساب الزمن
Text2.Text = stime(Text1.Text, Text3.Text, Text4.Text)

'طريقة حساب سرعة الصفر
Text3.Text = fspeed(Text1.Text, Text2.Text, Text4.Text)

'طريقة حساب المسافة الكلية
Text5.Text = spaceget(Text1.Text, Text2.Text, Text3.Text)

'طريقة حساب السرعة النهائية
Text4.Text = lspeed(Text1.Text, Text2.Text, Text3.Text)

'طريقة حساب التسارع بدون وجود الزمن
Text1.Text = acc2(Text4.Text, Text3.Text, Text5.Text)

end sub