Sub Lcd_show

[rroozisia]

با سلام .چند خط برنامه به زبان بیسیک دارم که میخوام بفهم چیه.ممنون می شیم کمکم کنید مربوط به یه فرستنده گیرنده آلترا سونیکه

Sub Lcd_show(byval Hex_val As Integer)
Dim D As Long
Dim Distance As Integer
D = Hex_val / 2
D = D * 340
D = D / 10000
Distance = D
Distance = Distance + 4
Cls
Lcd "Range> " ; Distance ; "cm"
End Sub

[rroozisia]

پاسخ : Sub Lcd_show

:angry: کسی نیست جواب بده؟

[mg.javad]

پاسخ : Sub Lcd_show

خط اول تعریف تابعه....که مقدار Hexval رو هم میگیره
خط دوم و سوم تعریف دو متغیره
تا خط 5 انجام محاسبات و تبدیلات صوت به فاصله هستش
خط ششم مقدار نهایی بدست اومد رو در متغیر distance میریزه :biggrin:
خطهای بعدی هم کار نمایش Distance یا همون فاصله رو انجام میدن