22-07-21, 10:13 AM
كود :
Dim yar As Integer = Val(TextBox1.Text) \ Val(TextBox2.Text)
Dim month As Integer = Val(TextBox1.Text) Mod Val(TextBox2.Text)
month = (month * 12) / Val(TextBox2.Text)
Label1.Text = yar & "سنة" & " " & "و " & month & " " & "شهر"الادوات المطلوبة
تيكست بوكس لتدخل به عدد السنوات
تيكست بوكس لتدخل به العدد المقسوم عليه
زر تدخل به الكود مثل ما هو نسخ لصق
وليبل لاظهار النتيجة كذا سنة وكذا شهر
مثلا اذا ادخلت في تيكست بوكس 1 العدد 10 وفي تيكست بوكس 2 العدد 3 فستظهر النتيجة كالأتي : 3 سنوات و 4 أشهر
اما اذ اردتها ان ظهر ثلثين حسب ما فهمت من كلامك انك تريد فعليك التغيير في السطر قبل الاخير من الكود البرمجي اي في قيمة المتغير month
فاضربه ب الرقم 2 *2
تطبيق للجوال يشبه تطبيق حراج
سورس كود برنامج محاسبة ومبيعات احترافي
سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام Abo_anas_kahwaji@
واتساب 00963951283515