کمک برای یک توسعه یک اپ رایگان

[erayan 23]

سلام دوستان، یک اپ رایگان هست که خودم برای سرگرمی نوشتم که مدتی در کافه بازار منتشر کردم و اپ محاسبه سود بانکی و ... حساب می کنه و مورد استقبال قرار گرفته و حدود 3650 بار هم نصب شده تا الان...

بخش محاسبه وام بانکی به پیشنهاد نظرات قرار هست که اضافه بشه...

 بخش وام بانکی طبق فرمول زیر پیاده کردم ولی خطا double Invalid داره، سورس گذاشتم اگر دوستی حوصله داره زحمت بکشه همکاری کنه در توسعه پروژه ممنون میشم، اسمش هم در برنامه ذکر خواهم کرد. متشکرم

سورس اکتیویتی مربوط به وام:

vam

فرمول ریاضی:

فرمول محاسبه سود وام‌هاي بانكي

 

[erayan 23]

دوستان جان کسی نبود؟

[امین مهدی نژاد 2,142]

این دو متد زیر

اولیش قسط بانکی و دومیش سود رو حساب میکنه

Sub installment(loan As Long,rate As Byte,month As Byte) As Long
	Dim dbl1 As Double=rate/1200
	Dim dbl2 As Double=1+dbl1
	Dim dbl3 As Double=Power(dbl2,month)
	Dim top As Double=loan*(dbl1*dbl3)
	Dim bot As Double=dbl3-1
	Return top/bot
End Sub

Sub Interest(loan As Long,month As Int,iMent As Long) As Long
	Return (month*iMent)-loan
End Sub

اینم مثالش

ToastMessageShow(installment(70000000,12,60),True)
ToastMessageShow(Interest(700000000,60,installment(700000000,12,60)),True)

«موفق باشید.»

[erayan 23]

کسی نبود؟!

[AmirGholami 101]

چرا متغیر ها رو double تعریف نمیکنید؟

[erayan 23]

در 19 ساعت قبل، AmirGholami گفته است :

چرا متغیر ها رو double تعریف نمیکنید؟

نوع خطا گویای این مطلب ولی تفاوتی نمی کنه! وقتی اعداد وارد شده در رنج انتیجر و یا لانگ ورود میشن و خروجی هم باز رنج انتیجر دابل گذاشتن بی معنا هست