تطبيق مفكرتي للجوال ببرنامج NSB App Studio
اسم الدرس
|
تطبيق مفكرتي للجوال ببرنامج NSB
App Studio
|
مستوى الدرس
|
متقدم
|
اسم البرنامج
|
NSB App
Studio
|
رابط تحميل البرنامج
|
|
ماهو برنامج NSB App
Studio ؟
|
|
برنامج NSB appStudio هو برنامج لعمل وتصميم برام
 ج وتطبيقات للجوالات بطريقة مبسطه مستخدما
javascprit او VBscript.
الكود البرمجي:
Dim saves()
Sub Main
If localStorage.note=undefined Then
localStorage.note=JSON.stringify([])
End If
saves=JSON.parse(localStorage.note)
fillTextArea()
End Sub
Function Button1_onclick()
If txtDate.value="" Then
MsgBox "لم يتم تحديد موعد"
Else
myArray={noteDate: txtDate.value, Note: txtNote.value}
saves=JSON.parse(localStorage.note)
saves.push(myArray)
localStorage.note=JSON.stringify(saves)
fillTextArea()
End Function
Sub fillTextArea()
txtSavedNotes.value=""
For i=0 To UBound(saves)
txtSavedNotes.value=txtSavedNotes.value & saves[i].noteDate &
": " & saves[i].Note & vbCRLF
Next
End Sub
|
|
أزال أحد مشرفي المدونة هذا التعليق.
ردحذفالكود ناقص End If
ردحذف