تطبيق حساب العمر ببرنامج NSB App Studio
اسم الدرس
|
تطبيق حساب العمر ببرنامج NSB
App Studio
|
مستوى الدرس
|
متقدم
|
اسم البرنامج
|
NSB App
Studio
|
رابط تحميل البرنامج
|
|
ماهو برنامج NSB App
Studio ؟
|
|
برنامج NSB appStudio هو برنامج لعمل وتصميم برامج وتطبيقات للجوالات بطريقة مبسطه مستخدما
javascprit او VBscript. 
الكود البرمجي:
txtdate.value=Date
Function Button1_onclick()
Dim born
born=CDate(txtbirthday.value)
If chkages.getValue(1)=True Then
txtdays.value=DateDiff("d",born,Date)
End If
If chkages.getValue(2)=True Then
txtmonths.value=DateDiff("m",born,Date)
End If
If chkages.getValue(3)=True Then
txtyears.value=DateDiff("yyyy",born,Date)
End If
End Function
Function Button2_onclick()
frmage.reset()
txtdate.value=Date()
End Function
|
|
أزال المؤلف هذا التعليق.
ردحذفأزال المؤلف هذا التعليق.
ردحذفنسخت الكود البرمجي وما اشتغل هل لازم اضيف شي ثاني
ردحذفالخطأ ممكن يكون باسم الاداة عندك مختلف عن الكود راجع الشرح وطابق الكود مع اسم الادوات عندك
حذفهذا الكود الجديد ويارب تستفيدوا :
ردحذفTextBox1.value=Date
Function Button1_onclick()
Dim myb
myb=CDate(TextBox2.value)
If Checkbox1.getValue(1)=True Then
TextBox3.value=DateDiff("d",myb,Date)
End If
If Checkbox1.getValue(1)=True Then
TextBox4.value=DateDiff("m",myb,Date)
End If
If Checkbox1.getValue(1)=True Then
TextBox5.value=DateDiff("yyyy",myb,Date)
End If
End Function
Function Button2_onclick()
From1.reset()
TextBox1.value=Date
End Function
اشتغل معي
حذفشكرا لك
شكرا مرهههههههههههههههههههههههههههههههههههههههههههه
ردحذف